Макрос не учитывает регистры

@Deomen · Регистрация: 19.01.2018

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

У меня в Libreoffice вот такой макрос (417 строк):

Visual Basic

Sub S
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(21) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.SearchFiltered"
args1(4).Value = false
args1(5).Name = "SearchItem.Backward"
args1(5).Value = false
args1(6).Name = "SearchItem.Pattern"
args1(6).Value = false
args1(7).Name = "SearchItem.Content"
args1(7).Value = false
args1(8).Name = "SearchItem.AsianOptions"
args1(8).Value = false
args1(9).Name = "SearchItem.AlgorithmType"
args1(9).Value = 1
args1(10).Name = "SearchItem.SearchFlags"
args1(10).Value = 65536
args1(11).Name = "SearchItem.SearchString"
args1(11).Value = "<i>"
args1(12).Name = "SearchItem.ReplaceString"
args1(12).Value = " "
args1(13).Name = "SearchItem.Locale"
args1(13).Value = 255
args1(14).Name = "SearchItem.ChangedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.DeletedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.InsertedChars"
args1(16).Value = 2
args1(17).Name = "SearchItem.TransliterateFlags"
args1(17).Value = 1280
args1(18).Name = "SearchItem.Command"
args1(18).Value = 3
args1(19).Name = "SearchItem.SearchFormatted"
args1(19).Value = false
args1(20).Name = "SearchItem.AlgorithmType2"
args1(20).Value = 2
args1(21).Name = "Quiet"
args1(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())
 
rem ----------------------------------------------------------------------
dim args2(21) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SearchItem.StyleFamily"
args2(0).Value = 2
args2(1).Name = "SearchItem.CellType"
args2(1).Value = 0
args2(2).Name = "SearchItem.RowDirection"
args2(2).Value = true
args2(3).Name = "SearchItem.AllTables"
args2(3).Value = false
args2(4).Name = "SearchItem.SearchFiltered"
args2(4).Value = false
args2(5).Name = "SearchItem.Backward"
args2(5).Value = false
args2(6).Name = "SearchItem.Pattern"
args2(6).Value = false
args2(7).Name = "SearchItem.Content"
args2(7).Value = false
args2(8).Name = "SearchItem.AsianOptions"
args2(8).Value = false
args2(9).Name = "SearchItem.AlgorithmType"
args2(9).Value = 1
args2(10).Name = "SearchItem.SearchFlags"
args2(10).Value = 65536
args2(11).Name = "SearchItem.SearchString"
args2(11).Value = "</i>"
args2(12).Name = "SearchItem.ReplaceString"
args2(12).Value = " "
args2(13).Name = "SearchItem.Locale"
args2(13).Value = 255
args2(14).Name = "SearchItem.ChangedChars"
args2(14).Value = 2
args2(15).Name = "SearchItem.DeletedChars"
args2(15).Value = 2
args2(16).Name = "SearchItem.InsertedChars"
args2(16).Value = 2
args2(17).Name = "SearchItem.TransliterateFlags"
args2(17).Value = 1280
args2(18).Name = "SearchItem.Command"
args2(18).Value = 3
args2(19).Name = "SearchItem.SearchFormatted"
args2(19).Value = false
args2(20).Name = "SearchItem.AlgorithmType2"
args2(20).Value = 2
args2(21).Name = "Quiet"
args2(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())
 
