作者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