Использовать текст как исполняемый код (не EbExecuteLine)

@SPARKCom · Регистрация: 30.04.2015

Студворк — интернет-сервис помощи студентам

Всем привет!
Поделитесь, может у кого-нибудь есть решение, как написать строку (например: "Text1.Visible=false: MsgBox Text1.Text") и выполнить её, как строку кода? Оговорюсь сразу, EbExecuteLine не подходит! Написал кучу кода с её использованием, а после компиляции программа начинает вываливаться, хотя в режиме разработки всё работает, и эта проблема не только у меня, а повсеместная. Был у меня примерчик - убей, не могу отыскать! В гуглях, практически ничего нет или везде пример с EbExecuteLine. Выручайте!

@Sur_L · 10.03.2017, 17:10

SPARKCom, что конкретно в строковой переменной сидит, что запускать?

@SPARKCom · 10.03.2017, 17:28 **[ТС]**

Извините втупил, всё работает...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Perem As String
 
Private Sub Command1_Click()
 
    Dim SC
    Set SC = CreateObject("MSScriptControl.ScriptControl")
    SC.Language = "VBScript"
    
     Dim sStr As String
     sStr = "Perem=""Есть такая возможность..."": msgbox Perem"
    
    SC.ExecuteStatement sStr
    
End Sub

Добавлено через 1 минуту
Я имел ввиду без использования контролов

Добавлено через 6 минут
Всем спасибо! Громадный респект за помощь!!!
Если есть еще интересные решения на скрипте в этом направлении выкладывайте, интересующихся много.

SoftIce · 10.03.2017, 17:32

Сообщение от SPARKCom

Я имел ввиду без использования контролов

Ну так если в строке нет контролов, то их и не нужно добавлять.

Еще можно выполнять не только одну строчку кода, а целый блок, например, процедуру.

@SPARKCom · 10.03.2017, 19:28 **[ТС]**

Прям здОрово! Я как-то раньше в сторону скрипта и не глядел, а зря. Возможностей - уйма!
Например - нужно отобразить некую форму(напр. календарь, окно с опциями и т.п.) на теле той формы, с которой был вызов "Form.show". Выход - либо писать функцию для каждой вызывающей формы с указанием нужных контролов, либо куча кода с поиском хэндлов формы, поиск всех контролов на ней и прочих api-функций, что бы правильно позиционировать его к контролу на вызывающей форме, либо можно обойтись маленькой функцией с динамическим скриптом! Круто!

Добавлено через 1 час 16 минут
SoftIce - Отдельное спасибо!

@SPARKCom · 16.03.2017, 13:00 **[ТС]**

Чёт ничего не пойму! Не получается присвоить значение переменной...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim SC
    
    Dim Perem as String
 
    Set SC = CreateObject("MSScriptControl.ScriptControl")
    SC.Language = "VBScript"
    
     Dim sStr As String
     sStr = "Perem=""NewPerem"": msgbox Perem"
    
    SC.ExecuteStatement sStr 'в msgbox отображается
    
    MsgBox Perem 'а тут переменная уже пустая(?)

Что я не так делаю?

Добавлено через 2 минуты
Видимо переменную в скрипте нужно объявлять... А как быть с глобальными?

Добавлено через 4 минуты
SoftIce, поделись опытом...

@fever brain · 16.03.2017, 13:49

Может прощще было бы выложить, какой-нить мануал по скрипту, все это конечно интересно
но как говориться, я б хотел посмотреть всех девочек ))

Добавлено через 4 минуты
SPARKCom, ищи тебе же надо, всю документацию по скриптам, выложи здесь, стань героем ))
а по синтаксису старцы форума тебе расскажут что к чему

SoftIce · 16.03.2017, 13:50

Сообщение от SPARKCom

А как быть с глобальными?

Переменная и должна быть глобальной

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Perem As String
Private Sub Command1_Click()
    Dim SC
    Set SC = CreateObject("MSScriptControl.ScriptControl")
    SC.Language = "VBScript"
    Dim sStr As String
    SC.AddObject "Form1", Form1, True
    sStr = "Form1.Perem=""NewPerem"": msgbox Perem" '
    SC.ExecuteStatement sStr  
    MsgBox Perem
End Sub

Добавлено через 1 минуту

Сообщение от fever brain

всю документацию по скриптам, выложи здесь, стань героем

Это ж надо найти, потом читать

@fever brain · 16.03.2017, 13:55

Не по теме:

Ну хоть почитает ))

@SPARKCom · 17.03.2017, 11:52 **[ТС]**

Сообщение от fever brain

ищи тебе же надо, всю документацию по скриптам

Добрый ты...
Форумы видимо для это существуют, что бы какой нибудь невбубенный Йода (ой пардон, старец форума) какого нибудь Неуча в Гугль отправлял искать или книги почитать. И от этого "стал героем"...
Можешь и хочешь помочь - помоги, твоя помощь по-любому не только мне пригодится и поможет время сэкономить, а нет, так не лей тут желчь. Сам же, тоже когда нибудь по форумам что-нибудь искал и кто-то тебе помогал?

Спасибо SoftIce, получается, SC.AddObject - обязательно.

Всё! Всем откликнувшимся спасибо! Больше не пристаю.

@SPARKCom · 09.01.2023, 18:15 **[ТС]**

