使用VB如何一行一行的将字符串写入文本文件？请高手指教！谢谢

Question

使用VB如何一行一行的将字符串写入文本文件？请高手指教！谢谢

Answer 1

FreeFile 函数示例
本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。Dim MyIndex, FileNumber
For MyIndex = 1 To 5   ' 循环五次。
   FileNumber = FreeFile   ' 取得未使用的文件号。
   Open "TEST" & MyIndex For Output As #FileNumber   ' 创建文件名。
   Write #FileNumber, "This is a sample."   ' 输出文本至文件中。
   Close #FileNumber   ' 关闭文件。
Next MyIndex

Answer 2

MSDN 中查一查
Open 语句 
Print # 

Answer 3

用FSO可以每次都写一行
Sub Create_File()
    Dim fso, txtfile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
    ' 写入一行带有换行符的文本。
    txtfile.WriteLine("Testing 1, 2, 3.") 
    txtfile.Close
End Sub

Answer 4

对,用FSO对象里的writeLine方法可以一行一行的写

Answer 5

'写TEXT文件
'函数:WritTextFile
'参数:FileName 目标文件名.WritStr 写到目标的字符串.
'返回值:成功 T.失败  F
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 Append As #FileID
         Print #FileID, WritStr
    Close #FileID
    WritTextFile = (Err.number = 0)
    Err.Clear
End Function

Answer 6

Dim logfile As String
    Dim ifile As Long
    
    ifile = FreeFile
    logfile = App.path & "\123.txt"
    
    Open logfile For Append As #ifile
    Print #ifile, "123"
    Close #ifile

Answer 7

dim FileNum as long         '打开文件的句柄号
dim txtPath as string       '要写如文本的路径
dim strWrite as string      '写如文本的字符串
dim i as Integer      
  FileNum=FreeFile
  txtPath=App.Path & "\text.txt"
  
  open txtPath For Append as #FileNum
     For i=1 to 10                       '循环在文本中写入十行数据
        strWrite="Line" & i 
         Print #FileNum ,strWrite
     next i
  Close FileNum

Answer 8

print #打开文件的句柄,内容

Answer 9

Open "asd.txt" For Append As #1
                           Print #1, str1 &  Space$(10) & str2 ...; '第一行
                           Print #1, str1 &  Space$(10) & str2 ...; '第二行
                           ... ...