Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2014, 17:22   #21
mitiay
Форумчанин
 
Регистрация: 16.01.2011
Сообщений: 288
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Это почти полноценный xml. Чуть добавить в начало и конец и будет полноценный xml
я понимаю но мне нужно чтоб был тхт!Ребят помогите с пустыми строками в гугле ничего нет
mitiay вне форума Ответить с цитированием
Старый 26.11.2014, 17:38   #22
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

В цикле от конца удалить их из стринглиста
или все #13#10#13#10 заменить на #13#10
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 26.11.2014 в 17:50.
Аватар вне форума Ответить с цитированием
Старый 26.11.2014, 18:56   #23
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Таки и я заинтересовалсо...
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
r: TStringList;
tmp: string;
begin
r:= TStringList.Create;
r.Text:=(IdHTTP1.Get('http://id.txt'));
tmp:= r.Text;
 while Pos('</id>',tmp) > 0 do
   begin
     ListBox1.Items.Add(Copy(tmp,Pos('<id>',tmp)+4,Pos('</id>',tmp)-5));
     Delete(tmp,1,Pos('</id>',tmp)+4);
   end;
   r.Free;
end;
end.

Последний раз редактировалось Iron Monk; 26.11.2014 в 19:10. Причина: фри добавил)))
Iron Monk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
список ТХТ viks1 Общие вопросы Delphi 4 18.05.2012 11:15
загрузка из тхт файла структуры,содержащую tstringlist spydark91 Общие вопросы Delphi 6 08.11.2011 15:15
Написать программу, преобразующую файл АВС.ТХТ в файл 123.ТХТ [Паскаль] Djoker Помощь студентам 1 12.12.2010 19:45
корректура тхт Old_Man_nsk Microsoft Office Excel 8 01.04.2009 12:45
Черпаем из ТХТ littlecoder Общие вопросы Delphi 1 15.12.2008 22:34