не совсем корректно, поток не завершается, если бы он вышел по ExitThread "завершился"- приложение бы продолжило работать до тех пор пока бы не вышли точно также все остальные. суть в том что основной поток возвращаясь из функции выходит назад в код ртл, и вызывает в конечном счете NtTerminateProcess, что и убивает все остальное.
Всем здравствуйте. Скажите пожалуйста, есть консольное приложение, написанное на delphi, возможно ли его компилировать под linux? Спасибо
Здравствуйте. Люди добрые, подскажите. Есть два текстовых файла: Первый вида: a;b Второй вида: b;c Как спарсить значения, найти совпадения и получить на выходе файл вида: a;c Заранее спасибо.
1.txt: Code: 1;a 2;a 3;h 4;f 2.txt: Code: a;qwe h;fgh a;qwe f;utr result.txt: Code: 1;qwe 2;qwe 3;fgh 4;utr Как-то так
PHP: program Project2; {$APPTYPE CONSOLE} var ab,bc,ac:textfile; tmp,a,b,c:string; i:integer; begin assign(ab,'ab.txt'); assign(bc,'bc.txt'); assign(ac,'ac.txt'); Reset(ab); Reset(bc); Rewrite(ac); while not EOF(ab)do begin Readln(ab,tmp); i:=Pos(';',tmp); a:=Copy(tmp,1,i-1); b:=Copy(tmp,i+1,length(tmp)-i); while not EOF(bc) do begin Readln(bc,tmp); i:=Pos(b,tmp); If i<>0 Then begin i:=Pos(';',tmp); c:=Copy(tmp,i+1,length(tmp)-i); Writeln(ac,a+';'+c); end; end; Reset(bc); end; CloseFile(ab); CloseFile(bc); CloseFile(ac); end.
Что то не так. Исходные данные: 1.txt: 1;a 2;a 3;h 4;f 2.txt: a;qwe h;fgh a;qwe f;utr В итоге выходной файл получается: 1;qwe 1;qwe 2;qwe 2;qwe 3;fgh 4;fgh 4;utr а нужно: 1;qwe 2;qwe 3;fgh 4;utr
все правильно, у тебя идет a;qwe в первой и третьей позиции. Вот и получаешь его 2 раза. Удаление дубликатов - это уже другая история) А по поводу Code: 3;fgh 4;fgh Позиция h;fgh содержит буквы как h, так и f. Отсюда двойное попадание этого пункта. Если твои строки не такие короткие, то все будет ок. В проивном случае нужно немного изменить алгоритм. Надеюсь добавить пару строк сможешь сам
В-общем выкладывай те файлы, на которых тестишь и тогда я смогу помочь. В противном случае, можно гадать вечно.
Спасибо. Вот файлы - http://files.tf.org/u/98Dd5ca2a4 И еще один вопрос, есть ли библиотеки для delphi 2.0 типа Synapse?
Файлы поглядел. Все работает как часы. У тебя во втором файле ":", вместо ";". Ты уж определись с разделителем На входе ab.txt: Code: 3434;[email protected] 890897;[email protected] 34756768;[email protected] 346567;[email protected] 346346;[email protected] 4353453476;[email protected] 45354;[email protected] 234234;[email protected] 345;[email protected] 12123;[email protected] bc.txt: Code: [email protected];6645hyr [email protected];fdfdghdfh [email protected];erg45 [email protected];wefwef [email protected];pltcmrfnz [email protected];E343435 [email protected];dfgdfvE [email protected];wiwetg5556 [email protected];sfewf Результат в ac.txt: Code: 890897;fdfdghdfh 346346;wefwef 12123;sfewf Никогда им не пользовался. Связь с инетом всегда делаю через сокеты. Быстро, универсально и не нужно за собой таскать всякий хлам.
Это часть файлов, так работает, с оригинальными файлами работает абсолютно не так. А скомпилированный в delphi 2.0 вообще не пашет exeшник А через сокеты можно пример гет и пост запроса? Спасибо PS: В общем заметил такую закономерность, много дубликатов первой переменной появляется в ac.txt , если во второй переменной в файле ab.txt короткий логин, допустим: 153111;[email protected] либо двухсимвольный, трехсимвольный и т.п. Спасибо за помощь
Вот, например: https://forum.antichat.ru/showthread.php?p=1384242 Юзай поиск, много примеров уже было. По поводу того, что у тебя не работает. Еще раз говорю, гадать можно долго. Выложи несколько реальных позиций(хотя бы 100-200), на которых глючит. Если не хочешь палить, можешь скинуть в ПМ. Я не хэккер, что с этим делать все-равно не знаю. p.s.: часто ошибки случаются когда вместо CRLF, в файлах стоит только CR. В текстовом редакторе выглядит нормально, но на самом деле перенос строки глючный.
в общем, смотри, если в списке будут присутствовать мыла в название которых входит, допустим [email protected], т.е. [email protected] [email protected] и т.п., в результирующий файл попадут пассы и от этих мыльников) есть у нас допустим такая запись в ab.txt - 100000;[email protected] , в итоге мы получаем в списке результатов: 100000;edwef 100000;regergr то есть пассы от [email protected] [email protected] и т.п.
Можно. Например переписать все это дело на питоне. Тогда 1 миллиард знаков обработается секунд за 15. Но это уже не ко мне, я в питоне полный 0.
