作者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/cn.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