регулярные выражения для поиска и замены

[Елена Гох]

Подскажите, пожалуйста, как написать код, чтобы поменять местами подстроки при помощи регулярных выражений. Например, задача - изменить американский формат даты на наш. Вот код для поиска
With RegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d{1,2})/(\d{1,2})/(\d\d\d\d)"
End With

А как написать замену (поменять местами первую и вторую подстроки?
Заранее благодарна.

[OlegVE]

Здравствуйте Елена

После каждого нахождения, в VBA впишите строчку кода (скопировав предварительно в strOldDate "старую" дату)

strNewDate = Format(strOldDate, "dd/mm/yyyy")

Попробуйте в прямо в запросе

SELECT поле1, ..., Format([ВашеПолеСдатой], "dd/mm/yyyy") AS НоваяДата
FROM Таблица;

До свидания.

[Teslenko_EA]

Здравствуйте Елена.
OlegVE верно подсказал - "..прямо в запросе..", "..задача - изменить американский формат даты на наш.." - распространяется только на отображение даты в национальном формате, а записывается она в любом случае одним и тем же числовым значением.
Вопрос "..поменять местами первую и вторую подстроки?.." - требует уточнения.
Евгений.

[Елена Гох]

Большое спасибо за участие. Случай с форматом правильный, но это лишь частный, меня же интересуют регулярные выражения, нигде не могу найти синтаксис для VBA. У меня, например, поле символьное, куда записан диапазон дат.

[OlegVE]

Здравствуйте, Елена.
Регулярные выражения (Regular Expressions), не являются кодом, в смысле программным. Никакого отношения ни к VBA ни к какому либо другому язуку программирования не имеют (это язык описаний). Например, вы могли просто искать в тексте слово, а если это слово "вертолёт", то к авиации VBA не имел бы никакого отношения.
Если Вы написали код (програмный)

With RegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d{1,2})/(\d{1,2})/(\d\d\d\d)"
End With

и у Вас он работает
то надо понимать Вы написали
и
Set regEx = New RegExp
и
установили ссылку на "Microsoft VBScript Regular Expressions"...

нигде не могу найти синтаксис для VBA

не понимаю, чего же Вы хотите...
До свидания

PS Если Вас интересуют регулярные выражения, то думаю Вам надо обратиться на форум по Perl, в нём их часто используют. В базах данных манипулируют записями и полями, т.е. какими-то готовыми блоками, не сильно рассматривая их содержимое, регулярными выражениями пользуются те, кто много работат с СОДЕРЖИМЫМ текста.

[Елена Гох]

Всегда приятно пообщаться с коллегами. Чего хочу - освоить работу с регулярными выражениями. Я как раз работая в отделе, где основная задача- преобразовывать поля из различных электронных форматов для запихивания в конкретную базу. Это одна из мелких подзадач. Более большая - разбор текстовых полей (описание) на составляющие. В этом регулярки очень помогают.
Сегодня наконец нашла в книге в главе по VB.Net, в VBA работает, вот предпоследняя замены:

With RegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d{1,2})/(\d{1,2})/(\d\d\d\d)"
creatstring = .Replace(creatstring, "$2/$1/$3")
End With

Я довольна.

[Елена Гох]

Всегда приятно пообщаться с коллегами. Чего хочу - освоить работу с регулярными выражениями. Я как раз работая в отделе, где основная задача- преобразовывать поля из различных электронных форматов для запихивания в конкретную базу. Это одна из мелких подзадач. Более большая - разбор текстовых полей (описание) на составляющие. В этом регулярки очень помогают.
Сегодня наконец нашла в книге в главе по VB.Net, в VBA работает, вот предпоследняя замены:

With RegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d{1,2})/(\d{1,2})/(\d\d\d\d)"
creatstring = .Replace(creatstring, "$2/$1/$3")
End With

Я довольна.

[OlegVE]

Сообщение от Елена Гох

...хочу - освоить работу с регулярными выражениями... ...основная задача- преобразовывать поля из различных электронных форматов для запихивания в конкретную базу...
...нашла в книге в главе по VB.Net...

Теперь почти понятно, когда всё сделано. Вам просто нужно было или найти функцию Replace...
стр 118-119 ?
http://softtime.ru/info/fridl.php?down=fridl.djvu
или
"$2/$1/$3",
http://msdn.microsoft.com/en-us/libr...00(VS.85).aspx
это всё Вы получили бы вчера...

До свидания, коллега