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
展开
 我来答
龙志健
2010-05-18 · TA获得超过952个赞
知道小有建树答主
回答量:702
采纳率:0%
帮助的人:760万
展开全部
'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
t19990225
2010-05-17 · TA获得超过1640个赞
知道小有建树答主
回答量:201
采纳率:0%
帮助的人:97.1万
展开全部
问电脑工作者。
分别浪费了,给我吧!(*^__^*)!
o(∩_∩)o
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式