Em bon chen tý, bác thử xem:
Option Explicit
Public Function co_lùm(ByVal sPath As String, ByVal sBookName As String) As Integer
Dim sFileName As String, book As Workbook
sFileName = sPath & "\" & sBookName
Call Workbooks.OpenText(sFileName, Origin:=65001, Tab:=True, Comma:=False, Semicolon:=False)
Set book = Workbooks(Workbooks.Count)
co_lùm = book.Worksheets(1).UsedRange.Columns.Count
book.Close False
End Function
Sub tét()
Dim i As Integer
i = co_lùm("C:\Users\N\Downloads", "abcdef.txt")
MsgBox i
End Sub
ý kiến này khá là "hay" đây...
Cám ơn Bác nhiều...
File này phân cách cột bằng các khoảng trắng, không phải Tab, không phải dấu phẩy nên dùng kiểu của anh Vetmini không ra. Tôi thường dùng cách của Vetmini (dùng FreeFile) đối với file Text (CSV), nhưng dạng này thì chưa ra.
Một ý tưởng hay... nhưng mà phải duyệt từng hàng và từng ký tự trong mỗi hàng
để được như vậy thì phải thêm "điều kiện" để biết được khi nào là bắt đầu cột khác... Bởi vì trong một cột, dữ liệu có thể có khoảng trắng chèn vào!
Anh dùng option gì trong Notepad++ để hiện thị thay thế "khoảng trắng" vậy.
Function TotalColumn(ByVal strFullNameTextFile As String) As integer
Const FORREADING = 1
Dim strLineText As String
Dim i As Long
Dim objDic As Object
Set objDic = CreateObject("Scripting.Dictionary")
objDic.Add 1, "" '1stPos of Col
With CreateObject("Scripting.FileSystemObject").OpenTextFile(strFullNameTextFile, FORREADING)
Do While .AtEndOfStream <> True
strLineText = .ReadLine
' Get Pos of Column of Existing Text File => size of Column
i = 3
Do While i <= Len(strLineText)
If Mid(strLineText, i - 2, 2) = " " And Mid(strLineText, i, 1) <> " " Then
If Not objDic.Exists(i) Then objDic.Add i, ""
End If
i = i + 1
Loop
Loop
.Close
End With
TotalColumn = objDic.Count
End Function
Dạ, Em muốn từ việc "biết cách tìm số cột" mà mình sẽ tìm ra ý tưởng cho việc lấy dữ liệu ah.
Cám ơn anh, em coi code trong bài anh gởi đã ra cái em muốn rồi ah...
Muốn phân tích file text thì phải biết trước delimiter của cacxs trường là gì. Ở trên, tôi chỉ minh hoạ điển hình nếu nó là dấu phẩy.Mở file xem cấu trúc dữ liệu sẽ té ngửa
Làm sao biết 10 cột?
Python có nhiều dính dáng đến Unix. Trong Unix, Lisp và Perl xử lý text rất êm.
Tôi có nói, nếu dạng phức tạp thì phải dùng RegEx để tính.
