作者arthurs21 ( )
看板EZsoft
標題Re: [問題] 把.txt檔名自動改為內文第一行文
時間Tue Jan 22 17:33:45 2008
: 推 ckw:好像一次只能拉一個檔，可以拉多個嗎？@@ 01/22 09:06
: → ckw:喔不對，拉多個的時候只有一個檔名會被改，可能會改錯@@ 01/22 09:07
既然有這種問題於是我又手癢了！
用法如我上一篇說的～
程式碼如下：（複製後存成*.vbs）
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Wscript.Arguments.Count <> 0 Then
Dim FilePath()
For i = 0 to Wscript.Arguments.Count - 1
Redim Preserve FilePath(i)
FilePath(i) = Wscript.Arguments(i)
Set opFile = objFSO.OpenTextFile(FilePath(i))
Line1 = opFile.ReadLine
opFile.Close
Set objFile0 = objFSO.GetFile(FilePath(i))
path = objFSO.GetParentFolderName(objFile0)
ext = objFSO.GetExtensionName(objFile0)
newpath = path & "\" & Line1 & "." & ext
objFSO.MoveFile FilePath(i), newpath
Next
End If
結束，敬請指教
附上檔案：
http://www.badongo.com/file/7428742
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.121.98.201
1F：推 yinjing:純推 (￣▽￣＃)﹏﹏ 01/22 19:41
2F：推 imbbc2:讚 01/22 23:02
3F：→ LinAdam:unicode的txt是不是不能轉呢? 01/22 23:57
4F：→ LinAdam:同樣內容 ansi的可以 存成unicode的就會變無檔名了 01/23 00:01
5F：→ arthurs21:FileSystemObject 似乎不支援讀取unicode檔,要另想辦法. 01/23 18:22
7F：→ arthurs21:今天逛MSDN時發現可以支援讀取UCS-2 Little-Endian格式 02/29 18:14
8F：→ arthurs21:只是還要寫程式來判斷是ANSI還是unc的 02/29 18:15