ReSQL.ru
     
powered by simpleCommunicator - 2.0.18     © 2024 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Map
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Тест [закрыт для гостей] / Тест VB hl
9 сообщений из 9, страница 1 из 1
Тест VB hl
    #40138212
Администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Администратор
Администратор
Код: VBA
1.
2.
3.
Sub sbHello()
MsgBox "Hello World!"
End Sub
...
Рейтинг: 0 / 0
05.11.2023, 16:05
| Ответить | Цитировать | Написать  
Тест VB hl
    #40138213
Администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Администратор
Администратор
Код: VBScript
1.
MsgBox "Hello World"
...
Рейтинг: 0 / 0
05.11.2023, 16:12
| Ответить | Цитировать | Написать  
Тест VB hl
    #40138214
Администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Администратор
Администратор
Код: VB.Net
1.
2.
3.
4.
5.
6.
7.
Imports System

Module Program                   'начало объявления модуля
    Sub Main(args As String())              'начало объявления метода
        Console.WriteLine("Hello World!")
    End Sub                                 'конец объявления метода
End Module                      'конец объявления модуля
...
Рейтинг: 0 / 0
05.11.2023, 16:14
| Ответить | Цитировать | Написать | Ответы  
Тест VB hl
    #40138218
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Саныч
Участник
Код: VBA
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim oCombo1 As Object, oCombo2 As Object
Set oCombo1 = oDocument.all.tags("select")(0)
Set oCombo2 = oDocument.all.tags("select")(1)
Dim v As Variant
For Each v In oCombo1.options
    oCombo1.Value = v.Value 'вариант 1
    v.Selected = True 'вариант 2
    oCombo1.Click 'это тоже пробовал
    oCombo1.FireEvent "onclick" 'и это тоже пробовал
    DoEvents
    Debug.Print oCombo1.innerHTML
    Debug.Print oCombo2.innerHTML
Next
Комментарии неправильно обрабатываются. Если добавить второй апостроф в конце, тогда работает.

UPD. В этом же примере если удалить несколько строк в начале и в конце, то тоже начинает работать. Непонятно.
...
Изменено: 06.11.2023, 11:56 - Владимир Саныч
Рейтинг: 0 / 0
06.11.2023, 11:54
| Ответить | Цитировать | Написать | Ответы  
Тест VB hl
    #40138219
Фотография basename
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
basename
Участник
Владимир Саныч  06.11.2023, 11:54
[игнорируется]
40138218
Код: VBA
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim oCombo1 As Object, oCombo2 As Object
Set oCombo1 = oDocument.all.tags("select")(0)
Set oCombo2 = oDocument.all.tags("select")(1)
Dim v As Variant
For Each v In oCombo1.options
    oCombo1.Value = v.Value 'вариант 1
    v.Selected = True 'вариант 2
    oCombo1.Click 'это тоже пробовал
    oCombo1.FireEvent "onclick" 'и это тоже пробовал
    DoEvents
    Debug.Print oCombo1.innerHTML
    Debug.Print oCombo2.innerHTML
Next
Комментарии неправильно обрабатываются. Если добавить второй апостроф в конце, тогда работает.

UPD. В этом же примере если удалить несколько строк в начале и в конце, то тоже начинает работать. Непонятно.
Используется сторонняя библиотека для подсветки, https://github.com/highlightjs/highlight.js

Попробуем посмотреть, в чем проблема. (уже высплывали баги с подсветкой).
...
Рейтинг: 0 / 0
07.11.2023, 04:28
| Ответить | Цитировать | Написать  
Тест VB hl
    #40138220
Фотография basename
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
basename
Участник
Код: VBA
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim oCombo1 As Object, oCombo2 As Object
Set oCombo1 = oDocument.all.tags("select")(0)
Set oCombo2 = oDocument.all.tags("select")(1)
Dim v As Variant
For Each v In oCombo1.options
    oCombo1.Value = v.Value 'вариант 1
    v.Selected = True 'вариант 2
    oCombo1.Click 'это тоже пробовал
    oCombo1.FireEvent "onclick" 'и это тоже пробовал
    DoEvents
    Debug.Print oCombo1.innerHTML
    Debug.Print oCombo2.innerHTML
Next
Код: VB.Net
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim oCombo1 As Object, oCombo2 As Object
Set oCombo1 = oDocument.all.tags("select")(0)
Set oCombo2 = oDocument.all.tags("select")(1)
Dim v As Variant
For Each v In oCombo1.options
    oCombo1.Value = v.Value 'вариант 1
    v.Selected = True 'вариант 2
    oCombo1.Click 'это тоже пробовал
    oCombo1.FireEvent "onclick" 'и это тоже пробовал
    DoEvents
    Debug.Print oCombo1.innerHTML
    Debug.Print oCombo2.innerHTML
Next
Код: VBScript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim oCombo1 As Object, oCombo2 As Object
Set oCombo1 = oDocument.all.tags("select")(0)
Set oCombo2 = oDocument.all.tags("select")(1)
Dim v As Variant
For Each v In oCombo1.options
    oCombo1.Value = v.Value 'вариант 1
    v.Selected = True 'вариант 2
    oCombo1.Click 'это тоже пробовал
    oCombo1.FireEvent "onclick" 'и это тоже пробовал
    DoEvents
    Debug.Print oCombo1.innerHTML
    Debug.Print oCombo2.innerHTML
Next
...
Рейтинг: 0 / 0
07.11.2023, 04:33
| Ответить | Цитировать | Написать  
Тест VB hl
    #40138221
Фотография basename
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
basename
Участник
Владимир Саныч [игнорируется] 

40138220

Чуть выше примеры c подсветкой vba, vb.net, vbscript. в случае с двумя последними комментарии корректно отображаются.
...
Рейтинг: 0 / 0
07.11.2023, 04:36
| Ответить | Цитировать | Написать | Ответы  
Тест VB hl
    #40138222
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Саныч
Участник
basename [игнорируется] 

Я знаю. Но их не случайно три разных. Основная разница, как я понимаю, в списке ключевых слов. Поэтому я выбираю тот язык, на котором написан код, а не тот, который лучше работает.
...
Рейтинг: 0 / 0
09.11.2023, 17:06
| Ответить | Цитировать | Написать  
Тест VB hl
    #40138223
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Саныч
Участник
Владимир Саныч  06.11.2023, 11:54
[игнорируется]
40138218
UPD. В этом же примере если удалить несколько строк в начале и в конце, то тоже начинает работать. Непонятно.
Удалось локализовать проблему. Если заменить слово Variant на Object, начинает работать. Слово Variant каким-то образом включает трактовку одиночного апострофа как ограничителя строк. Как мог возникнуть такой баг, я не представляю.
...
Рейтинг: 1 / 0
Нравится: basename
10.11.2023, 10:59
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Тест [закрыт для гостей] / Тест VB hl
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (1): Анонимы (1)
Читали форум (1): Анонимы (1)
Пользователи онлайн (8): Анонимы (6), Yandex Bot, Bing Bot
Польз. соглашение
NoSQL.ru, Чат Кролика       Пашэ: Рисунки, Чат       Фотоальбом: Участники, Встречи
Закрыть
Start [/forum/topic.php?fid=65&tid=2186876&gotonew=1]:
 0ms
get settings:
 0ms
get forum list:
 6ms
check forum access:
 0ms
check topic access:
 0ms
track hit:
 34ms
get topic data:
 2ms
get first new msg:
 3ms
get forum data:
 1ms
get page messages:
 22ms
update_topic_read_status (2186876): 10.11.2023 10:59:56:
 0ms
get tp. blocked users:
 0ms
get online users:
 32ms
check new:
 1ms
others: 82ms
total:  183ms
созд. / загр.: 183ms (нв.: 1ms)
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]