没办法，家里装的是VB5，书上的Replace方法不能用，只好自己写。
应该还可以优化，不过现在凑合着用就行了。
Public Function Replace(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String) As String
Dim s1Len, s2Len, s3Len, n, k As Integer, Str0, StrL, StrR As String
s1Len = Len(s1): s2Len = Len(s2): s3Len = Len(s3)
Str0 = s1
n = 1: k = InStr(n, s1, s2)
Do While (k > 0)
StrL = Left(Str0, k - 1): StrR = Right(Str0, s1Len - k + 1 - s2Len)
Str0 = StrL & s3 & StrR
s1Len = s1Len - s2Len + s3Len
n = k - s2Len + s3Len + 1: k = InStr(n, Str0, s2)
Loop
Replace = Str0
End Function
|
东山再起 |
||||||
|
||||||