UC知道VB 文本读取
来源：百度知道 编辑：UC知道 时间：2024/04/28 23:16:23
下面是一段实现“保存”程序
Private Sub Command2_Click()
Dim i As Integer '变量声明
Open "data.txt" For Output As #1 '打开data.txt文件
Print #1, "sstab0" '把文体框的内容写入文件
For i = 0 To 2
Print #1, Text(i).Text
Next i
Print #1, "sstab1"
Print #1, Text(1200).Text
Print #1, "sstab10"
For i = 0 To 23
Print #1, Text(10000 + i).Text
Next i
Print #1, "sstab15"
For i = 0 To 8
Print #1, Text(15000 + i).Text
Next i
Print #1, "sstab17"
Print #1, Text(17000).Text
Print #1, "sstab18"
Print #1, Text(18000).Text
Print #1, "sstab2"
For i = 0 To 10
Print #1, Text(2000 + i).Text
Next i
Print #1, "sstab3"
For i = 0 To 1
Print #1, Text(3000 + i).Text
Next i
Print #1, "sstab4"
Print #1, Text(4100).Text
Print #1, "sstab5"
For i = 0 To 4
Print #1,
Private Sub Command2_Click()
Dim i As Integer '变量声明
Open "data.txt" For Output As #1 '打开data.txt文件
Print #1, "sstab0" '把文体框的内容写入文件
For i = 0 To 2
Print #1, Text(i).Text
Next i
Print #1, "sstab1"
Print #1, Text(1200).Text
Print #1, "sstab10"
For i = 0 To 23
Print #1, Text(10000 + i).Text
Next i
Print #1, "sstab15"
For i = 0 To 8
Print #1, Text(15000 + i).Text
Next i
Print #1, "sstab17"
Print #1, Text(17000).Text
Print #1, "sstab18"
Print #1, Text(18000).Text
Print #1, "sstab2"
For i = 0 To 10
Print #1, Text(2000 + i).Text
Next i
Print #1, "sstab3"
For i = 0 To 1
Print #1, Text(3000 + i).Text
Next i
Print #1, "sstab4"
Print #1, Text(4100).Text
Print #1, "sstab5"
For i = 0 To 4
Print #1,
注：只加了写的操作，读的操作与此类似。
其中要注意的是[sstab0，sstab1...]之类在画面上应该是一个tab控件。
你可以用画面上的真实内容去代替。
而Text(0)，Text(2000)之类的也是控件，你可以到画面上找到具体是用来存放什么的。将真实的含义代替这类东西
想想还是将读取的操作也举个例子加上注释。同理，你可以给其他部分也加好
'当是'sstab0'时,读取该行数据，将内容写入Text(0)~Text(2)
If tmpstr = "sstab0" Then
For i = 0 To 2
Line Input #1, strr
Text(i).Text = strr
Next i
'当是'sstab1'时,读取该行数据，将内容写入Text(1200)
ElseIf tmpstr = "sstab1" Then
Line Input #1, strr
Text(1200).Text = strr
Private Sub Command2_Click()
Dim i As Integer '变量声明
Open "data.txt" For Output As #1 '打开data.txt文件，
Print #1, "sstab0" '把文体框的内容写入文件
'将画面sstab0中的数组控件Text(0)~Text(2)的内容写入data.txt
For i = 0 To 2
Print #1, Text(i).Text
Next i
'将画面sstab1中的控件Text(1200)的内容写入data.txt
Print #1, "sstab1"
Print #1, Text(1200).Text
&