Расширенные строковые функции

=== Расширенные строковые функции ===
 RTrim() - Удаляем все пробелы в правой части строки
 Trim() - Удаляем все пробелы по краям строки
 RightStr() - Возвращаем правую часть стоки заданной длины
 LeftStr() - Возвращаем левую часть стоки заданной длины
 MidStr() - Возвращаем центральную часть строки
 squish() - возвращает строку со всеми белыми пробелами и с удаленными повторяющимися апострофами.
 before() - возвращает часть стоки, находящейся перед первой найденной подстроки Find в строке Search. Если Find не найдена, функция возвращает Search. 
 after() - возвращает часть строки, находящейся после первой найденной подстроки Find в строке Search. Если Find не найдена, функция возвращает NULL.
 RPos() - возвращает первый символ последней найденной подстроки Find в строке Search. Если Find не найдена, функция возвращает 0. Подобна реверсированной Pos().
 inside() - возвращает подстроку, вложенную между парой подстрок Front ... Back.
 leftside() - возвращает левую часть "отстатка" inside() или Search.
 rightside() - возвращает правую часть "остатка" inside() или Null.
 trim() - возвращает строку со всеми удаленными по краям белыми пробелами.
unit TrimStr;
{$B-}
{
Файл: TrimStr
Описание: программы для удаления конечных/начальных пробелов
и левых/правых частей строк (аналог Basic-функций).
Версия: 2.0
LTrim() - Удаляем все пробелы в левой части строки
RTrim() - Удаляем все пробелы в правой части строки
Trim() - Удаляем все пробелы по краям строки
RightStr() - Возвращаем правую часть стоки заданной длины
LeftStr() - Возвращаем левую часть стоки заданной длины
MidStr() - Возвращаем центральную часть строки
}
interface
const
 Space = #$20;
function LTrim(const Str: string): string;
function RTrim(Str: string): string;
function Trim(Str: string): string;
function RightStr(const Str: string; Size: Word): string;
function LeftStr(const Str: string; Size: Word): string;
function MidStr(const Str: string; Size: Word): string;
implementation
function LTrim(const Str: string): string;
var
 len: Byte absolute Str;
 i: Integer;
begin
 i := 1;
 while (i <= len) and (Str[i] = Space) do
 Inc(i);
 LTrim := Copy(Str, i, len)
end {LTrim};
function RTrim(Str: string): string;
var
 len: Byte absolute Str;
begin
 while (Str[len] = Space) do
 Dec(len);
 RTrim := Str
end {RTrim};
function Trim(Str: string): string;
begin
 Trim := LTrim(RTrim(Str))
end {Trim};
function RightStr(const Str: string; Size: Word): string;
var
 len: Byte absolute Str;
begin
 if Size > len then
 Size := len;
 RightStr := Copy(Str, len - Size + 1, Size)
end {RightStr};
function LeftStr(const Str: string; Size: Word): string;
begin
 LeftStr := Copy(Str, 1, Size)
end {LeftStr};
function MidStr(const Str: string; Size: Word): string;
var
 len: Byte absolute Str;
begin
 if Size > len then
 Size := len;
 MidStr := Copy(Str, ((len - Size) div 2) + 1, Size)
end {MidStr};
end.
// *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
const
 BlackSpace = [#33..#126];
{ squish() возвращает строку со всеми белыми пробелами и с удаленными
 повторяющимися апострофами. }
function squish(const Search: string): string;
var
 Index: byte;
 InString: boolean;
begin
 InString := False;
 Result := ;
 for Index := 1 to Length(Search) do
 begin
 if InString or (Search[Index] in BlackSpace) then
 AppendStr(Result, Search[Index]);
 InString := ((Search[Index] = ') and (Search[Index - 1] <> '\'))
 xor InString;
 end;
end;
{ before() возвращает часть стоки, находящейся перед
 первой найденной подстроки Find в строке Search. Если
 Find не найдена, функция возвращает Search. }
function before(const Search, Find: string): string;
var
 index: byte;
begin
 index := Pos(Find, Search);
 if index = 0 then
 Result := Search
 else
 Result := Copy(Search, 1, index - 1);
end;
{ after() возвращает часть строки, находящейся после
 первой найденной подстроки Find в строке Search. Если
 Find не найдена, функция возвращает NULL. }
function after(const Search, Find: string): string;
var
 index: byte;
begin
 index := Pos(Find, Search);
 if index = 0 then
 Result := ''
 else
 Result := Copy(Search, index + Length(Find), 255);
end;
{ RPos() возвращает первый символ последней найденной
 подстроки Find в строке Search. Если Find не найдена,
 функция возвращает 0. Подобна реверсированной Pos(). }
function RPos(const Find, Search: string): byte;
var
 FindPtr, SearchPtr, TempPtr: PChar;
begin
 FindPtr := StrAlloc(Length(Find) + 1);
 SearchPtr := StrAlloc(Length(Search) + 1);
 StrPCopy(FindPtr, Find);
 StrPCopy(SearchPtr, Search);
 Result := 0;
 repeat
 TempPtr := StrRScan(SearchPtr, FindPtr^);
 if TempPtr <> nil then
 if (StrLComp(TempPtr, FindPtr, Length(Find)) = 0) then
 begin
 Result := TempPtr - SearchPtr + 1;
 TempPtr := nil;
 end
 else
 TempPtr := #0;
 until TempPtr = nil;
end;
{ inside() возвращает подстроку, вложенную между парой подстрок Front ... Back. }
function inside(const Search, Front, Back: string): string;
var
 Index, Len: byte;
begin
 Index := RPos(Front, before(Search, Back));
 Len := Pos(Back, Search);
 if (Index > 0) and (Len > 0) then
 Result := Copy(Search, Index + 1, Len - (Index + 1))
 else
 Result := ;
end;
{ leftside() возвращает левую часть "отстатка" inside() или Search. }
function leftside(const Search, Front, Back: string): string;
begin
 Result := before(Search, Front + inside(Search, Front, Back) + Back);
end;
{ rightside() возвращает правую часть "остатка" inside() или Null. }
function rightside(const Search, Front, Back: string): string;
begin
 Result := after(Search, Front + inside(Search, Front, Back) + Back);
end;
{ trim() возвращает строку со всеми удаленными по краям белыми пробелами. }
function trim(const Search: string): string;
var
 Index: byte;
begin
 Index := 1;
 while (Index <= Length(Search)) and not (Search[Index] in BlackSpace) do
 Index := Index + 1;
 Result := Copy(Search, Index, 255);
 Index := Length(Result);
 while (Index > 0) and not (Result[Index] in BlackSpace) do
 Index := Index - 1;
 Result := Copy(Result, 1, Index);
end;
Source: DelphiWorld 6.0 http://delphiworld.narod.ru/
ID: 00913
----