|
#1
|
|||
|
|||
Добрый день!
Имеется строка: 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; Но тогда засада с адресом..как быть? Последний раз редактировалось M.A.D.M.A.N., 17.04.2014 в 10:52. |