VB6 Форматирование строки Проблема

Question

Мой вопрос прост ..
Как мне преобразовать строку типа "445B986D2DD3B41852964ABA11408E82" в 445B9-86D2D-D3B41-85296-4ABA1-1408E82
Он должен быть в формате '#####-#####-#####-#####-#####-############ (последнее значение не имеет значения)

Answer 1

Вот метод, использующий MOD

Dim OldStr As String
OldStr = "445B986D2DD3B41852964ABA11408E82"
Dim NewStr As String
For i = 1 To Len(OldStr)
    NewStr = NewStr & Mid(OldStr, i, 1)
    If i Mod 5 = 0 Then
        NewStr = NewStr & "-"
    End If
Next

и с использованием STEP

For i = 1 To Len(st) Step 5
    ss = ss & Mid(st, i, 5) & "-"
Next

Answer 2

Почему бы вам просто не добавить тире:

s = Left(s, 5) + "-" + Mid(s, 6, 5) + "-" + Mid(s, 11, 5) + "-" + Mid(s, 16, 5) _  
               + "-" + Mid(s, 21, 5) + "-" + Right(s, Len(s) - 25)

Answer 3

Вы можете использовать текстовое поле maskedinput с этой маской, но максимальная длина составляет 64, или я могу отправить созданный мной супертекстовый ящик с большим количеством улучшений

Answer 4

Вы можете использовать функции Mid (), Left (), Right () и оператор сцепления (&). Например:

dim str
str = "12345678"
str = Left(str, 2) &"-"& Mid(str, 2, 2) & "-"& Mid(str, 4, 2) & "-"&Right(str, 2)
MsgBox str ' the output will be 12-34-56-78