khongtu19bk
Thành viên hoạt động
- Tham gia
- 5/12/09
- Bài viết
- 147
- Được thích
- 69
Mình có file như sau
link: https://www.mediafire.com/file/bh769rabnoi2pf0/filesub_VBA.zip/file
Cụ thể đây là file .ass
Code dưới đây dùng để đọc file này
Tại sao kết quả lại ra cnt = 1.
Ai biết giải đáp dùm với ạ.
Khi mở file bằng notepad++ thì hiển thị như này:
Nhưng khi mở bằng notepad thông thường thì hiển thị như này, không hiểu file bị sao nữa.
link: https://www.mediafire.com/file/bh769rabnoi2pf0/filesub_VBA.zip/file
Cụ thể đây là file .ass
Code dưới đây dùng để đọc file này
Mã:
Sub Openassfile(ByVal FilePath As String)
Dim cnt As Long
Open FilePath For Input As #1
cnt = 0
ReDim arr(1 To 1)
Do Until EOF(1)
Line Input #1, LineFromFile
cnt = cnt + 1
ReDim Preserve arr(1 To cnt)
If InStr(1, LineFromFile, "・ソ") = 1 Then LineFromFile = Mid(LineFromFile, 3, Len(LineFromFile) - 2)
arr(cnt) = LineFromFile
Loop
Close #1
End sub
Ai biết giải đáp dùm với ạ.
Khi mở file bằng notepad++ thì hiển thị như này:
Nhưng khi mở bằng notepad thông thường thì hiển thị như này, không hiểu file bị sao nữa.
Lần chỉnh sửa cuối: