Re: [VB6 ] 檔名過濾器
: → MOONRAKER:(1)使用filesystemobject讀取檔名
: → MOONRAKER:(2)使用regex類別建立正規表示式, 過濾取得的檔名
參考程式
Sub abc()
Set fshandle = CreateObject("scripting.filesystemobject")
Set fld0 = fshandle.getfolder("C:\inetpub\catalog.wci")
Set regex0 = New regexp
regex0.Pattern = "^0001\w*"
i = 1
For Each f In fld0.Files
If regex0.Test(f.Name) Then
Cells(i, 2) = f.Name
i = i + 1
End If
Next
End Sub
執行以前記得到「設定引用項目」裡面，把
microsoft vbscript regular expressions 5.5
勾起來。
getfolder()裡面是目標路徑，regex0.pattern是regular expression，你可以任改。
- 開頭的 ^ 表示字串開頭，不加就會match任何位置的 0001\w* 。
- 0001就是0001，沒有什麼特別。
- \w 是任意字元的意思，後面加 * 表示重覆 0 到無限次。
- 整個意思就是符合「開頭是0001，後面接什麼都可以，沒有也可以」的字串
詳細用法請爬文一下，看敝人稍早的post有提到「黑暗執行緒」的regex介紹，或看
http://msdn.microsoft.com/en-us/library/ms974570.aspx#scripting05_topic2
如果看不下去（我也認為很難看），請跳過前面看後面的對照表，
或自己搜尋VB6 regex或VB scripting regex。
--
BATCH 03 : 買張床 - 切達大俠 - 伐木人之歌 - http://tinyurl.com/3zpyx5
[B4準備中]: 謳歌金錢(7/02) - 單車超人(7/23) - http://tinyurl.com/66v6vq
[ 番外篇 ]: 包租婆也有過當羅莉的時候(7/17) - http://tinyurl.com/6j4ale
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
■ 蒙帝派松正體中文計畫 ■ Spam-a-lot and enjoy the pythonesque delight!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ http://www.youtube.com/user/JamesBondXD▄▄
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.120.168.228
→
02/02 18:13, , 1F
02/02 18:13, 1F
→
02/02 18:14, , 2F
02/02 18:14, 2F
推
02/03 13:26, , 3F
02/03 13:26, 3F
推
02/03 13:52, , 4F
02/03 13:52, 4F
→
02/03 13:52, , 5F
02/03 13:52, 5F
→
02/03 17:22, , 6F
02/03 17:22, 6F
→
02/03 17:25, , 7F
02/03 17:25, 7F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 4 篇)：