rem ----------------------------------------------------------------------
dim args3(21) as new com.sun.star.beans.PropertyValue
args3(0).Name = "SearchItem.StyleFamily"
args3(0).Value = 2
args3(1).Name = "SearchItem.CellType"
args3(1).Value = 0
args3(2).Name = "SearchItem.RowDirection"
args3(2).Value = true
args3(3).Name = "SearchItem.AllTables"
args3(3).Value = false
args3(4).Name = "SearchItem.SearchFiltered"
args3(4).Value = false
args3(5).Name = "SearchItem.Backward"
args3(5).Value = false
args3(6).Name = "SearchItem.Pattern"
args3(6).Value = false
args3(7).Name = "SearchItem.Content"
args3(7).Value = false
args3(8).Name = "SearchItem.AsianOptions"
args3(8).Value = false
args3(9).Name = "SearchItem.AlgorithmType"
args3(9).Value = 1
args3(10).Name = "SearchItem.SearchFlags"
args3(10).Value = 65536
args3(11).Name = "SearchItem.SearchString"
args3(11).Value =  "\[.*\]"
args3(12).Name = "SearchItem.ReplaceString"
args3(12).Value = " "
args3(13).Name = "SearchItem.Locale"
args3(13).Value = 255
args3(14).Name = "SearchItem.ChangedChars"
args3(14).Value = 2
args3(15).Name = "SearchItem.DeletedChars"
args3(15).Value = 2
args3(16).Name = "SearchItem.InsertedChars"
args3(16).Value = 2
args3(17).Name = "SearchItem.TransliterateFlags"
args3(17).Value = 1280
args3(18).Name = "SearchItem.Command"
args3(18).Value = 3
args3(19).Name = "SearchItem.SearchFormatted"
args3(19).Value = false
args3(20).Name = "SearchItem.AlgorithmType2"
args3(20).Value = 2
args3(21).Name = "Quiet"
args3(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args3())
 
rem ----------------------------------------------------------------------
dim args4(21) as new com.sun.star.beans.PropertyValue
args4(0).Name = "SearchItem.StyleFamily"
args4(0).Value = 2
args4(1).Name = "SearchItem.CellType"
args4(1).Value = 0
args4(2).Name = "SearchItem.RowDirection"
args4(2).Value = true
args4(3).Name = "SearchItem.AllTables"
args4(3).Value = false
args4(4).Name = "SearchItem.SearchFiltered"
args4(4).Value = false
args4(5).Name = "SearchItem.Backward"
args4(5).Value = false
args4(6).Name = "SearchItem.Pattern"
args4(6).Value = false
args4(7).Name = "SearchItem.Content"
args4(7).Value = false
args4(8).Name = "SearchItem.AsianOptions"
args4(8).Value = false
args4(9).Name = "SearchItem.AlgorithmType"
args4(9).Value = 1
args4(10).Name = "SearchItem.SearchFlags"
args4(10).Value = 65536
args4(11).Name = "SearchItem.SearchString"
args4(11).Value =  "\(.*\)"
args4(12).Name = "SearchItem.ReplaceString"
args4(12).Value = " "
args4(13).Name = "SearchItem.Locale"
args4(13).Value = 255
args4(14).Name = "SearchItem.ChangedChars"
args4(14).Value = 2
args4(15).Name = "SearchItem.DeletedChars"
args4(15).Value = 2
args4(16).Name = "SearchItem.InsertedChars"
args4(16).Value = 2
args4(17).Name = "SearchItem.TransliterateFlags"
args4(17).Value = 1280
args4(18).Name = "SearchItem.Command"
args4(18).Value = 3
args4(19).Name = "SearchItem.SearchFormatted"
args4(19).Value = false
args4(20).Name = "SearchItem.AlgorithmType2"
args4(20).Value = 2
args4(21).Name = "Quiet"
args4(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4())
 
