VB Replace函数
本帖最后由 hhxngz 于 2012-11-18 21:02:22 编辑
大家好，有个关于VB　Replace函数的问题：
目的是将字符串

"X=-700-80*cos(45) Y50*sin(30)Z=-973+60"换为：
"X=-700-80*cos(45) Y50*sin[30]Z=-973+60"

为什么结果是："sin[30]Z=-973+60"，前面一段字符串给丢了！

Private Sub Command1_Click()

Dim strTemp As String
Dim strN As String
Dim intSearch As String

strTemp = "X=-700-80*cos(45) Y50*sin(30)Z=-973+60"

If InStr(1, UCase(strTemp), UCase("SIN(")) Then
strN = Replace(UCase(strTemp), UCase("SIN("), "SIN[", , 1)
End If

intSearch = 0
intSearch = InStr(1, strN, "SIN")

strN = Replace(UCase(strN), UCase(")"), "]", intSearch)
MsgBox strN

End Sub
[解决办法]
给你做个函数吧:
Private Sub Command1_Click()
Dim st As String

st = "X=-700*sin(30)-80*cos(45) Y50*sin(30)Z=-973+60"
Text1 = ReplaceSIN(st)
End Sub


Private Function ReplaceSIN(ByVal st As String) As String
Dim i As Long

Do While InStr(i + 1, LCase(st), "sin(") > 0
i = InStr(i + 1, LCase(st), "sin(")
ReplaceSIN = ReplaceSIN & Left(st, i + 2) & "[" & Mid(st, i + 4, InStr(i, st, ")") - i - 4) & "]"
st = Mid(st, InStr(i, st, ")") + 1)
Loop

ReplaceSIN = ReplaceSIN & st

End Function

'*****结果
'X=-700*sin[30]-80*cos(45) Y50*sin[30]Z=-973+60
'*********