ReplaceInString 方法示例

通过调用FindInString，下列示例找到字符串FIX32.NODE1.AI1.F_CV中所有具有字符串AI1 的情况，然后使用lFirst, lCount参数返回值，把AI1替换为AI2，并在sReplacement参数中返回新字符串。指定操作，从而在搜索中包括脚本。

Dim lFirst As Long

Dim lCount As Long

Dim sMatchString As String

Dim bFound As Boolean

Dim bSuccess As Boolean

Dim sTarget As String

Dim sReplacement As String

sTarget = "FIX32.NODE1.AI1.F_CV"

FindReplace.FindInString "FIX32.NODE1.AI1.F_CV", 1, "AI1", 8, sMatchString, lFirst, lCount, bFound

FindReplace.ReplaceInString sTarget, "AI2", sMatchString, lFirst, lCount, 8, sReplacement, bsuccess