rem ----------------------------------------------------------------------
dim args5(21) as new com.sun.star.beans.PropertyValue
args5(0).Name = "SearchItem.StyleFamily"
args5(0).Value = 2
args5(1).Name = "SearchItem.CellType"
args5(1).Value = 0
args5(2).Name = "SearchItem.RowDirection"
args5(2).Value = true
args5(3).Name = "SearchItem.AllTables"
args5(3).Value = false
args5(4).Name = "SearchItem.SearchFiltered"
args5(4).Value = false
args5(5).Name = "SearchItem.Backward"
args5(5).Value = false
args5(6).Name = "SearchItem.Pattern"
args5(6).Value = false
args5(7).Name = "SearchItem.Content"
args5(7).Value = false
args5(8).Name = "SearchItem.AsianOptions"
args5(8).Value = false
args5(9).Name = "SearchItem.AlgorithmType"
args5(9).Value = 1
args5(10).Name = "SearchItem.SearchFlags"
args5(10).Value = 65536
args5(11).Name = "SearchItem.SearchString"
args5(11).Value = "^.*\: "
args5(12).Name = "SearchItem.ReplaceString"
args5(12).Value = " "
args5(13).Name = "SearchItem.Locale"
args5(13).Value = 255
args5(14).Name = "SearchItem.ChangedChars"
args5(14).Value = 2
args5(15).Name = "SearchItem.DeletedChars"
args5(15).Value = 2
args5(16).Name = "SearchItem.InsertedChars"
args5(16).Value = 2
args5(17).Name = "SearchItem.TransliterateFlags"
args5(17).Value = 1280
args5(18).Name = "SearchItem.Command"
args5(18).Value = 3
args5(19).Name = "SearchItem.SearchFormatted"
args5(19).Value = false
args5(20).Name = "SearchItem.AlgorithmType2"
args5(20).Value = 2
args5(21).Name = "Quiet"
args5(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args5())
 
rem ----------------------------------------------------------------------
dim args6(21) as new com.sun.star.beans.PropertyValue
args6(0).Name = "SearchItem.StyleFamily"
args6(0).Value = 2
args6(1).Name = "SearchItem.CellType"
args6(1).Value = 0
args6(2).Name = "SearchItem.RowDirection"
args6(2).Value = true
args6(3).Name = "SearchItem.AllTables"
args6(3).Value = false
args6(4).Name = "SearchItem.SearchFiltered"
args6(4).Value = false
args6(5).Name = "SearchItem.Backward"
args6(5).Value = false
args6(6).Name = "SearchItem.Pattern"
args6(6).Value = false
args6(7).Name = "SearchItem.Content"
args6(7).Value = false
args6(8).Name = "SearchItem.AsianOptions"
args6(8).Value = false
args6(9).Name = "SearchItem.AlgorithmType"
args6(9).Value = 1
args6(10).Name = "SearchItem.SearchFlags"
args6(10).Value = 65536
args6(11).Name = "SearchItem.SearchString"
args6(11).Value = "^.*\:$"
args6(12).Name = "SearchItem.ReplaceString"
args6(12).Value = " "
args6(13).Name = "SearchItem.Locale"
args6(13).Value = 255
args6(14).Name = "SearchItem.ChangedChars"
args6(14).Value = 2
args6(15).Name = "SearchItem.DeletedChars"
args6(15).Value = 2
args6(16).Name = "SearchItem.InsertedChars"
args6(16).Value = 2
args6(17).Name = "SearchItem.TransliterateFlags"
args6(17).Value = 1280
args6(18).Name = "SearchItem.Command"
args6(18).Value = 3
args6(19).Name = "SearchItem.SearchFormatted"
args6(19).Value = false
args6(20).Name = "SearchItem.AlgorithmType2"
args6(20).Value = 2
args6(21).Name = "Quiet"
args6(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args6())
 
rem ----------------------------------------------------------------------
dim args7(21) as new com.sun.star.beans.PropertyValue
args7(0).Name = "SearchItem.StyleFamily"
args7(0).Value = 2
args7(1).Name = "SearchItem.CellType"
args7(1).Value = 0
args7(2).Name = "SearchItem.RowDirection"
args7(2).Value = true
args7(3).Name = "SearchItem.AllTables"
args7(3).Value = false
args7(4).Name = "SearchItem.SearchFiltered"
args7(4).Value = false
args7(5).Name = "SearchItem.Backward"
args7(5).Value = false
args7(6).Name = "SearchItem.Pattern"
args7(6).Value = false
args7(7).Name = "SearchItem.Content"
args7(7).Value = false
args7(8).Name = "SearchItem.AsianOptions"
args7(8).Value = false
args7(9).Name = "SearchItem.AlgorithmType"
args7(9).Value = 1
args7(10).Name = "SearchItem.SearchFlags"
args7(10).Value = 65536
args7(11).Name = "SearchItem.SearchString"
args7(11).Value = "^[A-Z\s]+$"
args7(12).Name = "SearchItem.ReplaceString"
args7(12).Value = " "
args7(13).Name = "SearchItem.Locale"
args7(13).Value = 255
args7(14).Name = "SearchItem.ChangedChars"
args7(14).Value = 2
args7(15).Name = "SearchItem.DeletedChars"
args7(15).Value = 2
args7(16).Name = "SearchItem.InsertedChars"
args7(16).Value = 2
args7(17).Name = "SearchItem.TransliterateFlags"
args7(17).Value = 1280
args7(18).Name = "SearchItem.Command"
args7(18).Value = 3
args7(19).Name = "SearchItem.SearchFormatted"
args7(19).Value = false
args7(20).Name = "SearchItem.AlgorithmType2"
args7(20).Value = 2
args7(21).Name = "Quiet"
args7(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args7())
 
