как осуществить такую логику

[mortira]

есть текстовый файл с таким содержимым:

PHP код:

d-keywords = massage|beck|barenaked ladies|beck mongolian
field_3 = sFssf
Referer: http://www.127.0.0.1.com/
fq = asdfsd
from = Flower x
fullname = Alsdf
full_name = sdf
given = Alaina|alaina |norma jean |Norma Jean|norma|mike|michael|nigel|billy jxcv
globalsearchkeyword = barenaked ladies
goingto = mfghmi|fghsingfghre
guess = 452
headline = xcvxcv
hometown = Kefghwna|Kafgps
http://sdfsd.com/ = sdfsdf@|
http://sdf/bnl/ = sdf|coopfdjr
http://sdfsdf.jsp = BNL-ghd2|cosdf
login = sdfsdg
http://fgjfgj= afgj@hotfgj.com|ghjr9
http://ghjning.com/main/authorization/signIn = Version: 5.1.2600 SP3, Language: fghgf
Process: fghfg.exe
-
http://ugh.com
adsfsd login dfdsfs
Referer: http://fghrs.com/
Keys:  4536056733461609  4536056733461609  4536056733461609 GetusBryan
Data:

username=fgh
password=fgh
Submit=
http://www.fghfg.ca/login = afgha@hhfgail.com||shofhina@yafgh.com|cfghper
http://www.efghony.ca/singles/servlet/user/aboutme/info = shortalaina@yahoo 


+ много всякой ерунды.
надо вытащить только
http://ugh.com
username=fgh
password=fgh
login = sdfsdg
и больше ничего. кол-во строк неизвестно.
как можно такое осуществить?
какие параметры, операции использовать для этого?

[NuMeR]

для поиска username,password и login используйте функцию pos, а с адресом непонятно по каким параметрам нужно его выбирать

[rangel]

примерно так наверное
загружаем в мемо

var
i,ii,iii,iiii,k:integer;
begin
Memo1.loadfromfile('...');
for k:=0 to memo1.lines.count -1 do begin
i:=pos('http://ugh.com',Memo1.lines[k]);
ii:=pos('username=fgh',Memo1.lines[k]);
iii:=pos('password=fgh',Memo1.lines[k]);
iiii:=pos('login = sdfsdg',Memo1.lines[k]);
if i<>0 then ...
if ii<>0 then ...
if iii<>0 then ...
if iiii<>0 then ...
end;

я не очен ьпонял твой вопрос...

[mortira]

это все пример. тут нужна логика.
http://тут все, что угодно.com
username=тут все, что угодно
password=тут все, что угодно
login = тут все, что угодно
так же есть ыпыпффpassword= - такое не надо
адрес.... только начиная с http:// и до окончания пути:
http://www.programmersforum.ru/showt...461#post297461
,но не
http://www.programmersforum.ru/showt...461#post297461 /аываывук23450928двоа

с Pos тоже вариант, но не получаются правильно условия создать, чтобы все что нужно вытащить.
как например вытащить ТОЛЬКО строку со словом 'учеба', а не ываывучебаыпып или учеба(*)*;

[Impuls1989]

Сообщение от mortira

с Pos тоже вариант, но не получаются правильно условия создать, чтобы все что нужно вытащить.
как например вытащить ТОЛЬКО строку со словом 'учеба', а не ываывучебаыпып или учеба(*)*;

Ну пробуйте так: if (pos('учеба',s) = 1) then <ваши действия>
Или например поставить 'password ' после слова password - стоит один пробел. Будет понятно что это слово стоит первым.
Или pos('password=',s)=1
А с адресом проблемма.
Заметил что перед строкой с адресом стоит '-'. Это так всегда?

[mortira]

нет. не всегда. до и после может все что угодно
хотя с адресом легко, например if (pos('http:') <> 0) and not (pos('разный мусор') <> 0), сложности, например (по строкам):
http://www.programmersforum.ru/showthread.php - нужно
http://www.programmersforum.ru/showthread.php 2-4|5 235-23 23-59 - не нужно
http://www.programmersforum.ru/dsfsd.php sdfsdg sdgpassword fgdf -не нужно
password = ыпвпыв -нужно
passwordыпыфпы авпвап - не нужно
вот как тут составить?
if (pos('http:') <> 0) and not (pos('|') = 0) or (pos('password') <> 0) and not (pos('авпвап') <> 0)
с этим морока

[NuMeR]

а вы ищите не "password", а "password = "

[Longedok]

Это всё легко делается с помощью регулярных выражений. Могу посоветовать библиотеку TRegExpr (сайт).
Для url это будет выглядеть примерно так:

var
    regex: TRegExpr;
...
regex := TRegExpr.create();
regex.Expression := 'http://[^\s]*';
regex.Exec(fileText);
result := regex.Match[0];
regex.free;

для юезернэйма: 'username=[^\s]*'
и т.д.

[mortira]

просто такое выражение может встречаться и в строке, которая мне не нужна, а с этими условиями такой гемор....
встречается и так и так.
а кто может объяснить НА ПРИМЕРАХ условия Pos: xor, and, < и т.п. поподробнее.

это все теперь одно целое

и будет ли работать вот так ----------------------------------------------- if ((pos('http:') <> 0) and not (pos('|') = 0))
и сравниваю с другим условием or (pos('password') <> 0) ?

[mortira]

попробуем использовать TRegExpr.