VB怎么過濾掉換行

Private Sub Command1_Click()

創(chuàng)新互聯(lián)公司2013年至今，先為楊浦等服務(wù)建站，楊浦等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為楊浦企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

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

vb 刪除字符串最后的換行符

trim只能去除空字符，replace去除了所有的vbcrlf，要考慮保留字符串中間的vbcrlf，還要考慮字符串最后的換行符可能會(huì)有多個(gè)...如下是個(gè)思路：

Function myTrim(ByVal s As String) As String

Dim Length As Long

Dim Char As String

s = Trim(s)

Length = Len(s) + 1

Do

Length = Length - 1

Char = Mid(s, Length, 1)

Loop Until Char vbCr And Char vbLf

myTrim = Mid(s, 1, Length)

End Function

'測(cè)試

Private Sub Command1_Click()

Dim s As String

s = "ABC" vbCrLf vbCrLf

Debug.Print myTrim(s); Len(myTrim(s))

End Sub

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

這是VB在讀多行文件時(shí)出現(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

'?顯示“打開”對(duì)話框

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.net儲(chǔ)存文本數(shù)據(jù)方法

Private Sub Command1_Click()

'寫文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要寫入的文本內(nèi)容

strFileName = App.Path "\a.txt"

''''''''App.Path "\a.txt"相對(duì)路徑

''"c:\w.txt"絕對(duì)路徑

lngHandle = FreeFile() '取得句柄

'準(zhǔn)備要寫入的內(nèi)容

strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。"

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

''''''append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入

''''''print#1,text1.text ''''''如果print換成write則寫進(jìn)txt中后自動(dòng)加雙引號(hào)

Open strFileName For Output As lngHandle '打開文件

Print #lngHandle, strWrite '寫入文本

Close lngHandle '關(guān)閉文件

End Sub

Private Sub Command2_Click()

'讀文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '文件句柄

Dim strAll As String '所讀取的文本文件的所有內(nèi)容

Dim strLine As String '在循環(huán)中存放每行的內(nèi)容

strFileName = App.Path "\a.txt"

'獲得文件的句柄

lngHandle = FreeFile()

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

Open strFileName For Input As lngHandle

'循環(huán)直到文件尾

Do While Not EOF(lngHandle)

'每次讀取一行存放在strLine變量中

Line Input #lngHandle, strLine

'每次讀取都把所讀到的內(nèi)容連接到strAll變量，由于Line Input去掉了換行符，所以這里補(bǔ)上

strAllstrAll = strAll strLine vbCrLf

Loop

'顯示得到的全部分內(nèi)容

MsgBox strAll

End Sub

Private Sub Command1_Click()

Open App.Path "\a.txt" For Output As #1

Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標(biāo)控件的屬性

Close #1 '關(guān)閉打開的文件

End Sub

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入 print#1,text1.text 如果print換成write則寫進(jìn)txt中后自動(dòng)加雙引號(hào)，以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。