大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
.or Example:
创新互联建站云计算的互联网服务提供商,拥有超过13年的服务器租用、遂宁联通机房、云服务器、虚拟主机、网站系统开发经验,已先后获得国家工业和信息化部颁发的互联网数据中心业务许可证。专业提供云主机、虚拟主机、域名注册、VPS主机、云服务器、香港云服务器、免备案服务器等。
1.txt文件内容如下:
The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
修改第二行内容,将#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
1 输入方式打开原文件 1.txt;
2 输出方式打开新文件 2.txt;
3 逐行 Line Input 从 1.txt 中读数据,Print 写入 2.txt,直至要修改的行;
4 丢弃从 1.txt中读出的要修改的行,将新内容行写入 2.txt;
5 仿照第 3 步,将其余的行从 1.txt 复制到 2.txt。
6 关闭两个文件
7 删除1.txt,将 2.txt 的文件名改为原来 1.txt 的。
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开头的文本行。
用替换函数直接把03-24^32替换为03-24^xx(想替换的值)。
比如,你的文本放在TextBox1文本框的话,用下面的指令替换就可以了。
Dim txt As String = TextBox1.Text
TextBox1.Text = Replace(txt, "03-24^32", "03-24^xx")
执行上面替换指令后,TextBox1的文本替换为:
【例如:03-23^23
03-24^xx
我要指定修改第二行的32.该怎么办?】