用vbs编写的将vbs代码中的Replace转换成Java的replace（第一版）

之前用vbs写过的一大段代码，现要用Java重写，工作量非常大，原想用正则表达式的方式去实现，但当代码中过于复杂时，正则表达式还是达不到效果，于是用vbs的土办法编写一个先将其中Replace转换成Java的replace，代码如下：

Function vbsToJava_Replace(content) content = Replace(content, "replace", "Replace") '替换Replace startA = instr(content,"Replace(") do while startA>0 findCount = 1 startA1 = startA + len("Replace(") endA1 = startA endA2 = startA do while findCount>0 and (endA1 >0 or endA2>0) endA1 = instr(startA1, content, "(") do while mid(content, endA1 + 1, 1)="""" and mid(content, endA1 - 1, 1)="""" endA1 = endA1 + 1 endA1 = instr(endA1, content, "(") loop endA2 = instr(startA1, content, ")") do while mid(content, endA2 + 1, 1)="""" and mid(content, endA2 - 1, 1)="""" endA2 = endA2 + 1 endA2 = instr(endA2, content, ")") loop If (endA1>0 and endA2>0) Then If (endA1<endA2) Then findCount = findCount + 1 startA1 = endA1 + 1 Else findCount = findCount - 1 startA1 = endA2 + 1 End If ElseIf (endA1>0) Then findCount = findCount + 1 startA1 = endA1 + 1 ElseIf (endA2>0) Then findCount = findCount - 1 startA1 = endA2 + 1 End If loop endA = startA1 tmpStr1 = mid(content, startA, endA-startA) Wscript.echo tmpStr1 tmpStr2 = tmpStr1 tmpStr3 = "" startA2 = instr(tmpStr2, "Replace(") do while startA2>0 preStr = "" nextStr = "" If startA2<>1 Then preStr = Trim(mid(tmpStr2, 1, startA2 -1)) End If startA2 = startA2 + len("Replace(") endA2tmp = len(tmpStr2) do endA2 = instrRev(tmpStr2, ",", endA2tmp) tmpStr2tmp = mid(tmpStr2, endA2, len(tmpStr2) - endA2) yhCount = 0 yhHas = instr(tmpStr2tmp, """") do while yhHas>0 yhCount = yhCount + 1 yhHas = instr(yhHas + 1, tmpStr2tmp, """") loop endA2tmp = endA2 - 1 loop while (yhCount mod 2 =1) If (endA2>0) Then do endA2 = endA2 - 1 endA2 = instrRev(tmpStr2, ",", endA2) tmpStr2tmp = mid(tmpStr2, endA2, len(tmpStr2) - endA2) yhCount = 0 yhHas = instr(tmpStr2tmp, """") do while yhHas>0 yhCount = yhCount + 1 yhHas = instr(yhHas + 1, tmpStr2tmp, """") loop loop while (yhCount mod 2 =1) End If If (len(preStr)>0) Then If (endA2>0) Then do endA2 = endA2 - 1 endA2 = instrRev(tmpStr2, ",", endA2) tmpStr2tmp = mid(tmpStr2, endA2, len(tmpStr2) - endA2) yhCount = 0 yhHas = instr(tmpStr2tmp, """") do while yhHas>0 yhCount = yhCount + 1 yhHas = instr(yhHas + 1, tmpStr2tmp, """") loop loop while (yhCount mod 2 =1) End If End If If (endA2>0) Then tmpStr21 = mid(tmpStr2, startA2, endA2 - startA2) tmpStr3 = ".replace(" & mid(tmpStr2, endA2+1, len(tmpStr2)-endA2) & tmpStr3 tmpStr2 = preStr & tmpStr21 'Wscript.echo tmpStr3 End If startA2 = instr(tmpStr2, "Replace(") loop tmpStr3 = tmpStr2 & tmpStr3 Wscript.echo tmpStr1 & vbcrlf & tmpStr3 content = Replace(content, tmpStr1, tmpStr3) startA = instr(content,"Replace(") loop vbsToJava_Replace = content End Function