|
#16
|
|||
|
|||
Вот что мне надо
|
#17
|
||||
|
||||
Я только что взял текст, который ты хочешь разбить и у меня все хорошо разделяется...
Помогаю за Спасибо |
#18
|
|||
|
|||
Я ж говорю что код тот же но в мемо он слитый и роздельний квадратами!
Хорошо,мне просто надо теперь доставать код но такой как в браузере а не слитый,как это можно зделать? Вот весь исходный код http://depositfiles.com/files/76rmallz4 Последний раз редактировалось Hamsi, 03.12.2010 в 10:04. |
#19
|
||||
|
||||
Все работает даже с твоими "квадратиками". Только что взял твой файл, мне вывело все, что было не обходимо. Вот весь код:
Код:
procedure TForm1.Button1Click(Sender: TObject); var s: string; i: Integer; begin s:=''; for i:=0 to memo1.Lines.Count-1 do if(pos('read="0"', memo1.Lines.Strings[i]) > 0) then begin s:=s+Memo1.Lines.Strings[i]+ #13; end; s:=trim(s); ShowMessage(s); end; Помогаю за Спасибо |
#20
|
|||
|
|||
read="0"
read="0" read="0" |
#21
|
||||
|
||||
Создаешь проект, кидаешь на форму кнопку и мемо, в обработчике он клик кнопки пишешь код, что я дал. После запуска программы копируешь содержимое файла в мемо, нажимаешь кнопку... и Выдаст 3 строчки, в которых и есть твои "read=0".
Помогаю за Спасибо |
#22
|
|||
|
|||
Ппц...При копированию ясное дело что будет,квадраты заменяються на новые строки
|
#23
|
||||
|
||||
Напиши Memo1.Lines.LoadFromFile('C:\1.txt'); и потом
мой код и все будет работать. Если что-то работает не так, то просто разберись что и по чему.... вот и все... сам то алгоритм правильный. Помогаю за Спасибо |
#24
|
||||
|
||||
Не понял... Квадраты на месте перевода строк? Тогда попробуй не #13 а #13#10
jmp $ ; Happy End! The Cake Is A Lie. |