[VB6 ] 請教比對字串

看板Visual_Basic作者 (胖翔~台灣黑熊代言人XD)時間8年前 (2016/05/19 16:48), 編輯推噓0(006)
留言6則, 2人參與, 最新討論串1/1
請教各位 我有一支程式,想要比對檔名正確後才執行 例如 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

05/19 18:09, , 1F
如果你所有的檔名都是abc_123_xyz這樣的
05/19 18:09, 1F

05/19 18:09, , 2F
(1) 讀取所有檔名 (2) 對每一檔名,切成三段
05/19 18:09, 2F

05/19 18:09, , 3F
(3) 對三段分別比對輸入1, 2, 3
05/19 18:09, 3F

05/19 18:10, , 4F
(4) 如果都符合就是目標檔案
05/19 18:10, 4F

05/19 18:10, , 5F
你可以各段分別用instr()做
05/19 18:10, 5F

05/20 01:47, , 6F
感謝~~~
05/20 01:47, 6F
文章代碼(AID): #1NFNt6Kc (Visual_Basic)