Tìm UID facebook

[ThanRuaKaMe]

Xin các cao thủ giúp đỡ.
Em có file text Tên là TOI NGAY4.5.txt đính kèm.
Em muốn lấy tất cả dãy số đằng sau ký tự https://www.facebook.com/messages/t/
cho đến dấu ngặc kép, vào một file excel.
mong các cao thủ chỉ giúp
Em cám ơn nhiều nhiều.

 

[HieuCD]

Xin các cao thủ giúp đỡ.
Em có file text Tên là TOI NGAY4.5.txt đính kèm.
Em muốn lấy tất cả dãy số đằng sau ký tự https://www.facebook.com/messages/t/
cho đến dấu ngặc kép, vào một file excel.
mong các cao thủ chỉ giúp
Em cám ơn nhiều nhiều.

2 file cùng 1 thư mục

Sub ImportTextToExcel()
  Dim fso As Object, S, S2, Res()
  Dim k As Long, i As Long, FileName As String
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  FileName = ThisWorkbook.Path & "\TOI NGAY 4.5.txt"
  S = Split(fso.OpenTextFile(FileName, 1, False, -2).ReadAll, "www.facebook.com/messages/t/")
  If TypeName(S) = "String()" Then
    ReDim Res(1 To 1 + UBound(S), 1 To 1)
    For i = 1 To UBound(S)
      S2 = Split(S(i), """")
      If TypeName(S2) = "String()" Then
        k = k + 1
        Res(k, 1) = S2(0)
      End If
    Next
    Range("A2").CurrentRegion.ClearContents
    Range("A2").Resize(k) = Res
  End If
End Sub

 

[ThanRuaKaMe]

2 file cùng 1 thư mục

Sub ImportTextToExcel()
  Dim fso As Object, S, S2, Res()
  Dim k As Long, i As Long, FileName As String
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  FileName = ThisWorkbook.Path & "\TOI NGAY 4.5.txt"
  S = Split(fso.OpenTextFile(FileName, 1, False, -2).ReadAll, "www.facebook.com/messages/t/")
  If TypeName(S) = "String()" Then
    ReDim Res(1 To 1 + UBound(S), 1 To 1)
    For i = 1 To UBound(S)
      S2 = Split(S(i), """")
      If TypeName(S2) = "String()" Then
        k = k + 1
        Res(k, 1) = S2(0)
      End If
    Next
    Range("A2").CurrentRegion.ClearContents
    Range("A2").Resize(k) = Res
  End If
End Sub

Em cám ơn anh nhiều nhiều. Có cách nào để học hay dịch code này không ạ. Hihi. Chứ em chỉ biết copy vào và chén thui.

 

[HieuCD]

Em cám ơn anh nhiều nhiều. Có cách nào để học hay dịch code này không ạ. Hihi. Chứ em chỉ biết copy vào và chén thui.

Mình cũng copy trên diễn đàn và chỉnh vài chổ, nếu bạn có đam mê code VBA tìm mua sách trên diễn đàn và làm theo từng bước, không lâu sẽ tự viết code được

 

[ThanRuaKaMe]

Mình cũng copy trên diễn đàn và chỉnh vài chổ, nếu bạn có đam mê code VBA tìm mua sách trên diễn đàn và làm theo từng bước, không lâu sẽ tự viết code được

Món này thì em rất thích. Nhưng chỉ biết excel thông thường. Còn món này ngồi dịch còn không dịch được. Sách online hả anh?

 

[HieuCD]

Món này thì em rất thích. Nhưng chỉ biết excel thông thường. Còn món này ngồi dịch còn không dịch được. Sách online hả anh?

Sách diễn đàn bán, ngoài ra còn có các bài viết kiến thức cơ bản có thể tham khảo thêm