vb 如何处理获取数据到tistbox的list里面呢

来源：百度知道 编辑：UC知道 时间：2024/05/18 08:54:57
初学，请多指教
比如我获取到这样一组数据
7 Toolpath
'101xj701'
'101xj702'
'101xj703'
'101xj704'
'101xj705'
'101xj706'
* '101xj707'
只要''里面的字符，分别赋值到tistbox的list
然后默认选取带*号的那行。

tistbox?是listbox吧
假设你存在c:\a.txt中

dim 数据 as string,lines as string,aline()as string,foo
''读取
open "c:\a.txt" for input as #1
do while not eof(1)
line input #1,lines
数据=数据 & vbcrlf & lines
loop
close

msgbox "数据:"& vbcrlf & 数据

''处理
aline=split(数据,vbcrlf)
for each foo in aline
listbox.additem replace(foo,"'","")
if len(foo)=0 then goto nt
if left(foo,1)="*" then listbox.listindex=listbox.newindex
nt:
next