关于随机文件修改纪录的方法。

Question

请问如何指定随机文件中的某一个记录，然后对之修改？

Answer 1

参考：
Option Explicit
'引用Microsoft Scripting Runtime
Private Sub Form_Load()
Dim oFSO As FileSystemObject
Dim oTextStream As TextStream
Dim oFirstLine As String
Dim i, LineNum As Integer
Set oFSO = CreateObject("scripting.filesystemobject")
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForAppending, False, TristateFalse)
oTextStream.Write (vbCrLf & "这是一个新增的测试行")'以下为删除某一行，如第二行
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForReading, False, TristateFalse)
Dim str(1000) As String        '这里根据实际情况可增大或缩小数组的维数
i = 0
Do While oTextStream.AtEndOfLine <> True
    str(i) = oTextStream.ReadLine
    i = i + 1
Loop
LineNum = i
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForWriting, False, TristateFalse)
oTextStream.Write str(0)
For i = 1 To LineNum - 1
   If i <> 1 Then
      oTextStream.Write vbCrLf & str(i)
   End If
Next i
oTextStream.Close
Set oFSO = Nothing
End Sub

Answer 2

哦，可能我说错了，是以random方式打开的文件。