【VBA】NW機器コンフィグ解析汎用関数@範囲解釈

NW機器のコンフィグをミスなく設定するのはなかなか注意力のいる作業ですよね。
作成したコンフィグがあっているかプログラムで解析できれば、という場面もあるかと思います。
そんな場面で役立てたら・・・という記事になります。

NW機器ではコンフィグに
「1/0/1-4,1/0/5,1/0/10-24」のように
「ハイフンで範囲を指定した表記」で設定が行われているかと思います。

この「範囲の解釈」を行う汎用的な関数(VBA)を作成しましたので
公開したいと思います。

※ひとまずの公開となります。
作り込みができておらずやや雑な処理になっておりますので
今後フォローアップできればと思います。

'------------------------------------------------------------------------------
' @brief 「1/0/1-2,4」といった文字列をF,T,T,F,T,....の配列にして返す。
'         2/0/1や1/1/1に対応するにはReplace関数を追加すること。
' @param rangeStr[in] 処理したい文字列を渡す(例)1/0/1-2,4
' @param rangeFlg[out] rangeStrを解釈し、boolの配列にして返す。
'        (例)1/0/1-2,4を渡すと 配列添字0から順に「F,T,T,F,T,F,F,F...」となる。
'        添字0 は 1/0/0 の内容を指す点に注意
'------------------------------------------------------------------------------
Function GetRangeFlg(rangeStr As String) As Boolean()
    Dim rangeFlg(128) As Boolean
    Dim rangeStrs() As String
    Dim tmp As String
    tmp = Replace(rangeStr, "po", "")
    rangeStr = Replace(tmp, "1/0/", "")
    rangeStrs = Split(rangeStr, ",")
    
    Dim cnt As Integer
    For cnt = 0 To UBound(rangeFlg) - 1
        rangeFlg(cnt) = False
    Next
    
    If rangeStr = "-" Then
        GetRangeFlg = rangeFlg
        Exit Function
    End If
    
    Dim s As Variant
    For Each s In rangeStrs
        If InStr(s, "-") <> 0 Then
            Dim ss() As String
            ss = Split(s, "-")
            
            Dim head As Integer
            Dim tail As Integer
            head = CInt(ss(0))
            tail = CInt(ss(1))
            
            Dim i As Integer
            For i = head To tail
                rangeFlg(i) = True
            Next
        Else
            rangeFlg(CInt(s)) = True
        End If
    Next
    
    GetRangeFlg = rangeFlg
End Function

'------------------------------------------------------------------------------

' @brief 「1/0/1-2,4」といった文字列をF,T,T,F,T,....の配列にして返す。

' 2/0/1や1/1/1に対応するにはReplace関数を追加すること。

' @param rangeStr[in] 処理したい文字列を渡す(例)1/0/1-2,4

' @param rangeFlg[out] rangeStrを解釈し、boolの配列にして返す。

' (例)1/0/1-2,4を渡すと配列添字0から順に「F,T,T,F,T,F,F,F...」となる。

' 添字0 は 1/0/0 の内容を指す点に注意

'------------------------------------------------------------------------------

Function GetRangeFlg(rangeStr As String) As Boolean()

Dim rangeFlg(128) As Boolean

Dim rangeStrs() As String

Dim tmp As String

tmp = Replace(rangeStr, "po", "")

rangeStr = Replace(tmp, "1/0/", "")

rangeStrs = Split(rangeStr, ",")

Dim cnt As Integer

For cnt = 0 To UBound(rangeFlg) - 1

rangeFlg(cnt) = False

If rangeStr = "-" Then

GetRangeFlg = rangeFlg

Exit Function

End If

Dim s As Variant

For Each s In rangeStrs

If InStr(s, "-") <> 0 Then

Dim ss() As String

ss = Split(s, "-")

Dim head As Integer

Dim tail As Integer

head = CInt(ss(0))

tail = CInt(ss(1))

Dim i As Integer

For i = head To tail

rangeFlg(i) = True

Else

rangeFlg(CInt(s)) = True

End If

GetRangeFlg = rangeFlg

End Function

ynarita

プログラム・サーバ・NWなどコンピュータ関連ならなんでも食べます。
ゲームをいくら積んでも崩れないゲーマーの河原在住。

Blog

【VBA】NW機器コンフィグ解析汎用関数@範囲解釈

共有: