Добрый день!
Имеется строка:
s2:='CN=Иванов Иван Иванович, OU=Моя компания, O=экземпляр, STREET=г.Минск, ул.Ленина д.15 кв.45, L=test, ST=BPS, C=BY, OID.2.5.4.12=программист, OID.2.5.4.4=Иванов, OID.2.5.4.41=BPS-Иван Иванович';
необходимо разобрать строку по параметрам..Например: CN:='Иванов Иван Иванович';
Adress:= подстроке с параметром STREET
как это сделать?
вот пример моего кода:
Код:
try
sl:=TStringList.Create;
SplitText(s2, sL);
for i := 0 to sl.Count - 1 do begin
if pos('OID.2.5.4.12=',sl[i])<>0 then begin
doljn:=sl[i];
n:=length(doljn);
doljn:=copy(doljn,16,n);
end;
if pos('OID.2.5.4.4=',sl[i])<>0 then begin
familia:=sl[i];
n:=length(familia);
familia:=copy(familia,14,n);
end;
if pos('OID.2.5.4.41=',sl[i])<>0 then begin
imia_otchestvo:=sl[i];
n:=length(imia_otchestvo);
imia_otchestvo:=copy(imia_otchestvo,15,n);;
end;
end;
showmessage(Должность: '+doljn);
showmessage('ФИО: '+familia+' '+imia_otchestvo);
finally
sL.Free;
end;
Но тогда засада с адресом..как быть?