Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Экспорт в EXCEL лицевых счетов [D6, Paradox]

Страницы: 1 2 >
MVVD © (2004-06-25 10:59:00)
Для экспорта используется следующее:
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.
Как это победить?

MVVD (2004-06-25 14:33:00) [1]
Reindeer Moss Eater Спасибо - все получилось!!!!!!

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

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

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

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

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

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

dimm22 (2004-06-25 14:19:00) [4]
И в догонку:
http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/helloworld/excel3.htm

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

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

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

Reindeer Moss Eater (2004-06-25 14:18:00) [6]
не всегда известно, какие поля содержат
лицевые счета

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

Reindeer Moss Eater (2004-06-25 14:17:00) [7]
не всегда известно, какие поля содержат
лицевые счета

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

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

dimm22 (2004-06-25 14:16:00) [8]
Чё то я Excel'я не усмотрел.

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

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

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

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

MVVD (2004-06-25 14:13:00) [10]
Соловьев Извините - без точки

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

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

это как?

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

> Экспорт в EXCEL

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

MVVD (2004-06-25 14:03:00) [13]
Соловьев - а если в числовом поле значение без знака?
Reindeer Moss Eater - не всегда известно, какие поля содержат
лицевые счета

Reindeer Moss Eater (2004-06-25 13:22:00) [14]
Так вот, лицевые счета CHAR(20) преобразуются в число с правающей
точкой, т.е. вместо '12345678901234567890' в 1.23456E19.
Как это победить?

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

Соловьев (2004-06-25 13:18:00) [15]
вернее
Range.NumberFormat := '0.00';

Соловьев (2004-06-25 13:03:00) [16]
Cells.NumberFormat := "0.00";

MVVD (2004-06-25 12:49:00) [17]
Ильш. Извините, если обидел. Сделал, как в ссылке Сововьева,
результат тот-же

Ильш (2004-06-25 12:44:00) [18]
Я предлагал ЗАРЯДИТЬ, а не говорил что у кого есть :)))) !! :))))

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

MVVD (2004-06-25 12:36:00) [19]
Уважаемый Ильш. Я рад, что вы считаете, что мозги есть только у вас

Ильш (2004-06-25 12:27:00) [20]
это я для MVVD © :)))

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »