‘壹’ VB LISTVIEW分行截取字符串的问题
'在窗体上添加一个ListView控件，并增加一个列首，添加以下代码
Private Sub Form_Load()
Dim RevData As String 'WinSock接收到的字符串
Dim SplitData() As String '定义一个动态数组用来存取分割以后的数据
Dim i As Integer
'这里假设一下接收到的字符串内容
RevData = "字段一,字段二,字段三"
'将接收到的字符串按照逗号分割成三个部分,得到的结果会是： SplitData(0)="字段一"；SplitData(1)="字段二"；SplitData(2)="字段三"
SplitData = Split(RevData, ",")
'将数据添加到ListView里面去
For i = 0 To UBound(SplitData)
ListView1.ListItems.Add i + 1, , SplitData(i)
Next
'使用完以后释放数组内存
Erase SplitData
End Sub
‘贰’ VB中如何从一段话中提取数字
VB中如何从一段话的文字中提取数字，需要先对文字中的字进行逐一循环判断，如果是数字，然后返回需要的结果。代码如下：
Private Sub Command1_Click()
Dim a As String
a = "我爱你1314，你呢"
For i = 1 To Len(a)'对文字中每个字循环判断
b = Mid(a, i, 1)
If IsNumeric(b) Then'判断改字是否是数字，用IsNumeric判断是否是数字
s = Val(Mid(a, i))'如果是数字，就提取出来，用到VAL函数
Exit For'提取数字后，退出循环。
End If
Next
MsgBox s 's的值就是1314
End Sub
‘叁’ VB.net中任何提取文本文件中的逗号分格数据
用数组呗。我是用VB6的，不过你会.NET也肯定能看懂。
不是文本文件么？先用Line Input读每行存入数组。再把每行数据用你的"，"分割，就可以查询了。我写个简单的例子：
'搜索函数，用法Search(标头，序号)，返回数据.
Private Function Search(ByVal Section As String, ByVal Index As Integer) As String
Dim fNum%, Lines%, temp%, Str As String
ReDim Data(0)
fNum = FreeFile()
If Dir("C:\1.txt") = "" Then Exit Function '文件路径和文件名你自己改
Open "C:\1.txt" For Input As #fNum
Do While Not EOF(fNum)
Lines = Lines + 1 '行数
Line Input #fNum, Str
ReDim Preserve Data(Lines)
Data(Lines) = Str
Loop
Close #fNum
If Lines > 0 Then
Dim tmp() As String
For temp = 1 To UBound(Data)
tmp = Split(Data(temp), "，") '分割
If tmp(0) = Section Then
Search = tmp(Index - 1) '因为从0开始所以-1
Exit Function
End If
Next
End If
End Function
比如你要“gc“开头的第5个数据，就用Search("gc",5)即可返回45。