作者arthurs21 ( )
看板EZsoft
标题Re: [问题] 把.txt档名自动改为内文第一行文
时间Tue Jan 22 01:20:48 2008
: 推 mosquito520:自己写个程式比较快... 01/21 14:07
: → xvid:推楼上. 01/21 14:15
: → pc80015:不知道怎麽写啊Orz" 01/21 19:40
抱歉,看到很多人回覆一时手痒~就写了这只vbs
把你的txt档拖到这只vbs身上就会改名了
以下程式码: (复制程式码存成*.vbs就行)
Set objFSO = CreateObject("Scripting.FileSystemObject")
DirPath = WScript.Arguments(0)
Set opFile = objFSO.OpenTextFile(DirPath)
Line1 = opFile.ReadLine
opFile.Close
Set objFile0 = objFSO.GetFile(DirPath)
path = objFSO.GetParentFolderName(objFile0)
ext = objFSO.GetExtensionName(objFile0)
newpath = path & "\" & Line1 & "." & ext
objFSO.MoveFile DirPath, newpath
结束,敬请指教!!
直接附上档案:
http://www.badongo.com/file/7419024
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.104.96.153
※ 编辑: arthurs21 来自: 59.104.96.153 (01/22 01:26)
1F:推 ateclean:推推推 01/22 01:26
忘了把Debug 的Msg去掉改修一下~(其实没影响)
※ 编辑: arthurs21 来自: 59.104.96.153 (01/22 01:32)
2F:推 davidboy12:真的很好用!!~ 01/22 03:00
3F:推 pc80015:真是太感谢了^^!我收下罗 01/22 04:24
4F:推 ckw:好像一次只能拉一个档,可以拉多个吗?@@ 01/22 09:06
5F:→ ckw:喔不对,拉多个的时候只有一个档名会被改,可能会改错@@ 01/22 09:07