Question

vb combobox自动载入指定的txt文件

如何让vb2008的Combobox自己读txt，下拉后载入指定的数据，我是这么写的
比如：a.txt 包含(000x是型号）
HP 0001 $1000 US Acer 0002 $900 TW（very item per line）
txt文件中包含了名称，型号，价钱，产地，我只想让下拉菜单中显示名称和型号
我的代码：
Private Sub cboList_SelectedIndexChanged
Dim sr As IO.StreamReader
sr = IO.File.OpenText("c:\temp\a.txt")
Dim Item, ItemNO As String
Dim None As String
Do While sr.Peek <> -1
Item = sr.ReadLine
ItemNO = sr.ReadLine
Dummy = sr.ReadLine
Dummy = sr.ReadLine
cboList.Items.Add(strItem & " " & strItemNO)
Loop
sr.Close()
哪错了？我知道如何在combobox的属性中添加，但是数据太多了！
高手帮忙，谢谢
那个dummy就是none，表示什么也不读，对吧?

Answer 1

先定义一个类封装信息，比如说
Class Product

Public Property String Model
Get
...
End Get
Set(String Value)
...
End Set
End Property

End Class

然后用正则表达式读取txt内容（方式就是先File.ReadAllLines()函数，然后再枚举返回的字符串数组，用Regex去Match)

看你写的格式，你所需要的正则表达式应该是
Dim r As New Regex("^(?<Label>\w+) (?<num>[0-9]{4}) (?<price>\$[0-9]{1,5}) (?<mfg>[A-Z]{2})$");

最终用LINQ来提取需要的信息