replace函数 - 编程论坛

#2

风吹过b2015-09-23 17:34

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

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

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

#3

renxiaoyao362015-09-26 16:30

事实上我做过相同的题目
我用的是判定法，和风版不一样，大概思路告诉你：
通过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编辑过]

#4

yxf1272015-11-03 17:12

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