VPF::проверка типа содержимого ячейки

ksili

Дата 18.4.2006, 10:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: 1
Всего: 17

Читаю данные с ячейки на листе Excel'я в переменную типа Variant. Как проверить, что ячейка содержит целое число?
Как проверить тип я знаю. Но ведь тип может быть и строковый, но содержать число, записанное как текст.

И вообще какой тип будет иметь пременная типа Variant, если в неё скопировать содержимое ячейки, формат которой задан в Excel'e как общий или текстовый?

--------------------

Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)

_hunter

Дата 18.4.2006, 10:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

Цитата(ksili @ 18.4.2006, 10:37

)

Но ведь тип может быть и строковый, но содержать число, записанное как текст.

тогда пытаемся IntToStr/FloatToStr перевести эту строку в число; если поймали исклбчение -- там не число.

Цитата(ksili @ 18.4.2006, 10:37

)

какой тип будет иметь пременная типа Variant, если в неё скопировать содержимое ячейки, формат которой задан в Excel'e как общий или текстовый?

текстом оно и будет

--------------------

Tempora mutantur, et nos mutamur in illis...

ksili

Дата 18.4.2006, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: 1
Всего: 17

Цитата

текстом оно и будет

Так там не один текстовый тип -
varOleStr
varString
varArray

Более того, сейчас обнаружил, что целое число может иметь тип varDouble

--------------------

_hunter

Дата 18.4.2006, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

Цитата(ksili @ 18.4.2006, 11:32

)

Так там не один текстовый тип -
varOleStr
varString
varArray

и что? всеравно к AnsiString ( WideString ) они все должны приводится.

Цитата(ksili @ 18.4.2006, 11:32

)

Более того, сейчас обнаружил, что целое число может иметь тип varDouble

значит нужно искать разницу между этим числом и округленным. если она меньше какого-то порога -- считать его целым

--------------------

Tempora mutantur, et nos mutamur in illis...

ksili

Дата 19.4.2006, 05:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: 1
Всего: 17

Получилось очень просто

Код


int n;
Variant vExcel, vSheet, cur, vnum;

vExcel=Variant::CreateObject("Excel.Application");
vExcel.OlePropertyGet("WorkBooks").OleProcedure("Open",OpenDialog1->FileName.c_str());
vSheet = vExcel.OlePropertyGet("WorkSheets", 1);

     cur = vSheet.OlePropertyGet("Cells",1,4);
     vnum = cur.OlePropertyGet("Value");

     try
        {
         n = vnum;
        }
     catch(...)
        {
         n = 0;
        }

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »