▲▲▲如何从一个文本文件中读出用逗号间隔的数据，并使其显示在ListView中？（在线等待立即给分。）

Question

伪代码：
dim a as string
dim p() as string
read "myfile.txt" to a
p=split(a,char(13)) '切分出行数据
u=ubound(p)
for i=0 to u
     AddListViewItemWithDelimiter mylistview,p(i),","     
next i

Answer 1

给你一个分割源代码：str是从文本文件中读出的字符串
delimiter是分割符，针对你，就是你所说的“数据间都用"，"间隔”的"，"Public Function splitString(str As String, Optional delimiter As String = vbTab) As Variant()
Dim Lines() As String, ic As Long
Lines() = Split(str, vbCrLf, -1, 1)
For ic = 0 To UBound(Lines)
    If Len(Lines(ic)) = 0 Then Lines(ic) = vbNullChar
Next
Lines() = Filter(Lines(), vbNullChar, False)
ReDim values(0 To UBound(Lines)) As Variant
For ic = 0 To UBound(Lines)
    values(ic) = Split(Lines(ic), delimiter, -1, 1)
Next
splitString = values()End Function

Answer 2

各位高手，我是想这样子做的：
1.打开该文本文件；
2.从该文本文件中读出用“,”间隔的每条记录/
3.用ListView 显示出来；
4.然后再写进去一条记录，同样用“，”来间隔；

Answer 3

用正则表达式匹配字符串，可以试试阿。
简单例子可以在MSDN中找到。
^_^

Answer 4

Option ExplicitPrivate Sub Form_Load()
    ListView1.View = lvwReport
End Sub
Private Sub Command1_Click()
    Dim strBuff As String
    Dim FileNumber
    Dim arr() As String
    Dim i As Integer
    Dim itemX As ListItem
    
    FileNumber = FreeFile
    Open "C:\Test.Txt" For Input As #FileNumber
    
    Do While Not EOF(FileNumber)
        Line Input #FileNumber, strBuff
        arr = Split(strBuff, ",")
        
        For i = ListView1.ColumnHeaders.Count To UBound(arr)
            ListView1.ColumnHeaders.Add
        Next i
        
        Set itemX = ListView1.ListItems.Add(, , arr(0))
        For i = 1 To UBound(arr)
            itemX.SubItems(i) = arr(i)
        Next i
    Loop
    
    Close #FileNumber
    MsgBox "OK"
End Sub

Answer 5

写一个函数吧！！
Private Function strSplit(str1 As String, str2 As String, lst As ListBox) As String'str1 是代分析的字符，str2是分割符，lst 是列表框    Dim i As Integer
    Dim j As Long   '记忆分割符的位置
    j = 1
    For i = 1 To Len(str1)
        If Mid(str1, i, 1) = str2 Then
            lst.AddItem Mid(str1, j, i - j)
            j = i + 1
        End If
    Next i
End Function
你自己在修改一下，ok!!!!