Question

VB如何实现把两个文件内数据写到一个文件内

如：第一文件名为"AA_TS.DAT"，格式为："DH,aa,y1,x1,z1”;第二个文件名为："AA_JC.DAT"，格式为："DH,,y2,x2,z2”;写到文件“AA_精度统计.DAT"内,格式为："DH,aa,x1,y1,x2,y2,x1-x2,y1-y2,sqrt((x1-x2)^2+(y1-y2)^2),

Answer 1

先读出第一个文件，然后按,分隔，放到数组A
再读出第二个文件，同样按,分隔，放到数组B
最后按你的格式，把不同的数据内容写到文件“AA_精度统计.DAT"内即可。

追问

请问：代码如何实现呀？ 谢谢了

追答

文件读写还不会？
dim aa_ts as string
Open app.path & "\AA_TS.DAT" For Input As #1
Line Input #1, aa_ts
Close #1

dim aa_jc as string
Open app.path & "\AA_JC.DAT" For Input As #1
Line Input #1, aa_jc
Close #1

然后 aa_ts 和 ss_jc 用split 分割 ，形成数组，按你的要求重新排列，最后写入文件
Open app.path & "\AA_精度统计.DAT" For output As #1 '
Print #1, 重新生成的数据
Close #1

Answer 2

文件读写你还不会么？open语句