Через лет несколько опять "уперся" в какую то негораздину! Ребят, кто может подскажет: есть запущенные несколько форм с контролами, я могу получить все их строковые названия. Но вот, к примеру: как закрыть форму, название которой я получил? В скрипте нужно явно объявлять имя объекта, к примеру формы #SC.AddObject "Form1", Form1, True#
А вот чисто динамически выполнить строку бы с данными, которые "ты только что узнал"...
В этой "EbExecuteLine" это делается легко, но проблему я описывал в начале.

@The trick · 10.01.2023, 11:21

Коллекция Forms содержит список всех открытых форм.

@SPARKCom · 10.01.2023, 14:52 **[ТС]**

Сообщение от The trick

Коллекция Forms содержит список всех открытых форм

Можно чуть поразвёрнутей?
Приходится явно объявлять Form1
Вот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
    Dim sSt As String
 
    Dim SC
    Set SC = CreateObject("MSScriptControl.ScriptControl")
    SC.Language = "VBScript"
    Dim sStr As String
    SC.AddObject "Form1", Form1, True
    sStr = "Form1.Caption = ""$$$"""
    SC.ExecuteStatement sStr
End Sub

К примеру, нужно сделать сделать свой InputBox или Календарь или ещё что нибудь типа того. Вызываешь Это с любой формы, вводишь значения и возвращаешь их на форму которая Это вызвала. Я думаю динамично "выполнить" текст - это хорошая идея... Буду очень признателен.

@The trick · 10.01.2023, 14:55

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
    Dim sSt As String
    Dim SC
    
    Set SC = CreateObject("MSScriptControl.ScriptControl")
    SC.Language = "VBScript"
    Dim sStr As String
    Dim frm As Form
    
    For Each frm In Forms
        SC.AddObject frm.Name, frm, True
    Next
    
    sStr = "Form1.Caption = ""$$$"""
    SC.ExecuteStatement sStr
    
End Sub

@SPARKCom · 10.01.2023, 15:07 **[ТС]**

Пока я тут размышлял, уже ответ готов! Спасибо The trick!

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 28.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 28.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 19.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@SPARKCom 2 / 2 / 0 Регистрация: 30.04.2015 Сообщений: 44

	Использовать текст как исполняемый код (не EbExecuteLine) 09.03.2017, 12:26. Показов 3013. Ответов 33 Метки нет (Все метки) Всем привет! Поделитесь, может у кого-нибудь есть решение, как написать строку (например: "Text1.Visible=false: MsgBox Text1.Text") и выполнить её, как строку кода? Оговорюсь сразу, EbExecuteLine не подходит! Написал кучу кода с её использованием, а после компиляции программа начинает вываливаться, хотя в режиме разработки всё работает, и эта проблема не только у меня, а повсеместная. Был у меня примерчик - убей, не могу отыскать! В гуглях, практически ничего нет или везде пример с EbExecuteLine. Выручайте! 0

@Sur_L 103 / 63 / 10 Регистрация: 13.02.2017 Сообщений: 178
	10.03.2017, 17:10
	SPARKCom, что конкретно в строковой переменной сидит, что запускать? 0

@SPARKCom 2 / 2 / 0 Регистрация: 30.04.2015 Сообщений: 44
	10.03.2017, 19:28 [ТС]
	Прям здОрово! Я как-то раньше в сторону скрипта и не глядел, а зря. Возможностей - уйма! Например - нужно отобразить некую форму(напр. календарь, окно с опциями и т.п.) на теле той формы, с которой был вызов "Form.show". Выход - либо писать функцию для каждой вызывающей формы с указанием нужных контролов, либо куча кода с поиском хэндлов формы, поиск всех контролов на ней и прочих api-функций, что бы правильно позиционировать его к контролу на вызывающей форме, либо можно обойтись маленькой функцией с динамическим скриптом! Круто! Добавлено через 1 час 16 минут SoftIce - Отдельное спасибо! 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	16.03.2017, 13:49
	Может прощще было бы выложить, какой-нить мануал по скрипту, все это конечно интересно но как говориться, я б хотел посмотреть всех девочек )) Добавлено через 4 минуты SPARKCom, ищи тебе же надо, всю документацию по скриптам, выложи здесь, стань героем )) а по синтаксису старцы форума тебе расскажут что к чему 0

@fever brain
	16.03.2017, 13:55
	Не по теме: Ну хоть почитает )) 0

@SPARKCom 2 / 2 / 0 Регистрация: 30.04.2015 Сообщений: 44
	09.01.2023, 18:15 [ТС]
	Через лет несколько опять "уперся" в какую то негораздину! Ребят, кто может подскажет: есть запущенные несколько форм с контролами, я могу получить все их строковые названия. Но вот, к примеру: как закрыть форму, название которой я получил? В скрипте нужно явно объявлять имя объекта, к примеру формы #SC.AddObject "Form1", Form1, True# А вот чисто динамически выполнить строку бы с данными, которые "ты только что узнал"... В этой "EbExecuteLine" это делается легко, но проблему я описывал в начале. 0

@The trick Модератор 10053 / 3898 / 884 Регистрация: 22.02.2013 Сообщений: 5,851 Записей в блоге: 79
	10.01.2023, 11:21
	Коллекция Forms содержит список всех открытых форм. 0

@SPARKCom 2 / 2 / 0 Регистрация: 30.04.2015 Сообщений: 44
	10.01.2023, 15:07 [ТС]
	Пока я тут размышлял, уже ответ готов! Спасибо The trick! 0

Использовать текст как исполняемый код (не EbExecuteLine)

Решение