『壹』 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。