Нужно разделить текст в формате 1-1-1 на части, оператор который ет делает я знаю(split)
но проблема втом что юзер может набрать 1-1-1-1 или 1-1
нужно сделать проверку на наличие 2 дефисов, а через for слишком муторно и в лом
вот код как я сделал, но его проидется вставлять во много мест, а он длинный:
- Код: Выделить всё
q = 0
For z = 1 To Len(txtNacMest.Text)
a = Mid(txtNacMest.Text, z, 1)
If a = "-" Then
q = q + 1
End If
Next z
If q <> 2 Then
Msgbox "Error"
Exit Sub
End If
Dim s() As String
s = Split(txtNacMest.Text, "-")
w1 = Format(s(0), "000")
w2 = Format(s(1), "000")
w3 = Format(s(2), "000")
txtNacMest.Text = w1 & "-" & w2 & "-" & w3
End If
через модуль можно, но ламает
