Конвертор

[Uliy]

Сообщение от Человек_Борща

Ну и пишите, кто вам мешает-то Если не можете сами а очень надо, то на халявное изготовление ПО, надежды особой не питайте Заняться есть чем и без этого.

Есть раздел фриланса, напишут за милую душу хоть на BrainFuck'е.

Институт в котором я учусь мне них-на ничего не дает, я с горем пополам сделала выбор католога! я пытаюсь хоть как-то разобраться сама, но я не врубаюсь как и с помощью каких функций это осуществить, для этого я и спрашивала

[Человек_Борща]

Ваш TXT некий каталог перевода, список строк формата:
ID_<LOCALE_ID>: <Content>

Соответственно каталог надо разбить на части.
<LOCALE_ID>
<ID> <CONTENT>

Abr1_ru : один
abr1_en : one
abr2_ru : два
abr2_en: Two

Получается такой XML:
<lang locale="ru">
<Abr1>один</Abr1>
<Abr2>Два</Abr2>
</lang>
<lang locale="en">
<Abr1>one</Abr1>
<Abr2>Two</Abr2>
</lang>

Берете StringList, каждую строку разбиваете на
1. ID элемента(до знака _) т.е. получите Abr1,abr2
2. ID языка(после знака _), т.е. получите ru,en
3. Содержимое(все, что после знака : ) т.е. один,one,два,Two

Для этого изучайте сам TStringList класс, функции Copy, Pos, PosEx, Delete. Ссылочка "основы delphi" вверху. Все.

Далее читаете спецификацию формата TMX, чтоб знать какой должен быть правильноый структуры XML файл на выходе, и чтоб его употребил Trados.

в той же педивикии есть ссылки на описание формата, ссылку дал саша40.

Выбираете любой удобный компонент/библиотекку для создания XML, хотите MSXML, хотите что-то другое. Не важно, во что пбыстрее вникните то и пользуйте.

Далее алгоритм такой(по примеру моего XML, спецификации TMX искать и читать мне влом):

Создаете XML
Читате TXT файл в StringList
<Цикл по строкам>
Выясняете ID для строки N
Выясняете Locale_ID для строки N
Выясняете Content для строки N

Если в XML.Root есть узел lang с атрибутом locale=Locale_ID, то используем его, иначе создаем его.
Внутри узла создаем ещё 1 узел с ID и содержимым Content
<конец>
Сохранение XML
закрытие TXT

Все. Код напишите сами

[Stilet]

могу сказать следующее:
Считать файл можно с помошью TStringList. Поэтому тут и просили его выложить, чтоб понять как считывать.
По факту код мог выглядеть так:

With TStringList.Create do begin
 LoadFromfile('файл.txt');
 for i:=0 to count-1 do begin
  if copy(Strings[i],1,4)='Name' then это строка начинающаяся на Name
 end;
 free;
end;

[Uliy]

Спасибо большое за помощь!
буду вникать и прочитаю материал по теме,что указали

[Stilet]

Давай, если что спрашивай, но лучше файлы выкладывай в архиве, хоть нагляднее будет

[Uliy]

Помогите разобраться. Я создала документ xml (где я не знаю как повторять одну и ту же часть столько раз сколько потребуется по документу) дальше попыталась обратиться с заданному пользоватлем файлу,чтоб этот файл читался до тех пор пока не дойдет до конца, пыталась взять строку с необходимым именем а как эту строку переместить в документ xml не представляю
програму я приложила
заранее буду благодарна за помощь

http://www.programmersforum.ru/attac...1&d=1408517623

[evg_m]

файл нам нужен не сам по себе, а для (и при) формировании результирующего xml
поэтому загрузку переносим туда где он нам потребуется!

procedure TForm1.Button2Click(Sender: TObject);
var
  Xml: TStringList;

var
  strok: TstringList;
// чтобы не "засорять" наглядность кода формирования xml пишем небольшую функцию 
  function GetfieldName(fname: string): string;
// получения нужного текста(result) по его имени (fname)
  begin
     result:='';//если нужная строка не будет найдена вернем пустую сторку
     for i:=0 to strok.count-1 do begin
       s:=strok.strings[i];
       if copy(s,1,4) =fname then //нужную строку по имени
         result:=copy(s,5,length(s)); //нужный кусок из этой строки
     end;
  end;

begin
   // читаем наш файл
   strok:=TstringList.Create;
  strok.LoadFromFile(edit1.text);
   // создаем объект
   Xml := TStringList. Create;
   // формируем документ
   Xml.Add ('<?xml version="1.0"?>');
....
   Xml.Add ('     <tuv xml:lang="EN-US" >');
   Xml.Add ('       <seg>'+GetFieldName('name_en')+' </seg>');  //поле name_en
   Xml.Add ('     </tuv>');
....
   Xml.Add ('</body >');
   Xml.Add ('</tmx >');
   Memo1.Text := XML.Text;
   // записываем
   Xml.SaveToFile ('C:\Отдел5\Конвектор\Example2.tmx');
   // освобождаем память
   FreeAndNil(Xml);
   strok.Free;
end;

[Uliy]

[QUOTE=evg_m;1406427]
Спасибо, попробую понять

[Uliy]

[QUOTE=evg_m;1406427]

[Uliy]

Все вроде дошло до меня спасибо большое!