重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
错了,是vbCrLf Chr(13) + Chr(10)
创新互联公司自2013年起,是专业互联网技术服务公司,拥有项目网站设计、成都网站设计网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元容县做网站,已为上家服务,为容县各地企业和个人服务,联系电话:028-86922220
共两个字符。
#10是换行符
#13是回车符
有了回车符,代表了一行的结束,也方便于读取文本。
不要只打一个,vbCrLf简单方便,也是一个良好的习惯。
查找第一个vbcrlf 即回车换行符的位置 ,再把该位置及前面的字符全部删除 即可
可以用 instr 好像在字符strings类里面
j=strings.instr(1,richtextbox1.text,vbcrlf)
richtextbox1.text=strings.right(richtextbox1.text,len(richtextbox1.text)-j)
这里不记得是strings 还是string 你自己试试
假定要处理的字符串放在变量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开头的文本行。