
VB 怎样读取和替换写入TXT
有Text1,Text2,Text3,Text4,……到text50,控件和文本.txt文件。要求:Form打开后,立刻读取TXT文件的前50行,将数值赋给Text控件,...
有Text1,Text2 , Text3, Text4, ……到text50, 控件 和 文本.txt 文件。
要求:Form 打开后,立刻读取 TXT 文件的前50行,将数值赋给Text控件,
text1.text= (TXT文件的第一行),Text2.text=(TXT的第二行),……,Text50.text=(TXT文件的第50行),依次类推!!
Form退出时,将Text1.text的值写入到TXT文件的第一行,Text2.text的值写入到TXT文件的第二行,……,依次类推!!Text50.text的值写入到TXT的第50行。注意:要将TXT中原有的数值替换掉。
例如Text1.text的值写入文件前要将TXT第一行的数据先删除掉。
程序可运行并有用的话追加分数!!! QQ:47368419 展开
要求:Form 打开后,立刻读取 TXT 文件的前50行,将数值赋给Text控件,
text1.text= (TXT文件的第一行),Text2.text=(TXT的第二行),……,Text50.text=(TXT文件的第50行),依次类推!!
Form退出时,将Text1.text的值写入到TXT文件的第一行,Text2.text的值写入到TXT文件的第二行,……,依次类推!!Text50.text的值写入到TXT的第50行。注意:要将TXT中原有的数值替换掉。
例如Text1.text的值写入文件前要将TXT第一行的数据先删除掉。
程序可运行并有用的话追加分数!!! QQ:47368419 展开
展开全部
'1、在窗口添加一个 Text 控件,然后再复制 49 个(一共 50 个 Text控件)
'2、在程序目录下自己先建一个文本文件(文件名:文本.txt)
'3、将以下代码直接复制使用
Dim Txt As String
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 49
Text1(i).Text = ""
Next i
i = 0
Txt = "文本.Txt"
If Dir(Txt) <> "" Then
Open Txt For Input As #1
Do Until EOF(1)
Line Input #1, tmpstr
Text1(i).Text = tmpstr
i = i + 1
If i = 50 Then
Exit Do
End If
Loop
Close #1
Else
MsgBox "程序目录下不存在 【" & Txt & "】 文件。 "
For i = 0 To 49
Text1(i).Text = ""
Next
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call SaveTxt
End Sub
Private Sub SaveTxt()
Dim SaveText As String
For i = 0 To 49
SaveText = SaveText & Text1(i).Text & vbCrLf
Next i
Open Txt For Output Access Write As #1
Print #1, SaveText
Close #1
End Sub
'2、在程序目录下自己先建一个文本文件(文件名:文本.txt)
'3、将以下代码直接复制使用
Dim Txt As String
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 49
Text1(i).Text = ""
Next i
i = 0
Txt = "文本.Txt"
If Dir(Txt) <> "" Then
Open Txt For Input As #1
Do Until EOF(1)
Line Input #1, tmpstr
Text1(i).Text = tmpstr
i = i + 1
If i = 50 Then
Exit Do
End If
Loop
Close #1
Else
MsgBox "程序目录下不存在 【" & Txt & "】 文件。 "
For i = 0 To 49
Text1(i).Text = ""
Next
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call SaveTxt
End Sub
Private Sub SaveTxt()
Dim SaveText As String
For i = 0 To 49
SaveText = SaveText & Text1(i).Text & vbCrLf
Next i
Open Txt For Output Access Write As #1
Print #1, SaveText
Close #1
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询