VB 写入文件写入特定一行

VB 写入文件写入特定一行

VB写入文本文件特定一行
1）全部读入文本文件到文本框，该文本框需要设置多行属性和滚动条。
2）对需要重写的行内容在文本框按要求修改。
3）将文本框内容全部写入原文本文件。
以下是实现代码
Option Explicit
    Dim s As String
    Dim lujing As String

Private Sub Open_Click() '打开文件
    Text1 = ""
    Dim i As Long
    Dim strj() As String
    ' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    ' 显示“打开”对话框
    CommonDialog1.ShowOpen
    ' 显示选定文件的名字
    lujing = CommonDialog1.FileName
    Open lujing For Input As #1
        Do Until EOF(1)
            Line Input #1, s
            Text1.Text = Text1.Text & s & vbCrLf
            i = i + 1
        Loop
    Close #1
    Exit Sub
ErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
End Sub

Private Sub Save_Click() '保存修改
    Open lujing For Output As #1
        Print #1, Left(Text1.Text, Len(Text1) - 2) 'Left(Text1.Text, Len(Text1) - 2)去除多读入的换行符
    Close #1
End Sub

1、先建一个变量数组把"i.txt"里面的内容都读出来
2、修改你要修改的数据
3、重新新建那个文件，写入数据。

OK?

闲来没事,帮你写一个吧,加一个按钮,把代码复制进去,然后去D:查看一下.

'也不知道你想干嘛,是学习呢,还是想做别的东西,嘿嘿
'像你这种想读取某行,某段的数据,最好用随机文件进行读取
Private Sub Command1_Click()
'打开一个文本,如果没有,则新建,类型为随机型
Open "d:\i.txt" For Random As #1
'写入数据
Put #1, 1, "123"
Put #1, 2, "456"
Put #1, 3, "789"
Close #1
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'接下来改数据了,首先还是打开文件句柄
Open "d:\i.txt" For Random As #1
'你想改哪个就改哪个,只要记住他是第几个就行了.
Put #1, 2, "555"
Close #1
'收工
End Sub

添加一个命令按钮和一个text文本框,再将text文本框的两个属性设置为:Text1.MultiLine = True,
Text1.ScrollBars=2

Private Sub Command1_Click()'把新数据保存到文件中
Dim a As String
a = Text1.Text
Open "D:\i.txt" For Output As #1
Print #1, a
Close #1
End Sub

Private Sub Form_Load() '把数据输入到text文本框
Dim a As String
Open "D:\i.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
Text1.Text = Text1.Text & a + vbCrLf
Wend
Close #1
End Sub