UC知道VB写入文本多行写入
来源：百度知道 编辑：UC知道 时间：2024/07/02 03:46:07
我找了些代码但是不会运用多行
Private Sub Command1_Click() '写文件
writeToFile "1\123.txt", "文字"
MsgBox "写入完毕！"
End Sub
Private Function writeToFile(ByVal strFileName As String, ByVal strContent As String) As Boolean
On Error GoTo Err1
Open strFileName For Output As #1
Print #1, strContent
Close #1
writeToFile = True
Exit Function
Err1:
writeToFile = False
End Function
这个就是代码,但是是一行输入文本,我想输入多行,请高手帮助啊
Private Sub Command1_Click() '写文件
writeToFile "1\123.txt", "文字"
MsgBox "写入完毕！"
End Sub
Private Function writeToFile(ByVal strFileName As String, ByVal strContent As String) As Boolean
On Error GoTo Err1
Open strFileName For Output As #1
Print #1, strContent
Close #1
writeToFile = True
Exit Function
Err1:
writeToFile = False
End Function
这个就是代码,但是是一行输入文本,我想输入多行,请高手帮助啊
Option Explicit
Private Sub Command1_Click() '写文件
Dim strA As String, strB As String, strC As String, strN As String
strA = "第一行" '第一行
strB = "第二行" '第二行
strN = "第N行" '第N行
strC = strA & vbCrLf & strB & vbCrLf & strN 'vbCrLf 是VB回车换行符
'这句要注意,writeToFile 是有返回值的,用于判断文件是否正确完成写入操作
If writeToFile("c:\123.txt", strC) = True Then
MsgBox "写入完毕！"
Else
MsgBox "写入失败！"
End If
End Sub
Private Function writeToFile(ByVal strFileName As String, ByVal strContent As String) As Boolean
On Error GoTo Err1 '发生错误跳至Err1:
Open strFileName For Output As #1 '打开文件
Print #1, strContent
Close #1
writeToFile = True '文件正确写入时
Exit Function
Err1:
writeToFile = False '文件写入发生错误时
End Funct