Компоненты для работы со строками

[Padre_Romari]

Кто, что посоветует? А то в Дельфе слабоват набор для работы со строками.

[hack]

Неужели Вам этого мало:

function NewStrtconst S: String): PString;Создает копию строки S и возвращает указатель на нее.
procedure DisposeStr(P: PString) ;Уничтожает строку, на которую указывает Р.
procedure AssignStr(var P: PString; const S: strings-Уничтожает строку, на которую указывает Р и затем присваивает ему адрес созданной копии строки S.
procedure AppendStrfvar Dest: string; const S: string);Добавляет строку S в конец строки Dest.
function Uppercase(const S: string): string;Преобразует символы 'a'..'z' в строке S к верхнему регистру.
function LowerCase(const S: string): string;Преобразует символы 'A'..'Z' в строке S к нижнему регистру.
function CompareStr(const SI, S2: string): Integer;Сравнивает две строки S1 и S2 с учетом регистра символов. Возвращаемое значение равно 0 в случае равенства строк или разности кодов пары первых несовпадающих символов.
function CompareText(const SI, S2: string): Integer;Сравнивает две строки без учета регистра символов.
function AnsiUpperCase(const S: string): string;Преобразует символы в строке к верхнему регистру с учетом языкового драйвера.
function AnsiLowerCase(const S: string) : string;Преобразует символы в строке к нижнему регистру с учетом языкового драйвера.
function AnsiCompareStr(const SI, S2: string): Integer;Сравнивает две строки с использованием языкового драйвера и с учетом регистра символов.
function AnsiCompareText(const SI, S2 : string) : Integer;Сравнивает две строки с использованием языкового драйвера и без учета регистра символов.
function IsValidldent(const Ident: string): Boolean;Возвращает True, если строка Ident может служить идентификатором в программе на Object Pascal (т. е. содержит только буквы и цифры, причем первый символ — буква).
function IntToStr(Value: Longint): string;Преобразует целое число в строку.
function IntToHex(Value: Longint; Digits: Integer): s t r ing ;Преобразует целое число в строку с его шестнадцатиричным представлением.
function StrToInt(const S: string): Longint;Преобразует строку в целое число. При ошибке возникает исключительная ситуация EConvertError.
function StrToIntDef(const S: string; Default; Longint): Longint ;Работает как StrToInt, но при ошибке возвращает значение Default.
function LoadStr(Ident: Word) : string;Загружает строку с индексом Ident из ресурсов приложения.
function FmtLoadStr(Ident: Word; const Args: array of const): string;Загружает строку с индексом Ident из ресурсов приложения с форматированием (см. описание функции Format).
function StrLIComp(Strl, Str2: PChar; MaxLen: Cardinal) : Integer;Работает как StrLComp, но без учета регистра символов.
function StrScantStr: PChar; Chr: Char) : PChar;Отыскивает первое вхождение символа Chr в строку Str и возвращает указатель на него или nil в случае отстутствия.
function StrRScanfStr: PChar; Chr: Char) : PChar;Работает как StrScan, но отыскивается последнее вхождение Chr.
function StrPos(Strl, Str2: PChar) : PChar;Отыскивает первое вхождение строки Str2 в строку Strl и возвращает указатель на нее или nil в случае отстутствия.
function StrUpperfStr: PChar) : PChar;Преобразует строку к верхнему регистру.
function StrLower(Str: PChar): PChar;Преобразует строку к нижнему регистру.
function StrPaslStr: PChar): String;Преобразует строку Str в строку типа string.
function StrAlloc(Size: Cardinal): PChar;Размещает в куче памяти новую строку размером Size и возвращает указатель на нее.
function StrBufSize(Str: PChar): Cardinal;Возвращает размер блока памяти, выделенного для строки при помощи функции StrAlloc.
function StrNewfStr: PChar): PChar ;Размещает в куче памяти копню строки Str и возвращает указатель на нее.
procedure StrDispose(Str: PChar);Уничтожает строку, размещенную при помощи StrAlloc или StrNew.
function StrLenfStr: PChar): Возвращает число символов в строке Str (без учета завершающего нулевого).
function StrEndfStr: PChar): PChar;Возвращает указатель на завершающий нулевой символ строки Str.
function StrMove(Dest, Source: PChar; Count: Cardinal): PChar;Копирует из строки Source в строку Dest ровно Count символов, причем строки могут пере*крываться.
function StrCopy(Dest, Source: PChar): PChar;Копирует Source в Dest и возвращает указатель на Dest.
function StrECopy(Dest, Source: PChar): PChar;Копирует Source в Dest и возвращает указатель на завершающий символ Dest.
function StrLCopy(Dest, Source: PChar; MaxLen: Cardinal): PChar;Работает как StrCopy, но копирует не более MaxLen символов.
function StrPCopy(Dest: PChar; const Source: String): PChar;Копирует строку Source (типа string) в Dest и возвращает указатель на Dest.
function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar;Работает как StrPCopy, но копирует не более MaxLen символов.
function StrCat(Dest, Source: PChar): PChar;Дописывает Source к концу Dest и возвращает указатель на Dest.
function StrLCatfDest, Source: PChar; MaxLen: Cardinal) : PChar;Работает как StrCat, но копирует не более MaxLen-StrLen(Dest) символов.
function StrCoirip(Strl, Str2: PChar): Integer;Сравнивает две строки (посимвольно). Возвра*щает значение: <0 — при Strl 0 — при Strl =Str2, >0 — при Strl >Str2.
function StrIComp(Strl, Str2: PChar): Integer;Работает как StrComp, но без учета регистра символов.
function StrLComp(Strl, Str2: PChar; MaxLen: Cardinal): Integer;Работает как StrComp, но сравнение происходит на протяжении не более чем MaxLen символов.

