如何修改一个文本文件中的一列数据

VB6.0可以将该文本文件用Input # 语句读入，并显示在多行文本框中，进行修改后用Print # 语句保存。

Input # 语句，从已打开的顺序文件中读出数据并将数据指定给变量。

Print # 语句，将格式化显示的数据写入顺序文件中。

Private Sub Command1_Click() '打开文本文件
    ' è®¾ç½®â€œCancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' è®¾ç½®æ ‡å¿—
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' è®¾ç½®è¿‡æ»¤å™¨
    CommonDialog1.Filter = "Text Files" & "(*.txt)|*.txt|"
    ' æŒ‡å®šç¼ºçœçš„过滤器
    CommonDialog1.FilterIndex = 2
    ' æ˜¾ç¤ºâ€œæ‰“开”对话框
    CommonDialog1.ShowOpen
    ' æ˜¾ç¤ºé€‰å®šæ–‡ä»¶çš„名字
    str = CommonDialog1.FileName
    Open CommonDialog1.FileName 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 Command12_Click()'储存文件
    Open str For Output As #1
        Print #1, Text1.Text
    Close #1
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3y7exreyv.html