rem ----------------------------------------------------------------------
dim args8(21) as new com.sun.star.beans.PropertyValue
args8(0).Name = "SearchItem.StyleFamily"
args8(0).Value = 2
args8(1).Name = "SearchItem.CellType"
args8(1).Value = 0
args8(2).Name = "SearchItem.RowDirection"
args8(2).Value = true
args8(3).Name = "SearchItem.AllTables"
args8(3).Value = false
args8(4).Name = "SearchItem.SearchFiltered"
args8(4).Value = false
args8(5).Name = "SearchItem.Backward"
args8(5).Value = false
args8(6).Name = "SearchItem.Pattern"
args8(6).Value = false
args8(7).Name = "SearchItem.Content"
args8(7).Value = false
args8(8).Name = "SearchItem.AsianOptions"
args8(8).Value = false
args8(9).Name = "SearchItem.AlgorithmType"
args8(9).Value = 1
args8(10).Name = "SearchItem.SearchFlags"
args8(10).Value = 65536
args8(11).Name = "SearchItem.SearchString"
args8(11).Value = "^[^a-z0-9]+"
args8(12).Name = "SearchItem.ReplaceString"
args8(12).Value = " "
args8(13).Name = "SearchItem.Locale"
args8(13).Value = 255
args8(14).Name = "SearchItem.ChangedChars"
args8(14).Value = 2
args8(15).Name = "SearchItem.DeletedChars"
args8(15).Value = 2
args8(16).Name = "SearchItem.InsertedChars"
args8(16).Value = 2
args8(17).Name = "SearchItem.TransliterateFlags"
args8(17).Value = 1280
args8(18).Name = "SearchItem.Command"
args8(18).Value = 3
args8(19).Name = "SearchItem.SearchFormatted"
args8(19).Value = false
args8(20).Name = "SearchItem.AlgorithmType2"
args8(20).Value = 2
args8(21).Name = "Quiet"
args8(21).Value = true
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args8())
 
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())
 
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
 
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
 
End Sub

В частности, часть кода:

Код

args7(11).Name = "SearchItem.SearchString"
args7(11).Value = "^[A-Z\s]+$"
args7(12).Name = "SearchItem.ReplaceString"
args7(12).Value = " "

ожидаемо должна заменять строки, содержащие только заглавные латинские буквы и пробелы, на строки с пробелами.
Однако, данный код нечувствителен к регистру и заменяет также и строки, содержащие строчные латинские буквы с пробелами.
Как это можно исправить?

@XDlf · 19.12.2024, 16:13

По коду ничего не подскажу.

Но, если используются регулярные выражения, то скорее всего есть и стандартная настройка так называемых флагов. Для примера, описание флагов в JavaScript.

Так вот, описанная проблема характерна для активного флага i - регистронезависимый поиск.
Т.е. нужно поискать каким образом в данной объектной модели можно задать нужную конфигурацию флагов для поиска по регулярному выражению.

@Garic73 · 19.12.2024, 17:24

Deomen, попробуйте в args8(17).Name = "SearchItem.TransliterateFlags"
args8(17).Value = 1280, Value задать 1024

