|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
2008-09-10, 09:04 AM | #1 |
註冊會員
|
討論 - 那種軟體工具 可以辨識目錄或檔案名稱是簡體字?
經常我們會下載到一些 各式各樣的檔案或網頁 ~但是檔名 或目錄卻是簡體字的.
久而久之 硬碟中到處都有 檔名 和目錄是以簡體字命名的 這些檔案在處理上很不方便~ 我想要找一個工具 可以自動列出清單 那些目錄或檔案名稱 中是是有出現簡體字的. 最好是一次掃瞄就 能列出清單 (就像掃毒軟體一樣). 這樣就不必目視檢查 可以用 ConvertZ.exe 來轉換為繁體了 請問有這種的小工具ㄇ? |
送花文章: 169,
|
2008-09-10, 08:17 PM | #2 (permalink) |
管理版主
|
那 日文 及其他語言呢?
其實您會 VB 可以試著自己做看看的 原理是 將得到的字串印到一般的 Lable上 如果一個字串中有非 英文及正體中文 字出現 就會顯示成 ? (最後再搜尋是否有 ? 字元出現即可) ====================== 至於如何得到檔案與目錄名稱 以下示範請自行理解應用 Public fso As Object Public rootFolder As Object 'Folder Public thisFile As Object 'Files Public fi Dim FI_Name() as String Set fso = CreateObject("Scripting.FileSystemObject") Set rootFolder = fso.GetFolder(PathIs) Set thisFile = rootFolder.Files ReDim FI_Name(0) iTotal = -1 For Each fi In thisFile iTotal = iTotal + 1 ReDim Preserve FI_Name(iTotal) FI_Name(iTotal) = fi.Name Next 最後就得到 這個目錄下所有的 檔案名稱 FI_Name rootFolder.Name 則是 PathIs 下的目錄名稱 |
送花文章: 1999,
|
向 mini 送花的會員:
|
sob790717b (2008-09-11)
感謝您發表一篇好文章 |
2008-09-11, 01:47 PM | #3 (permalink) |
註冊會員
|
ha ha不急用, 本想偷懶一下又被mini版主發現了 ...echo
晚上自己動手豐衣足食. 把上次寫的可逐字元檢查的小工具 和遞迴目錄 就可以掃出 路徑名和檔名. 日文的網頁 和檔案我比較少. 簡體的比較多. 不只有日文會有 ? ~ 某些歐洲人的寫vb專案 和網頁 , 在繁體xp下 我也常時有發現 ? 的符號. 基本上判斷法 還是以陳國強的繁簡內碼對照表 比較安全可靠, 因為網頁的charset=...設定經常不一致, 若是參考這個會容易誤判. 若是陳國強的繁簡內碼對照表就不會受影響. 寫ok後再回報. |
送花文章: 169,
|