[VB6 ] 請教比對字串

作者: JLin1202 (胖翔~台灣黑熊代言人XD)   2016-05-19 16:48:03
請教各位
我有一支程式,想要比對檔名正確後才執行
例如 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
感謝幫忙~~~
作者: MOONRAKER (㊣牛鶴鰻毛人)   2016-05-19 18:09:00
如果你所有的檔名都是abc_123_xyz這樣的(1) 讀取所有檔名 (2) 對每一檔名,切成三段(3) 對三段分別比對輸入1, 2, 3(4) 如果都符合就是目標檔案你可以各段分別用instr()做
作者: JLin1202 (胖翔~台灣黑熊代言人XD)   2016-05-20 01:47:00
感謝~~~

Links booklink

Contact Us: admin [ a t ] ucptt.com