Новые блоги и статьи
Как узнать какой процесс блокирует файл или каталог в Windows bt_guru 23.01.2025 При работе с операционной системой Windows пользователи нередко сталкиваются с ситуацией, когда система отказывается выполнять определенные действия с файлами или каталогами, сообщая, что они. . .	Как в curl узнать код статуса HTTP запроса. Коды состояния HTTP bt_guru 23.01.2025 Коды состояния HTTP играют значимую роль в обеспечении эффективного взаимодействия между клиентами и серверами. При работе с веб-сервисами важно не только отправлять запросы, но и правильно. . .	Как сортировать вывод команды ls в Linux bt_guru 23.01.2025 В операционной системе Linux команда ls является одним из наиболее часто используемых инструментов для просмотра содержимого директорий. При работе с файловой системой пользователи регулярно. . .	Как сделать POST запрос с помощью curl bt_guru 23.01.2025 curl - это мощный инструмент командной строки позволяет отправлять и получать данные через различные протоколы, включая HTTP, HTTPS, FTP и множество других. Особенно полезным curl становится при. . .	Прокрутка в tmux с помощью мыши и клавиатуры bt_guru 23.01.2025 Tmux представляет собой мощный терминальный мультиплексор, который позволяет пользователям создавать и управлять несколькими терминальными сессиями внутри одного окна. Одной из важнейших функций tmux. . .	Как проверить, содержит ли массив значение в JavaScript. Поиск в массиве bytestream 23.01.2025 Эффективный поиск значений в массивах становится критически важным навыком для разработчиков, использующих JavaScript. Процесс поиска элементов в массиве может показаться простым на первый взгляд,. . .
Как удалить тег Git в удалённом репозитории (remote) bytestream 23.01.2025 Одним из важнейших механизмов организации версий в Git являются теги, которые позволяют помечать определенные точки в истории проекта как значимые. Теги часто используются для маркировки релизов,. . .	Чем отличаются URL, URI и URN bytestream 23.01.2025 Системы идентификации представляют собой фундаментальный механизм, позволяющий однозначно определять местоположение и характеристики различных информационных объектов в глобальной сети. Эти системы. . .	Как центрировать div внутри другого div с помощью CSS. Управление расположением элементов в CSS bytestream 23.01.2025 Позиционирование элементов играет ключевую роль в создании качественных и профессиональных интерфейсов. Одной из наиболее часто встречающихся задач является центрирование элементов на веб-странице,. . .	Что означают различные символы в синтаксисе PHP bytestream 23.01.2025 PHP (Hypertext Preprocessor) представляет собой один из наиболее широко используемых языков программирования для веб-разработки, который обладает богатой и интересной историей развития. Изначально. . .	Способы клонирования объектов в JavaScript bytestream 23.01.2025 В современной разработке на JavaScript работа с объектами является фундаментальной частью создания любого приложения. При манипуляции объектами часто возникает необходимость создавать их копии для. . .	Как проверить состояние чекбокса в jQuery. Как работать с чекбоксами bytestream 23.01.2025 При разработке интерактивных веб-форм часто возникает необходимость программно определять состояние чекбоксов с помощью jQuery. Чекбоксы являются важными элементами пользовательского интерфейса,. . .

@XDlf 15 / 12 / 4 Регистрация: 02.12.2024 Сообщений: 20
	19.12.2024, 16:13	2
	По коду ничего не подскажу. Но, если используются регулярные выражения, то скорее всего есть и стандартная настройка так называемых флагов. Для примера, описание флагов в JavaScript. Так вот, описанная проблема характерна для активного флага i - регистронезависимый поиск. Т.е. нужно поискать каким образом в данной объектной модели можно задать нужную конфигурацию флагов для поиска по регулярному выражению. 0

@Garic73 406 / 290 / 127 Регистрация: 21.09.2016 Сообщений: 1,097
	19.12.2024, 17:24	3
	Сообщение было отмечено Deomen как решение Решение Deomen, попробуйте в args8(17).Name = "SearchItem.TransliterateFlags" args8(17).Value = 1280, Value задать 1024 1

Опции темы

Макрос не учитывает регистры

Решение