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.
Khi sử dụng FileSystemObject thì data từng hàng sẽ OK
Dạ... Cám ơn Bác nhiều...
Trong công việc bạn phải giải quyết nhiều vấn đề, chọn phương pháp nào là do bạn quyết định, không ai bắt bạn phải dùng phương pháp này hay cấm dùng phương pháp kia.
Con xin cám ơn Bác đã hướng dẫn.
Ở trên tôi có nói là FileSystemObject là công cụ của Wondows Script.
Từ chỗ tôi không nghe thấy. Nói thực ra thì anh hàng xóm của người ta có thể là ân nhân đối với nhiều người. Nhưng mình cứ nghĩ tới năm 1979 khi mà nhà cửa, trường học, bệnh viện của mình bị dội bom, người mình bị giết ... Nếu mình có chút đồng cảm thì không bao giờ mình cười trên đau khổ của người khác. Họ cũng có hàng xóm như mình.
Không có chỗ nào tôi nói là BẮT BUỘC phải dùng FileSystemObject. Tôi chỉ nói là nếu tôi thì tôi dùng. Còn ai đó không thể dùng mà cứ phải bắt buộc Open thì tôi cũng chỉ ra là làm được. Nhưng vất vả thêm thôi. Chứ nói như bác thì ta tìm tất cả các code trên GPE mà dùng FileSystemObject rồi khuyên mọi người chuyển sang channel truyền thống?
Ý anh ấy không bảo anh sửa, mà bảo anh xúi người khác sửa. (Theo ngữ cảnh thì thêm chữ "chả lẽ")
"chả lẽ" là của anh chứ của tôi làm gì có "chả lẽ"
Chữ "chả lẽ" là của tôi, nhưng dựa vào ngữ cảnh câu sau (nguyên văn ngoại trừ chữ đỏ):"chả lẽ" là của anh chứ của tôi làm gì có "chả lẽ"
Bác nói đúng. Con rất là ghét chiến tranh dù là bất cứ lý do nào... nhưng mình là "dân đen" thì không dám nói chính trị vậy... hic
