Question

如何把VB 的listbox项中的一部分数据取出？

我存到文件里的数据是按照 "原数据 " & listmodify(i) & " 修改为 : " & co2modify(i)
的样式存的。
我将文件的数据读入到list1.list(i)中（list1.list(i)="原数据 " & listmodify(i) & " 修改为 : " & co2modify(i) ），那如何在listbox中得到 listmodify(i)和co2modify(i)？

Answer 1

可以定义一个变量存放“修改为
:
”这个字符串在list1.list(i)的位置，再通过mid函数取出
listmodify(i)和co2modify(i)，具体如下：
Dim
pos
as
long
pos=instr(1,list1.list(i),"修改为
:
")
listmodify(i)=mid(list1.list(i),4,pos-4)
'pos-4是因为"原数据"是3个字符长度-1
co2modify(i)=mid(list1.list(i),pos+4)
'pos+4是因为“修改为
:
”是4个字符长度

Answer 2

a="原数据 "
b=" 修改为 : "
for i=0 to list1.listcount-1
c=list1.list(i)
p1 = Len(a)
p2 = InStr(1, c, b)
Print Mid(c, p1 + 1, p2 - p1) ' listmodify(i)
Print Mid(c, p2 + Len(b), Len(c) - p2 - Len(b) + 1) 'co2modify(i)
next