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

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

Вернуться   Форум программистов > C/C++ программирование > Visual C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.08.2013, 11:31   #11
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Тогда что-то вроде:
Код:
var head,sorc,rec,xml:TStringList;j,i:integer;cli:strng;
begin
 head:=TStringList.Create;
 sorc:=TStringList.Create;
 rec:=TStringList.Create;
 xml:=TStringList.Create;
 
 head.LoadFromFile('format.ini'); 
  head.text:=StringReplace(head[0],';',#13#10,[rfreplaceall]);
 sorc.LoadFromFile('data_file.txti');
 cli:='';
 for i:=0 to sorc.count-1 do begin
  rec.text:=StringReplace(sorc[i],';',#13#10,[rfreplaceall]);
  if cli<>rec[1] then begin
      xml.append('</client><client>')
      xml.append('<client name>'+rec[0]+'</client name>')
   cli:=rec[1];
  end;
  for j:=0 to rec.count-1 do begin
   xml.append('<'+head[j]+'>'+rec[j]+'</'+head[j]+'>')
  end;
 end;
 
 xml.SaveToFile('primer.xml');
 head.free;sorc.free;rec.free;xml.free;
end;
Это как пример, не более.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.08.2013, 04:22   #12
asix_leon
Новичок
Джуниор
 
Регистрация: 09.08.2013
Сообщений: 7
По умолчанию

Это на паскале? Спасибо за помощь))
asix_leon вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переделавание кода на считывание из файла в файл output.txt input.txt !!! airesjke Помощь студентам 0 29.05.2013 14:07
Kонвертер из txt в xml bboyRALF C# (си шарп) 3 05.09.2012 14:00
генератор из txt в xml-код Di_Noskova Фриланс 3 23.12.2011 11:26
импорт TXT в XLS(расчет по формулам)-экспорт в XML Zhiltsov Microsoft Office Excel 27 06.07.2009 11:27
Как прочесть txt файл www.site.ru/info.txt BR17UY Работа с сетью в Delphi 1 16.04.2007 13:01