Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

Получение строки из Ворда 


Olivka   (2002-04-20 19:09) [0]

В одну ячейку таблицы - вставляю формулу суммы
olevariant(FWordApp).ActiveDocument.Tables.Item(TableNumber).Cell(Row,Column).Range.Select;
olevariant(FWordApp).Selection.InsertFormula(formula,"0,00");
- сумма вышестоящих ячеек, все работает класно

Потом хочу получить это значение в переменную - Real, для этого:

text:=olevariant(fwordapp).ActiveDocument.tables.item(TableNumber).cell(Row,Column).range.Text;

это в переменную типа string - тоже вроде делается.
в переменную text попадает строка типа "1,98#D#F"(не помню точно символы), я так понимаю - это всего лишь признаки конца строки или ячейки.

Мне нужно получить 1,98 и я хочу сделать

val(text,realValue,code);

передается только первая цифра числа, например, из 1,98 получается RealValue=1, при этом code=2, т.е. запинается на запятой.
Но в ворде формула понимает у меня только запятую(иначе не суммирует), а не точку. Но замена на точку ничего не решает, code становится равным уже 5, но в RealValue попадает все равно первая цифра!
Я думала - может это и не запятая вовсе, но pos(text,",")=2. Я ничего не понимаю! Щас выйду из себя! как мне получить это число?



drpass   (2002-04-20 20:27) [1]

В русской винде запятая используется для разделения дробной и целой части, и Word ее использует. Древняя фукнция val, будучи англоязычным творением, понимает только точку. Возьми функцию StrToFloat вместо val, которая пользуется установками винды, и забудь об этой проблеме.



Olivka   (2002-04-20 22:13) [2]

не получается, потому что строка в этом случае обязана быть числом, а у меня вместо числа
"0,12"#$D#7 - проверила - вот такого типа.



Olivka   (2002-04-20 22:43) [3]

Я ошиблась в вопросе - pos(text,",")=0, как и #
я могу взять часть ээтой строки - 4 цифры первые и тогда StrToFloat работает, но почему позиция запятой, точки или решетки в этой строке равны 0? странно.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
1-2622            Ищущий                2002-04-20 19:44  2002.05.02  
Case-пакеты


1-2508            ATLANTIDO             2002-04-19 21:18  2002.05.02  
Эмуляция нажатия на клавишу


1-2503            zlo                   2002-04-18 17:24  2002.05.02  
ПОЛУЧЕНИЕ РАЗМЕРА ПАПКИ


14-2648           Scald                 2002-03-25 13:28  2002.05.02  
IP


1-2586            Song                  2002-04-19 13:29  2002.05.02  
Нужно отсортировать по возрастанию дат ветви TTreeView