返回列表 上一主題 發帖

請問,文字檔已存在,但是如要重新覆寫如何寫?

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-22 11:35 | 只看該作者

請問,文字檔已存在,但是如要重新覆寫如何寫?

我的文字已存在(per_f),但是每次要執行程式時,都必須重新覆寫,請問如何開啟這個檔案,我嘗試了許多方式都没辦法,請各位前輩指點,謝謝!!

fs = File.Create(per_f)
fs.Close()

Using outf_sw As StreamWriter = New StreamWriter(per_f, FileMode.Create)
End Using

如上是我嘗試用的方式,但是都只能 append 在檔案後面.
收藏 分享
V98

小誌
　暱稱: 小誌
　頭銜: 曾經也是水電工

管理員Rank: 9Rank: 9Rank: 9

帖子
1176 
主題
394 
精華
113 
積分
1747 
點名
1  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
200 
性別
男 
來自
台灣 
註冊時間
2010-5-1 
最後登錄
2024-5-5 

2021牛年全勤獎章好學求知勳章熱烈參與勳章2017 雞年全勤獎章2018 狗年全勤獎章2019 豬年全勤獎章2020鼠年全勤獎章
2#
發表於 2011-3-22 12:24 | 只看該作者
開啟指定檔案，並傳回 TextStream 物件，以用來讀取、或附加到該檔。

object.OpenTextFile(filename[, iomode[, create[, format]]])以下的程式碼說明如何使用 OpenTextFile 方法來開啟檔案並附加文字資料：
  1. Sub OpenTextFileTest
  2.   Const ForReading = 1, ForWriting = 2, ForAppending = 8
  3.   Dim fs, f
  4.   Set fs = CreateObject("Scripting.FileSystemObject")
  5.   Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,True)
  6.   f.Write "Hello world!"
  7.   f.Close
  8. End Sub
複製代碼
注意:Const ForReading = 1, ForWriting = 2, ForAppending = 8
心安，平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題