• Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Тема: Как изменить порядок чередования букв в тексте?

Существует текст "1234567 89".
Задача: програмно изменить порядок чередования букв, т.е. получить текст "98 7654321".

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Как изменить порядок чередования букв в тексте?

Public Function ReverseStr(ByVal str As String) As String
Dim k As Long, tempStr As String
tempStr = ""
For k = 1 To Len(str)
    tempStr = Mid(str, k, 1) & tempStr
Next
ReverseStr = tempStr
End Function

  • Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: Как изменить порядок чередования букв в тексте?

bender !
Спасибо !!!