台灣最大程式設計社群網站
線上人數
1743
 
會員總數:246323
討論主題:189852
歡迎您免費加入會員
討論區列表 >> VB6 >> 如何開啟檔案並加字後存檔
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何開啟檔案並加字後存檔
價值 : 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. 建議:我們的提問在這堥S人有義務要回答的。當看不懂他人回應時,我們可以再往下問、往下討論(也許有其他人回覆)。
十多年來我由提問者,經驗累積後慢慢走到回應者。希望有朝一日,可以看到您也在此回應他人的問題。


本篇文章回覆於2021-04-10 20:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

P陳
檢舉此回應
知道了您的是 VB6 ,
微軟已不再支援了 VB6,建議改成 vb.net (也是免費的)
5樓的程式 在VB6 不一定能跑。(我沒玩過VB6)
本篇文章回覆於2021-04-10 20:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
回應

香帥
檢舉此回應
程式碼如下,並測試ok

本篇文章回覆於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依樣
若不行,可改以下

本篇文章回覆於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樓的程式,我是在word的下面,把您的寫好程式,複製到word 的巨集去執行,但始終沒有得到我要結果,真的是我不會用。

之前在文章的末端加上「本章結束」四個字,當文章串起來之後,會有不知小說唸到第幾章的情形,所以才用最笨的方法,我一個一個打開後,再複製檔名到文章之首行,這樣轉成聲音檔後,就很清楚的知道唸到第章了,所以我才想要把檔名放在最前面,如果您能夠為我寫一個完整程式,我就不用不懂裝懂的在測試,也把您的思路搞亂了。

簡單講:就是要把小說檔內的2000個檔,能一次打開,當每個檔打開後,再把檔名加到文章的首行。這樣就達到我的訴求了。謝謝!不好意思麻煩您了。
本篇文章回覆於2021-04-13 20:33
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
14樓
回應

P陳
檢舉此回應
1.WORD 與文字檔 的結構是不同的...........
加的方式不一樣。

2.檔名您如果用
天龍八部1
天龍八部2
天龍八部3



天龍八部11
天龍八部12
的話 就會變成
1、11、12 18、19 2 20 21
——————————————————————————————————————————
請用 以下的檔名就可以了
天龍八部001
天龍八部002
天龍八部003
就可以了

本篇文章回覆於2021-04-14 00:00
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
15樓
回應

香帥
檢舉此回應
給您的程式碼是所有檔案末端加上「本章結束」四個字,請問有沒成功呢
本篇文章回覆於2021-04-14 00:10
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   

回覆
如要回應,請先登入.