Dim?newfile?As?New?List(Of?String)
細(xì)河ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道,可以享受市場價(jià)格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)
建個(gè)集合,用System.IO.File的ReadAllLines讀出所有內(nèi)容,逐個(gè)判斷,如果是需要的加入集合,如果是要?jiǎng)h除的什么都不做,最后用WriteAllLines寫入即可。
這里說明一下,上面那個(gè)代碼是用來刪除所有以3開頭的文本行。
你是要把連續(xù)多個(gè)空格,變換成只需要一個(gè)空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個(gè)空格,替換2個(gè)空格
loop
查找第一個(gè)vbcrlf 即回車換行符的位置 ,再把該位置及前面的字符全部刪除 即可
可以用 instr 好像在字符strings類里面
j=strings.instr(1,richtextbox1.text,vbcrlf)
richtextbox1.text=strings.right(richtextbox1.text,len(richtextbox1.text)-j)
這里不記得是strings 還是string 你自己試試