[Ritd]

Padre_Romari А чего именно не хватает?

[FantasyDD]

в Delphi 2009 некоторые изменения!

[ppkp]

Ritd,

Цитата: А чего именно не хватает?

очень простого не навороченного парсинга строки.
В C# можно написать
string[] strColumns = string strLine.Split(new char[] { ',', '"' }, StringSplitOptions.RemoveEmptyEntries);

В Delphi есть TParser, но он воспринимает символ '(' как разделитель, и пока я это не победил.

[yuretz_reg]

могу посоветовать TRegExpr для регулярных выражений

[antihrist44]

я могу посоветовать самописный модуль для парсинга.
Просто создай новый юнит, очисти всё что будет и вставь туда вот это:
unit net_module;

interface

uses
SysUtils,Dialogs, Classes,ShellApi,Windows,ComCtrls,
IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,IdCookieManager, idHTTP,IdException, IdIOHandlerStack;

{Запросы}
function IsInternetConnected: Boolean; //Проверка соединения с Интернетом
{Улучшенные запросы GET и Post при котором не вылазят некоторые ошибки}

{Парсинг}
function TextBetweenInc(WholeText: string; BeforeText: string; AfterText: string): string;
{TextBetweenInc(исходный текст,слово с которого начать поиск,
слово которым закончить поиск) - Поиск определённого текста и
если оно найдено вывод его в результат в месте со строками поиска}
function TextBetween(WholeText: string; BeforeText: string; AfterText: string): string;
{TextBetween(исходный текст,слово с которого начать поиск,
слово которым закончить поиск) - Поиск определённого текста и вывод его в результат}

{Работа с кодировками}
function RussianToUnicode(S: String): String;
function URLEncode(const AStr: string): string; //Кодировка в формат URL
function URLDecode(const AStr: string): string; //Разгодировка из формата URL
function HTMLRemoveTags(const Value: WideString): WideString;
function HTMLDecodeW(const Value: String): WideString;
function HTMLDecode(const Value: string): string;
function Replace(Dest, SubStr, Str: string): string;

{Разное}
procedure openURL(url:string); //Открытие ссылки в стандартном браузере
procedure openURL_browser(url,browser:string); //Открытие ссылки в определённом браузере

var
RemainingText: string;
HTTPResponse: TStringStream;
HTTPParms: TStringList;

implementation

//uses main_f; //Если нужно добавляем форму которую будим использовать

{Запросы}
function IsInternetConnected: Boolean;
begin
Result := GetSystemMetrics(SM_NETWORK) and 1 > 0;
end;

function RussianToUnicode(S: String): String;
var Wrd:Word;
pW,pR:PWord;
len:Integer;
begin
pW:=@S[1];
len:=Length(S);
SetLength(Result,len);
pR:=@Result[1];
while Len<>0 do begin
Wrd:=pW^;
case Wrd of
$C0..$DF,$E0..$FF:pR^:=Wrd+$0350;
else pR^:=Wrd;
end;
inc(pW);
inc(pR);
dec(Len);
end;
end;

