Как преобразовать строку, удалив в ней группы цифр, а группы букв отделить пробелами. Упорядочить полученную последовательность слов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д