Код: Выделить всё
LookupText strOut,index, HMIRuntime.Language,"Text_list_1"
Код: Выделить всё
LookupText strOut,index, HMIRuntime.Language,"Text_list_1"
Код: Выделить всё
For index = 1 To 18
Marsh_array(index) = SmartTags("Номера_маршрутов[" & index & "]") & " " & SmartTags("Начало_маршрутов[" & index & "]") & " - " & SmartTags("Конец_маршрутов[" & index & "]") & " " & SmartTags("Статусы_маршрутов[" & index & "]")
Next
Код: Выделить всё
int Index;
LPSTR Value;
Index = GetPropWord(lpszPictureName, lpszObjectName, "OutputValue");
switch (Index)
{
case 1 : Value = "Маршрут 1"; break;
case 2 : Value = "Маршрут 2"; break;
case 3 : Value = "Маршрут 3"; break;
case 4 : Value = "Маршрут 4"; break;
case 5 : Value = "Маршрут 5"; break;
default : Value = "Нет"; break;
}
SetTagChar("Value1", Value);
Прошу прощения за долгий ответ, не заходил на сайт.
Код: Выделить всё
Dim Var, TList_Name
Set TList_Name = ScreenItems("Название Вашего Text List")
Var = TList_Name.Assignments
StrOut и Index должны быть именно тэгами а не переменными VBS, по этой причине у вас не работал вызов этой функции. Создайте интернал тэги и вызов делайте вот так:Dron_Tat писал(а): ↑22 июл 2020, 12:08 Пытаюсь в скрипте присвоить переменной значение из TextList, но никак не могу понять как сделать. В просторах интернета нашел что можно сделать через LookupText, но не работает. Кто сталкивался как делать?strOut - результат, index - значение int, Text_list_1 - имя списка.Код: Выделить всё
LookupText strOut,index, HMIRuntime.Language,"Text_list_1"
Код: Выделить всё
LookupText "strTag","indexTag", HMIRuntime.Language,"Text_list_1"