Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 29 мар 2024 01:23

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 12 ] 
Автор Сообщение
 Заголовок сообщения: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 12 фев 2019 14:48 
Специалист
Специалист

Зарегистрирован:
20 ноя 2011 00:36
Сообщения: 33
Доброго дня!
допоможіть будь ласка розібратися з таблицями, що формуються зі скрипту (додаю текст скрипту і proba.dmf з двома таблицями)
Чому якщо писати назву укр. буквами, то цей рядок не відображається (в першій таблиці, де проставлена нумерація рядків таблиці).
Бо у другій таблиці - все правильно відображає (і укр. і анг. і .. всякими буквами, де немає нумерація рядків таблиці).

Код:
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
;;; === якщо прийняти $Punkt=село (укр. букви)   - то все зовсім не гуд
;;; === якщо прийняти $Punkt=selo   - то все гуд
$Punkt=село
;$Punkt=selo
$Line1=100
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@Text[1].Clear
@Text[2].Clear
$S1=Назва пункту $Tab Відстань (м)
@Text[1].Add $S1
$S2=№ з/п $Tab Назва пункту $Tab Відстань (м)
@Text[2].Add $S2
$I=0
$PC=2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; цикл - початок
%Marker1
$I=$I+1
$Res1=$Punkt $Tab $Line1
@Text[1].Add $Res1
$Res2=$I $Tab $Punkt $Tab $Line1
@Text[2].Add $Res2
%Continue
@if $I<$PC then @Goto %Marker1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; цикл кінець
$List1=@Text[1].text
@Map.SelectLayer ID51
$Numb1=@Map.SelectedObject
@Map.Object[$Numb1].TableText $List1
@Map.DeselectAll
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$List2=@Text[2].text
@Map.SelectLayer ID52
$Numb2=@Map.SelectedObject
@Map.Object[$Numb2].TableText $List2
@Map.DeselectAll
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@Window.Refresh



П.С. можливо є зразок з формуванням таблиць даних за допомогою скрипту зі значень параметрів об"єктів на мапі.
(у Reports лізти не хочу, бо ще Pascal-ем не оволодів)


Вложения:
proba.dmf [20.7 Кб]
Скачиваний: 482
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 12 фев 2019 18:38 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
Код:
...
$Res1=@Concat $Punkt,$Tab,$Line1
@Text[1].Add $Res1
$Res2=@Concat $I,$Tab,$Punkt,$Tab,$Line1
@Text[2].Add $Res2
...

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 12 фев 2019 19:18 
Специалист
Специалист

Зарегистрирован:
20 ноя 2011 00:36
Сообщения: 33
Ясно, дуже дякую за відповідь!
Все пов"язане з комами!!! А я так хотів щоб в таблицях були коми, а не крапки (((
(маю наувазі роздільник цілої і дрібної частин)
Чому в таблиці Вставка-Таблиця-Координати наприклад стоять коми, а через скрипт - тільки крапки???


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 12 фев 2019 20:39 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
osaaso писал(а):
А я так хотів щоб в таблицях були коми, а не крапки

перед додавання рядка в текст використайте:
$Res1=@ReplaceChar .,$Res1
і будуть вам в таблиці коми

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 12 фев 2019 22:37 
Специалист
Специалист

Зарегистрирован:
20 ноя 2011 00:36
Сообщения: 33
fendak писал(а):
osaaso писал(а):
А я так хотів щоб в таблицях були коми, а не крапки

перед додавання рядка в текст використайте:
$Res1=@ReplaceChar .,$Res1
і будуть вам в таблиці коми


ця функція @ReplaceChar після якого оновлення програми працює, бо в мене (останнє оновлення 28.02.2018р.) вона здається не працює. В редакторі скрипту навіть не виділяється жирним шрифтом.
Спробував
Код:
$Res1=@Calc Replace("$Res1",".",",")
@Text[1].Add $Res1

- не працює, залишає крапки


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 13 фев 2019 16:35 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
функція @ReplaceChar потребує нової версії (десь від серпня 2018 року)
$Res1=@Calc Replace("$Res1",".",",") також має впорятися із завданням, але при умові, що в тексті ніде не буде лапок.
Ну і після неї обов'язково додайте ще:
$Res1=@DequoteText $Res1

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 14 фев 2019 11:19 
Специалист
Специалист

Зарегистрирован:
20 ноя 2011 00:36
Сообщения: 33
Дякую, fendak!
Спробував всі ці варіанти, але всеодно немає тих ком. Але не буду на разі зациклюватися над цим (в приоритеті потрібно головну задачу виконати).
А коми і крапки буду допилювати потім після оновлення програми (добавляться нові функції, а можливо і мій нештучний інтелект :roll: :) )

Усім дякую за приділену увагу!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 14 фев 2019 14:48 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 797
Откуда: Львівська область
Пробуйте так:
$List1=@Text[1].text
$List1=@Calc Replace("$List1",".",",")
$List1=@DequoteText $List1

@Map.SelectLayer ID51
$Numb1=@Map.SelectedObject
@Map.Object[$Numb1].TableText $List1
@Map.DeselectAll

Спробував у себе - працює.

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 14 фев 2019 23:54 
Специалист
Специалист

Зарегистрирован:
20 ноя 2011 00:36
Сообщения: 33
ЗАПРАЦЮВАЛО і в мене!!!
Ухх, напарився. Досі не розумію чого так, але виявляється:
що коли в рядки таблички (я в шапку таблиці - перший рядок) вписати символ лапок "
то буде виходити - нічого доброго взагалі не буде виходити. Коли видалив ті символи лапок - тоді запрацювало і з'явилися коми!
Я щасливий! ))
Дякую!

Доречі, знайшов в _:\Digitals\Library\ підпрограмку ReplaceDot.dsf і застосував її замість @Calc Replace. Розумію, що це масло-масляне, але
чого воно буде там даремно лежати - нехай працює (точніше підпрацює ) ).


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 24 фев 2019 20:24 
Специалист
Специалист

Зарегистрирован:
20 ноя 2011 00:36
Сообщения: 33
Чи існує в скриптах команда, яка б виконувала ту саму функцію що й клавіша Insert на клавіатурі - на відкритій карті позначення об'єктів інвертуються?

-------
Питання "трішки" не в тему, але я не хочу засмічувати форум дрібничними темами ;)

--------
--------
Не завадив би вже повний і розгорнутий мануал по скриптах - багато питань би відпадало..


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 25 фев 2019 02:13 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
osaaso писал(а):
Чи існує в скриптах команда, яка б виконувала ту саму функцію що й клавіша Insert на клавіатурі - на відкритій карті позначення об'єктів інвертуються?

-------
Питання "трішки" не в тему, але я не хочу засмічувати форум дрібничними темами ;)

--------
--------
Не завадив би вже повний і розгорнутий мануал по скриптах - багато питань би відпадало..

@ExecuteMenu EditInvert

внутрішнє ім'я пункта меню

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не відображаються укр. букви у таблиці
СообщениеДобавлено: 25 фев 2019 11:40 
Специалист
Специалист

Зарегистрирован:
20 ноя 2011 00:36
Сообщения: 33
@ExecuteMenu EditInvert

Супер, дякую!


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 12 ] 

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 105


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB