关于：文本の话题第6页 - 万象大数据平台 - 万象素材

5536

vbs实现的保存剪贴板中的文本并编辑或保存

月亮起雾了发布于 2014-05-23 11:43
收藏剪贴板保存拓展文本代码请输入编辑复制

保存剪贴板中的文本.vbs原理就是首先判断是否存在同名文件，存在就名字后面+1，然后将剪贴板的内容保存到自定义扩展名的文件里复制代码代码如下:set fso=createobject("scripting.filesystemobject") : name=1Dim nana=Inputbox("请输入拓展名:","..

5550

TXT转HTM、HTML「TXT转网页」的vbs实现代码

无人顾及发布于 2011-11-09 23:36
收藏格式文本模板打开调用文档格式代码子集

在众多文本编辑器中，Microsoft的Word是功能很强大的。况且XP PRO本身支持VBS调用Word文档对象，那么使用VBS是最好不过的了。思路如下：VBS打开Word，Word打开TXT，另存为网页，退出。 1. VBS调用Word.Application组件如果电脑中安装了Word，那么..

5391

VBS 批量读取文件夹内所有的文本到Excel的脚本

悲伤丶循环发布于 2009-11-13 23:26
收藏引用批量文件夹读取文本代码更新时间这句话

复制代码代码如下: 'This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Dim FileString() Dim i Dim ii i=0 FolderPath="E:\TDDOWNLOAD\aa\" '****..

5381

adodb.stream读文件到数组的代码

魔幻四少发布于 2008-08-01 23:34
收藏数组代码文件更新时间读写并保存读取文本

Functionfilenum(filename,i) Dimst,s Setst=CreateObject("ADODB.Stream") st.Type=2'流类型为文本 st.Mode=3'模式为读写 st.Open st.LineSeparator=13 st.LoadFromFilefilename DoWhileNotSt.EOS s=Split(st.readtext(),vbCrLf) Loop 'MsgBoxUBou..

5406

vbs adox提取数据库表名和列名的类

走了就别回头了发布于 2008-07-03 22:26
收藏提取数据库更新时间之家转过制作人脚本文本

<% '********************************* '*classname:ADOXDBOPR '*制作人:刘晓逸 '*作用:用adox进行数据库的操作 '*版本:1.0 '*www.jb51.net 我'********************************** ClassADOXDBOPR di..

5411

VBS实现DOC转为文本文档的代码

信使的人发布于 2008-06-02 20:15
收藏文本文档转为文件转换为转换记事本代码

打开记事本输入：复制代码代码如下:ONERRORRESUMENEXT setargs=wscript.arguments arg=args(0) setw=createobject("word.application") setfso=createobject("scripting.filesystemobject") setdocfile=fso.getfile(arg) docpath=docfile.path pt..

5459

用vbs实现将剪切板的unix格式的内容处理成pc格式的代码

冰蓝世界发布于 2007-10-24 12:02
收藏文本复制格式会有更新时间框框请复制脚本

处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本） setws=createobject("wscript.shell") setfso=createobject("scripting.filesystemobject") SetobjIE=CreateObject("InternetExplorer.Application") objIE...

3856