高考问答小资女孩向前冲迅雷:我磨了几天的一个VB问题，到现在还没解决，请大家帮帮忙！
来源：百度文库 编辑：高考问答 时间：2024/04/29 12:06:40
我想用VB生成一个文本文件，内容如下：
123456
abcdefg
ABCDEFG
我的代码如下：
Private Sub Command1_Click()
Dim A As String
A = "123456" & Chr(13) & "abcdefg" & Chr(13) & "ABCDEFG"
With CommonDialog1
.Filter = "TXT Files (*.txt)|*.txt"
.ShowSave
End With
Open CommonDialog1.FileName For Output As #1
Print #1, A
Close #1
End Sub
但是为什么保存了之后却是：
123456 abcdefg ABCDEFG
呢？能有人帮我解答一下吗？我不知道怎么样设置换行。
万分感谢！
123456
abcdefg
ABCDEFG
我的代码如下：
Private Sub Command1_Click()
Dim A As String
A = "123456" & Chr(13) & "abcdefg" & Chr(13) & "ABCDEFG"
With CommonDialog1
.Filter = "TXT Files (*.txt)|*.txt"
.ShowSave
End With
Open CommonDialog1.FileName For Output As #1
Print #1, A
Close #1
End Sub
但是为什么保存了之后却是：
123456 abcdefg ABCDEFG
呢？能有人帮我解答一下吗？我不知道怎么样设置换行。
万分感谢！
Chr(13)不是回车 WINDOWS下的回车键是 chr(13)和chr(10)的组合，准确的用法是
A = "123456" & vbcrlf & "abcdefg" & vbcrlf & "ABCDEFG"
没学过vb，但找到了答案。
chr(13) & chr(10)
这才是换行。