Function ReplaceString(ByRef String As string, ByRef SearchString As String, ByRef ReplaceString As String, ByVal Position As Long=1,ByVal SearchParam As Long=0, ByVal RegisterParam As Long=0) As String
Функция для поиска и замены одного или всех участков строки
String - строка в которой нужно произвести поиск
SearchString - искомая строка
ReplaceString - строка, которой надо заменить искомую строку
Position - начальная позиция для поиска и перезаписи
SearchParam - параметр поиска, может быть:
0 - заменить только один участок в строке
1 - заменить все имеющиеся участки в строке
RegisterParam - параметр регистра строк:
0 - не обращать внимание на регистр строк
1 - обращать внимание на регистр строк
Windows , Linux
#Include "window9.bi"
Dim As String ss= "Freepascal a good programming language"
? ss
? ReplaceString(ss,"pascal","basic")
Sleep
Freepascal a good programming language
Freebasic a good programming language
Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents