如何開啟檔案並加字後存檔- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1743

會員總數：246323
討論主題：189852

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB6 >> 如何開啟檔案並加字後存檔

[]

[我要回覆]

12 最後一頁(2)

如何開啟檔案並加字後存檔
價值 : 400 QP 點閱數:262 回應數:24

樓主

lkkjuly

0	1
40	10

發送站內信

請問在檔案總管下，有個小說檔，檔內共有3000個檔，想在每個檔的後面，加上「本章結束」四個字，VB要如何寫？它才會乖乖聽話，謝謝！高手！

搜尋相關Tags的文章： [ 開啟檔案 ] ,
本篇文章發表於2021-04-08 10:14

1樓回應 MIS2000 Lab	這裡有答案將文字附加至檔案 - File.AppendText(String) 方法 https://docs.microsoft.com/zh-tw/dotnet/api/system.io.file.appendtext?view=netframework-4.8#System_IO_File_AppendText_System_String_ 本篇文章回覆於2021-04-08 20:12 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應 lkkjuly	我的資質太差，簡單講就是不懂VB，因此看不懂，我的想法是在d:\有個小說檔，檔內共有3000個檔，想在每個檔的後面，加上「本章結束」四個字，用VB要如何才會乖乖聽話，謝謝！高手！本篇文章回覆於2021-04-09 06:48 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應 MIS2000 Lab	(1) 你在這個目錄底下，用迴圈逐一開啟每一個檔案 https://docs.microsoft.com/zh-tw/dotnet/api/system.io.directory?view=netframework-4.8 (2) 每一個檔案的最後，附加（append）這一段字 https://docs.microsoft.com/zh-tw/dotnet/api/system.io.file.appendtext?view=netframework-4.8#System_IO_File_AppendText_System_String_ 講完了上面兩個步驟所需要的程式，在 System.IO裡面都可以找到類似範例喔我記得以前微軟官方範例都會提供 C# / VB 兩種範例給大家參考本篇文章回覆於2021-04-09 08:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓作者回應 lkkjuly	3樓講的，真的看不懂，不知所云，我要的是vb的語法，沒看過什麼叫　system.io.謝謝啦！　本篇文章回覆於2021-04-09 18:49 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓回應 P陳	1.開啟3000個檔案的寫法 Dim FileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String) FileList = My.Computer.FileSystem.GetFiles("C:\...\小說目錄", FileIO.SearchOption.SearchTopLevelOnly, "Mj.txt") 2.每個檔案打開 For each FileName1 as string in filelist 讀入 Readstr = My.Computer.FileSystem.ReadAllText(FileName1) 加字串 Readstr &= " 文章終了謝謝收看" 寫回 My.Computer.FileSystem.WriteAllText(FileName1, Readstr, False) next 3.3#給您的寫法直接加入 " 文章終了謝謝收看" For each FileName1 as string in filelist My.Computer.FileSystem.WriteAllText(FileName1, " 文章終了謝謝收看", true) next 4.不知什麼是 system.io 只能説程式這條路不好走，您更應該加油，Google 是您的好伙伴。 5. 建議：我們的提問在這裏沒人有義務要回答的。當看不懂他人回應時，我們可以再往下問、往下討論(也許有其他人回覆)。十多年來我由提問者，經驗累積後慢慢走到回應者。希望有朝一日，可以看到您也在此回應他人的問題。本篇文章回覆於2021-04-10 20:37 == 簽名檔 ==* --未登入的會員無法查看對方簽名檔--
6樓回應 P陳	知道了您的是 VB6 ，微軟已不再支援了 VB6，建議改成 vb.net (也是免費的) 5樓的程式在VB6 不一定能跑。(我沒玩過VB6) 本篇文章回覆於2021-04-10 20:39 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓回應香帥	程式碼如下，並測試ok Dim fname As String Dim a() As String Dim i As Long Dim d As String d = "d:\天龍八部\" i = -1 fname = Dir(d, vbDirectory) While fname <> "" If fname <> ".." And fname <> "." Then If (GetAttr(d + fname) And vbDirectory) = vbDirectory Then Else i = i + 1 ReDim Preserve a(i) a(i) = d + fname End If End If fname = Dir() Wend Dim j As Long Dim f As Integer For j = 0 To i f = FreeFile Open a(j) For Append As #f Print #f, "" '如果您的小說最後一行沒有換行，避免本章結束，跟文章混在一起，加入本行程式碼給予換行 Print #f, "本章結束" Close #f DoEvents Next MsgBox "共寫入" & Str(j) & "個檔案" 本篇文章回覆於2021-04-11 15:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓作者回應 lkkjuly	感謝7樓的前輩，我的小說是放在d:\01-小說檔\葉皓軒\"，我把您的天龍八部改了，執行的結果是第13行ReDim Preserve a(i)"編譯錯誤。變數未定義。要如何修正呢？謝謝！又如果本題，開檔後，每個的內容最前面要加上檔名時，又如何？謝謝您！本篇文章回覆於2021-04-12 08:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓作者回應 lkkjuly	感謝5樓主的指教，我喜歡看小說，但又不想用眼睛看，在網路下載了小說它是txt檔，我它轉成word檔後，開啟第一章用插入的方式，合併到第50章，合併好的文章，用balapolka 的軟件把它轉成聲音檔，再把聲音檔複製到微型sd卡，插入小的MP3播放器，不論走路，吃飯，運動或坐車，都可以聽小說。不過合併後的文章，次序有時會錯亂，而balapolka 這軟件，可以拫據文章中的關鍵字，把整個合併的文章分段分割成你要的聲音檔。 WORD每個檔一個一個打開後，加上關鍵字是可以，但是要加到2000個時，不但費時還會搞錯，因此就想是否用程式來處理，一次搞字，vb在年青時，大約50年前有接觸過，但沒學好，如果現在要從頭學起，那到進棺材之前也學不好，所以上來這個專欄請教高手，沒想到大家那麼熱烈的給我指教，非常感動。謝謝！祝大家健身體健康！工作愉快！本篇文章回覆於2021-04-12 09:41 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓回應香帥	vb6建議還是要學，因為所有excel vba 巨集還是停留在vb6，是辦公室軟體按一個鍵就直接執行的好工具。 7樓我是用excel vba測試的，指令多跟vb6依樣若不行，可改以下 Dim fname As String Dim a(10000) As String '一萬部小說 Dim i As Long Dim d As String d = "d:\天龍八部\" i = -1 fname = Dir(d, vbDirectory) While fname <> "" If fname <> ".." And fname <> "." Then If (GetAttr(d + fname) And vbDirectory) = vbDirectory Then Else i = i + 1 'ReDim Preserve a(i) a(i) = d + fname End If End If fname = Dir() Wend Dim j As Long Dim f As Integer For j = 0 To i f = FreeFile Open a(j) For Append As #f Print #f, "" '如果您的小說最後一行沒有換行，避免本章結束，跟文章混在一起，加入本行程式碼給予換行 Print #f, "本章結束" Close #f DoEvents Next MsgBox "共寫入" & Str(j) & "個檔案" 本篇文章回覆於2021-04-13 08:48 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓作者回應 lkkjuly	感謝7樓主的用心，現在已經在聽小說了，是用手工一個一個加上的，但是還是覺得不完善，改個方式，只要能連續開啟2000個檔，並且開檔後，在每一章的最前面，加上該章的檔名就可以了，最後的「本章結束」就不用加了。謝謝！或是幫我寫個VB程式，看要多少費用，直接匯給您，這是我的MAIL：liaocu202@yahoo.com.tw 本篇文章回覆於2021-04-13 11:06 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
12樓回應香帥	或是幫我寫個VB程式，看要多少費用，直接匯給您在這是不必錢的，但我程式碼已經幫您小好在10樓，問題是您要會用，怎會變成用手工一個一個加上的?? 至於文字改寫在前面或替換或插入是另一主題，因為前面您有提到word，建議用word的巨集，也是用到vb 本篇文章回覆於2021-04-13 15:53 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
13樓作者回應 lkkjuly	回復12樓主：你在10樓的程式，我是在ｗｏｒｄ的下面，把您的寫好程式，複製到ｗｏｒｄ　的巨集去執行，但始終沒有得到我要結果，真的是我不會用。之前在文章的末端加上「本章結束」四個字，當文章串起來之後，會有不知小說唸到第幾章的情形，所以才用最笨的方法，我一個一個打開後，再複製檔名到文章之首行，這樣轉成聲音檔後，就很清楚的知道唸到第章了，所以我才想要把檔名放在最前面，如果您能夠為我寫一個完整程式，我就不用不懂裝懂的在測試，也把您的思路搞亂了。簡單講：就是要把小說檔內的２０００個檔，能一次打開，當每個檔打開後，再把檔名加到文章的首行。這樣就達到我的訴求了。謝謝！不好意思麻煩您了。本篇文章回覆於2021-04-13 20:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
14樓回應 P陳	1.WORD 與文字檔的結構是不同的........... 加的方式不一樣。 2.檔名您如果用天龍八部１天龍八部２天龍八部３。。。天龍八部１１天龍八部１２的話就會變成１、１１、１２１８、１９２２０２１ —————————————————————————————————————————— 請用以下的檔名就可以了天龍八部００１天龍八部００２天龍八部００３就可以了本篇文章回覆於2021-04-14 00:00 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
15樓回應香帥	給您的程式碼是所有檔案末端加上「本章結束」四個字，請問有沒成功呢本篇文章回覆於2021-04-14 00:10 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

12 最後一頁(2)

回覆

如要回應,請先登入.

1樓回應 MIS2000 Lab	這裡有答案將文字附加至檔案 - File.AppendText(String) 方法 https://docs.microsoft.com/zh-tw/dotnet/api/system.io.file.appendtext?view=netframework-4.8#System_IO_File_AppendText_System_String_ 本篇文章回覆於2021-04-08 20:12 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應 lkkjuly	我的資質太差，簡單講就是不懂VB，因此看不懂，我的想法是在d:\有個小說檔，檔內共有3000個檔，想在每個檔的後面，加上「本章結束」四個字，用VB要如何才會乖乖聽話，謝謝！高手！本篇文章回覆於2021-04-09 06:48 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應 MIS2000 Lab	(1) 你在這個目錄底下，用迴圈逐一開啟每一個檔案 https://docs.microsoft.com/zh-tw/dotnet/api/system.io.directory?view=netframework-4.8 (2) 每一個檔案的最後，附加（append）這一段字 https://docs.microsoft.com/zh-tw/dotnet/api/system.io.file.appendtext?view=netframework-4.8#System_IO_File_AppendText_System_String_ 講完了上面兩個步驟所需要的程式，在 System.IO裡面都可以找到類似範例喔我記得以前微軟官方範例都會提供 C# / VB 兩種範例給大家參考本篇文章回覆於2021-04-09 08:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓作者回應 lkkjuly	3樓講的，真的看不懂，不知所云，我要的是vb的語法，沒看過什麼叫　system.io.謝謝啦！　本篇文章回覆於2021-04-09 18:49 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓回應 P陳	1.開啟3000個檔案的寫法 Dim FileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String) FileList = My.Computer.FileSystem.GetFiles("C:\...\小說目錄", FileIO.SearchOption.SearchTopLevelOnly, "Mj.txt") 2.每個檔案打開 For each FileName1 as string in filelist 讀入 Readstr = My.Computer.FileSystem.ReadAllText(FileName1) 加字串 Readstr &= " 文章終了謝謝收看" 寫回 My.Computer.FileSystem.WriteAllText(FileName1, Readstr, False) next 3.3#給您的寫法直接加入 " 文章終了謝謝收看" For each FileName1 as string in filelist My.Computer.FileSystem.WriteAllText(FileName1, " 文章終了謝謝收看", true) next 4.不知什麼是 system.io 只能説程式這條路不好走，您更應該加油，Google 是您的好伙伴。 5. 建議：我們的提問在這裏沒人有義務要回答的。當看不懂他人回應時，我們可以再往下問、往下討論(也許有其他人回覆)。十多年來我由提問者，經驗累積後慢慢走到回應者。希望有朝一日，可以看到您也在此回應他人的問題。本篇文章回覆於2021-04-10 20:37 == 簽名檔 ==* --未登入的會員無法查看對方簽名檔--
6樓回應 P陳	知道了您的是 VB6 ，微軟已不再支援了 VB6，建議改成 vb.net (也是免費的) 5樓的程式在VB6 不一定能跑。(我沒玩過VB6) 本篇文章回覆於2021-04-10 20:39 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓回應香帥	程式碼如下，並測試ok Dim fname As String Dim a() As String Dim i As Long Dim d As String d = "d:\天龍八部\" i = -1 fname = Dir(d, vbDirectory) While fname <> "" If fname <> ".." And fname <> "." Then If (GetAttr(d + fname) And vbDirectory) = vbDirectory Then Else i = i + 1 ReDim Preserve a(i) a(i) = d + fname End If End If fname = Dir() Wend Dim j As Long Dim f As Integer For j = 0 To i f = FreeFile Open a(j) For Append As #f Print #f, "" '如果您的小說最後一行沒有換行，避免本章結束，跟文章混在一起，加入本行程式碼給予換行 Print #f, "本章結束" Close #f DoEvents Next MsgBox "共寫入" & Str(j) & "個檔案" 本篇文章回覆於2021-04-11 15:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓作者回應 lkkjuly	感謝7樓的前輩，我的小說是放在d:\01-小說檔\葉皓軒\"，我把您的天龍八部改了，執行的結果是第13行ReDim Preserve a(i)"編譯錯誤。變數未定義。要如何修正呢？謝謝！又如果本題，開檔後，每個的內容最前面要加上檔名時，又如何？謝謝您！本篇文章回覆於2021-04-12 08:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓作者回應 lkkjuly	感謝5樓主的指教，我喜歡看小說，但又不想用眼睛看，在網路下載了小說它是txt檔，我它轉成word檔後，開啟第一章用插入的方式，合併到第50章，合併好的文章，用balapolka 的軟件把它轉成聲音檔，再把聲音檔複製到微型sd卡，插入小的MP3播放器，不論走路，吃飯，運動或坐車，都可以聽小說。不過合併後的文章，次序有時會錯亂，而balapolka 這軟件，可以拫據文章中的關鍵字，把整個合併的文章分段分割成你要的聲音檔。 WORD每個檔一個一個打開後，加上關鍵字是可以，但是要加到2000個時，不但費時還會搞錯，因此就想是否用程式來處理，一次搞字，vb在年青時，大約50年前有接觸過，但沒學好，如果現在要從頭學起，那到進棺材之前也學不好，所以上來這個專欄請教高手，沒想到大家那麼熱烈的給我指教，非常感動。謝謝！祝大家健身體健康！工作愉快！本篇文章回覆於2021-04-12 09:41 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓回應香帥	vb6建議還是要學，因為所有excel vba 巨集還是停留在vb6，是辦公室軟體按一個鍵就直接執行的好工具。 7樓我是用excel vba測試的，指令多跟vb6依樣若不行，可改以下 Dim fname As String Dim a(10000) As String '一萬部小說 Dim i As Long Dim d As String d = "d:\天龍八部\" i = -1 fname = Dir(d, vbDirectory) While fname <> "" If fname <> ".." And fname <> "." Then If (GetAttr(d + fname) And vbDirectory) = vbDirectory Then Else i = i + 1 'ReDim Preserve a(i) a(i) = d + fname End If End If fname = Dir() Wend Dim j As Long Dim f As Integer For j = 0 To i f = FreeFile Open a(j) For Append As #f Print #f, "" '如果您的小說最後一行沒有換行，避免本章結束，跟文章混在一起，加入本行程式碼給予換行 Print #f, "本章結束" Close #f DoEvents Next MsgBox "共寫入" & Str(j) & "個檔案" 本篇文章回覆於2021-04-13 08:48 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓作者回應 lkkjuly	感謝7樓主的用心，現在已經在聽小說了，是用手工一個一個加上的，但是還是覺得不完善，改個方式，只要能連續開啟2000個檔，並且開檔後，在每一章的最前面，加上該章的檔名就可以了，最後的「本章結束」就不用加了。謝謝！或是幫我寫個VB程式，看要多少費用，直接匯給您，這是我的MAIL：liaocu202@yahoo.com.tw 本篇文章回覆於2021-04-13 11:06 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
12樓回應香帥	或是幫我寫個VB程式，看要多少費用，直接匯給您在這是不必錢的，但我程式碼已經幫您小好在10樓，問題是您要會用，怎會變成用手工一個一個加上的?? 至於文字改寫在前面或替換或插入是另一主題，因為前面您有提到word，建議用word的巨集，也是用到vb 本篇文章回覆於2021-04-13 15:53 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
13樓作者回應 lkkjuly	回復12樓主：你在10樓的程式，我是在ｗｏｒｄ的下面，把您的寫好程式，複製到ｗｏｒｄ　的巨集去執行，但始終沒有得到我要結果，真的是我不會用。之前在文章的末端加上「本章結束」四個字，當文章串起來之後，會有不知小說唸到第幾章的情形，所以才用最笨的方法，我一個一個打開後，再複製檔名到文章之首行，這樣轉成聲音檔後，就很清楚的知道唸到第章了，所以我才想要把檔名放在最前面，如果您能夠為我寫一個完整程式，我就不用不懂裝懂的在測試，也把您的思路搞亂了。簡單講：就是要把小說檔內的２０００個檔，能一次打開，當每個檔打開後，再把檔名加到文章的首行。這樣就達到我的訴求了。謝謝！不好意思麻煩您了。本篇文章回覆於2021-04-13 20:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
14樓回應 P陳	1.WORD 與文字檔的結構是不同的........... 加的方式不一樣。 2.檔名您如果用天龍八部１天龍八部２天龍八部３。。。天龍八部１１天龍八部１２的話就會變成１、１１、１２１８、１９２２０２１ —————————————————————————————————————————— 請用以下的檔名就可以了天龍八部００１天龍八部００２天龍八部００３就可以了本篇文章回覆於2021-04-14 00:00 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
15樓回應香帥	給您的程式碼是所有檔案末端加上「本章結束」四個字，請問有沒成功呢本篇文章回覆於2021-04-14 00:10 == 簽名檔 == --未登入的會員無法查看對方簽名檔--