Code: Select all
Procedure.s LocalFindString(a$, b$)
ProcedureReturn FindString(a$, b$, 1)
EndProcedure
ProcedureDLL.s MyReplaceString(a$, b$, c$)
chi = LocalFindString(a$, b$)
result$ = Left(a$, chi)+c$+Right(a$, Len(a$)-Len(b$))
ProcedureReturn result$
EndProcedure
- np