|
#1
|
|||
|
|||
Memo
Подскажите как можно скапировать текст находящийся между двумя известными словами.. Например текст "qwerty???????фыва".. Мне нужно чтобы был скопирован текст находящийся между словами qwerty и фыва..
|
#2
|
||||
|
||||
Цитата:
Код:
function CopyBetween(const AStr, AStart, AEnd: String): String; begin Result := AStr; if(Pos(AStart,Result)<>0)then Result := Copy(AStr,Pos(AStart,Result)+Length(AStart),Length(Result)); if(Pos(AEnd,Result)<>0)then Result := Copy(Result,1,Pos(AEnd,Result)-1); end; второй параметр - начальная строка, после которой начнётся копирование третий параметр - строка до которой производится копирование если начальной строки нет в строке, копироваться будет от начала, если не будет конечной строки копироваться будет до конца строки всегда рад помочь TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#3
|
|||
|
|||
Большое спасибо, разобрался.. =)
Последний раз редактировалось Law_Of_Evi1, 03.11.2009 в 22:18. |