求 一个string 的程序，写不出来请高手帮助！

Question

有这样几个 string 
“this is test ! ip = '192.168.0.1' ,end”
“ ip = '192.168.0.1' ,end”
“here ip = '192.168.0.2'!”
程序如何写 将以上String 中ip=后面的内容该为ip = '1.1.1.1'
得到如：
“this is test ! ip = '1.1.1.1' ,end”

Answer 1

Dim tmpstr As String, surstr As Stringsurstr = "this is test ! ip = '192.168.0.1' ,end"
tmpstr = Left(surstr, InStr(surstr, "'")) & "1.1.1.1" & Right(surstr, Len(surstr) - InStrRev(surstr, "'") + 1)
MsgBox tmpstr

Answer 2

Dim i, j As Integer
Dim strIP As String
Dim YourString As StringYourString = "this is test ! ip = '192.168.0.1' ,end"i = InStr(1, YourString, "'")
j = InStrRev(YourString, "'")
strIP = Mid(YourString, i, j - i + 1)YourString = Replace(YourString, strIP, "'1.1.1.1'")

Answer 3

再求 如果 是这样的一句呢
“this is test !email = '[email protected]' ，ip = '192.168.0.1' ,end”
就是说多了几个单引号

Answer 4

可以按关键字"ip="，随后的即为 ip Address