Question

关于VB的一个问题

字符串处理，我现在一个字符串里包涵空格和数据，数据以空格形式分开，现在想把这些数据提取出来。我想的办法是:假设原始字符串叫StrO,把StrO赋值给一个字符串叫StrL,然后做一个循环，循环内部是这样的:

Space =instr（StrL,chr（32））

rem 读取空格位置

a（i）=val（left（StrL，Space））

rem 将空格前（连同空格）的字符串变成数值型，然后赋值给数组a

StrL=Right(StrL,Len(StrL)-Space)

rem 将字符串去掉首空格前的字符(包括空格)

这里好像哪个地方不是很对，请各位帮一下，谢谢

Answer 1

哪有这么做的，你先把多个空格替换成一个空格，然后把空格用特殊字符代替，最后再用特殊字符分割

dim str,str_without as string
str=text1.Text
str_without=Replace(Replace(str,"  "," ")," ","∈")
dim list() as string
list()=Split(str_without,"∈")

追问

难道我的办法不可行么？ 我认为我的想法也没有错了，可能只是其中的一些运算参数有问题……
想起来了，上面strl的时候，除第一次外每次应该是len(strl)- space+1