Question

急求！VB编程，将txt数据导入，并批量处理！然后将计算结果导出到txt中

在txt文件中输入四列数据，分别代表“两个”已知点的X ，Y，X,Y坐标，（注意是好多点的坐标，一会儿要批量计算），然后导入到VB的textbox1中，然后进行两个已知点坐标求两点间距离的计算，然后将批量计算的结果输出到textbox2中，最后将计算结果导出！请各位能详细的将过程写一下，急着用呢，谢谢啦！

Answer 1

你的TEXT文件里的数据规则吗 是怎么分开的啊

Private Sub Command1_Click()
Dim X1, Y1, X2, Y2, N, L
Open "G:\DOWNLOAD\1.TXT" For Input As 1
Do While Not EOF(1)
N = N + 1
Input #1, X1, Y1, X2, Y2
Text1.Text = Text1.Text & X1 & "," & Y1 & "," & X2 & "," & Y2 & vbCrLf
L = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
Text2.Text = Text2.Text & L & vbCrLf
Loop
Close 1
End Sub