Форум компьютерной помощи — Регулярные выражения и лотус. Объект VBScript.RegExp

Re: Регулярные выражения и лотус. Объект VBScript.RegExp

2024-10-30T08:17:01Z

Вот хочу удалять несколько (N) повторяющихся символов.
Регулярка находит от 1 до 3 вхождений "х":

x{1,3}123

корректно отработала на строке

xxxxx123укеукеукеуке123

xxx123123

123

Хочу удалять 1-10 пробелов между тегом p и табуляцией
objRegExp.Pattern ={

}&Chr(32){1,5}&Chr(160)&Chr(160)&Chr(160)&Chr(160) ' ? - Ленивый режим
mytext$= objRegExp.Replace(mytext$, {

}&Chr(160)&Chr(160)&Chr(160)&Chr(160) )

Re: Регулярные выражения и лотус. Объект VBScript.RegExp

2022-09-16T13:36:47Z

[ abc ] - Находит любой из указанных символов.
[ ^abc ] - Находит любой из неуказанных символов.

[ a-z ]  Находит любой символ из диапазона.
[ ^a-z ]   Находит любой символ, не входящий в диапазон.

\s - пробельный символ.
\S - непробельный символ.

. - любой одиночный символ
* - ни одного или несколько символов, стоящих перед ним
+ определяет один или более символов.

visualprogs.ru/all/4.html

Re: Регулярные выражения и лотус. Объект VBScript.RegExp

2017-09-14T06:12:23Z

Вот еще одна модификация скрипта для тестирования objRegExp.Replace

Sub Click(Source As Button)
    Dim TempStr As String    
    Dim objRegExp As Variant    
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True '  проверять по всему тексту
    objRegExp.Multiline = True ' обрабатывать много строк
    TempStr = { 

Re: Регулярные выражения и лотус. Объект VBScript.RegExp
2017-02-06T07:55:06Z
Важная вешь про жадные и нежадные операторы!
Добавляя ? перед оператором, оператор превращается из жадного в не жадный.
Примеры:
1. 
TempStr = {

}
objRegExp.Pattern ={class=[\S]+[b]?[/b]\>}
Result = objRegExp.Replace(TempStr, "clas1")    Результат:
 
2. 
TempStr = {    
}
objRegExp.Pattern ={class=[\S]+\>}
Result = objRegExp.Replace(TempStr, "clas1")    Результат:



Re: Регулярные выражения и лотус. Объект VBScript.RegExp
2016-11-16T11:34:05Z
Удаляем все строки типа "class=MsoTableGrid",  "class=MsoNormal" из строк типа
 
TempStr = {абв  дсв}
objRegExp.Pattern ={class(.*)mal}
Выход:
абв 
 дсв

TempStr = {абв  дсв}
objRegExp.Pattern ={class(.*?)mal}
Выход:
абв 
 дсв


Re: Регулярные выражения и лотус. Объект VBScript.RegExp
2016-11-16T08:35:46Z
<\/?(div|span|i|o:|b|u|a)[\s]?[\s\S]*?>
   - заменяет все указанные теги


Re: Регулярные выражения и лотус. Объект VBScript.RegExp
2016-11-16T07:21:39Z
[ \ s \ S ] - любой символ
( ?=шаблон )
TempStr = {длин0Я01110ЯЯЯЯ0абв 
Выход:
длин0Я01110ЯЯЯЯ0абв 



Re: Регулярные выражения и лотус. Объект VBScript.RegExp
2016-11-16T06:31:14Z
? - Прожорливость.
0+  - ни одного или один символ, стоящий перед "+"
TempStr = "длин000111000абв"
objRegExp.Pattern ="0+"
На выходе:
длинЗАМЕНА111ЗАМЕНАабв

0+?
TempStr = "длин000111000абв"
objRegExp.Pattern ="0+?"
На выходе:
длинЗАМЕНАЗАМЕНАЗАМЕНА111ЗАМЕНАЗАМЕНАЗАМЕНАабв


Re: Регулярные выражения и лотус. Объект VBScript.RegExp
2016-11-15T13:50:59Z
* -  находит 0 или много вхождений символа перед *
TempStr = "длинношеееееееее123"    
objRegExp.Pattern ="длинноше*"
На выходе:
ЗАМЕНА123


Регулярные выражения и лотус. Объект VBScript.RegExp
2016-11-15T13:37:33Z
Вот примеры.
$    - конец входной строки
Sub Click(Source As Button)
    Dim TempStr As String    
    Dim objRegExp As Variant    
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True '  проверять по всему тексту
    objRegExp.Multiline = True ' обрабатывать много строк
    
    TempStr = "абв 123 абв"    
    Print TempStr 'исходная строка
    objRegExp.Pattern ="абв$"
    Result = objRegExp.Replace(TempStr, "ЗАМЕНА")    
    Print Result
End Sub
На выходе:
абв 123 ЗАМЕНА
^    - начало входной строки
TempStr = "абв 123 абв"
objRegExp.Pattern ="^абв"    
Result = objRegExp.Replace(TempStr, "ЗАМЕНА")  
На выходе:
ЗАМЕНА 123 абв