1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | CLSINPUT "vvedate text"; a$n = LEN(a$): q$ = " ": k = 1FOR i = 1 TO n IF MID$(a$, i, 1) = q$ THEN k = k + 1NEXTDIM b(k), e(k - 1), d$(k)FOR i = 1 TO n IF MID$(a$, i, 1) = q$ THEN r = r + 1: e(r) = iNEXTFOR i = 1 TO k SELECT CASE i CASE IS = 1 d$(1) = MID$(a$, 1, e(1) - 1) CASE IS = k d$(k) = MID$(a$, e(r) + 1, n) CASE 2 TO (k - 1) d$(i) = MID$(a$, e(i - 1) + 1, e(i) - e(i - 1) - 1) END SELECTNEXTSWAP d$(1), d$(3)FOR i = 1 TO k v$ = v$ + " " + d$(i)NEXTPRINT v$ |
Тестирование выполнено в программе QB64 ( Скачать )