VB.net中任何提取文本文件中的逗号分格数据?

Question

VB.net中任何提取文本文件中的逗号分格数据?
比如下列数据，每个数用逗号分隔的:
qxys，5000，-16.223，150，9420.316，1872.099，
gc，26.996，6100，15000，45，-0.006，
dxd，QC01，5710.382，5264.4313，
我要提取第二行中的45，用代码怎么实现呢？请给出详细代码，我是初学，谢谢各位大师。
用Mid字符提取不能解决问题,可能是我的问题没有表示清楚：有时我要第二行中的第几个数据,有时我又要第三行中的第几个数据。每行的第一个是要用第几行的条件。
比如我要gc开头这一行的第几个数据，如45，但45是动态的，下次有可能是45.1或-45等，所以不能用Mid。谢谢zhouliyi999和 outr12的热心回答。

Answer 1

用数组呗。我是用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。

Answer 2

mid()函数可以帮你
Mid(string,start,length)

string类型变量str="123456"
mid(str,2,1)的意思是在str字符串中从第2个字符开始取得一个字符，值为2

VB.NET没办法实行动态取值，取一个值必须是静态的，或者静态+公式取值。比如说需要取什么值，或者取哪个字开始的。
动态取值都会有条件的，按照你的条件来定义取哪个值才可以啊。
就好比如说：我要做一样东西，但是我没说清楚，所以你不知道怎么做。其实VB.NET也是一样的。你必须告诉他按照什么规矩去取值，才能得到你想要的值

Answer 3

给你一个自定义函数，调用很简单。
例：你要gc开头的第4个数据，则
MsgBox GetMsg("gc",4)
返回值是：15000

Function GetMsg(Title As String, Index As Integer) As String
Dim FileName As String, s As String, a() As Byte, b() As String, c() As String
Dim i As Integer, j As Integer, Fn As Integer
Fn = FreeFile
FileName = App.Path & "\1.txt" '请根据实际修改
If Dir(FileName) = "" Then Exit Function
ReDim a(FileLen(FileName))
Open FileName For Binary As #Fn
Get #Fn, , a
Close #Fn
s = StrConv(a, vbUnicode)
b = Split(s, vbNewLine)
Erase a
s = ""
For i = 0 To UBound(b)
c = Split(b(i), "，") '分隔符，这里是大写逗号，请根据实际修改
If c(0) = Title Then
If UBound(c) >= Index Then
GetMsg = c(Index - 1)
Exit Function
End If
End If
DoEvents
Next

End Function

Answer 4

很简单的