|
回复 #23 jackymail 的帖子
谢谢,问题已解决,原来是在两段循环中同时用了i这个变量导致的
- For i=0 to objectCount
- If innerText(i)=" " Then
- innerText(i + 1) = newString (innerText(i + 1)) '调用newString函数
- End If
- Next
- Function newString(myString)
- Dim specialstring,stringcount
- specialstring = "\,$,(,),*,+,.,[,],?,^,{,},|" '自己加,"\"放第1个
- stringcount = Int(Len(specialstring)/2)
- specialstring = Split(specialstring,",",-1,1)
- For i = 0 To stringcount
- myString = Replace(myString, specialstring(i), "\"& specialstring(i))
- Next
- newString = myString
- End Function
复制代码 |
|