从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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) '按行重新写入
Next
End Sub
这么菜的问题,分还挺高啊,循环读文件,每次一行,跟你输入的内容比较一样就记录行号并且终止循环,并且新建个文件写入从开头到第(你记录的行号-1)行的内容和(你记录的行号+1)行以后的内容,把源文件删了,把新文件改名为老文件名,不一样就继续循环读取,到最后读完都没有则提示没有这个内容
就这样,具体程序自己写,如果没耐心那就没办法了 学不来编程了
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图