怎样读出一个文件的内容?

Question

怎样读出一个文件的内容?怎样将内容写入一个文件?

Answer 1

Open "c:\link.txt" For Output As #1
Write #1, "sdfsdfsdfsd"
Close #1

Answer 2

open strfile for input as #1
name = input(30,#1)

Answer 3

Open "c:\test.txt" For Output As #1
print #1, "sdfsdfsdfsd"
Close #1

Answer 4

Private Sub Command1_Click()
      Dim FileName As String
      Dim StrArr() As String
      Dim TmpStr() As String
      Dim WritStr As String
      Dim I As Long
      
      FileName = "c:\lx1.txt"
      '将文件读到一个字符串数组.
      StrArr = RedTextFile(FileName)
      For I = 0 To UBound(StrArr)
          TmpStr = Split(StrArr, "=")
          '查找符合条件的项
          If UCase$(TmpStr(0)) = "ZZZ" Then
             '修改该项
             TmpStr(1) = "456"
             StrArr(I) = TmpStr(0) & "=" & TmpStr(1)
          End If
          WritStr = WritStr & StrArr(I) & Chr(13)
      Next
      '回写文件
      WritTextFile FileName, WritStr      
End Sub'读TEXT文件
'函数:RedTextFile
'参数:FileName 打开的TXT文件名.
Public Function RedTextFile(FileName As String) As String()
     Dim FileID As Long
     Dim InputStr As String
     Dim LineStr As String
     Dim RevStr() As String
     Dim ID As Long
     
     On Error Resume Next
     
     InputStr = "": LineStr = ""
     FileID = FreeFile()
     Open FileName For Input As #FileID
          Do While Not EOF(FileID)           ' 循环至文件尾。
             LineStr = ""
             ID = ID + 1
             ReDim Preserve RevStr(ID)
             Line Input #FileID, LineStr
             RevStr(ID - 1) = LineStr
          Loop
     Close #FileID
     RedTextFile = RevStr
     Err.Clear
End Function'写TEXT文件
'Private Sub Form_Load()
'    Call WritTextFile("c:\111.txt", "ONE LINE" & vbCrLf & "TWO LINE")
'End Sub
'函数:WritTextFile
'参数:FileName 目标文件名.WritStr 写到目标的字符串.
'返回值:成功 返回文件内容.失败  返回""
'注:如果同名,目标字符串将覆盖原文件内容.
Public Function WritTextFile(FileName As String, WritStr As String) As Boolean
'/保存文件
    Dim FileID As Long, ConTents As String
    Dim A As Long, B As Long
    
    On Error Resume Next
    
    FileID = FreeFile
    Open FileName For Output As #FileID
         Print #FileID, WritStr
    Close #FileID
    WritTextFile = (Err.Number = 0)
    Err.Clear
End Function

Answer 5

'
'读TEXT文件
'函数:RedTextFile
'参数:FileName 打开的TXT文件名.
'返回值:成功 返回文件内容.失败  返回""
Public Function RedTextFile(Filename As String) As String
     Dim FileID As Long
     Dim InputStr As String
     Dim LineStr As String
     
     On Error Resume Next
     
     InputStr = "": LineStr = ""
     FileID = FreeFile()
     Open Filename For Input As #FileID
          Do While Not EOF(FileID)           ' 循环至文件尾。
             LineStr = ""
             Line Input #FileID, LineStr
             InputStr = InputStr & LineStr
          Loop
     Close #FileID
     RedTextFile = IIf(Err.Number = 0, InputStr, "")
     Err.Clear
End Function'
'写TEXT文件
'函数:WritTextFile
'参数:FileName 目标文件名.WritStr 写到目标的字符串.
'返回值:成功 返回文件内容.失败  返回""
'注:如果同名,目标字符串将覆盖原文件内容.
Public Function WritTextFile(Filename As String, WritStr As String) As Boolean
'/保存文件
    Dim FileID As Long, ConTents As String
    Dim A As Long, B As Long
    
    On Error Resume Next
    
    FileID = FreeFile
    Open Filename For Output As #FileID
         Print #FileID, WritStr
    Close #FileID
    WritTextFile = (Err.Number = 0)
    Err.Clear
End Function

Answer 6

读：
dim s as string
dim filename as string
filename="...."open filename for input as #1
s=input(lof(1),1)
close #1写：
dim s as string
s="xxxxx"
open filename for append as #1
print #1,s
close #1