|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите выровнить столбцы
Доброе время суток!
я уже как-то писл на форуме... ну с той темой разобрался .. теперь другой вопросик подскажите как мне в текстовом файлики выровнить запись по столбца ... на данный момент у меня щас такое столбец1 Столбец2 111111 22222 3333 44444 .... а необходимо столбец1 Столбец2 111111 22222 3333 44444 я пробывал делать и insert-ом задавал с какого символа будет встовляться (22222 или 44444), пробовал просто по детски writeln (f, stolb1:7) типо после того как выведит 111111 то 7 пробелов... и получилось тоже чушь ... потом пробывал через табы типо +#9 вроде что-то похожее нарисовалось, но тоже не то ... подскажите пжлст как быть? |
#2
|
|||
|
|||
да что-то пример не получился .. но смысл такой что запись 44444 должна идти строго под записью 22222 (столбец)
|
#3
|
||||
|
||||
Выравнивание сильно зависит от выбранного шрифта, например для Courier достаточно дополнить первый столбец недостающими пробелами и все будет ровно.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
|||
|
|||
да спасибо за помощь
на самом деле, я вытаскиваю данные из оракла и вставляю их в тхт, но мне нужно что бы данные были расположенны в столбик ... вот мой код Код:
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); |
#5
|
||||
|
||||
Разделяй все поля символом табуляции, тогда такой файл большинство программ будут нормально отображать, и в случае экспорта его в эксел проблем небудет.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
|||
|
|||
Цитата:
|
#7
|
|||
|
|||
|
#8
|
|||
|
|||
Цитата:
Определитесь в первую очередь для себя - насколько важна информация именно в текстовом формате, ведь существуют варианты экспорта в excel/word (о чем так же уже упоминали), можно реализовать собственноручно маленькую утилиту, на которую кинуть StringGrid и заполнять его разбирая тот текстовый файл, который был создан ранее. |
#10
|
|||
|
|||
все парни всем спасибо! тему можно прикрывать
|
#11
|
||||
|
||||
а как сдела то, если конечно не секрет
|
#12
|
|||
|
|||
Цитата:
|
#14
|
|||
|
|||
о! еще вот интересно а теперь этот файлик текстовый можно закинуть в дбф-ку?
|