Question

我是VBScript的新手，当我的每组没有三个字符时，我需要找到一种方法来填充一组IP地址。例如，我有一个IP地址＆＃34; 10.67.131.1＆＃34;，我需要将它保存在变量中，如＃34; 010.067.131.001＆＃34;。

我已经有了一个获取IP地址的功能，但我永远不会知道它在哪个组中有多少个字符。所以我需要一个自动填充的功能。

Answer 1

@KenWhite在评论中提出了一个很好的问题，但假设你有充分的理由希望以左边填充方式存储IP地址，那么你当然可以使用VBScript转换为该表单。这是一个简单的功能：

Option Explicit

Function PadGroups(s)
    Dim A,i, group
    A = Split(s,".")

    For i = 0 To UBound(A)
        group = A(i)
        If Len(group) < 3 Then 
            group = String(3-Len(group),"0") & group
            A(i) = group
        End If  
    Next

    PadGroups = Join(A,".")
End Function

'test
MsgBox PadGroups("10.67.131.1" )

功能自动填充

1 个答案: