在文件中读取和写入数据

iliekater · 发表于 2008-4-5 19:08:38

我知道可以使用“打开输入”和“打开输出”语句，但是有没有办法在特定行上写入文件？
例如，在我的一个文件中，我存储了一些变量：
.....
“空气” ， “3” ， “bla bla bla”
......
我想直接在上面的行上写，而不是再次写整个文件。可能吗？让我在这里指定我知道要写入新变量的确切行（数字或行）。问题是我如何在那一行写字？...

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Fatty · 发表于 2008-4-6 03:03:41

是的，您可以
更改文件名以适应：

copy

Option Explicit
Sub EditTextFile()
Dim newline As String
Dim strline As String, strarr As Variant, i As Long, pos As Long
newline = "String to be added"
pos = 3 ' i Then
    strline = strarr(i)
Else
    strline = newline & vbCrLf & strarr(i)
    End If
    Print #1, strline
    strline = ""
 Next
Close #1: Kill "C:\MyFolder\fatty.txt"
      Name "C:\MyFolder\fatty1.txt" _
      As "C:\MyFolder\fatty.txt"
End Sub