VB6.0中数字保存在文档的问题

Question

上图所示，保存和读取文档中冒号后面的数字 分别显示在TEXT1，TEXT2，TEXT3里。
保存的时候也是这样保存。
用哪个命令，请指教。

或发我邮箱。[email protected] 谢谢

Answer 1

读取文件:
Open Path For Input As #1
Line Input #1, s '读取一行 忽略换行符
Close #1

写入文件:
Open Path For Output As #1
Print #1, s '写入一行 自动添加换行符
Close #1
'path 就是文件 的路径

在 open 与 close 之间 你可以添加多选 操作代码 Line Input / Print 一次一行

读取后 你可以 用 函数 Split 来分割数据
dim s() as string
s=Split("123,567,789",",")
运行后 s就会成为 s(0)="123" s(1)="567" s(2)="789"

以上信息 就可以完成了你的功能

Answer 2

用读写文本的命令。
读 Open "文档全路径" For Input As #1
写 Open "文档全路径" For output As #1

Answer 3

Private Sub Command1_Click()
    Dim a, b, c As String
    a = Text1.Text
    b = Text2.Text
    c = Text3.Text
    Open App.Path & "\1.txt" For Output As #1
    Print #1, "位置1:" & a & vbCrLf & "位置2:" & b & vbCrLf & "位置3:" & c 
    Close #1
End Sub