QTP可以在txt文件(文本文件中读取数据) 首先创造一个文档对象 set fso = createObject("scripting.filesystemobject") 然后用此对象打开目标文档 Set txt = fso.OpenTextFile( "C:\Documents and Settings\Administrator\桌面\test.txt",8,true) 这里说一说OpenTextFile方法,根据QTP的帮助文档中记载 根据以上帮助文档记录,…

QTP可以对word文档进行操作,这里最主要展示的是向word文档写入内容,并保存的功能. Option explicit Dim wordApp Set wordApp = createobject("word.application") wordApp.visible = true '打开word文档 Dim wordDoc Set wordDoc = wordApp.documents.open("C:\Documents and Settings\Administra…

对于QTP操作excel的大前提是,保证组建服务里的DCOM配置里存在 microsoft excel application ,具体的查看方式是,在运行框中输入dcomcnfg,然后会打开组件服务的窗口,选择组件服务,计算机,我的电脑,DCOM配置,可以在里面查找存不存在microsoft excel application,存在的话,恭喜你,不出意外是可以对excel文档进行操作了. 下面为具体的操作代码. option explicit Dim excel Set excel = crea…

代码如下: import requests import re import os #url url = "http://wiki.akbfun48.com/index.php?title=%E4%B9%83%E6%9C%A8%E5%9D%82%E5%B7%A5%E4%BA%8B%E4%B8%AD&variant=zh-hans" #请求头 headers = { "User-Agent":"Mozilla/5.0 (Windows NT 10.0…

昨天晚上安装了Ubuntu11.10,打开TXT文件的时候发现中文乱码问题,在网上查了一下,一些网友提供了下面的方法: “按Alt+F2,打开“运行应用程序”对话框,输入“gconf-editor”,回车打开“配置编辑器”,展开/apps/gedit-2 /preferences/encodings节点,打开auto_detected键的“编辑键”对话框,点击“添加”,输入“GB2312”,回车, 再点击“向上”把GB2312移到第一项,点击“确定”后退出.再打开含中文的文件的时候,就不会出现乱…

python操作docx文档 关于python操作docx格式文档,我用到了两个python包,一个便是python-docx包,另一个便是python-docx-template;,同时我也用到了很出名的一个工具"pandoc,下面我会对他们各自进行介绍. 首先便是python-docx包,这是一个很强大的包,可以用来创建docx文档,包含段落.分页符.表格.图片.标题.样式等几乎所有的word文档中能常用的功能都包含了,这个包的主要功能便是用来创建文档,相对来说用来修改功能不是很强大,关于文…

Java对word文档的操作需要通过第三方组件实现,例如jacob.iText.POI和java2word等.jacob组件的功能最强大,可以操作word,Excel等格式的文件.该组件调用的的是操作系统底层的dll文件.在使用Java操作word文件时,jacob组件是最常用的一个. 1.准备工作 根据上面的描述,需要两类文件.一个软件: ①jacob.jar ②dll文件 下载地址1:百度云盘下载 下载地址2:官方下载 ③电脑上有Microsoft Office软件(WPS.LibreOff…

最近比较无聊,随便翻着博客,无意中看到了有的人用VBS读文本内容,也就是读几句中文,emmm,挺有趣的,实现也很简单,都不需要安装什么环境,直接新建txt文件,输入一些简单的vbs读文本的代码,然后将新建的文件后缀改为.vbs,然后双击一下就可以有效果了.... 于是我就想啊,java行不行呢?查了一些资料,还真的行,我就将我试验的过程说一下,就当作娱乐娱乐! 1.依赖 随便新建一个maven项目,导入依赖 <dependency> <groupId>com.hynnet</…

Dim fso,f,a set oExcel = CreateObject( "Excel.Application" ) oExcel.Visible = false '4) 打开已存在的工作簿: oExcel.WorkBooks.Open( "F:\1.xlsx" ) On Error Resume Next '判断是否存在Sheet2工作表,不存在新建 If oExcel.WorkSheets("Sheet2") Is Nothing The…

<1>  FileStream fs = new FileStream(@"D:\text.txt", FileMode.Append); StreamWriter sw = new StreamWriter(fs, Encoding.Default); sw.Write(strAnalasy); sw.Close(); fs.Close(); <2>  FileStream TreatProcess = new FileStream(@"文件目录&q…