vb.net清空txt的简单介绍

vb.net里怎么删除txt里的信息

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：主机域名、虚拟空间、营销软件、网站建设、两当网站维护、网站推广。

My.Computer.FileSystem.WriteAllText(完整路径字符串, 要写入的字符串)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim txt As String = My.Computer.FileSystem.ReadAllText("c:\新建文本文档.txt", System.Text.Encoding.Default) '先读取文本中所有内容

My.Computer.FileSystem.WriteAllText("c:\新建文本文档.txt", "", False, System.Text.Encoding.Default) '清空原文本内容

Dim AllLine() = Split(txt, vbCrLf) '按回车符号切割成数组

For i As Integer = 0 To UBound(AllLine) '循环数组

' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是统一转换则本条生效

If i = 5 Then '只转换第六行起始是0，所以5实际为第6行

AllLine(i) = Replace(AllLine(i), "000", "111")

End If

My.Computer.FileSystem.WriteAllText("c:\新建文本文档.txt", AllLine(i) vbCrLf, True, System.Text.Encoding.Default) '按行重新写入

End Sub

这么菜的问题，分还挺高啊，循环读文件，每次一行，跟你输入的内容比较一样就记录行号并且终止循环，并且新建个文件写入从开头到第（你记录的行号-1）行的内容和（你记录的行号+1）行以后的内容，把源文件删了，把新文件改名为老文件名，不一样就继续循环读取，到最后读完都没有则提示没有这个内容

就这样，具体程序自己写，如果没耐心那就没办法了学不来编程了

网页名称：vb.net清空txt的简单介绍
文章分享：http://azwzsj.com/article/dosejhe.html