Форум: "Основная";
Поиск по всему сайту: 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.019 c
4-2727            JAndrey               2002-02-28 07:11  2002.05.02  
Как запустить и остановить Скрин Сервер?


3-2460            step                  2002-04-10 23:35  2002.05.02  
Мастера, ПОМОГИТЕ! Как скрыть Scrool в RxDBGrig ?


3-2491            Скалли                2002-04-11 13:53  2002.05.02  
Подход к сложной выборке


7-2692            ogu                   2002-01-26 15:51  2002.05.02  
Очистка корзины в Windows XP


6-2643            SerfX                 2002-02-16 14:46  2002.05.02  
Какими ф-ми в clx библиотеке можно обратиться к канальному уровню?