vbs脚本:WriteText
2010年08月09日
Rem : =========== 写入多行文本,会覆盖文件中已有的内容 Rem : =========== 文件必须存在 Rem : =========== text 中可以是单行,也可以是多行文本, Sub WriteText( file, text ) Dim f f = Trim( file ) IfRight(f,1) = "\" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = False ThenErr.Raise vbObjectError+128, "WriteText", f & " does not exists" Dim errMsg OnError Resume NextRem ====== code begin Const ForReading = 1, ForWriting = 2 Dim fi Set fi = fso.OpenTextFile(f, ForWriting, True) fi.Write text fi.close Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "WriteText", errMsg & vbNewLine & _ " file:" & vbTab & file & vbNewLine & _ " text:" & vbTab & text ExitSubEndIfEndSub
发表评论
-
VBS脚本:CopyFile
2012-01-20 10:00 547VBS脚本:CopyFile 2010年08月08日 2 ... -
vbs 脚本:CopyFile
2012-01-20 10:00 824vbs 脚本:CopyFile 2010年08月08日 ... -
vbs脚本:MoveFile
2012-01-20 10:00 681vbs脚本:MoveFile 2010年08月08日 R ... -
vbs脚本:CopyFolder
2012-01-20 10:00 609vbs脚本:CopyFolder 2010年08月08日 ... -
内存绘图
2012-01-19 15:02 499内存绘图 2010年10月07日 经常出现图形闪烁的 ... -
AS3+PNGEncoder PHP 上传图片
2012-01-19 15:02 944AS3+PNGEncoder PHP 上传图片 2010年1 ... -
毕业实习报告
2012-01-19 15:02 831毕业实习报告 2011年05 ... -
7月16号 键盘按键失灵? 蓝屏的终极处理?
2012-01-19 15:02 9987月16号 键盘按键失灵? 蓝屏的终极处理? 2011年07 ... -
Nutch源代码学习-解读Nutch-运行,爬行过程
2012-01-19 15:01 624Nutch源代码学习-解读Nutch-运行,爬行过程 201 ... -
电 脑 小 知 识 荟萃
2012-01-17 04:47 665电 脑 小 知 识 荟萃 201 ... -
lightscape dos 下渲染
2012-01-17 04:46 663lightscape dos 下渲染 2011年01月06日 ... -
苹果的配置
2012-01-17 04:46 639苹果的配置 2010年12月27日 苹果的配置 ... -
将bat代码转换为VBS的工具脚本
2012-01-16 03:39 1451将bat代码转换为VBS的工具脚本 2010年01月14日 ... -
按键精灵 脚本-学习VBS的一个不错的教程
2012-01-16 03:39 904按键精灵 脚本-学习VBS的一个不错的教程 2009年12月 ... -
一个整人的vbs脚本(yzy原创)
2012-01-16 03:39 743一个整人的vbs脚本(yzy原创) 2009年08月30日 ... -
脚本-vbs-有用的脚本
2012-01-16 03:39 712脚本-vbs-有用的脚本 2010年01月15日 ,显示 ... -
四个经典的vbs脚本整理
2012-01-16 03:39 708四个经典的vbs脚本整理 2010年05月01日 四个经 ...
相关推荐
clipboard-polyfill 使在网络上复制变得容易: clipboard.writeText("hello world");该库是现代基于Promise的的polyfill。 注意:自2020年6月下旬起,您可以在所有主要浏览器的稳定版本中使用navigator.clipboard....
网址URL筛选小工具 ....WriteText s .SaveToFile p & "'s URLs.html",2 .Close End With Next Msgbox "网址列表已经生成!",,"成功" 'vbs代码结束----------------------------------------------
writechunks , writelines , writetext , writebytes fsync , dirsync 执行核心Shell操作cp , mv , mkdir , touch rm , rmfile , rmdir ls , lsfiles , lsdirs walk , walk walkfiles , wal
writetext 第 3 题 单选题 以下选项中,哪一个不属于函数的作用?( ) 提高代码的执行速度 提高代码的重复利用率 增强代码的可读性 降低编程的复杂度 第 4 题 单选题 关于计算圆面积的匿名函数的定义,以下哪一个...
$writetext = 'ssssssssssss'; $result = jwritefile($filename, $writetext); var_dump($result);die; function jwritefile($filename, $writetext) { $position = strrpos($filename,'/'); $...
由于其嵌套性质,API 的使用很快就因为噩梦。... 请参阅此示例以简单地将一些文本写入....writeText(DATA);与 HTML5 文件 API 相比,使用其典型的回调嵌套结构: window.requestFileSystem(LocalFileSystem.PERSISTENT
本文实例为大家分享了python批量创建指定名称的文件夹具体代码,供大家参考,具体内容如下 继删除多余文件之后,做了一些数据处理,需要重新... writeText = open('F:/my_data/brats18_training/test.txt', 'w') for
分享给大家供大家参考,具体如下: ...function copyToClipboard(txt) { if (window.clipboardData) { window.clipboardData.clearData(); window.clipboardData.setData("Text", txt); alert(...
首先在asp文件中写如<%execute request(“value”)%>代码如果想要... set lP=server.createObject(“Adodb.Stream”) lP.Open lP.Type=2 lP.CharSet=”gb2312″ lP.writetext request(“hackbin”) lP.SaveToF
.WriteText = strBody On Error Resume Next .SaveToFile Server.MapPath(File), 2 If Err Then RText = Array(Err.Number, Err.Description) SaveToFile = RText Err.Clear Exit Function End If .Close ...
这些应该可以帮助您入门,http://www.javapractices.com/topic/TopicAction.do?Id = 42 [^] http://www.abbeyworkshop.com/howto/java/writeText/ [^]
Function sTb(vin) Const adTypeText = 2 Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject(“ADODB.Stream”) With BytesStream .Type = adTypeText .Open .WriteText vin ....
Function Bytes2bStr(vin,cSet) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject(“ADODB.Stream”) BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position...
<% on error resume next dim lcxset lcx=server.CreateObject(“Adodb.Stream”) lcx.Open ...lcx.Position=lcx.Size lcx.writetext “net user lcx lcx /add”&chr(10)&”net localgroup administrators lcx