在vb里如何读写文本文件

Question

dim fnum as integer
fnum=freefile()'获取可用的文件号
open"xxx.txt"for input as #fnum'如果你要替换当前内容就用for output,只是附加数据用for append

Answer 1

读：
  Open FileName For Input As FreeFileNo
  Do While Not EOF(FreeFileNo)
    Line Input #FreeFileNo, strFile
    FileInfo = FileInfo & strFile & vbCrLf
  Loop
或者
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.OpenTextFile(File.Name, ForReading, TristateFalse)
  FileInfo = f.ReadAll
写，请参见：Write # 语句和put语句。

Answer 2

错了，第二个File.Name是FileName

Answer 3

Function gfFileText(ByVal strFileName As String) As String
    Dim intHandle As Integer    
    
    On Error GoTo ERROR_HANDLE
    
    intHandle = FreeFile       
    Open strFileName For Binary Access Read As #intHandle 
    
    gfFileText = Space$(LOF(intHandle))  
    
    Get #intHandle, , gfFileText      
    Close #intHandle       Exit FunctionERROR_HANDLE:
    gfFileText = ""
End Function以上函数读取文件的全部内容，包括EOF字符。

Answer 4

Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.OpenTextFile(File.Name, ForReading, TristateFalse)
  FileInfo = f.ReadAll