Соединение строк в одну с указанным условием для сортировки - VB
Формулировка задачи:
Есть например обрывки адреса .64 3.13 3.133 20 как написать программу которая из подобных обрывков будет составлять правильный ip адрес... ума не приложу как это провернуть(( подскажите алгоритм или наведите на путь истинный... пробовал все числа отделять от точек потом поочередно склеивать и проверять какие получаются <=255, но потом проблема как их в нужном порядке записать тоесть не потерять закономерность точек указанных в обрывках...
Решение задачи: «Соединение строк в одну с указанным условием для сортировки»
textual
Листинг программы
Private Sub Command1_Click() a$ = ".22" b$ = "3.13" c$ = "3.33" d$ = "20" Dim mas$(3), part$() Dim good$ mas(0) = a mas(1) = b mas(2) = c mas(3) = d For i = 0 To 3 For j = 0 To 3 If j <> i Then For k = 0 To 3 If k <> i And k <> j Then m = 6 - i - j - k st = mas(i) & mas(j) & mas(k) & mas(m) part = Split(st, ".") t = 0 For n = 0 To 3 If IsNumeric(part(n)) Then If Val(part(n)) > 255 Then t = 1: Exit For End If Next If t = 0 Then good = good & st & " - " & Chr(Asc("a") + i) & _ " " & Chr(Asc("a") + j) & " " & Chr(Asc("a") + k) & _ " " & Chr(Asc("a") + m) & vbCrLf End If Next End If Next Next MsgBox good End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д