十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
如果只是末尾的空行,直接用Trim方法就可以了
十载的河东网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整河东建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联公司从事“河东网站设计”,“河东网站推广”以来,每个客户项目都认真落实执行。
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行,用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到
假定要处理的字符串放在变量s中:
s = Replace(Replace(s, vbCr, ""), vbLf, "")
你是要把连续多个空格,变换成只需要一个空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
Dim newfile As New List(Of String)
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读出所有内容,逐个判断,如果是需要的加入集合,如果是要删除的什么都不做,最后用WriteAllLines写入即可。
这里说明一下,上面那个代码是用来删除所有以3开头的文本行。
查找第一个vbcrlf 即回车换行符的位置 ,再把该位置及前面的字符全部删除 即可
可以用 instr 好像在字符strings类里面
j=strings.instr(1,richtextbox1.text,vbcrlf)
richtextbox1.text=strings.right(richtextbox1.text,len(richtextbox1.text)-j)
这里不记得是strings 还是string 你自己试试
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假设你的文本文件叫1.txt,在C盘
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的数放在变量b里面,没有换行的.只有数字. 不知道你是这个意思吧
End Sub