VB6格式化字符串问题

发布于 2024-11-28 18:11:18 字数 213 浏览 1 评论 0原文

我的问题很简单..
如何将 "445B986D2DD3B41852964ABA11408E82" 之类的字符串转换为 445B9-86D2D-D3B41-85296-4ABA1-1408E82
它的格式应为 '#####-######-#####-#####-#####-########## ##（最后的事情没关系）

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

复古式 2024-12-05 18:11:18

的方法

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

这是使用 MOD和使用 STEP

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

Here is a method using 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

and using STEP

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

回复收藏 0 原文

情绪少女 2024-12-05 18:11:18

为什么不直接添加破折号：

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)

Why don't you just add the dashes:

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)

回复收藏 0 原文

笑红尘 2024-12-05 18:11:18

您可以使用 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

You may use Mid(), Left(), Right() functions and concatenate operator (&). E.g:

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

回复收藏 0 原文