[keks_feo]

Доброе время суток!
я уже как-то писл на форуме... ну с той темой разобрался .. теперь другой вопросик

подскажите как мне в текстовом файлики выровнить запись по столбца ...
на данный момент у меня щас такое
столбец1 Столбец2
111111 22222
3333 44444
....
а необходимо
столбец1 Столбец2
111111 22222
3333 44444


я пробывал делать и insert-ом задавал с какого символа будет встовляться (22222 или 44444), пробовал просто по детски writeln (f, stolb1:7) типо после того как выведит 111111 то 7 пробелов... и получилось тоже чушь ... потом пробывал через табы типо +#9 вроде что-то похожее нарисовалось, но тоже не то ... подскажите пжлст как быть?

[keks_feo]

да что-то пример не получился .. но смысл такой что запись 44444 должна идти строго под записью 22222 (столбец)

[Страдалецъ]

Выравнивание сильно зависит от выбранного шрифта, например для Courier достаточно дополнить первый столбец недостающими пробелами и все будет ровно.

[keks_feo]

да спасибо за помощь

на самом деле, я вытаскиваю данные из оракла и вставляю их в тхт, но мне нужно что бы данные были расположенны в столбик ... вот мой код

Код:

 OracleDataset1.SQL.Text:='select doc_date,A,B,account_a,account_b,mfo_a,mfo_b,CLN_OKPO, KOR_OKPO, bank_a,bank_b,Amount,n_umber as "NUMBER",details from z_exp where doc_date >(:D)-1 and doc_date <=:DD and Account_a = 26003301326147 and CUR_CODE = 980';
      OracleDataset1.SetVariable('D', Date1.Date);
      OracleDataSet1.SetVariable('DD', Date2.Date);
      OracledataSet1.Active := TRue;
      DBGrid1.DataSource := Sevenergo.DataSource1;
Assignfile(f,'c:\otp\import.txt');
ReWrite(f);
begin
 While not OracleDataSet1.Eof do Begin    // ищу конеЦ :)
st1:=  OracleDataSet1['Number'];
st2:=  OracleDataSet1['doc_date'];
st3:=  OracleDataSet1['account_a'];
st4:=  OracleDataSet1['account_b'];
st5:=  OracleDataSet1['A'];
st6:=  OracleDataSet1['B'];
st7:=  OracleDataSet1['cln_okpo'];
st8:=  OracleDataSet1['kor_okpo'];
st9:=  OracleDataSet1['mfo_a'];
st10:= OracleDataSet1['mfo_b'];
st11:= OracleDataSet1['bank_a'];
st12:= OracleDataSet1['bank_b'];
st13:= OracleDataSet1['amount'];
st14:= OracleDataSet1['details'];
OracleDataSet1.Next;
 writeln(f, st1,st2,st3,st4,st5,st6,st7,st8,st9,st10,st11,st12,st13,st14);
 end;
 closefile(f);

[Страдалецъ]

Разделяй все поля символом табуляции, тогда такой файл большинство программ будут нормально отображать, и в случае экспорта его в эксел проблем небудет.

[keks_feo]

Сообщение от Страдалецъ

Разделяй все поля символом табуляции, тогда такой файл большинство программ будут нормально отображать, и в случае экспорта его в эксел проблем небудет.

табуляцией тоже писал (+#9) все равно встречается в тексте фигня ... завтра буду на работе скину примерчиг чего там получилось с табуляцией

[keks_feo]

вот обещаный пример, того что у меня вышло с табуляцией +#9


пример.JPG

[PiboDIE]

Сообщение от keks_feo

вот обещаный пример, того что у меня вышло с табуляцией +#9

Поскольку простой текстовый файл не обладает функционалом форматирования - то либо ровнять все строки по длине пробелами (при таком "форматировании" документ рекомендуется читать используя моноширинный шрифт, о чем уже писал Страдалецъ) либо использовать не один а несколько символов табуляции, но в этом случае - чем больше столбцов, тем больше по горизонтали будет размазана информация.

Определитесь в первую очередь для себя - насколько важна информация именно в текстовом формате, ведь существуют варианты экспорта в excel/word (о чем так же уже упоминали), можно реализовать собственноручно маленькую утилиту, на которую кинуть StringGrid и заполнять его разбирая тот текстовый файл, который был создан ранее.

[pesi]

кажись кое что получилось вот шрифт "Lucida Console"

[keks_feo]

все парни всем спасибо! тему можно прикрывать

[pesi]

а как сдела то, если конечно не секрет

[keks_feo]

Сообщение от pesi

а как сдела то, если конечно не секрет

нет не секрет ... выкинул инфу в дбф-ку а дальше дело техники

[keks_feo]

Сообщение от pesi

кажись кое что получилось вот шрифт "Lucida Console"

а вообще конечно спасибо! работает так как я и хотел ...

[keks_feo]

о! еще вот интересно а теперь этот файлик текстовый можно закинуть в дбф-ку?