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

用replace 替换 "原数据 " 为"", "修改为 : "替换为一个分分隔符，用split就分割后就可以得到listmodify(i)和 co2modify(i)