vbs 中replace动态替换问题？

int inthestr(char *s,char ch)

{

while(*s!='\0'){

if(*s==ch)

return 1

s++

}

return 0

}

正则表达式对象的replace函数，为js与vbs共有replace方法为vbs独有。

killbad在asp函数库里面搜不到，网上搜到的一般都是自定义的。

不知道能否帮到您，求采纳!

s = "aaabaaabaaa"     '原始字符串

p = "b"     '要替换的字符串

r = "$"    '替换什么字符串

l = len(p)   '计算要替换的字符串长度 

m = 0    '初始化计数变量

n = 0    '初始化位置变量

for i = 1 to len(s)   '遍历原始字符串

if mid(s,i,l) = p then    '查找要替换的字符串

m = m + 1    '计数加1

if m = 2 then     '要替换第二个被查找到的字符串

n = i    '将查找到的第二个字符串的位置赋值给n

end if

end if

next

ss =  left(s,n-1) & r & right(s,len(s)-n-l+1)   '最终字符串组成为n之前的字符+替换后的字符+第二处要替换的字符串后面的内容

msgbox ss

s = "aaabaaabaaa"     '原始字符串

p = "aba"     '要替换的字符串

r = "$@#$$&&"    '替换什么字符串

l = len(p)   '计算要替换的字符串长度

m = 0    '初始化计数变量

n = 0    '初始化位置变量

for i = 1 to len(s)   '遍历原始字符串

if mid(s,i,l) = p then    '查找要替换的字符串

m = m + 1    '计数加1

if m = 2 then     '要替换第二个被查找到的字符串

n = i    '将查找到的第二个字符串的位置赋值给n

end if

end if

next

ss =  left(s,n-1) &r &right(s,len(s)-n-l+1)   '最终字符串组成为n之前的字符+替换后的字符+第二处要替换的字符串后面的内容

msgbox ss

正则表达式？这种小问题没有必要吧！如果我想替换第三个还得修改正则表达式，我觉得有一定难度，我的脚本2改成3就好，一看就明白

---