Возми функцию ParamStr , переделай ее под себя, и находи себе нужный параметр из строки....
или возьми мою функцию....
| Код |
function GetPRMCount(S:String; Typ:Char):integer;
var
i,pos_p,k:integer;
len:integer;
Stroka:boolean;
begin
len:=Length(s); stroka:=false; pos_p:=1;
i:=0;
while (i<>len) do
begin
Inc(i);
if S[i]='"' then stroka:=not(stroka);
if stroka then continue;
if (S[i]=Typ)and(S[I+1]<>'') then Inc(pos_p);
end;
Result:=Pos_p;
end;
function GetFastParam(S:String; N:byte; Typ:Char; Kav:Boolean = false):String;
var
i,k,pos_p,pos_b,pos_f:integer;
len:integer;
Stroka:boolean;
label fin;
begin
{найдем позицию разделителя N-ого параметра}
len:=Length(s); stroka:=false; pos_p:=1; pos_f:=1;
pos_b:=1;
if GetPRMCount(s,Typ)=1 then begin
Result:=S;
if Result[len]=Typ then
delete(result,len,1);
goto fin;
end;
i:=0;
while (i<>len) do begin
Inc(i);
if i=1 then
if Pos_P=N then
begin // нашли начальный разделитель
pos_b:=i;
break;
end;
if S[i]='"' then stroka:=not(stroka);
if stroka then continue;
if S[i]=Typ then Inc(pos_p);
if Pos_P=N then
begin // нашли начальный разделитель
pos_b:=i;
break;
end;
end;
{теперь ищем первый попавшийся}
i:=Pos_B;
while (i<>len) do
begin
Inc(i);
if S[i]=Typ then
begin
Pos_F:=I;
break;
end;
end;
if pos_f=1 then pos_f:=len;
i:=Pos_F-Pos_B; // находим длину параметра
if Pos_B<>1 then begin
if Pos_F<>len then
Result:=Copy(S,Pos_B+1,i-1)
else
Result:=Copy(S,Pos_B+1,i+1)
end else
Result:=Copy(S,Pos_B,i);
{---- убираем лишние символы ----}
fin:
Result:=Trim(Result); len:=Length(Result);
if Result='' then exit;
if not Kav then
begin
if (Result[len]in ['"',Typ])and(Result[1]='"') then
begin
delete(Result,Len,1);
delete(Result,1,1);
end;
end;
end;
|
ShowMessage(GetFastParam('param1,param2,"param3", param4 ',3,','))
Пример использования...
|
