早教吧作业答案频道 -->其他-->
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的数据放
题目详情
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
如下面的数据
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
▼优质解答
答案和解析
给你个思路:
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 '输出整理后的字符串
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 '输出整理后的字符串
看了vb读一行数据取下几行值如下面...的网友还看了以下:
一天晚上,有3个人去住旅馆,300元一晚.三个人刚好每人掏了100元凑够300元交给了老板.3×1 2020-06-02 …
一天晚上,有3个人去住旅馆,300元一晚,三个人刚好每人掏了100元凑够300元交给了老板.3*1 2020-06-20 …
一天晚上,有3个人去住旅馆,300元一晚.三个人刚好每人掏了100元凑够300元交给了老板.3×1 2020-06-25 …
一天晚上,有3个人去住旅馆,300元一晚.三个人刚好每人掏了100元凑够300元交给了老板.3×1 2020-06-25 …
一道难倒大人的小学数字题,看你是否会做一天晚上,有3个人去住旅馆,300元一晚三个人刚好每人掏了1 2020-06-25 …
一天晚上,有3个人去住旅馆,300元一晚.三个人刚好每人掏了100元凑够300元交给了老板.3×1 2020-06-25 …
一天晚上,有3个人去住旅馆,300元一晚.三个人刚好每人掏了100元凑够300元交给了老板.3×1 2020-06-25 …
vb读一行数据取下几行值如下面的数据A10,100,200,2L,200,100,2R,100.39 2020-10-31 …
一:一天晚上,有3个人去住旅馆,300元一晚.三个人刚好每人掏了1一:一天晚上,有3个人去住旅馆,3 2020-11-10 …
某飞行监控中心发现某飞机从某个机场起飞后沿正南方向飞行100千米,然后向正西方向飞行300千米,又测 2020-12-13 …