Re: [請問] 讀取檔案內部的資訊重新為檔案命名?
vbs版本請享用，直接把要改的檔案圈起來拖到VBS上即可！
PS:是參考之前.txt第一行變檔名改的
-------8<-------------8<-------------8<-------------8<----------
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
Line2 = opFile.ReadLine
Line3 = opFile.ReadLine
Line4 = opFile.ReadLine
opFile.Close
Set objFile0 = objFSO.GetFile(FilePath(i))
path = objFSO.GetParentFolderName(objFile0)
ext = objFSO.GetExtensionName(objFile0)
newpath = path & "\" & Line4 & "." & ext
objFSO.MoveFile FilePath(i), newpath
Next
End If
-------8<-------------8<-------------8<-------------8<-----------
※ 引述《janleon (老虎鴨亮ㄟ)》之銘言：
: 事情是這樣的......
: 我們學校有一個儀器叫做XRD
: 放一個樣品進去會掃出一個資料
: 比方說這次產生的資料名子叫做:
: 123.raw -----這可以用記事本開啟
: 然後我們再把裡面的資料複製出來作圖這樣
: 但是呀...這台機器他很不聰明，每次掃出來的檔案名稱都跟我們取的不一樣
: 我們就要一個個把檔案打開看看是啥再重新命名
: 舉例:
: 我今天取名 janleon001
: 儀器給我的檔名是 A1234567.raw ------好像是機器給的流水號...囧
: 我回去之後把這檔案用記事本打開
: 看到:
: ========================================
: .RAW
: 27-AUG-09
: 00:48:14
: janleon001
: 以
: 下
: 數
: 據.......
: ========================================
: 大家可以發現我取的名稱在第四行
: 我可以從data上打開得知這一份是不是我的數據
: 但是儀器就是不命我取的名子.......<囧>
: 如果說今天有100個人做實驗的話
: 就會有超過100個檔案...太恐怖了@@
: 有沒有善心人士可以提供解決的方案
: 可以一瞬間為全部的檔案依照第四行的名子個別去做全部轉換的類似程式...?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.251.124.206
→
09/03 13:49, , 1F
09/03 13:49, 1F
討論串 (同標題文章)
完整討論串 (本文為第 4 之 4 篇)：