求助：怎样逐行读取TXT文件，并把一部份分别添加到combo中？

Question

有一个txt文件，格式如一：
wang123,wang123456
wang124,wang123456
wang125,wang12456
…………
现在想把这个文件中的每行读出来，并把每一行,号前面的放到combo中，小弟求源码

Answer 1

filesystemobject可以帮助读文件然后split函数帮你拆字符串自己查找相关代码就好了

Answer 2

我只会读取整行后加到combo中，现在想把每一行的“,”之前的部份加到combo中
Open "c:\username.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, str '按行读取
    Combo1.AddItem str
Loop
Close #1

Answer 3

Open "c:\username.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, str '按行读取
    aa = Split(str, ",")
    Combo1.AddItem aa(0)
    ReDim aa(0 To 1)
    aa = ""
Loop
Close #1
这个代码不对，哪位指导一下