推 geant737:謝謝您的指導唷！我會試著嘗試看看唷！太強了～謝謝嚕！ 11/02 00:43
※ 引述《geant737 (Giambi)》之銘言：
: 各位大大晚安～
: 小弟目前有個問題需要解決！
: 不知道是否可以實現！
: 假設我有一個文字檔123.txt
: 其內容為：
: d:\test\567.avi
: d:\test\582.avi
: d:\test\8596.avi
: 我想要將檔案自動變成
: d:\test\567.avi d:\testAA\567.txt
: d:\test\582.avi d:\testAA\582.txt
: d:\test\8596.avi d:\testAA\8596.txt
: 原本小弟要自己一行一行key in進去～
: 可是～後來發現有好幾千行～
: 要貼到天荒地老了！
: 不知道這樣子的方法可不可以實現呢？
: 謝謝！
給你參考一下
你是要將test->testAA
還是要在每一行最後加上新的路徑
(不過應該都是一樣的)
Dim tempText As String
Dim total As String
Open "C:\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, tempText
total = total + Replace(tempText, "\test\", "\testAA") + vbCrLf
Wend
Close #1
Open "C:\test.txt" For Output As #1
Print #1, total
Close #1
不過這方法有個問題
如果你的路徑是 C:\test\test\...
就會變成 C:\testAA\testAA\...
另外不確定這方法在幾千行的時候會不會出錯
另一個方法就是把這個文字檔設成DataBase
然後用DataBase的方式處理
(如果第一個方法不行的話)
--
我的Blog
http://clubtblog.blogspot.com
我的巴哈小站
http://home.gamer.com.tw/clubt
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.126.109.30