UC知道编写读写文本数据程序（很简单）
来源：百度知道 编辑：UC知道 时间：2024/06/04 17:45:34
假如C盘下有datain.txt和dataout.txt两个文本。假如其中datain.txt和dataout.txt里都有 1 2 3 4 5 6 7 8 9 0十个数 其中12345在第一行，67890在第二行。有十个文本框和一个命令按钮。按下命令按钮后，首先是把我在文本框里的数据写到datain.txt里，然后调用c:\1.exe进行计算，程序计算的结果会自动保存在dataout里，最后文本框显示dataout.txt里的内容。
我没学过VB，做一个小项目要用到这些，上网看了点教程，我知道OPEN、INPUT、PRINT、CALL SHELL等语句的意思 但编出来的程序总有错误，希望哪位大侠能帮帮忙。最后再啰嗦几句，命令按钮的功能首先是把文本框里的内容写到datain.txt里，然后调用1.exe计算，最后是读取dataout.txt里的内容。
调用这个程序就可以。1.exe 就是一个编好的程序，它的原理是自动读取datain.txt里的数进行计算，结果自动保存在dataout.txt里。datain与dataout里的数据格式都一样 只是数值不同。再说具体点 就是我在文本框里输入数据后，点下命令按钮还在这些文本框里显示1.exe计算的结果。
我没学过VB，做一个小项目要用到这些，上网看了点教程，我知道OPEN、INPUT、PRINT、CALL SHELL等语句的意思 但编出来的程序总有错误，希望哪位大侠能帮帮忙。最后再啰嗦几句，命令按钮的功能首先是把文本框里的内容写到datain.txt里，然后调用1.exe计算，最后是读取dataout.txt里的内容。
调用这个程序就可以。1.exe 就是一个编好的程序，它的原理是自动读取datain.txt里的数进行计算，结果自动保存在dataout.txt里。datain与dataout里的数据格式都一样 只是数值不同。再说具体点 就是我在文本框里输入数据后，点下命令按钮还在这些文本框里显示1.exe计算的结果。
首先,你在窗体上添加一个text1的控件,再复制后,粘贴至窗体上生成控件数组,再加一个text2就行了.
Dim i As Integer
Dim j As Integer
Dim TempStr As String
Private Sub Command1_Click()
Open "c:\datain.txt" For Append As #1
For i = 0 To 4
TempStr = TempStr & Text1(i)
Next i
Print #1, TempStr
TempStr = ""
For i = 5 To 9
TempStr = TempStr & Text1(i)
Next i
Print #1, TempStr
TempStr = ""
Close #1
Dim RetVal
RetVal =Shell ("c:\1.exe",0)
'如果处理的数据量大就加上如下语句,让1.EXE执行完计算再读结果
'for j=1 to 100000
'next j
Open "c:\dataout.txt" For Input As #2
Line Input #2, TempStr
Text2.Text = TempStr
Close #2
End Sub
说得不清不楚的。怎么计算。1.exe怎么计算
你那些读写功能都很简单。shell也简单，但是不知道你1.exe计算格式怎么写？