{Парсинг}
function TextBetweenInc(WholeText: string; BeforeText: string; AfterText: string): string;
var
FoundPos: Integer;
WorkText: string;
begin
RemainingText := WholeText;
Result := '';
FoundPos := Pos(BeforeText, WholeText);
if FoundPos = 0 then
Exit;
WorkText := Copy(WholeText, FoundPos, Length(WholeText));
FoundPos := Pos(AfterText, WorkText);
if FoundPos = 0 then
Exit;
Result := Copy(WorkText, 1, FoundPos - 1 + Length(AfterText));
RemainingText := Copy(WorkText, FoundPos + Length(AfterText), Length(WorkText));
end;

function TextBetween(WholeText: string; BeforeText: string; AfterText: string): string;
var
FoundPos: Integer;
WorkText: string;
begin
RemainingText := WholeText;
Result := '';
FoundPos := Pos(BeforeText, WholeText);
if FoundPos = 0 then
Exit;
WorkText := Copy(WholeText, FoundPos + Length(BeforeText), Length(WholeText));
FoundPos := Pos(AfterText, WorkText);
if FoundPos = 0 then
Exit;
Result := Copy(WorkText, 1, FoundPos - 1);
RemainingText := Copy(WorkText, FoundPos + Length(AfterText), Length(WorkText));
end;

{Работа с кодировками}
function URLEncode(const AStr: string): string;
const
NoConversion = ['0'..'9','A'..'Z','a'..'z'];
var
Sp, Rp: PChar;
begin
SetLength(Result, Length(AStr) * 3);
Sp := PChar(AStr);
Rp := PChar(Result);
while Sp^ <> #0 do
begin
if Sp^ in NoConversion then
Rp^ := Sp^
else
begin
FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);
Inc(Rp,2);
end;

Inc(Rp);
Inc(Sp);
end;
SetLength(Result, Rp - PChar(Result));
end;

function URLDecode(const AStr: string): string;
const HexChar = '0123456789ABCDEF';
var I,J: integer;
begin
SetLength(Result, Length(AStr));
I:=1;
J:=1;
while (I <= Length(AStr)) do
begin
if (AStr[I] = '%') and (I+2 < Length(AStr)) then
begin
Result[J] := chr(((pred(Pos(AStr[I+1],HexChar)))shl 4) or (pred(Pos(AStr[I+2],HexChar))));
Inc(I, 2);
end
else
Result[J] := AStr[I];
Inc(I);
Inc(J);
end;
SetLength(Result, pred(J));
end;

function HTMLRemoveTags(const Value: WideString): WideString;
var
i, Max: Integer;
begin
result := '';
Max := Length(Value);
i := 1;
while i <= Max do
begin
if Value[i] = '<' then
begin
repeat
inc(i);
until (i > Max) or (Value[i-1] = '>');
end else
begin
result := result + Value[i];
inc(i);
end;
end;
end;

function HTMLDecode(const Value: string): string;
const
Symbols: array [32..255] of string = (
'nbsp', '', 'quot', '', '', '', 'amp', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'lt', '', 'gt', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', 'iexcl', 'cent', 'pound', 'curren', 'yen', 'brvbar', 'sect', 'uml', 'copy',
'ordf', 'laquo', 'not', 'shy', 'reg', 'macr', 'deg', 'plusmn', 'sup2', 'sup3',
'acute', 'micro', 'para', 'middot', 'cedil', 'sup1', 'ordm', 'raquo', 'frac14', 'frac12',
'frac34', 'iquest', 'Agrave', 'Aacute', 'Acirc', 'Atilde', 'Auml', 'Aring', 'AElig', 'Ccedil',
'Egrave', 'Eacute', 'Ecirc', 'Euml', 'Igrave', 'Iacute', 'Icirc', 'Iuml', 'ETH', 'Ntilde',
'Ograve', 'Oacute', 'Ocirc', 'Otilde', 'Ouml', 'times', 'Oslash', 'Ugrave', 'Uacute', 'Ucirc',
'Uuml', 'Yacute', 'THORN', 'szlig', 'agrave', 'aacute', 'acirc', 'atilde', 'auml', 'aring',
'aelig', 'ccedil', 'egrave', 'eacute', 'ecirc', 'euml', 'igrave', 'iacute', 'icirc', 'iuml',
'eth', 'ntilde', 'ograve', 'oacute', 'ocirc', 'otilde', 'ouml', 'divide', 'oslash', 'ugrave',
'uacute', 'ucirc', 'uuml', 'yacute', 'thorn', 'yuml'
);
var
i, Max, p1, p2: Integer;
Symbol: string;
SymbolLength: Integer;

