作者JLin1202 (胖翔~台灣黑熊代言人XD)
看板Visual_Basic
標題[VB6 ] 請教比對字串
時間Thu May 19 16:48:03 2016
請教各位
我有一支程式,想要比對檔名正確後才執行
例如 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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1463647686.A.526.html
1F：→ MOONRAKER: 如果你所有的檔名都是abc_123_xyz這樣的 05/19 18:09
2F：→ MOONRAKER: (1) 讀取所有檔名 (2) 對每一檔名，切成三段 05/19 18:09
3F：→ MOONRAKER: (3) 對三段分別比對輸入1, 2, 3 05/19 18:09
4F：→ MOONRAKER: (4) 如果都符合就是目標檔案 05/19 18:10
5F：→ MOONRAKER: 你可以各段分別用instr()做 05/19 18:10
6F：→ JLin1202: 感謝～～～ 05/20 01:47