Как преобразовать строку, удалив в ней группы цифр, а группы букв отделить пробелами. Упорядочить полученную последовательность слов - VB

Узнай цену своей работы

Формулировка задачи:

Дана текстовая строка, состоящая из букв и цифр. Преобразовать строку, удалив в ней группы цифр, а группы букв отделить пробелами. Упорядочить полученную последовательность слов.Помогите с задачей, пожалуйста

Решение задачи: «Как преобразовать строку, удалив в ней группы цифр, а группы букв отделить пробелами. Упорядочить полученную последовательность слов»

textual
Листинг программы
Option Explicit
'
'   © JoraVoenyjHaker
'
Public Sub example()
    Const z = ",", zz = ",,"
    Dim exampletext$, f&, s$, sn$, st$
    '----------------
    exampletext = InputBox("Введите строку..", , "abc123def456ijk78")
    For f = 1 To Len(exampletext)
        s = Mid(exampletext, f, 1)
        If IsNumeric(s) Then
            If st <> "" Then st = st & z: st = Replace(st, zz, z)
            sn = sn & s
        Else
            If sn <> "" Then sn = sn & z: sn = Replace(sn, zz, z)
            st = st & s
        End If
    Next
    '----------------
    MsgBox st & sn
End Sub
 
Sub main()
    example
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы