vb如何去掉最后的換行符？

這是VB在讀多行文件時出現的問題，最后行多了換行字符。

呼中網站建設公司創新互聯,呼中網站設計制作，有大型網站制作公司豐富經驗。已為呼中上千余家提供企業網站建設服務。企業網站搭建\外貿網站制作要多少錢，請找那個售后服務好的呼中做網站的公司定做！

可以用Left 函數來取去察銷除最后換行字符的文本。

Left 函數

返回 Variant

(String)，其中包含字符串中從左邊算起指定數量的字符。

Len 函數

返回 Long，其中包含字符串內字符的數目。

Option?Explicit

Dim?s?As?String

Dim?i?As?Long

Dim?fname?As?String

Dim?strWj?As?String

Private?Sub?Command1_Click()

'?設置“CancelError”為?True

CommonDialog1.CancelError?=?True

On?Error?GoTo?ErrHandler

'?設置標志

CommonDialog1.Flags?=?cdlOFNHideReadOnly

'?設置過濾器

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

vb中如何去掉某個字符串最右邊的換行符

呵呵給你個好玩的思路..別人的程序都用了循環,如果字符慶納串很大型差殲,或是最右邊的換行符超多,可能循環次數就會比較多,我的不管有多長,只要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有一個刪除右邊空格的函數RTrim,可以把右邊的空格都清除

4.沒有刪除的空格就是符合你要求的換行了,再替換回卜沖換行符

5.將奇怪的短串還原成空格

完成.

vb 去掉字符串的換行符

下面兩種方案，你看看哪個是你想要的效果。要查看雹畝以下代碼的效果，只需要把代碼放入Form_Load即可

方案1：

Do

While

InStr(a,

".exe")

a

=

Replace(a,

".exe",

"拆老.eye"

vbCrLf)

Loop

Do

While

InStr(a,

vbCrLf

vbCrLf)

a

=

Replace(a,

vbCrLf

vbCrLf,

vbCrLf)

Loop

Do

While

InStr(a,

".eye")

a

=

Replace(a,

".eye",

".exe")

Loop

MsgBox

a

方案2：

Do

While

InStr(a,

".exe")

a

=

Replace(a,

".exe",

".eye

旅肆升

vbCrLf")

Loop

Do

While

InStr(a,

"

vbCrLf

vbCrLf")

a

=

Replace(a,

"

vbCrLf

vbCrLf",

"

vbCrLf")

Loop

Do

While

InStr(a,

".eye")

a

=

Replace(a,

".eye",

".exe")

Loop

MsgBox

a

分享標題：vb點虐 過濾換行符 vb回車換行符
鏈接分享：http://vcdvsql.cn/article18/ddpchgp.html

成都網站建設公司_創新互聯，為您提供ChatGPT、搜索引擎優化、軟件開發、Google、網站設計、營銷型網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