ワイルドカードの形式と一致する文字列を検索          <TOP>


PathMatchSpec ワイルドカードの形式と一致する文字列を検索
 

 

'================================================================
'= ワイルドカードの形式と一致する文字列を検索
'=    (PathMatchSpec2.bas)
'================================================================
#include "Windows.bi"

' ワイルドカードの形式と一致する文字列を検索
Declare Function Api_PathMatchSpec& Lib "shlwapi" Alias "PathMatchSpecA" (ByVal pszFile$, ByVal pszSpec$)

Var Shared Edit1 As Object
Var Shared Edit2 As Object
Var Shared Text1 As Object
Var Shared Button1 As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Edit2.Attach GetDlgItem("Edit2") : Edit2.SetFontSize 14
Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Edit1.SetWindowText "c:\dir\file.ext"
    Edit2.SetWindowText "*.e?t"
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var sSave As String
    Var sCard As String
    Var Ret As Long

    sSave = Edit1.GetWindowText & String$(100, 0)
    sCard = Edit2.GetWindowText

    Ret = Api_PathMatchSpec(sSave, sCard)
    
    If Ret = 0 Then
        Text1.SetWindowText "False"
    Else
        Text1.SetWindowText "True"
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End