Tìm số dòng trong file .txt bang code vba (1 người xem)

[Hanguyenktxd]

Gửi các anh chị trên diễn đàn
Có code Vba nào biết được số dòng trong file text là bao nhiêu dòng khi không mở file text

 

[dovanhoc84]

cái này là mình đi copy về thôi

Sub Sample09()
Dim FSO As Object, TargetFile As String
TargetFile = Application.GetOpenFilename()
If TargetFile = "False" Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(TargetFile, 8)
MsgBox "File " & Dir(TargetFile) & " Co " & .Line & "Dong" , vbInformation
.Close
End With
Set FSO = Nothing
End Sub

Link tham khảo
http://officetanaka.net/excel/vba/filesystemobject/sample09.htm

 

[ndu96081631]

cái này là mình đi copy về thôi

Sub Sample09()
Dim FSO As Object, TargetFile As String
TargetFile = Application.GetOpenFilename()
If TargetFile = "False" Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(TargetFile, 8)
MsgBox "File " & Dir(TargetFile) & " Co " & .Line & "Dong" , vbInformation
.Close
End With
Set FSO = Nothing
End Sub

Link tham khảo
http://officetanaka.net/excel/vba/filesystemobject/sample09.htm

Đã dùng đến FileSystemObject là hàng "cao cấp" rồi sao không dùng luôn, tự nhiên lại thêm thằng em Dir "thấp cấp" kia cho dính "chưởng" đường dẫn tiếng Việt có dấu

 

[dovanhoc84]

Thê nên em mới nói là đi co nhặt chứ em cũng chỉ là gà thôi.
em biết mỗi cái tìm rồi lắp ghép cho chạy ổn, và cũng k làm việc với link tiếng việt bao giờ.

Tiện đây anh cũng chỉ luôn cho em đi ạ. vì em chỉ tự lắp bắp học để phục vụ cv trên cty của em thôi

Đã dùng đến FileSystemObject là hàng "cao cấp" rồi sao không dùng luôn, tự nhiên lại thêm thằng em Dir "thấp cấp" kia cho dính "chưởng" đường dẫn tiếng Việt có dấu

 

[ndu96081631]

Thê nên em mới nói là đi co nhặt chứ em cũng chỉ là gà thôi.
.

Cop nhặt trên mạng là chuyện thường, tôi vẫn làm vậy. Tuy nhiên ta cần tham khảo thuật toán là chính, sau đó phải biết "chế biến" để trở thành cái của riêng mình

em biết mỗi cái tìm rồi lắp ghép cho chạy ổn, và cũng k làm việc với link tiếng việt bao giờ.

Bạn không làm việc với path tiếng Việt có dấu thôi nhưng người khác thì có đó. Mới mấy hôm trước thôi bạn đã từng gặp 1 bài rồi còn gì (liên quan đến LoadPicture vào Image)

 

[doveandrose]

Bạn không làm việc với path tiếng Việt có dấu thôi nhưng người khác thì có đó. Mới mấy hôm trước thôi bạn đã từng gặp 1 bài rồi còn gì (liên quan đến LoadPicture vào Image)

nghe đâu người này ở bên Nhật .LoadPicture vào Image mà gặp mấy cái đường dẫn Tiếng Nhật còn chết lẹ hơn tiếng Việt =))

 

[dovanhoc84]

Thì có phải mình tôi không load được đâu, tôi chỉ biết là tôi đã làm tìm hiểu hết mức.
Cái đó vẫn có rất nhiều người hóng mà cũng đã trả lời được đâu?
Thêm nữa là tôi cũng chưa cười ai trong diễn đàn này chỉ vì họ k làm nổi, chuyện k làm dc cũng bt mà, tôi đâu có phủ nhận?

nghe đâu người này ở bên Nhật .LoadPicture vào Image mà gặp mấy cái đường dẫn Tiếng Nhật còn chết lẹ hơn tiếng Việt =))

 

[ndu96081631]

Thì có phải mình tôi không load được đâu, tôi chỉ biết là tôi đã làm tìm hiểu hết mức.
Cái đó vẫn có rất nhiều người hóng mà cũng đã trả lời được đâu?

Bạn làm không được thôi chứ không phải người khác làm không được!
Lúc ấy bạn doveandrose đã có giải pháp đổi tạm tên file đó thôi (đó cũng là giải pháp)
Ngoài ra còn có giải pháp dùng API, có điều tôi không thích mấy nên chưa đưa lên (đang cố tìm những giải pháp khác đơn giản hơn)
-------------------------
Trở lại vấn đề chính: Vì code của bạn có dòng:

Set FSO = CreateObject("Scripting.FileSystemObject")

FileSystemObject là chuyên gia về xử lý file, folder, nó làm việc được cả với đường dẫn tiếng Việt có dấu... vậy nên không việc gì phải dùng đến Dir cho nó thêm dở ẹc
Theo đánh giá của tôi: Code "nước ngoài" ấy quá kém! (Ở đây chỉ xét về mặt xử lý tình huống thôi chứ giải thuật như thế là đúng rồi)
Nếu là tôi thì tôi sẽ dùng FSO.GetFile(TargetFile).Name chứ không bao giờ Dir(TargetFile)
Cũng nói thêm: Không phải code nào "nước ngoài" cũng ngon đâu bạn à!

 

[dovanhoc84]

Em quan niệm việc nào làm được thì cố làm, k làm được thì đổi phương pháp chứ k húc đầu vào mãi.
Cũng giống như đề tài đó, thay vì load lên form bằng dc thì em cũng đã insert hoặc view riêng.
Đâu có vd gì đâu ạ?
Với lại vào đây là để giao lưu học hỏi mọi người, nếu làm dc thì tốt, hay hơn thì học. Em nghĩ vậy đấy ạ.

Cop nhặt trên mạng là chuyện thường, tôi vẫn làm vậy. Tuy nhiên ta cần tham khảo thuật toán là chính, sau đó phải biết "chế biến" để trở thành cái của riêng mình


Bạn không làm việc với path tiếng Việt có dấu thôi nhưng người khác thì có đó. Mới mấy hôm trước thôi bạn đã từng gặp 1 bài rồi còn gì (liên quan đến LoadPicture vào Image)

 

[dovanhoc84]

em trích dẫn chỉ có mục đích nói lên rõ nguồn copy chứ em k nói là "ngon" hơn hay dở hơn đâu ạ
qua đây em cũng vừa học thêm được 1 chút về getfile rồi đấy ạ.
em cảm ơn.

Bạn làm không được thôi chứ không phải người khác làm không được!
Lúc ấy bạn doveandrose đã có giải phải đổi tạm tên file đó thôi (đó cũng là giải pháp)
Ngoài ra còn có giải pháp dùng API, có điều tôi không thích mấy nên chưa đưa lên (đang cố tìm những giải pháp khác đơn giản hơn)
-------------------------
Trở lại vấn đề chính: Vì code của bạn có dòng:

Set FSO = CreateObject("Scripting.FileSystemObject")

FileSystemObject là chuyên gia về xử lý file, folder, nó làm việc được cả với đường dẫn tiếng Việt có dấu... vậy nên không việc gì phải dùng đến Dir cho nó thêm dở ẹc
Theo đánh giá của tôi: Code "nước ngoài" ấy quá kém! (Ở đây chỉ xét về mặt xử lý tình huống thôi chứ giải thuật như thế là đúng rồi)
Nếu là tôi thì tôi sẽ dùng FSO.GetFile(TargetFile).Name chứ không bao giờ Dir(TargetFile)
Cũng nói thêm: Không phải code nào "nước ngoài" cũng ngon đâu bạn à!