在vb里面,當(dāng)一行的代碼過長時可以將該語句折斷,規(guī)則是,空格+下劃線
公司主營業(yè)務(wù):網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團(tuán)隊有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出武邑免費做網(wǎng)站回饋大家。
例如,aaaabbbb
要在ab中間折斷,
aaaa
_'空格然然加下劃線,再換行,也就是按enter
bbbb
要是想讓自己寫的文字顯示換行,可以在文件中間加ch(13),可實現(xiàn)此功能。
在要換行的地方斷開字符串,用 Environment.NewLine 連接兩個字符串即可。
這是VB在讀多行文件時出現(xiàn)的問題,最后行多了換行字符。
可以用Left 函數(shù)來取去除最后換行字符的文本。
Left 函數(shù)
返回 Variant
(String),其中包含字符串中從左邊算起指定數(shù)量的字符。
Len 函數(shù)
返回 Long,其中包含字符串內(nèi)字符的數(shù)目。
Option?Explicit
Dim?s?As?String
Dim?i?As?Long
Dim?fname?As?String
Dim?strWj?As?String
Private?Sub?Command1_Click()
'?設(shè)置“CancelError”為?True
CommonDialog1.CancelError?=?True
On?Error?GoTo?ErrHandler
'?設(shè)置標(biāo)志
CommonDialog1.Flags?=?cdlOFNHideReadOnly
'?設(shè)置過濾器
CommonDialog1.Filter?=?"All?Files?(*.*)|*.*|Text?Files"??_
"(*.txt)|*.txt|Batch?Files?(*.bat)|*.bat"
'?指定缺省的過濾器
CommonDialog1.FilterIndex?=?2
'?顯示“打開”對話框
CommonDialog1.ShowOpen
'?顯示選定文件的名字
'MsgBox?CommonDialog1.FileName
Open?CommonDialog1.FileName?For?Input?As?#1
Do?Until?EOF(1)
Line?Input?#1,?s
strWj?=?strWj??s??vbCrLf
i?=?i?+?1
Loop
Text3?=?i
Close?#1
Text1?=?Left(strWj,?Len(strWj)?-?2)?'去除讀入文本多余的換行符。
Debug.Print?Len(strWj)
Debug.Print?Len(Text1)
Exit?Sub
ErrHandler:
'?用戶按了“取消”按鈕
Exit?Sub
End?Sub
錯了,是vbCrLf Chr(13) + Chr(10)
共兩個字符。
#10是換行符
#13是回車符
有了回車符,代表了一行的結(jié)束,也方便于讀取文本。
不要只打一個,vbCrLf簡單方便,也是一個良好的習(xí)慣。
Dim MultiString as String‘有許多行的字符串Dim StrArray() as String'字符串類型的一維數(shù)組StrArray=Split(MultiString,VbCrlf)'用換行符分割字符串