'作者:席飞剑
'日期:2013-1-25
'功能:往文本文件中指定位置插入指定内容
'参数:txtFile为需要读取的文件,可以根据需要将以下操作封装成一个函数。
'>>>>>>>>>>>>>>>>>尝试往文本文件中指定位置插入指定的文本内容<<<<<<<<<<<<<<<<<<<<
假设:"C:\Users\xifeijian\Desktop\test.txt"存在,并且文件内容为:
111111111
222222222
333333333
444444444
目标:希望在
333333333
444444444之间插入指定的内容I'm xifeijian
实现:
vbscript没有指针,所以实现这类功能,没有其它高级程序语言那么方便,可以直接seek到某位置,再插入需要的内容,换个思路,可以通过split函数将原内容按标记符进行分组,再拼接也是一个不错的选择:
Const ForReading = 1, ForWriting = 2
Dim fso, oFile
txtFile="C:\Users\xifeijian\Desktop\test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(txtFile) Then
Set oFile= fso.OpenTextFile(txtFile,ForReading)
ReadLineTextFile =oFile.ReadLine '读取文件第一行内容
While oFile.AtEndOfStream = false
ReadLineTextFile = ReadLineTextFile &vbnewline& oFile.ReadLine '遍历文件其它内容
wend
Set oFile= fso.OpenTextFile(txtFile,ForWriting)
deli1="333333333"'需要插入内容的起始位置
toAdd1="I'm xifeijian" '需要插入的文本内容
arr=split(ReadLineTextFile,deli1,-1,1) '按照指定分隔符进行字符串分割,但这里我并未做是否能够找到指定分隔符的异常处理,否则后续使用arr(0)时会报数组越界的。
ReadLineTextFile=arr(0)&deli1&toAdd1&arr(1)
' msgbox ReadLineTextFile
oFile.Write ReadLineTextFile
oFile.close() '关闭对象
else
print "File Not Found"
End If
Set fso = nothing '释放对象
运行结束后,文本文件的内容则变为:
111111111
222222222
333333333I'm xifeijian
444444444
分享到:
相关推荐
一些常用的VBscript 文件是CHM,如果打开来是404页面 可以去google查查原因.
QTP脚本语言VBS编程VBScript学习的的基础笔记整理,QTP脚本语言VBS的编程能力的操作教程,文档中的图文解说非常详细,很适合初学者和QTP能力的进阶提升
QTP破解文件QTP破解文件QTP破解文件QTP破解文件QTP破解文件QTP破解文件
QTP的XML结果文件中读取数据,汇总写入EXCEL中
qtp11的官方帮助文件 (UserGuide)
python识别提取图片中指定位置的文字,并修改文件名为改文字,方便批量操修改文件名,其中使用了pyqt5作为程序的界面,识别图片使用了Tesseract-OCR技术,压缩包附带源代码,方便大家学习。
QTP对象库XML文件 XML QTP
qtp脚本语言VBScript资料,Vbs脚本编程简明教程和工具,希望对大家有用。 VBScript.chm,点击该文件右键属性,解除锁定就ok了
QTP 文件处理脚本函数 可以直接在QTP中调用,不用再编写了
使用vbscript脚本调用QTP并运行脚本。 配合http://download.csdn.net/detail/nor1127/5394005的代码文件,将文件解压到D/Tests即可使用。
QTP破解
附件可以破解qtp10及qtp9,内有破解说明
非常全面的 说明书 官方指定的 中文说明书 对于使用者有非常大的帮助 一共800多页 qtp 使用手册qtp 使用手册qtp 使用手册qtp 使用手册qtp 使用手册qtp 使用手册
QTP中文帮助文件,包括ActiveX对象、VB函数使用等等,不一一列举,希望对大家有用
QTP9.5破解文件 破解补丁
QTP脚本语言vbs的编写操作规范教程,文档中的图文解说非常详细,很适合初学者和QTP能力的进阶提升
QTP插入检查点. 和循环实现
QTP8.2 /9.2的破解方法如下: 1.安装QTP应用程序,可在网上进行下载.(最好是到HP官方网站去下载,http://download.mercury.com这个地址可以进入到资料搜索页面) 2.安装完毕将 mgn-mqt82.rar 复制到安装目录,运行...
QTP自动化测试破解文件,安装qtp文件后使用此文件破解,可以使QTP永久性免费使用,下载后作为信任文件,破解文件属性与病毒相似,杀毒软件会将其杀掉,学计算机的都知道的,请放心下载使用
qtp9破解文件,解压后就能看见