VB用TXT文本写入、读取属性值

Open 文件名 For 打开方式 As #<文件号>
<文件操作>
Close #<文件号>

打开方式：Input 读取 Output 写入 Append 添加 Binary 二进制

文件操作：
顺序文件
Print #<文件号>[,输出表列]
写入数据
Write #<文件号>[,输出表列]
写入数据，自动在各数据项之间插入逗号，并给字符传加上双引号
Input #<文件号>,<变量表列>
Line Input #<文件号>,<字符串变量>
区别：Line Input 是读取一行

读取TXT文本中的信息：
Private Sub Command1_Click()
Dim str1 As String
Open "c:\1.txt" For Input As #1
Text1 = ""
Do While Not EOF(1)
Input #1, str1
Text1 = Text1 & str1
Loop
Close 1
End Sub
在TXT文本中写信息：
Private Sub Command2_Click()
Dim str2 As String
Open "c:\1.txt" For Output As #1
str2 = Text1.Text
Print #1, str2
Close 1
End Sub