Соединение строк в одну с указанным условием для сортировки - 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