vb读一行数据取下几行值如下面的数据A10,100,200,2L,200,100,2R,100.399,2L,200,100,2R,100.399,2A20,500,100,2L,600,100,2R,100.300,2L,700,100,5R100.400,5…………读了含有A的一行数就把下面几行含有L和R的数据放

Question

vb 读一行数据 取下几行值
如下面的数据
A10,100,200,2
L,200,100,2
R,100.399,2
L,200,100,2
R,100.399,2
A20,500,100,2
L,600,100,2
R,100.300,2
L,700,100,5
R100.400,5
…………
读了含有A的一行数 就把 下面几行含有 L 和R的数据放在A的后面
如下
A10,100,200,2,L,200,100,2,L,200,100,2,R,100.399,2,R100.399,2
A20,500,100,2,L,600,100,2,L,700,100,5,R,100.300,2,R100.400,5

Answer 1

给你个思路：
dim all '存放数组
dim all_r as string '整理后的字符串
all=split(str,chr(13))
for i=0 to ubound(all)
if left(all(i）,1)="A" then
all_r=all_r & chr(13) & all(i)
else
all_r=all_r & "," all(i)
end if
next
debug.print all_r '输出整理后的字符串