朋友们帮下忙，如何写入文本多行数据？

Question

请问大家如何写入文本多行数据？

Answer 1

open...print,write....很多方法，查查msdn吧。

Answer 2

'我的做法，若不清楚，请联络我。
Private Sub SubSaveConf()    Dim fso As New Scripting.FileSystemObject
    Dim myTxt
    
    Set myTxt = fso.CreateTextFile(Filename:=strPath + "\dads.conf", OverWrite:=True)
    With myTxt
    .WriteLine StringEnDeCodecn(Trim(userName1.Text), 75) 'Me.userName1.Text
    .WriteLine StringEnDeCodecn(Trim(userPassword.Text), 75) 'Me.userPassword.Text
    .WriteLine StringEnDeCodecn(Trim(cmb_DBNAME.Text), 75) 'Me.cmb_DBNAME.Text
    .WriteLine "1"
    .Close
    End With
    
End Sub

Answer 3

Abc = "请问大家如何写入文本多行数据？"
Open "c:\ts.Txt" For Append As #1
    Print #1,Abc
Close #1

Answer 4

& vbCrlf 来写咯``我的笨方法

Answer 5

好像有个multiline，不知道对不对。新手，如果回答错误请原谅

Answer 6

两句文本之间加个 & vbCrlf & 来连接就可以实现这两句文本的换行了。

Answer 7

Private Sub Command2_Click()Dim str
    Open "D:\TEST\kkk.txt" For Append As #1
    
    str = Text1.Text
    
    Write #1, str  '写入一行
    
    Write #1, str & "1234"  '写入另一行
    
    Close #1End Sub