VB6格式化字符串問題

Question

我的問題很簡單..
我怎麼樣"445B986D2DD3B41852964ABA11408E82"字符串轉換爲445B9-86D2D-D3B41-85296-4ABA1-1408E82

Answer 1

爲什麼不應該在格式'#####-#####-#####-#####-#####-############（最後的事情並不重要） T優只需添加破折號：

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 2

您可以使用MID（），左（），右（）函數和連接操作符（&）。例如：

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 

Answer 3

下面是使用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 4

可以使用與該掩模的maskedinput文本框，但maxlenght爲64，或我可以發送一個由我製作的超文本框，有很多改進