Аналог "правильного" trim() и регулярные выражения в VBA

[Smaragdov]

Товарищи, если не трудно, подскажите полному чайнику, есть ли в VBA штатный аналог функции trim(), аналогичный оному в языке PHP?
Дело в том, что trim() в VBA удаляет только концевые пробелы, а символы табуляции и переносы строк игнорирует, что не есть хорошо...

Нужна функция, которая бы удаляла вначале и в конце строки:

• " " (ASCII 32 (0x20)), символ пробела.
• "\t" (ASCII 9 (0x09)), символ табуляции.
• "\n" (ASCII 10 (0x0A)), символ перевода строки.
• "\r" (ASCII 13 (0x0D)), символ возврата каретки.
• "\0" (ASCII 0 (0x00)), NUL-байт.
• "\x0B" (ASCII 11 (0x0B)), символ вертикальной табуляции.

И еще один вопрос.
Не получается найти, как использовать в VBA регулярные выражения для поиска и замены.
Надо заменить повторяющиеся пробельные символы. Было бы удобно воспользоваться регулярным выражением:
$s =~ s/\s+/ /g;
... но вместо этого приходится "городить огород" с циклом... Как-то это неправильно...
А как задействовать механизм рег.выражений, никак не найду...

Заранее благодарю!

[Hugo121]

Я только про регулярные пример приведу:

http://www.sql.ru/forum/actualthread.aspx?bid=46&tid=677591
Как из текстовой строки удалить все сиволы и оставить только цифры? на VBA
==
Function ClearName(ByVal strText As String, ByVal strPattern As String) As String
    Dim RegExp As Object
    Set RegExp = CreateObject("vbscript.regexp")
    With RegExp
        .Pattern = strPattern
        .Global = True
        ClearName = .Replace(Trim(strText), "")
    End With
End Function

Sub Test()
    MsgBox ClearName("gyes573jd83j09 ~!@#)", "[^0-9,]")
End Sub

или вот ещё:

Function NumbersOnly(srcStr As String) As String
Dim objRegEx As Object
Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .Pattern = "\D"
        NumbersOnly = .Replace(srcStr, vbNullString)
    End With
Set objRegEx = Nothing
End Function

[KL (XL)]

Сообщение от Smaragdov

Товарищи, если не трудно, подскажите полному чайнику, есть ли в VBA штатный аналог функции trim(), аналогичный оному в языке PHP?
Дело в том, что trim() в VBA удаляет только концевые пробелы, а символы табуляции и переносы строк игнорирует, что не есть хорошо...

Нужна функция, которая бы удаляла вначале и в конце строки:

• " " (ASCII 32 (0x20)), символ пробела.
• "\t" (ASCII 9 (0x09)), символ табуляции.
• "\n" (ASCII 10 (0x0A)), символ перевода строки.
• "\r" (ASCII 13 (0x0D)), символ возврата каретки.
• "\0" (ASCII 0 (0x00)), NUL-байт.
• "\x0B" (ASCII 11 (0x0B)), символ вертикальной табуляции.

И еще один вопрос.
Не получается найти, как использовать в VBA регулярные выражения для поиска и замены.
Надо заменить повторяющиеся пробельные символы. Было бы удобно воспользоваться регулярным выражением:
$s =~ s/\s+/ /g;
... но вместо этого приходится "городить огород" с циклом... Как-то это неправильно...
А как задействовать механизм рег.выражений, никак не найду...

Заранее благодарю!

Если код в Excel, то гораздо быстрее это можно сделать так:

    With Application
        Mystring = .Trim(.Clean(Mystring))
    End With

[KL (XL)]

Как-то так:

