?? code119a.txt
字號:
Public Function Find_Replace(ByVal srchString As String, _
ByVal FndString As String, ByVal InsertString As String, _
ByVal strEnd As Integer) As String
Dim I As Integer, LastChar As Integer, Next_Pos As Integer
Dim CurrentPos As Integer, LastPos As Integer
Dim TempString As String
If strEnd > 0 Then
LastChar = strEnd
Else
LastChar = Len(srchString)
End If
TempString = srchString
Next_Pos = 0
Next_Pos = InStr(Next_Pos + 1, TempString, FndString)
Do Until (Next_Pos = 0) Or (Next_Pos > LastChar)
TempString = Left(TempString, Next_Pos - 1) & InsertString & _
Right(TempString, (Len(TempString) - Len(FndString) - _
(Next_Pos - 1)))
LastChar = LastChar - Len(FndString) + Len(InsertString)
Next_Pos = 0
Next_Pos = InStr(Next_Pos + 1, TempString, FndString)
Loop
Find_Replace = TempString
End Function
Public Sub Main()
Dim SearchString As String, SearchFor As String, Replace As String
Dim Position As Integer
SearchString = "Tips for eating tri-tip steak."
SearchFor = "Tip"
Replace = "Clues"
Debug.Print "SearchString = ", SearchString
SearchString = Find_Replace(SearchString, SearchFor, Replace, 0)
Debug.Print "SearchString = ", SearchString
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -