End With по требованию

@testuser2 · Регистрация: 08.02.2017

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

В одном коде надо было перебирать элементы массива UDT и при определенных условиях "выпрыгнуть" из цикла, а после цикла при определенных условиях происходит редим этого массива, но обнаружилась одна проблемка с использованием оператора With в таком сценарии. Упрощенно проблемму можно воспроизвести таким кодом

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Type tpNode
    Val As Long
End Type
 
Sub TestWith()
    Dim i&, Nodes() As tpNode
    
    ReDim Nodes(5) As tpNode
    
    Do
        With Nodes(2)
            .Val = 1
            Exit Do
        End With
    Loop
    
    ReDim Preserve Nodes(6)    
End Sub

При выполнении данного кода после цикла выскочит ошибка "This array is fixed or temporarily locked". Она возникает по причине того, что оператор With захватывает элемен массива и блокирует массив от изменения размерности. Поскольку выход из цикла происходит до закрытия With, блокировка массива не снимается. В идеальном случае нужно было выходить из цикла после End With, но в том коде все действия происходят в условном операторе, помещенном внутри With. Здача данной темы отгадать, 1) как я реши эту пролему (или предложить свое решение); 2) то же самое, но с использованием цикла For )

@testuser2 · 20.11.2024, 16:31 **[ТС]**

With прекрасный и быстрый, CopyMemory видимо непричем, это все медленное вычисление указателей в vb IDE (в нативе не проверял), Mid действительно быстрая функция.

@HackerVlad · 20.11.2024, 16:35

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

With прекрасный и быстрый

Ничего прекрасного и быстрого я в нём не вижу. Тебе уже привели кучу доказательств что с ним будет работать медленнее в EXE.

Добавлено через 34 секунды

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

With прекрасный и быстрый

А ты не привёл ни одного доказательства что он может быть быстрее в EXE

@testuser2 · 20.11.2024, 16:42 **[ТС]**

Я привел факт, что with работает нормально, но есть трабла с компиляцией. Возможно Твин-бейские уже все иначе + переработали этот оператор и дополнили функционалом

@testuser2 · 20.11.2024, 16:55 **[ТС]**

Все-таки Твин более современный язык.. Не перестаю удивлятся

@HackerVlad · 20.11.2024, 17:02

Да, тут ты прав, я сам видел как в Твине некоторые процессы работают быстрее. Например я запускал свой проект "10000 строк в листбокс" и там в Твине добавляет быстрее по миллисекундам, чем в VB6. Помнишь ты ещё писал потом проект где ты перепрошивал память напрямую в листбоксе. Так вот вот мы тогда не пробывали в Твине. В Твине достаточно быстро всё. Быстрее чем в VB6 я проверял.

Добавлено через 39 секунд
Лайк, за факт быстроты Твина.

Добавлено через 1 минуту
testuser2, а в VBA какая скорость кстати? Такая же галимая как и в VB6?

@testuser2 · 20.11.2024, 17:25 **[ТС]**

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

а в VBA какая скорость кстати?

В VBA IDE также как в VB6 IDE, так как должно быть, первый вариант быстрее. Вообще, когда работаешь с объектами без With ни куда. Как пример

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    With Re1.Execute(sVBDecl)
        If .Count Then
            With .Item(0)
              pos1 = .length + 1
              If Len(.SubMatches(1)) = 0 Then
                  sTmp = .SubMatches(2)
                  sFnTp = .SubMatches(4) 
                  sHdr = Replace(.Value, sTmp, "PtrSafe " & sTmp)
              Else: sHdr = .Value
              End If
            End With
        Else
            MsgBox "Не удалось обработать заголовок функции"
            Exit Function
        End If
    End With

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

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

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

В Твине должны сдеать добавление строк из массива как в VBA, только, надеюсь, не по ублюдочному как в VBA - где каждая строка LB в отдельном объекте..

@HackerVlad · 20.11.2024, 18:05

testuser2, а в VBA какая скорость кстати? Такая же галимая как и в VB6?

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

В Твине должны сдеать добавление строк из массива как в VBA

Надо будет кстати проверить, хорошая мысль

@testuser2 · 20.11.2024, 18:19 **[ТС]**

На самом деле если оставить стебовый спор, о том, нужен With или нет, я, конечно, не могу точно утверждать ). В Delphi от есть, в C# как пишут от него сознательно отказались в виду усложнения читаемости. Что дает With в VB/VBA в основном это удобная навигация в структуре вложенных объктов, хотя можно было бы обойтись без With использованием дополнительных переменных.. Что действительно было бы наверное круто, если бы в Твине добавили указатели (переменные-ссылки), но я вижу, что такое там, кстати, уже реализуется (видел примеры но не тестил) с помощью With..

@The trick · 20.11.2024, 18:34

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

Он ведь только замедляет работу в EXE

Нет. With нужно просто пользоваться правильно, а не делать бессмысленные тесты которые ничего полезного не показывают.

@HackerVlad · 20.11.2024, 19:03

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

указатели (переменные-ссылки)

А что это кстати? Что-то типа StrPtr?

@testuser2 · 20.11.2024, 19:18 **[ТС]**

Это типа ByRef аргуметов функции, только не в стеке аргументов, а задаваемые, как обычные переменные

@HackerVlad · 20.11.2024, 19:43

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

Это типа ByRef аргуметов функции, только не в стеке аргументов, а задаваемые, как обычные переменные

мне как раз пришлось мутить такую фишку в моём модуле для упаковки CAB-файлов

@testuser2 · 21.11.2024, 02:08 **[ТС]**

Вот пример работы с указателем с сайта ТВ. Дело в том, что в VB нельзя было передать экземпляр UDT опционально, а в TB это стало возможно. Я специально добавил "Optional" чтобы показать это.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Type foo
    a As Long
    b As Long
    pfizz As LongPtr 'A pointer to a variable of type fizz
End Type
 
Sub call1()
    Dim f As foo
    test1 VarPtr(f)
    Debug.Print f.a, f.b
End Sub
Sub test1(Optional ByVal ptr As LongPtr)
    If ptr Then
        With CType(Of foo)(ptr)
            .a = 1
            .b = 2
        End With
    End If
End Sub

Новые блоги и статьи Все статьи Все блоги /
интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	20.11.2024, 16:31 [ТС]
	With прекрасный и быстрый, CopyMemory видимо непричем, это все медленное вычисление указателей в vb IDE (в нативе не проверял), Mid действительно быстрая функция. 0

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	20.11.2024, 16:42 [ТС]
	Я привел факт, что with работает нормально, но есть трабла с компиляцией. Возможно Твин-бейские уже все иначе + переработали этот оператор и дополнили функционалом 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	20.11.2024, 17:02
	Да, тут ты прав, я сам видел как в Твине некоторые процессы работают быстрее. Например я запускал свой проект "10000 строк в листбокс" и там в Твине добавляет быстрее по миллисекундам, чем в VB6. Помнишь ты ещё писал потом проект где ты перепрошивал память напрямую в листбоксе. Так вот вот мы тогда не пробывали в Твине. В Твине достаточно быстро всё. Быстрее чем в VB6 я проверял. Добавлено через 39 секунд Лайк, за факт быстроты Твина. Добавлено через 1 минуту testuser2, а в VBA какая скорость кстати? Такая же галимая как и в VB6? 1

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	20.11.2024, 18:19 [ТС]
	На самом деле если оставить стебовый спор, о том, нужен With или нет, я, конечно, не могу точно утверждать ). В Delphi от есть, в C# как пишут от него сознательно отказались в виду усложнения читаемости. Что дает With в VB/VBA в основном это удобная навигация в структуре вложенных объктов, хотя можно было бы обойтись без With использованием дополнительных переменных.. Что действительно было бы наверное круто, если бы в Твине добавили указатели (переменные-ссылки), но я вижу, что такое там, кстати, уже реализуется (видел примеры но не тестил) с помощью With.. 0

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	20.11.2024, 19:18 [ТС]
	Это типа ByRef аргуметов функции, только не в стеке аргументов, а задаваемые, как обычные переменные 0