Форум: "Основная";
Поиск по всему сайту: 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.024 c
3-2494            spbnt                 2002-04-11 14:49  2002.05.02  
Журнал транзакций в ADO


1-2519            Анастасия             2002-04-21 10:52  2002.05.02  
hint ы в форме облаков


3-2486            LVA                   2002-04-11 12:24  2002.05.02  
---|Ветка была без названия|---


14-2651           pierre                2002-03-26 17:59  2002.05.02  
Ms-dos


14-2658           Феликс                2002-03-26 19:17  2002.05.02  
Teleport Pro умеет вытаскивать файлы с опр. расширением (из сети). Но как?