用vbs编写的将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