vb点虐 过滤换行符 vb回车换行符

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