Строки.(решение есть работающие, но есть 1 но(((

[Bombastick]

Собственно говоря написал Макрос с горем по полам для перестановки Первого и последнего слова. Т.е поменять местами первое и последнее слово. Сегодня узнал от препода что слова могут быть не только наборы букв,но и цифры (фыы2312 2325DFGA55 9999 1111аrt 22222)
Как засунуть в мой макрос что бы цифры тоже считал?
И можно ли его упростить ибо он меня пугает.

Private Sub DoIt_Click()
Dim stroka As String
Dim LeftPosition As Integer
Dim RightPosition As Integer

stroka = TB_S.Text
LeftPosition = 1

Do While LeftPosition <= Len(stroka)
If Mid(stroka, LeftPosition, 1) = " " Then Exit Do Else LeftPosition = LeftPosition + 1
Loop

RightPosition = Len(stroka)
Do While RightPosition >= 0
If Mid(stroka, RightPosition, 1) = " " Then Exit Do Else RightPosition = RightPosition - 1
Loop

TB_S.Text = Right(stroka, Len(stroka) - RightPosition) + Mid(stroka, LeftPosition, RightPosition - LeftPosition + 1) + Left(stroka, LeftPosition - 1)

End Sub

[IgorGO]

а Ваш макрос что делает?
выполните это:

Private Sub DoIt_Click()
Dim stroka As String
Dim LeftPosition As Integer
Dim RightPosition As Integer

stroka = "фыы2312 2325DFGA55 9999 1111аrt 22222"
LeftPosition = 1

Do While LeftPosition <= Len(stroka)
If Mid(stroka, LeftPosition, 1) = " " Then Exit Do Else LeftPosition = LeftPosition + 1
Loop

RightPosition = Len(stroka)
Do While RightPosition >= 0
If Mid(stroka, RightPosition, 1) = " " Then Exit Do Else RightPosition = RightPosition - 1
Loop

MsgBox Right(stroka, Len(stroka) - RightPosition) + Mid(stroka, LeftPosition, RightPosition - LeftPosition + 1) + Left(stroka, LeftPosition - 1)

End Sub

[tae1980]

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

Собственно говоря написал Макрос с горем по полам для перестановки Первого и последнего слова. Т.е поменять местами первое и последнее слово. Сегодня узнал от препода что слова могут быть не только наборы букв,но и цифры (фыы2312 2325DFGA55 9999 1111аrt 22222)
Как засунуть в мой макрос что бы цифры тоже считал?
И можно ли его упростить ибо он меня пугает.
Private Sub DoIt_Click()
End Sub

Я бы сделал так. В первом приблежении.

'
sub DoIt_Click()
   stroka = TB_S.Text
   stroka2=""
   for n=2 to words(stroka)-1
      stroka2=stroka2 & " " & word(stroka,n)
   next n
   stroka2=word(stroka,words(stroka)) & stroka2
   stroka2=stroka2 & " " & word(stroka,1)
end sub

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

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

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

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

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

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

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

Function word(str, Number) As String
    On Error Resume Next
    word = Split(Application.Trim(Replace(str, vbTab, " ")), " ")(Number - 1)
End Function

[tae1980]

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

Я бы сделал так. В первом приблежении.
[CODE]'
sub DoIt_Click()
stroka = TB_S.Text
stroka2=""
for n=2 to words(stroka)-1
stroka2=stroka2 & " " & word(stroka,n)
next n
stroka2=word(stroka,words(stroka)) & stroka2
stroka2=stroka2 & " " & word(stroka,1)
end sub

А это решение на rexx'се. Что вдруг захотелось написать. :))
/**/
stroka='фыы2312 2325DFGA55 9999 1111аrt 22222'
stroka2=word(stroka,words(stroka))' 'SUBWORD(stroka,2,words(stroka)-2)' 'word(stroka,1)
say stroka2

Надо бы аналог SUBWORD в VBA написать... :))

[Bombastick]

Дело в том что нужно что бы она читала с TB_X (запускаю макрос ввожу в TB_X фразу, любую даже с цифрами, и оно должно поменять местами первое и последнее слово, а у меня меняет только слова с буквенным набором, а цифры не меняет((

[Aent]

Если не нужно сохранять лидирующие пробелы

Public Function RevWord(s As String) As String
    Dim v As Variant
    Dim t As String
    v = Split(Trim$(s), " ")
    t = v(0): v(0) = v(UBound(v)): v(UBound(v)) = t
    RevWord = Join(v, " ")
End Function

[Bombastick]

Всем спасибо) нашел ошибку, там просто нужно было отсечь пробелы впереди и в конце. До этого если перед словом стоял пробел то он как бы их местами заменял)) как то так)