錯(cuò)了,是vbCrLf Chr(13) + Chr(10)
專(zhuān)注于為中小企業(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è)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
共兩個(gè)字符。
#10是換行符
#13是回車(chē)符
有了回車(chē)符,代表了一行的結(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.將原串中的空格都先替換成奇怪的短串,這樣你的字符串中就沒(méi)有空格了.
2.然后將所有的換行符都換成空格.
3.VB有一個(gè)刪除右邊空格的函數(shù)RTrim,可以把右邊的空格都清除
4.沒(méi)有刪除的空格就是符合你要求的換行了,再替換回?fù)Q行符
5.將奇怪的短串還原成空格
完成.
在vb里面,當(dāng)一行的代碼過(guò)長(zhǎng)時(shí)可以將該語(yǔ)句折斷,規(guī)則是,空格+下劃線(xiàn)
例如,aaaabbbb
要在ab中間折斷,
aaaa
_'空格然然加下劃線(xiàn),再換行,也就是按enter
bbbb
要是想讓自己寫(xiě)的文字顯示換行,可以在文件中間加ch(13),可實(shí)現(xiàn)此功能。
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假設(shè)你的文本文件叫1.txt,在C盤(pán)
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的數(shù)放在變量b里面,沒(méi)有換行的.只有數(shù)字. 不知道你是這個(gè)意思吧
End Sub
分享名稱(chēng):vb.net去換行的函數(shù) vbnet label 自動(dòng)換行
當(dāng)前URL:http://www.muchs.cn/article36/doeehpg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營(yíng)銷(xiāo)、云服務(wù)器、移動(dòng)網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、響應(yīng)式網(wǎng)站、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)