7491
社区成员
如何在文本文件的开始添加一行文本，不改变原来的内容（在线等候......）
我现在需要在已经存在的文本文件的开始添加一行文本，而不改变文件原来的内容：
我在程序中使用的代码如下，执行结果添加了一行文本，但是文件原来第1行的内容被覆盖了！！！
Open mFilePath For Append As #1
Seek #1, 1
Print #1, mFileName
Close #1
我在程序中使用的代码如下，执行结果添加了一行文本，但是文件原来第1行的内容被覆盖了！！！
Open mFilePath For Append As #1
Seek #1, 1
Print #1, mFileName
Close #1
...全文
当前发帖距今超过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
写回
你使用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
'注意引用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
其实可以读所有内容到一个文本类型变量,然后再添加文本后保存
Linux操作系统基础教程 在这一讲中，我们主要是了解一下 Linux 的概况，以及对 Linux 有一个初步的感性认识。 一．什么是Linux？ Linux 是一个以 Intel 系列 CPU(CYRIX,AMD 的 CPU也可以)为硬件平台，完全免费的 UNIX 兼容系统，完全...
2019最新Web前端经典面试试题及答案-史上最全前端面试题(含答案) 近期总结一一些面试题 都是企业的面试题笔记题 感觉薪资10k下的都会出笔试题 ...同时分享一个自己录制的CSS3动画特效经典案例【推荐教程】--后期会更新vue框架 微信小程序等内容。 https://ke.qq.com/cou...
Apache httpd.conf配置详解 服务器的基础目录，一般来说它将包含conf/和logs/子目录，其它配置文件的相对路径即基于此目录。默认为安装目录，不需更改。 语法：ServerRoot directory-path 如： ServerRoot "/usr/local/apache-2.2.6" ...
nginx配置文件nginx.conf 不包括server节点 整理的一个nginx.conf的配置，不包括server节点介绍 原文请查看，Nginx配置文件（nginx.conf）配置详解 # For more information on configuration, see: # * Official English Documentation: ...
Apache主配置文件httpd.conf 详解 Apache的主配置文件：/etc/httpd/conf/httpd.conf默认站点主目录：/var/www/html/Apache服务器的配置信息全部存储在主配置文件/etc/httpd/conf/httpd.conf中，这个文件中的内容非常多，用wc命令统计一共有1009行，...
Nginx配置文件 nginx.conf详解 Nginx配置文件nginx.conf详解 nginx.conf # 定义Nginx运行的用户和用户组 # user nobady nobady; # nginx进程数，建议设置为等于CPU总核心数,默认为1。 worker_processes 8; #全局错误日志定义类型，[ debug | ...
如何建立批处理文件（.bat或.cmd） 批处理文件是无格式的文本文件，它包含一条或多条命令。它的文件扩展名为 .bat 或 .cmd。在命令提示下键入批处理文件的名称，或者双击该批处理文件，系统就会调用Cmd.exe按照该文件中各个命令出现的顺序来逐个运行...
史上最全 nginx.conf 配置文件详解 在这里插入代码片 #定义Nginx运行的用户和用户组 # user nobady nobady; #nginx进程数，建议设置为等于CPU总核心数,默认为1。 worker_processes 8; #全局错误日志定义类型，[ debug | info | notice | warn...
httpd.conf 详解 1. 关于本文
本文将以Apache 2.2为例，以rhel5 ... 1) 几乎可以运行在所有的计算机平台上.
2) 支持最新的HTTP/1.1协议
3) 简单而且强有力的基于文件的配置(HTTPD.CONF).
【C语言学习】12.文件和IO 分三类：标准I/O，串I/O，文件I/O标准I/O： 标准输入：从标准输入设备（键盘）获取数据，调用scanf,gether,gets等函数库实现 标准输出：向标准输出设备（显示屏）输出数据，调用printf，putchar,puts等函数库可以...
Apache httpd.conf配置文件详解 1. ServerRoot：服务器的基础目录，一般来说它将包含conf/和logs/子目录，其它配置文件的相对路径即基于此目录。默认为安装目录，不需更改。 语法：ServerRoot directory-path 如： ServerRoot "/usr/local/...
20120最新Web前端经典面试试题及答案-史上最全前端面试题汇总(含答案) 1.一个200*200的div在不同分辨率屏幕上下左右居中，用css实现 div { position:absolute; width:200px; height:200px; top:50%; left:50%; margin-left:-100px; height:-100px; z-index:1000; } 2.写一个左中右...
python爬虫下载文件到指定文件夹_手把手教你用Python实现分布式爬虫(四) - scrapy爬取技术文章网站... 搭建scrapy的开发环境，本文...然后详细讲解item以及item loader方式完成具体字段的提取后使用scrapy提供的pipeline分别将数据保存到json文件以及mysql数据库中.首先爬取一个网站前，我们需要分析网络的url结构，...
最新Web前端经典面试试题（Marksheng全网最不讲武德的版本） 同时分享一个自己录制的CSS3动画特效经典案例【推荐教程】--后期会更新vue框架 微信小程序等内容。 https://ke.qq.com/course/323252 最近录制的ajax从基础到实战的视频，包含原生ajax jquery的ajax 以及a...
nginx配置文件解读 Nginx由内核和模块组成，完成工作是通过查找配置文件将客户端请求映射到一个locationblock(location是用于URL匹配的命令)，location配置的命令会启动不同模块完成工作。 Nginx模块分为核心模块，基础模块和第三方...
