Dim?newfile?As?New?List(Of?String)

細河ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道,可以享受市場價格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:028-86922220(備注:SSL證書合作)期待與您的合作!
For?Each?line?As?String?In?System.IO.File.ReadAllLines("TextFile1.txt")
If?Not?line.StartsWith("3")?Then?newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt",?newfile)
建個集合,用System.IO.File的ReadAllLines讀出所有內(nèi)容,逐個判斷,如果是需要的加入集合,如果是要刪除的什么都不做,最后用WriteAllLines寫入即可。
這里說明一下,上面那個代碼是用來刪除所有以3開頭的文本行。
你是要把連續(xù)多個空格,變換成只需要一個空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個空格,替換2個空格
loop
查找第一個vbcrlf 即回車換行符的位置 ,再把該位置及前面的字符全部刪除 即可
可以用 instr 好像在字符strings類里面
j=strings.instr(1,richtextbox1.text,vbcrlf)
richtextbox1.text=strings.right(richtextbox1.text,len(richtextbox1.text)-j)
這里不記得是strings 還是string 你自己試試
網(wǎng)站標(biāo)題:vb.net刪除換行符 vb中換行符號
標(biāo)題URL:http://chinadenli.net/article38/doeogsp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供ChatGPT、手機網(wǎng)站建設(shè)、網(wǎng)站策劃、靜態(tài)網(wǎng)站、商城網(wǎng)站、外貿(mào)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)