function IndexStr(const AText: string; const AValues: array of string): Integer;
var
i: Integer;
begin
Result := -1;
for i := Low(AValues) to High(AValues) do
if AText = AValues[i] then
begin
Result := i;
Break;
end;
end;

begin
result := '';
Max := Length(Value);
i := 1;
while i <= Max do
begin
if (Value[i] = '&') and (i + 1 < Max) then
begin
Symbol := copy(Value, i + 1, Max);
p1 := Pos(' ', Symbol);
p2 := Pos(';', Symbol);
if (p2 > 0) and ((p2 < p1) xor (p1 = 0)) then
begin
Symbol := Copy(Symbol, 1, pos(';', Symbol) - 1);
SymbolLength := Length(Symbol) + 1;
if Symbol[1] <> '#' then
begin
Symbol := IntToStr(IndexStr(Symbol, Symbols) + 32);
end else
Delete(Symbol, 1, 1);
Symbol := char(StrToIntDef(Symbol, 0));
result := result + Symbol;
inc(i, SymbolLength);
end else
result := result + Value[i];
end else
result := result + Value[i];
inc(i);
end;
end;

function HTMLDecodeW(const Value: String): WideString;
const
Symbols: array [32..255] of string = (
'nbsp', '', 'quot', '', '', '', 'amp', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'lt', '', 'gt', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '',
'', 'iexcl', 'cent', 'pound', 'curren', 'yen', 'brvbar', 'sect', 'uml', 'copy',
'ordf', 'laquo', 'not', 'shy', 'reg', 'macr', 'deg', 'plusmn', 'sup2', 'sup3',
'acute', 'micro', 'para', 'middot', 'cedil', 'sup1', 'ordm', 'raquo', 'frac14', 'frac12',
'frac34', 'iquest', 'Agrave', 'Aacute', 'Acirc', 'Atilde', 'Auml', 'Aring', 'AElig', 'Ccedil',
'Egrave', 'Eacute', 'Ecirc', 'Euml', 'Igrave', 'Iacute', 'Icirc', 'Iuml', 'ETH', 'Ntilde',
'Ograve', 'Oacute', 'Ocirc', 'Otilde', 'Ouml', 'times', 'Oslash', 'Ugrave', 'Uacute', 'Ucirc',
'Uuml', 'Yacute', 'THORN', 'szlig', 'agrave', 'aacute', 'acirc', 'atilde', 'auml', 'aring',
'aelig', 'ccedil', 'egrave', 'eacute', 'ecirc', 'euml', 'igrave', 'iacute', 'icirc', 'iuml',
'eth', 'ntilde', 'ograve', 'oacute', 'ocirc', 'otilde', 'ouml', 'divide', 'oslash', 'ugrave',
'uacute', 'ucirc', 'uuml', 'yacute', 'thorn', 'yuml'
);
var
i, Max, p1, p2: Integer;
Symbol: WideString;
SymbolLength: Integer;

function IndexStr(const AText: string; const AValues: array of string): Integer;
var
i: Integer;
begin
Result := -1;
for i := Low(AValues) to High(AValues) do
if AText = AValues[i] then
begin
Result := i;
Break;
end;
end;

begin
result := '';
Max := Length(Value);
i := 1;
while i <= Max do
begin
if (Value[i] = '&') and (i + 1 < Max) then
begin
Symbol := Copy(Value, i + 1, Max);
p1 := Pos(' ', Symbol);
p2 := Pos(';', Symbol);
if (p2 > 0) and ((p2 < p1) xor (p1 = 0)) then
begin
Symbol := Copy(Symbol, 1, pos(';', Symbol) - 1);
SymbolLength := Length(Symbol) + 1;
if Symbol[1] <> '#' then
begin
Symbol := IntToStr(IndexStr(Symbol, Symbols) + 32);
end else
Delete(Symbol, 1, 1);
Symbol := WideChar(StrToIntDef(Symbol, 0));
result := result + Symbol;
inc(i, SymbolLength);
end else
result := result + Value[i];
end else
result := result + Value[i];
inc(i);
end;
end;

{Разное}
procedure openURL(url:string);
begin
openURL_browser('',pchar(url));
end;

procedure openURL_browser(url,browser:string);
begin
ShellExecute(0,nil, PChar(browser), PChar(URL), nil, 5);
end;

function Replace(Dest, SubStr, Str: string): string;
var
Position: Integer;
begin
Position:=Pos(SubStr, Dest);
Delete(Dest, Position, Length(SubStr));
Insert(Str, Dest, Position);
Result:=Dest;
end;


end.

[lefsha]

а в спойлер его обязательно было сувать?