怎么替换一txt中除了某个特定字符外其他所有的字符，都替换成X

按行 读 TXT ，
在这行从1列开始搜索 特定字符，
如 搜索到了，从开始位置到搜索到的位置，使用 计算出来的长度的 X 连接，
然后继续向后搜索。

为什么使用按行读TXT，主要是 VBCRLF 不能换成 X 。

找出 位置，然后生成 X的字串，把这串字符 放到这个位置去。

事实上我做过相同的题目
我用的是判定法，和风版不一样，大概思路告诉你：
通过Left函数得到第一个字符，如果不是特定字符，替换为X，并把变量A+1
第二次用MID函数
 示范：

Sub 替换
Dim A as Integer,B as String,i as integer
If left（你的变量,1) <> 特殊值 Then 你的变量="X" & right(你的变量,len(你的变量)-1)
A=A+1
For i=1 to 10000000 step 1
On Error Goto sss '出现错误只有一种可能：字符读完了
  B=Mid(你的变量,A,A+1)
   If b <> 你的特定值  then 你的变量="X" & (Right(你的变量,Len(你的变量-1))
next i
  sss:
End Sub

!!!未测试!!!
把“你的变量”和“你的特定值”改了，然后Ctrl+C,Ctrl+V，要用的时候就Call 替换
修改了7次。

[ 本帖最后由 renxiaoyao36 于 2015-9-26 16:40 编辑 ]

[此贴子已经被作者于2015-11-3 18:10编辑过]

循环（循环每个字符），left（判断是不是特定字符），mid（用来替换字符）。搞定！