Страницы: 1
RSS
Функция gettext из PLEX, Функция gettext съедает пробелы.
 
Добрый день!
Вопрос скорее к Николаю. Функция gettext мною используется когда нужно убрать все значения, кроме буквенных. Вопрос: можно заставить функцию оставлять пробелы? Либо другие символы в зависимости от обстоятельств
Заранее спасибо
 
Можно поправить исходную функцию или написать свою:
Код
Public Function GetMyText(txt As String, Optional pattern As String = "[A-Za-zА-Яа-яЁё]") As String
    Dim m As String, i As Long
    For i = 1 To Len(txt)
        m = Mid(txt, i, 1)
        If m Like pattern Then s = s & m
    Next i
    GetMyText = s
End Function


при стандартном использовании
=GetMyText(A1)
будет работать абсолютно также как и ранее, оставлять только буквы

если нужно оставить только кириллицу и пробелы:
=GetMyText(A1;"[А-Яа-яЁё ]")

если оставить только цифры:
=GetMyText(A1;"[0-9]")

только латиницу:
=GetMyText(A1;"[A-Za-z]")

и т.п.
 
Большое спасибо!
Страницы: 1
Наверх