早教吧作业答案频道 -->其他-->
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读一行数据取下几行值如下面...的网友还看了以下:
看数字写成语模仿下列括号里的成语对前面数字形象而别致的描述,在所给的括号里分别填上一个合适的成语以 2020-05-13 …
经济学原理的一道题:若生产函数是Q=KL2,其中K=100,L的价格PL=500(美元),所以成本 2020-06-14 …
5050张数字卡片,其中有1张卡片上面写着数字1,有2张卡片上面写着数字2,有3张卡片上面写着数字 2020-06-16 …
从l!,2!,3!,…,100!这100个数中去掉一个数,使得剩下各数的乘积是一个完全平方数.请问 2020-06-18 …
从l!,2!,3!,…,100!这100个数中去掉一个数,使得剩下各数的乘积是一个完全平方数.请问 2020-06-18 …
小刚利用如图所示的装置探究“斜面的机械效率”,记录的数据如下:斜面倾斜程度小车重G/N斜面高h/m 2020-06-27 …
餐厅里有两种餐桌,方桌可坐4人,圆桌可坐9人,若就餐人数刚好坐满若干张方桌和圆桌,餐厅经理就称此数 2020-07-04 …
1除以27的商的小数点后面100个数字之和是多少 2020-07-31 …
给出以下五个命题:①若直线l∥直线a,a⊂β,则l∥β;②如果平面α⊥平面γ,平面β⊥平面γ,α∩ 2020-08-01 …
如图所示,斜面长L,高h,现在用力F沿斜面把质量为m的物体从斜面的底端匀速拉到顶端,已知物体与斜面的 2021-01-23 …