查询文件中某行并进行修改

Question

你用Input方式打开不能用PrintDim temp As StringPrivate Sub Command1_Click()
  Dim filenum As Long, SeekNum As Long
  Dim VarStr As String
  filenum = FreeFile
  SeekNum = 6
  
  Open "c:\temp\abc.txt" For Input As filenum
  Do Until EOF(filenum)
    Line Input #filenum, VarStr
    i = i + 1
    If i <> SeekNum Then
      temp = temp & VarStr & vbCrLf
    Else
      temp = temp & "ssssss" & vbCrLf
    End If
  Loop
  Close #filenum
  
  filenum = FreeFile
  Open "c:\temp\abc.txt" For Output As #filenum
  Print #filenum, temp
  Close #filenum
End Sub

Answer 1

footballboy(郑创斌) 大哥，我不想另外创建一个文件，因为这样效率低下，有没有办法直接在原文件上修改啊