※ 引述《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