[VB6 ] 請教比對字串

[JLin1202 (胖翔~台灣黑熊代言人XD)]

請教各位

我有一支程式,想要比對檔名正確後才執行

例如 ABCDE_12345_zzzzz.exe

現在寫的程式可執行

如果想模糊比對改如何修改

如 ABCDE_12345_zzzzz.exe

我只要第一欄位輸入ABC

第二欄位輸入123

第三欄位輸入zz

就可以找到檔案這樣

Private Sub cmd_exe_Click()

    If Dir(strBatPath & txt_info(0) & "_" & txt_info(1) & "_" & txt_info(2) &
".exe") = "" Then
        lblMsg.Caption = "無此執行檔"
        Exit Sub
    End If

    Shell strBatPath & txt_info(0) & "_" & txt_info(1) & "_" & txt_info(2) &
".exe", vbNormalFocus
    End

End Sub


感謝幫忙~~~

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.251.196.233
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1463647686.A.526.html
→ MOONRAKER: 如果你所有的檔名都是abc_123_xyz這樣的
→ MOONRAKER: (1) 讀取所有檔名 (2) 對每一檔名，切成三段
→ MOONRAKER: (3) 對三段分別比對輸入1, 2, 3
→ MOONRAKER: (4) 如果都符合就是目標檔案
→ MOONRAKER: 你可以各段分別用instr()做
→ JLin1202: 感謝～～～