UC知道VB 写入文本的问题
来源：百度知道 编辑：UC知道 时间：2024/05/20 00:44:11
我用VB将TextBox里的内容写入文本,但为何换行后的所有文本都没办法写入?
我的代码是:
Private Sub Save_Click()
FileName1$ = CommonDialog1.FileName
FileName2$ = CommonDialog2.FileName
FileName3$ = CommonDialog2.FileName
If FileName1$ = "" And FileName2$ = "" Then
CommonDialog2.ShowSave
FileName2$ = CommonDialog2.FileName
ElseIf FileName1$ <> "" And FileName2$ = "" Then
FileName2$ = FileName1$
End If
If FileName2$ <> "" Then
If Dir(FileName2$) <> "" And FileName3$ <> CommonDialog2.FileName Then
If MsgBox("ÎļþÒѾ´æÔÚ,ÊÇ·ñÒª¸²¸Ç?", vbYesNo) = vbYes Then
Open FileName2$ For Output As #2
Print #2, Text2.Text
Close #2
Else
Co
我的代码是:
Private Sub Save_Click()
FileName1$ = CommonDialog1.FileName
FileName2$ = CommonDialog2.FileName
FileName3$ = CommonDialog2.FileName
If FileName1$ = "" And FileName2$ = "" Then
CommonDialog2.ShowSave
FileName2$ = CommonDialog2.FileName
ElseIf FileName1$ <> "" And FileName2$ = "" Then
FileName2$ = FileName1$
End If
If FileName2$ <> "" Then
If Dir(FileName2$) <> "" And FileName3$ <> CommonDialog2.FileName Then
If MsgBox("ÎļþÒѾ´æÔÚ,ÊÇ·ñÒª¸²¸Ç?", vbYesNo) = vbYes Then
Open FileName2$ For Output As #2
Print #2, Text2.Text
Close #2
Else
Co
Public Function WriteIP(File_Address as string,WriteTxt As String)'File_Address要完整包括文件名
Open file_address For Output As #1
Print #1, WriteTxt
Close #1
End Function
*************
不好意思,我是从我的程序里面复制出来的,删除了部分.那个变量有其他用,我忘删了,呵呵.
刚才把你的程序复制出来测试了一下,好象也没发现什么问题.
搞不清楚了`
这个一直没弄明白！
关注中！