Function CompleteTrim(srcStr As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
        With objRegEx
            .Global = True
            .Pattern = "\s+"
            CompleteTrim = Trim(.Replace(srcStr, " "))
        End With
    Set objRegEx = Nothing
End Function

[Smaragdov]

Огромное спасибо за ответы! Выручили!
Буду экспериментировать с предложенными решениями...

Однако... Как-то это несерьезно, чтобы для применения регулярных выражений надо было писать свою функцию, а не использовать стандартное средство языка...
Пока только плююсь на этот VBA: синтаксис совершенно непонятный, встроенный Help тоже жуток, нет регулярных выражений, и т.д. и т.п. (((

Коли уж создал тему, то хочу задать в ней же еще пару чайниковских вопросов.

1)
Проверяю в цикле значения элементов массива cDbArr().
Нужно пометить всю строку голубым фоном ячеек, если было заказано оптовое (более и равно пяти) количество единиц товара.
Проверяю:

If (j = 12 And Val(cDbArr(12)) >= 5) Then
      Range(Cells(i + startRow + 1, 1), Cells(i + startRow + 1, UBound(cDbArr))).Interior.ColorIndex = 8
End If

где:
j – это текущий индекс элемента массива cDbArr()

Далее проверяются значения в других элементах массива, например, почтовый индекс получателя (он должен состоять только из 6 цифр). Т.к. не нашел, как использовать рег.выражения, написал такое "извратное" условие для проверки, что в строке только цифры:

If (j = 6 And (Len(cDbArr(j)) <> 6 Or UCase(cDbArr(j)) <> LCase(cDbArr(j)))) Then
    ' если почтовый индекс не указан ИЛИ НАПИСАН НЕПРАВИЛЬНО, то помечать ячейку индекса красным цветом
    Cells(i + startRow + 1, j + 1).Interior.ColorIndex = 3 ' красный фон

Однако, не работает...
Фон ошибочной ячейки в уже выделенной голубым цветом строке, не меняется на красный. Вся строка остается голубой.
Что я делаю неправильно?


2)
Второй вопрос.
Как проще всего удалить почтовый индекс и город из строки с почтовым адресом, если они уже указаны в других полях этой же записи?
Допустим, имеем:
cDbArr(5) = "Саратов";
cDbArr(6) = "410009";
cDbArr(7) = "410009, г. Саратов, ул. Рябиновская, д.1/91.";

Надо чтобы в cDbArr(7) была просто строка "ул. Рябиновская, д.1/91.".
Разбивать строку на слова по пробелу или знаку препинания, переводить в нижний регистр, и сравнивать с соответствующими полями, запоминать позиции начала и конца подстроки в cDbArr(7), а затем вырезать их? Может, есть способ попроще?

Заранее благодарю!

[VictorM]

Пока только плююсь на этот VBA: синтаксис совершенно непонятный

Аналогично...когда начал PHP изучать. Ничего, привык.)
Просто у каждого языка свои особенности.
Русский на китайский тоже не очень похож, и то что у них одним иероглифом пишется, у нас надо кучу букв написать.

[doober]

Далее проверяются значения в других элементах массива, например, почтовый индекс получателя (он должен состоять только из 6 цифр). Т.к. не нашел, как использовать рег.выражения, написал такое "извратное" условие для проверки, что в строке только цифры:
Код:

If (j = 6 And (Len(cDbArr(j)) <> 6 Or UCase(cDbArr(j)) <> LCase(cDbArr(j)))) Then
' если почтовый индекс не указан ИЛИ НАПИСАН НЕПРАВИЛЬНО, то помечать ячейку индекса красным цветом
Cells(i + startRow + 1, j + 1).Interior.ColorIndex = 3 ' красный фон

Однако, не работает...

If j = 6 And cDbArr(6) Like "######" Then

  Cells(i + startRow + 1, j + 1).Interior.ColorIndex = 3

End If

Вопрос 2
Я думаю улица всегда присутствует.

If InStr(1, cDbArr(7), cDbArr(5), vbTextCompare) > 0 And InStr(1, cDbArr(7), cDbArr(6), vbTextCompare) > 0 Then
rr = Split(cDbArr(7), "ул", -1)
cDbArr(7) = "ул" & rr(1)
End If

[KL (XL)]

Сообщение от doober

Я думаю улица всегда присутствует

Ага, но в разных агрегатных состояниях: проспект, проезд, переулок, шоссе, площадь...

[doober]

Точно,об этом и не подумал,тогда заменить на запятую и клеить 2 последнихА лучше посмотреть оригинал

[Smaragdov]

Сообщение от VictorM

Аналогично...когда начал PHP изучать. Ничего, привык.)
Просто у каждого языка свои особенности.
Русский на китайский тоже не очень похож, и то что у них одним иероглифом пишется, у нас надо кучу букв написать.

После Perl(a) язык PHP показался весьма понятным и логичным.
Но теперь, когда внезапно потребовался VBA, просто туплю не по-детски...
Начальство орет "быстрей-быстрей!", а времени на обучение нет - приходится разрываться между своими непосредственными обязанностями сисадмина, и кучей других, совершенно "левых" вещей, типа дизайна и подготовки выставок...