问题描述
PublicSub替换指定行内容(路径AsString,内容AsString,行AsString)DimistrAsString=My.Computer.FileSystem.ReadAllText(路径)Dima()AsString=istr.Split(vbCrLf)DimbAsIntegera(行)=内容My.Computer.FileSystem.WriteAllText(路径,Join(a,vbCrLf),False)EndSub以上是我的程序，可以正常完成替换工作，但是在xp系统下会出现这样的状况,搞不清楚是为什么，麻烦哪位大哥给看看
解决方案
解决方案二：
引用楼主zjm499767的回复:
PublicSub替换指定行内容(路径AsString,内容AsString,行AsString)DimistrAsString=My.Computer.FileSystem.ReadAllText(路径)Dima()AsString=istr.Split(vbCrLf)DimbAsIntegera(行)=内容My.Computer.FileSystem.WriteAllText(路径,Join(a,vbCrLf),False)EndSub以上是我的程序，可以正常完成替换工作，但是在xp系统下会出现这样的状况,搞不清楚是为什么，麻烦哪位大哥给看看
这样的状况？你指的是乱码？
解决方案三：
DimistrAsString=My.Computer.FileSystem.ReadAllText("路径",System.Text.Encoding.Default)出现乱码了吗？改成这样试试。再不行的话就换成其他编码，把Encoding.Default改成别的。比如：gbk,uft-8试试~
解决方案四：
应该不是乱码，我在这个子程序的使用中，每次只会修改“24”那个数字，然后后面就会出现那些黑色的小框，原来在文档中是没有的。原始的格式是2411111-111112222-111111然后修改几次就变成上面那样了
解决方案五：
编码问题？？？？
解决方案六：
<<路径AsString>>哪里有这种的写法。
解决方案七：
引用2楼fengqingtao2008的回复:
DimistrAsString=My.Computer.FileSystem.ReadAllText("路径",System.Text.Encoding.Default)出现乱码了吗？改成这样试试。再不行的话就换成其他编码，把Encoding.Default改成别的。比如：gbk,uft-8试试~
试验了应该不是这个问题，可能我没有说明，我的实现目的是这样，如上图图片。在TXT文件中，原来是这样的，然后我现在假设我要修改上面的24,运行以上程序后，在TXT文件中就会变成带黑框，郁闷。
解决方案八：
用ultraedit等16进制编辑器打开原始文本文件，然后贴出原始数据。记事本显示会丢失很多不可打印字符，干扰你的判断。
解决方案九：
该回复于2014-09-22 01:37:45被版主删除