100分求助;;;回车的问题..

Question

大家请看这个图片(因为有些东西不好说明!)
http://wuwenlin.php2h.com/txt.jpg还有那个特殊的文本文件在这
http://wuwenlin.php2h.com/1.txt.bak大家请看看...真的很奇怪????

Answer 1

将记事本中的文本回车转换成VB中的“vbCrLf”即可！实现！

Answer 2

先要弄明白一点
文本文件并不是根据回车符换行的
而是用 回车符+换行符 换行的
每次在文本框中按回车键实际上是生成了 回车符+换行符有些文本编辑器支持换行符换行（Unix系统的习惯）
远程通信一般是用回车符换行（如HTTP协议）所以要考虑所有情况假设str变量已经从文件中读取了文本数据：
str = Replace(str, vbCrLf, vbLf) '将 回车符+换行符 替换成 换行符，防止误操作
str = Replace(str, vbCr, vbLf) '将 回车符 替换成 换行符
str = Replace(str, vbLf, vbCrLf) '将 换行符 替换成 回车符+换行符
Text1.Text = str

Answer 3

LZ用DEBUG打开文本看看就知道了，回车换行就是&h0d0a,DOS系统也是这样，WINDOWS也是一样，但UNIX正如910说的是用0a换行；但HTTP协议下的数据分隔并不是用0D也是0D0A的。

Answer 4

//但HTTP协议下的数据分隔并不是用0D也是0D0A的HTTP中能用0D换行
但是现在的程序员都习惯用0D0A换行了
所以……
先前我应该拿串行通信作例子，那里用0D换行的多

Answer 5

Private Sub Command1_Click()
Dim str As String
    Open App.Path & "\1.txt" For Binary As #1
    str = Input(LOF(1), 1)
    Close 1
str = Replace(str, vbCrLf, vbLf) '将 回车符+换行符 替换成 换行符，防止误操作
str = Replace(str, vbCr, vbLf) '将 回车符 替换成 换行符
str = Replace(str, vbLf, vbCrLf) '将 换行符 替换成 回车符+换行符
Label1.Caption = str
Text1.Text = str
End Sub