Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Экспорт в EXCEL лицевых счетов   Найти похожие ветки 

 
MVVD ©   (2004-06-25 10:59) [0]

Для экспорта используется следующее:
const c="C:\";
var F:TextFile;
s,Cell:AnsiString;
i:Integer;
begin
S:=c+eFile;
AssignFile(F, S);
Rewrite(F);
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + eTable.Fields[i].DisplayName + Chr(9);
WriteLn(F,Cell);
WriteLn(F,"");
with eTable do try
DisableControls;
First;
while not eof do begin
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + Fields[i].AsString+Chr(9);
WriteLn(F, Cell);
Next;
end;
finally
EnableControls;
end;
CloseFile(F);
ShellExecute(handle,"open",PChar(App),PChar(s),nil,SW_SHOWMAXIMIZED);
Так вот, лицевые счета CHAR(20) преобразуются в число с правающей
точкой, т.е. вместо "12345678901234567890" в 1.23456E19.
Как это победить?


 
Соловьев ©   (2004-06-25 11:04) [1]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=502


 
Ильш ©   (2004-06-25 11:04) [2]

столбец сделать пошире :)))


 
Курдль ©   (2004-06-25 11:04) [3]

Думаю, что ели бы Вы написали код в одну строчку - читалось бы это еще забавнее!


 
YurikGL ©   (2004-06-25 11:09) [4]


> Ильш ©   (25.06.04 11:04) [2]

Можно еще выставлять опцию ячейки, что в ней текст а не число.


 
Ильш ©   (2004-06-25 12:26) [5]

а еще можно Зарядить мозги, если они есть :))))


 
Ильш ©   (2004-06-25 12:27) [6]

это я для MVVD ©   :)))


 
MVVD ©   (2004-06-25 12:36) [7]

Уважаемый Ильш. Я рад, что вы считаете, что мозги есть только у вас


 
Ильш ©   (2004-06-25 12:44) [8]

Я предлагал ЗАРЯДИТЬ, а не говорил что у кого есть :)))) !! :))))

хоть скажите поправили ситуэйшн или нет?


 
MVVD ©   (2004-06-25 12:49) [9]

Ильш. Извините, если обидел. Сделал, как в ссылке Сововьева,
результат тот-же


 
Соловьев ©   (2004-06-25 13:03) [10]

Cells.NumberFormat := "0.00";


 
Соловьев ©   (2004-06-25 13:18) [11]

вернее
Range.NumberFormat := "0.00";


 
Reindeer Moss Eater ©   (2004-06-25 13:22) [12]

Так вот, лицевые счета CHAR(20) преобразуются в число с правающей
точкой, т.е. вместо "12345678901234567890" в 1.23456E19.
Как это победить?


Приклеить один апостроф к строке счета слева перед присваиванием ячейке Excel


 
MVVD ©   (2004-06-25 14:03) [13]

Соловьев - а если в числовом поле значение без знака?
Reindeer Moss Eater - не всегда известно, какие поля содержат
лицевые счета


 
Курдль ©   (2004-06-25 14:07) [14]


> Экспорт в EXCEL

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


 
Соловьев ©   (2004-06-25 14:11) [15]


> а если в числовом поле значение без знака?

это как?


 
MVVD ©   (2004-06-25 14:13) [16]

Соловьев Извините - без точки


 
Соловьев ©   (2004-06-25 14:16) [17]


> Извините - без точки

[15]
пример можно?


 
dimm22   (2004-06-25 14:16) [18]

Чё то я Excel"я не усмотрел.

Читать: http://www.afalinasoft.com/rus/tips/index.html


 
Reindeer Moss Eater ©   (2004-06-25 14:17) [19]

не всегда известно, какие поля содержат
лицевые счета


Зато всегда известна длина лицевых счетов.

Тогда остаются ручные манипуляции с форматом ячеек.


 
Reindeer Moss Eater ©   (2004-06-25 14:18) [20]

не всегда известно, какие поля содержат
лицевые счета


Если все символы поля только цифры, и количество символов равно длине счета, то приклеить слева апостроф


 
Курдль ©   (2004-06-25 14:19) [21]


> dimm22   (25.06.04 14:16) [18]
> Читать: http://www.afalinasoft.com/rus/tips/index.html

А ссылочки на стандарт данных .XLS у Вас случаем нет? А то как-то нужен был, а не нашлось :(


 
dimm22   (2004-06-25 14:19) [22]

И в догонку:
http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/helloworld/excel3.htm


 
Соловьев ©   (2004-06-25 14:20) [23]


> А ссылочки на стандарт данных .XLS у Вас случаем нет? А
> то как-то нужен был, а не нашлось :(

http://xmlhack.ru/books/xslt/xsltbook.chm


 
Курдль ©   (2004-06-25 14:25) [24]


> Соловьев ©   (25.06.04 14:20) [23]
> http://xmlhack.ru/books/xslt/xsltbook.chm

А это точно оно? :)
---------------------------
Эта книга адресована всем разработчикам программного обеспечения, которые используют или собираются использовать в своей работе XML, web-программистам и web-дизайнерам, создающим технологичные web-сайты, а также всем, кто интересуется языком XML и прикладными XML-технологиями.


 
MVVD ©   (2004-06-25 14:33) [25]

Reindeer Moss Eater Спасибо - все получилось!!!!!!



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.52 MB
Время: 0.053 c
1-1088962595
TUser
2004-07-04 21:36
2004.07.18
PAnsiChar и GetShortPathName


14-1088153833
Fikus
2004-06-25 12:57
2004.07.18
Вопрос по Photoshop


1-1088928187
Глеб
2004-07-04 12:03
2004.07.18
Работа с Unicode - запись в файл


14-1087384847
Иванов Александр
2004-06-16 15:20
2004.07.18
Ваше отношение к философии, как к науке


14-1088581196
Fredericco
2004-06-30 11:39
2004.07.18
1,5 года ищу список песен из саунтрека