Как сделать замену по шаблону в строковой переменной?

[kuksha]

Привет! Вопрос по VBA.
Мне нужно сделать замену в текстбоксе или в строковой переменной, пользуясь шаблонами.
Функция replace шаблонов не понимает, а конструкции вида

With Selection.Find
...
.Text = NeVerno
.Replacement.Text = Verno
...
End With
Selection.Find.Execute Replace:=wdReplaceAll

я не могу настроить на работу со строковой переменной.

Помогите пожалуйста!

[RayShade]

Что есть "шаблоны"? Уж не regular expressions?

И что есть "не могу настроить на работу со строковой переменной"?

[kuksha]

Что есть "шаблоны"? Уж не regular expressions?

То есть например заменить ([Аа])йцукенг*
на ([Аа])ййукенг*

И что есть "не могу настроить на работу со строковой переменной"?

Просто приведённая конструкция по умолчанию работает с содержимым основного документа Word. А вот как настроить её на работу со строковой переменной (которая образовывается по ходу работы скрипта)?

[RayShade]

Хм.

На строковую переменную настроить вряд ли получится, ибо у нее вряд ли есть такие вещи как Selection



Ну а насчет замены по шаблону - это Selection.Find умеет



UPD

Могу посоветовать, использовать javaScript, и его String. Там есть стандартный метод replace, он понимает regexp.

[kuksha]

Хм.
Ну а насчет замены по шаблону - это Selection.Find умеет

Ну так ясно что умеет. Я и написал про это. Но вот не знаю как этим самым Selection.Find воспользоваться для работы не с содержимым открытого документа, а со строковой переменной!

Короче, как воспользоваться приведёнными выше шаблонами при работе со строковыми переменными или с содержимым текстового окна диалога?

[RayShade]

Вставить их в документ.

[kuksha]

Вставить их в документ.

Обалденный выход...
Но, в общем понятно - лучше, чем вообще ничего.
Ладно, придётся самому писать обработчик. До чего же неохота!

[RayShade]

Ну или заюзай объект RegExp

[Кукша12]

Могу посоветовать, использовать javaScript, и его String. Там есть стандартный метод replace, он понимает regexp.

А пример использования можешь дать?
Просто я с джавой в ворде никогда не работал - с какого бока подойти не знаю.

[Gloom]

Код: Выделить всё

Set regex = CreateObject("VBScript.Regexp")
regex.Pattern = "([Аа])йцукенг*"
ИзменённаяСтрока = regex.Replace(ИсходнаяСтрока, "$1ййукенг")

[Кукша12]

Код: Выделить всё

Set regex = CreateObject("VBScript.Regexp")
regex.Pattern = "([Аа])йцукенг*"
ИзменённаяСтрока = regex.Replace(ИсходнаяСтрока, "$1ййукенг")

Gloom, Спасибо, частично заработало! Ура! То, что надо!!!
Но некоторые вещи она в лоб не понимает, например знак звёздочки и выражения отрицания вида ([!ы]) то есть любая буква кроме "ы".
Где бы посмотреть подробное описание правил, по которым пишутся регулярные выражения для VBScript.Regexp ? И вообще - описание этого компонента...
Кстати, у меня заработало сразу, а вот придётся ли что-то устанавливать у пользователей для VBScript.Regexp ?

[RayShade]

Устанавливать не придется, это везде есть (на ХР )

Ну а синтаксис там такой:

Код: Выделить всё

Character Description
\  Marks the next character as either a special character or a literal. For example, "n" matches the character "n". "\n" matches a newline character. The sequence "\\" matches "\" and "\(" matches "(".
^  Matches the beginning of input.
$  Matches the end of input.
*  Matches the preceding character zero or more times. For example, "zo*" matches either "z" or "zoo".
+  Matches the preceding character one or more times. For example, "zo+" matches "zoo" but not "z".
?  Matches the preceding character zero or one time. For example, "a?ve?" matches the "ve" in "never". 
. Matches any single character except a newline character. 
(pattern)  Matches pattern and remembers the match. The matched substring can be retrieved from the resulting Matches collection, using Item [0]...[n]. To match parentheses characters ( ), use "\(" or "\)".
x|y Matches either x or y. For example, "z|wood" matches "z" or "wood". "(z|w)oo" matches "zoo" or "wood". 
{n} n is a nonnegative integer. Matches exactly n times. For example, "o{2}" does not match the "o" in "Bob," but matches the first two o's in "foooood".
{n,}  n is a nonnegative integer. Matches at least n times. For example, "o{2,}" does not match the "o" in "Bob" and matches all the o's in "foooood." "o{1,}" is equivalent to "o+". "o{0,}" is equivalent to "o*".
{n,m}  m and n are nonnegative integers. Matches at least n and at most m times. For example, "o{1,3}" matches the first three o's in "fooooood." "o{0,1}" is equivalent to "o?".
[xyz]  A character set. Matches any one of the enclosed characters. For example, "[abc]" matches the "a" in "plain". 
[^xyz]  A negative character set. Matches any character not enclosed. For example, "[^abc]" matches the "p" in "plain". 
[a-z]  A range of characters. Matches any character in the specified range. For example, "[a-z]" matches any lowercase alphabetic character in the range "a" through "z". 
[^m-z]  A negative range characters. Matches any character not in the specified range. For example, "[m-z]" matches any character not in the range "m" through "z". 
\b  Matches a word boundary, that is, the position between a word and a space. For example, "er\b" matches the "er" in "never" but not the "er" in "verb". 
\B  Matches a non-word boundary. "ea*r\B" matches the "ear" in "never early". 
\d  Matches a digit character. Equivalent to [0-9]. 
\D  Matches a non-digit character. Equivalent to [^0-9]. 
\f  Matches a form-feed character. 
\n  Matches a newline character. 
\r  Matches a carriage return character. 
\s  Matches any white space including space, tab, form-feed, etc. Equivalent to "[ \f\n\r\t\v]".
\S  Matches any nonwhite space character. Equivalent to "[^ \f\n\r\t\v]". 
\t  Matches a tab character. 
\v  Matches a vertical tab character. 
\w  Matches any word character including underscore. Equivalent to "[A-Za-z0-9_]". 
\W  Matches any non-word character. Equivalent to "[^A-Za-z0-9_]". 
\num  Matches num, where num is a positive integer. A reference back to remembered matches. For example, "(.)\1" matches two consecutive identical characters. 
\n Matches n, where n is an octal escape value. Octal escape values must be 1, 2, or 3 digits long. For example, "\11" and "\011" both match a tab character. "\0011" is the equivalent of "\001" & "1". Octal escape values must not exceed 256. If they do, only the first two digits comprise the expression. Allows ASCII codes to be used in regular expressions.
\xn Matches n, where n is a hexadecimal escape value. Hexadecimal escape values must be exactly two digits long. For example, "\x41" matches "A". "\x041" is equivalent to "\x04" & "1". Allows ASCII codes to be used in regular expressions.


[Кукша12]

[quote="RayShade"]Устанавливать не придется, это везде есть (на ХР )
Вот я про это и спрашиваю - не все у меня на нём сидят - несколько ещё аж на W98 и не жалуются...

Насчёт синтаксиса - спасибо. Очень доходчиво. Пока мельком только глянул... Похоже это обычные регулярные... блин, кажется придётся формат словаря переделывать (в ворде регулярные в каком-то усечённом виде используются в диалоговых окнах поиска/замены...)

[RayShade]

Я сказал ХР потому что, на других не проверял. Но скорее всего, и на 98 это тоже есть. Это же совсем базовая функциональность.