錯(cuò)了,是vbCrLf Chr(13) + Chr(10)
專注于為中小企業(yè)提供網(wǎng)站制作、做網(wǎng)站服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)呼中免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了上千家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
共兩個(gè)字符。
#10是換行符
#13是回車符
有了回車符,代表了一行的結(jié)束,也方便于讀取文本。
不要只打一個(gè),vbCrLf簡(jiǎn)單方便,也是一個(gè)良好的習(xí)慣。
呵呵給你個(gè)好玩的思路..別人的程序都用了循環(huán),如果字符串很大,或是最右邊的換行符超多,可能循環(huán)次數(shù)就會(huì)比較多,我的不管有多長(zhǎng),只要5下就清空,代碼如下:
Dim
a$
a
=
"a
a"
vbCrLf
"bb"
vbCrLf
"fdas"
vbCrLf
vbCrLf
vbCrLf
a
=
Replace(a,
"
",
"vb妮可")
a
=
Replace(a,
vbCrLf,
"
")
a
=
RTrim(a)
a
=
Replace(a,
"
",
vbCrLf)
a
=
Replace(a,
"vb妮可",
"
")
我的思路就是:
1.將原串中的空格都先替換成奇怪的短串,這樣你的字符串中就沒有空格了.
2.然后將所有的換行符都換成空格.
3.VB有一個(gè)刪除右邊空格的函數(shù)RTrim,可以把右邊的空格都清除
4.沒有刪除的空格就是符合你要求的換行了,再替換回?fù)Q行符
5.將奇怪的短串還原成空格
完成.
在vb里面,當(dāng)一行的代碼過長(zhǎng)時(shí)可以將該語句折斷,規(guī)則是,空格+下劃線
例如,aaaabbbb
要在ab中間折斷,
aaaa
_'空格然然加下劃線,再換行,也就是按enter
bbbb
要是想讓自己寫的文字顯示換行,可以在文件中間加ch(13),可實(shí)現(xiàn)此功能。
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假設(shè)你的文本文件叫1.txt,在C盤
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的數(shù)放在變量b里面,沒有換行的.只有數(shù)字. 不知道你是這個(gè)意思吧
End Sub