朋友们帮下忙,如何写入文本多行数据?
请问大家如何写入文本多行数据?--------------------编程问答-------------------- open...print,write....很多方法,查查msdn吧。 --------------------编程问答-------------------- '我的做法,若不清楚,请联络我。
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 --------------------编程问答--------------------
Abc = "请问大家如何写入文本多行数据?"--------------------编程问答-------------------- 存数据的时候带个换行符好像可以写多行数据吧 --------------------编程问答-------------------- & vbCrlf 来写咯``我的笨方法 --------------------编程问答-------------------- 什么是多行数据?多写几行,算多行吗? --------------------编程问答-------------------- 好像有个multiline,不知道对不对。
Open "c:\ts.Txt" For Append As #1
Print #1,Abc
Close #1
新手,如果回答错误请原谅 --------------------编程问答-------------------- 两句文本之间加个 & vbCrlf & 来连接就可以实现这两句文本的换行了。 --------------------编程问答--------------------
补充:VB , 非技术类