如何在文本文件的开始添加一行文本,不改变原来的内容(在线等候......)

sxntfhw 2003-05-19 04:44:34
我现在需要在已经存在的文本文件的开始添加一行文本,而不改变文件原来的内容:
我在程序中使用的代码如下,执行结果添加了一行文本,但是文件原来第1行的内容被覆盖了!!!

Open mFilePath For Append As #1
Seek #1, 1
Print #1, mFileName
Close #1
...全文
37 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
mac110 2003-08-04
先把原来的文本内容放到剪切板,再加入要添加的文字把原文件覆盖
再把剪切板的内容追加到文本后面
回复
_西瓜皮_ 2003-08-03
拷。。。。
回复
kmzs 2003-08-03
比如 a 是含有要添加的一行文字的变量
你使用Open ... for input as #x 的方法将该文件中所有内容读入变量b
然后b=a & chr(13) & chr(10) & b
再用Open ... for output as #y
print #y,b
close #y
写回
回复
since1990 2003-08-03
帮你 up
回复
yefm 2003-05-19
up
回复
lianghongqing111 2003-05-19
被楼上的先到了,没错,先读出文本文件赋给一个变量,然后在变量前增加你要添加的文本,最后写如文件就OK了。
回复
rainstormmaster 2003-05-19
'use FSO
'注意引用microsoft scripting runtime对象
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim filename As String
Dim strtemp As String
filename = "d:\123.txt"
Set ts = fso.OpenTextFile(filename)
strtemp = ts.ReadAll
Set ts = Nothing
strtemp = "你要加入的内容" + strtemp
Set ts = fso.CreateTextFile(filename, True)
ts.Write (strtemp)
Set ts = Nothing
End Sub
回复
sxntfhw 2003-05-19
?????????
回复
sxntfhw 2003-05-19
谁可以告诉我啊??????
最好给出例程!!!
回复
ikey 2003-05-19
其实可以读所有内容到一个文本类型变量,然后再添加文本后保存
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-19 04:44
社区公告
暂无公告