Не відображаються укр. букви у таблиці

Доброго дня!
допоможіть будь ласка розібратися з таблицями, що формуються зі скрипту (додаю текст скрипту і 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-ем не оволодів)

... $Res1=@Concat $Punkt,$Tab,$Line1 @Text[1].Add $Res1 $Res2=@Concat $I,$Tab,$Punkt,$Tab,$Line1 @Text[2].Add $Res2 ...

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

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

ця функція @ReplaceChar після якого оновлення програми працює, бо в мене (останнє оновлення 28.02.2018р.) вона здається не працює. В редакторі скрипту навіть не виділяється жирним шрифтом.
Спробував

$Res1=@Calc Replace("$Res1",".",",") @Text[1].Add $Res1

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

функція @ReplaceChar потребує нової версії (десь від серпня 2018 року)
$Res1=@Calc Replace(“$Res1”,“.”,“,”) також має впорятися із завданням, але при умові, що в тексті ніде не буде лапок.
Ну і після неї обов’язково додайте ще:
$Res1=@DequoteText $Res1

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

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

Пробуйте так:
$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\Library\ підпрограмку ReplaceDot.dsf і застосував її замість @Calc Replace. Розумію, що це масло-масляне, але
чого воно буде там даремно лежати - нехай працює (точніше підпрацює ) ).

Чи існує в скриптах команда, яка б виконувала ту саму функцію що й клавіша Insert на клавіатурі - на відкритій карті позначення об’єктів інвертуються?


Питання “трішки” не в тему, але я не хочу засмічувати форум дрібничними темами :wink:



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

@ExecuteMenu EditInvert

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

@ExecuteMenu EditInvert

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