M_Cmd：内部処理

ワイルドカード変換

'==============================================================================
' 内部処理
'==============================================================================
' ワイルドカード変換
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' RepExp→findstr
'------------------------------------------------------------------------------
Private Function PF_Cmd_ReturnWildCardRegExp2FindStr( _
        ByVal aSrchPtn As String) As String
    Dim wkRtn As String: wkRtn = aSrchPtn
    Dim wkTmpAry As Variant, wkTmp As Variant
    
    If M_String.F_String_GetSplit(wkTmpAry, wkRtn, "|", aIncChkFlg:=True) = True Then
        wkRtn = ""
        
        For Each wkTmp In wkTmpAry
            If wkTmp <> "" Then
                wkRtn = wkRtn & " " & wkTmp
            End If
        Next wkTmp
    End If
    
    PF_Cmd_ReturnWildCardRegExp2FindStr = wkRtn
End Function