查看完整版本: 演示如何查找/替换

演示如何查找/替换

　　Public Function ReplacingText(Task1, Task2, Replacing)
Dim WD As Integer
Dim FirstPart As String
Dim LastPart As String
Dim MD As Integer
Dim Temporary As String
Dim NewReplace As String
Dim SF As String
Dim WE As Integer
SF = UCase(Task1)
WE = InStr(UCase(Task2), SF)
If WE Then
NewReplace = "#$%@"
Another2:
Temporary = UCase(Replacing)
WD = InStr(Temporary, SF)
If WD Then
MD = WD   Len(Task1)
FirstPart = Mid(Replacing, 1, WD - 1)
LastPart = Mid(Replacing, MD, Len(Replacing))
Replacing = FirstPart