VB 将文件中含“N”和“ F”字符的行合并到下一行解决办法
VB 将文件中含“N”和“ F”字符的行合并到下一行
先谢谢大家的关注!
问题:
将文件中含“N”和“ F”字符的行合并到下一行
......
N2 F1000.0000
N3 X29.31016 Y27.67405 Z-15.00000 I0.000000 J0.000000 K1.000000
N4 X29.86335 Y29.54488 Z-15.00000 I0.000000 J0.000000 K1.000000
N5 X29.65850 Y31.48499 Z-15.00000 I0.000000 J0.000000 K1.000000
N6 X28.72679 Y33.19903 Z-15.00000 I0.000000 J0.000000 K1.000000
N47 F1000.0000
N48 X-23.83488 Y20.89310 Z-5.00000 I0.000000 J0.000000 K1.000000
N49 X-26.27462 Y18.00000 Z-5.00000 I0.000000 J0.000000 K1.000000
......
------解决方案--------------------
str = " " '循环外,放数据用
用Line input 读一行数据
连行=false
if instr(数据, "F ") and instr(数据, "N ") then
连行=true
endif
if 连行 then
str = 数据
else
str = str + 数据 (或者str = 数据+str)
print #2,数据
str = " " '打印好后,清空
endif
读下一行
#2,是新生成的文件
先谢谢大家的关注!
问题:
将文件中含“N”和“ F”字符的行合并到下一行
......
N2 F1000.0000
N3 X29.31016 Y27.67405 Z-15.00000 I0.000000 J0.000000 K1.000000
N4 X29.86335 Y29.54488 Z-15.00000 I0.000000 J0.000000 K1.000000
N5 X29.65850 Y31.48499 Z-15.00000 I0.000000 J0.000000 K1.000000
N6 X28.72679 Y33.19903 Z-15.00000 I0.000000 J0.000000 K1.000000
N47 F1000.0000
N48 X-23.83488 Y20.89310 Z-5.00000 I0.000000 J0.000000 K1.000000
N49 X-26.27462 Y18.00000 Z-5.00000 I0.000000 J0.000000 K1.000000
......
------解决方案--------------------
str = " " '循环外,放数据用
用Line input 读一行数据
连行=false
if instr(数据, "F ") and instr(数据, "N ") then
连行=true
endif
if 连行 then
str = 数据
else
str = str + 数据 (或者str = 数据+str)
print #2,数据
str = " " '打印好后,清空
endif
读下一行
#2,是新生成的文件