Реализация функций Rexx по работе со строками в VBA

[tae1980]

ALL: Очень часто в форуме поднимается вопрос деления строки на отдельные слова/части. Уже много раз на него давали ответ, но к сожалению, по какой-то причине люди не проводят поиск по раним сообщениям. В FIDO вообще-то такое поведение наказуемое, но это к слову... Я решил внести свой не большой вклад в тему, и раньше чем планировал выложить первые две первые процедуры по сабжу. При грамотном их использовании можно творить чудеса. :) Замечание, предложения, комментарии приветствоваться.

'' *** Words ***
'Определяет количество слов в строковой перемнной.
'Аналог команды Rexx.

'На входе:
'str           - Строковая перменная.

'На выходе:
'words         - Количество слов в переменной.

Function words(str)
   rc = ""          'Переменная для хранений позоции текущего пробела.
   
   words = 0
   str = Application.Trim(str)
   rc = InStr(1, str, " ", 1)
   While rc <> 1
      words = words + 1
      rc = InStr(rc, str, " ", 1) + 1
   Wend
End Function

'' *** Word ***
'Функция возвращает n-ное слово в указаной строке.
'Аналог команды Rexx.

'На входе:
'str           - Строковая перменная.
'Number        - Номер слова.

'На выходе:
'word          - n-ное слово или пустую строку если слова с таким номером нет.

Function word(str, number)
   lenght = 0                  'Переменная для расчета длины слова.
   st = 0                      'Позоция начала слова в строке.
   
   str = Application.Trim(str)
   If number > words(str) Then
      word = ""
   Else
      For n = 1 To number
         st = lenght + 1
         lenght = InStr(st, str, " ", 1)
      Next n
      If lenght = 0 Then
         word = Mid(str, st)
      Else
         lenght = lenght - st
         word = Mid(str, st, lenght)
      End If
   End If
End Function

[tae1980]

Пример использования:

'Характеристиска части.
Const Чс_Характ = "2 3"
'                                 | | Смещение в столбцах в блоке (Y).
'                                 | Номер строки на листе (X).
Выбор = Лист.Cells(Val(word(Чс_Характ, 1)), Смещение + Val(word(Чс_Характ, 2)))

Где:
Смещение - рассчитанное ранее смещение от края листа.

[slan]

несколько проще это реализуется..
(Вы как раз не воспользовались поиском )

Sub Макрос1()
On Error Resume Next
Dim s$, sr$, i&, n&
i = 5
s = "a    b         c"
s = WorksheetFunction.Trim(s)
    n = UBound(Split(s, " ")) + 1
    sr = Split(s, " ")(i - 1)
End Sub

где
s - текстовая строка
n - количество слов в s
sr - i-е слово в s(или "", если слов меньше i)

[tae1980]

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

несколько проще это реализуется..
(Вы как раз не воспользовались поиском )

Sub Макрос1()
On Error Resume Next
Dim s$, sr$, i&, n&
i = 5
s = "a    b         c"
s = WorksheetFunction.Trim(s)
    n = UBound(Split(s, " ")) + 1
    sr = Split(s, " ")(i - 1)
End Sub

Спасибо! А все потому что в моей литературе нет ни слова про эти команды... Где можно почитать об это подробнее кроме help'а?
Обновленные версии процедур:

'' *** Words ***
'Определяет количество слов в строковой перемнной.
'Аналог команды Rexx.

'На входе:
'str           - Строковая перменная.

'На выходе:
'words         - Количество слов в переменной.

Function words(str)
   
   words = UBound(Split(Application.Trim(str), " ")) + 1
End Function

'' *** Word ***
'Функция возвращает n-ное слово в указаной строке.
'Аналог команды Rexx.

'На входе:
'str           - Строковая перменная.
'Number        - Номер слова.

'На выходе:
'word          - n-ное слово или пустую строку если слова с таким номером нет.

Function word(str, number)
   
   On Error Resume Next
   word = ""
   word = Split(Application.Trim(str), " ")(number - 1)
   
End Function

[slan]

так чуть "правильнее"

Function nwords(str As String) As Long
    nwords = UBound(Split(Application.Trim(str), " ")) + 1
End Function
Function word(str As String, number As Long) As String
    On Error Resume Next
    sr = Split(Application.Trim(str), " ")(number - 1)
End Function

[tae1980]

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

так чуть "правильнее"

Function nwords(str As String) As Long
    nwords = UBound(Split(Application.Trim(str), " ")) + 1
End Function
Function word(str As String, number As Long) As String
    On Error Resume Next
    sr = Split(Application.Trim(str), " ")(number - 1)
End Function

все таки не nwords, а words. Во первых так она названа в Рекс, а во вторых ИМХО так все же правильнее, можно прочитать как "слов в (str)".
И подправить:
sr = Split(Application.Trim(str), " ")(number - 1), на
word = Split(Application.Trim(str), " ")(number - 1)

Странно у меня до этого без строки word="" вчера выдавал нуль, если слова под таким номером нет. А сегодня правильно, выдает пустую строку.

[slan]

я ж и имел ввиду, что "правильнее" объявлять типы явно!

[tae1980]

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

я ж и имел ввиду, что "правильнее" объявлять типы явно!

Как (уже) многолетний пользователь Rexx считаю, что типы данных - зло. В Rexx'се они отсутствую как класс, что значительно расширяет возможности, а конструкции делают более красивыми, повышается читабельность листинга. В общем одни плюсы. :)))
Вот последняя версия процедур:

Function nwords(str) As Long
    nwords = UBound(Split(Application.Trim(str), " ")) + 1
End Function
Function word(str, number) As String
    On Error Resume Next
    word = Split(Application.Trim(str), " ")(number - 1)
End Function

Как видно из заголовка убраны определения типов передоверяемых данных. В предыдущем варианте, комп выдавал ошибку при попытке передать в процедуры константы, и пример приведенный во втором письме не работал.

[slan]

может быть код будет и красивше, но работать будет дольше..

я выбираю эффективность.

[SAS888]

tae1980

Как (уже) многолетний пользователь Rexx считаю, что типы данных - зло

А штаны себе тоже 60 размере покупаешь?