当变量的值中出现括号时会出错，该怎么办

gzj_06

出现错误的情况找出来了，我的调用语句是在循环里的，即：
For i = 0 to objectcount
   innerText(i) = newString (innerText(i))     '调用newString函数
Next
当执行到调用函数语句时，就去调用Function newString (myString)，第一次循环执行的结果是innertext(0)="放羊的星星第20集\(1\)"，这是没问题的，但当执行第二次循环时，问题就出现了，按道理myString的值应该变为innertext(1)的值，但奇怪的是没变，仍然是innertext(0)的值，即"放羊的星星第20集\(1\)"，第2次循环后innertext(1)的值没变，仍为"放羊的星星第20集(2)"，而innertext(0)的值却变为"放羊的星星第20集\\\(1\\\)"，请问哪位高手，这到底是怎么回事

[ 本帖最后由 gzj_06 于 2007-7-25 14:52 编辑 ]

gzj_06

貌似是与Function中参数传递的方式有关的，不知默认是哪种，是ByVal还是ByRef，但奇怪的是我之前用的Function不是没有出现这个问题吗

P.S.　我之前用的Function见15＃

jackymail

帮你debug一下

gzj_06

谢谢，问题已解决，原来是在两段循环中同时用了i这个变量导致的

1. For i=0 to objectCount
   
2.         If innerText(i)=" " Then
   
3.                 innerText(i + 1) = newString (innerText(i + 1))                '调用newString函数
   
4.         End If
   
5. Next
   
6. 
   
7. Function newString(myString)
   
8.         Dim specialstring,stringcount
   
9.         specialstring = "\,$,(,),*,+,.,[,],?,^,{,},|"   '自己加,"\"放第1个
   
10.         stringcount = Int(Len(specialstring)/2)
    
11.         specialstring = Split(specialstring,",",-1,1)
    
12.         For i = 0 To stringcount
    
13.                 myString = Replace(myString, specialstring(i), "\"& specialstring(i))
    
14.         Next
    
15.         newString = myString
    
16. End Function

复制代码