精华内容
下载资源
问答
  • 我自己写的,其中rename.vbs可以替换指定文件的指定内容, 前置条件: 1. Win32 2. 可运行vbs的命令行 使用方法: 1. 命令: rename.vbs "Parth/To/your_file.ext" "string_in_file" "string_to_replace_string_...
  • vbs批量替换文件名称

    千次阅读 2013-04-24 16:17:32
    ' 批量替换文件名称 ' author : avill ' upate :2006.2.28 ' Dim NewLine NewLine = vbcrlf TabStop = "" function isFolderExists(fso,folderPath)  if folderPath = empty then exit function ...
    ' 批量替换文件名称
    ' author : avill
    ' upate  :2006.2.28
    '


    Dim NewLine
    NewLine = vbcrlf
    TabStop = ""


    function isFolderExists(fso,folderPath)
      if folderPath = empty then exit function
      If not FSO.FolderExists(folderPath) Then
         msgbox "foloder not exists!please try agian"
         folderPath = InputBox("批量替换文件名称"& vbcrlf &"请输入路径[绝对路径],为空则自动退出","")
         call isFolderExists(fso,folderPath)     
      end if
    end function


    Function doRepWord(Files,filePath,repWord,resWord)


        Dim S,file,count,newName
            repWord = split(repWord,";")
            count = 0
            Set fso = CreateObject("Scripting.FileSystemObject")


            For Each File In Files
              for each repStr in repWord
               if instr(File.Name,repStr)<>0 then
                 newName = replace(file.name,repStr,resWord)
                 If not fso.FileExists(filePath&"\"&newName) Then
                    'msgBox "exists"             
                    file.name = newName
                    count = count + 1
                 end if
               end if
              next 
            Next


        doRepWord = count


    End Function


    sub reName(path)
      dim s,folderPath,repWord,resWord
      'folderPath = "F:\Exercise\xhtml_info\taobao_images"   'absolutive path
      'folderPath = ""
      'folderPath = InputBox("批量替换文件名称"& vbcrlf &"请输入路径[绝对路径]","")
      folderPath=path
      
      
      Set fso = CreateObject("Scripting.FileSystemObject")
      call isFolderExists(fso,folderPath)
      if folderPath = empty then exit sub
      repWord = InputBox("希望要替换掉的字符,多个字符请用分号[;]隔开!","")
      resWord = InputBox("希望将字符替换为:!","") 
     
      Set Folder = FSO.GetFolder(folderPath)
      Set Files = Folder.Files
     
      If 1 = Files.Count Then
         S = S & "There is 1 file" & NewLine
      Else
         S = S & "There are " & Files.Count & " files" & NewLine
      End If


      If Files.Count <> 0 Then
         s = s & "replace files:" & doRepWord(Files,folderPath,repWord,resWord) &NewLine
      End If


      msgbox s 
      
    end sub


    Set objShell = CreateObject("Wscript.Shell")
    'MsgBox objShell.CurrentDirectory


    call reName(objShell.CurrentDirectory)

    展开全文
  • VBS替换文本

    2015-12-22 19:57:12
    set fso = createobject("scripting....' 读取文件 set stream = fso.opentextfile("test.txt",1) content = stream.readall() call stream.close() ' 替换字符串 content = replace(content,
    set fso = createobject("scripting.filesystemobject")


    ' 读取文件
    set stream = fso.opentextfile("test.txt",1)
    content = stream.readall()
    call stream.close()


    ' 替换字符串
    content = replace(content,"AAA","BBB")


    ' 保存文件
    set stream = fso.opentextfile("test.txt",2)
    call stream.write(content)
    call stream.close()
    展开全文
  • 每安装一个客户都要这样,觉得很麻烦,就用VBS写了一个脚本,初步功能很简单。代码如下: 1 Set fso=Wscript.CreateObject("Scripting.FileSystemObject") 2 3 '打开配置文件 4 set ...

      最近忙着搞实施,搭建Xampp环境时,由于默认的常用端口不安全,很容易被人扫描。所以出于安全考虑,所以都要去配置文件中修改端口。每安装一个客户都要这样,觉得很麻烦,就用VBS写了一个脚本,初步功能很简单。代码如下:

     1 Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
     2 
     3 '打开配置文件
     4 set httpd_conf=fso.opentextfile("C:\xampp\apache\conf\httpd.conf")
     5 set my_ini=fso.opentextfile("C:\xampp\mysql\bin\my.ini")
     6 
     7 '找到要的替换字符
     8 http_port=replace(httpd_conf.readall,"80", "替换后的字符")
     9 mysql_port=replace(my_ini.readall,"3306", "替换后的字符")
    10 
    11 '关闭配置文件
    12 httpd_conf.close
    13 my_ini.close
    14 
    15 '以写的方式打开配置文件
    16 set http=fso.opentextfile("C:\xampp\apache\conf\httpd.conf",2,true)
    17 set mysql=fso.opentextfile("C:\xampp\mysql\bin\my.ini",2,true)
    18 
    19 '写入替换的字符
    20 http.write http_port
    21 mysql.write mysql_port
    22 
    23 Wscript.quit

     

    转载于:https://www.cnblogs.com/dimdusk/archive/2013/06/05/3119415.html

    展开全文
  • vbs实现的批量文件替换
  • NULL 博文链接:https://soft-development.iteye.com/blog/1400221
  • 例如文本文件中的字符为:****....11111 如何将上述文本中的“*”和“.“全部替换为0.求代码???
  • 主要介绍了VBS脚本实现遍历批量替换多目录多文件内容的代码,主要是结合了bat,实现这种效果,需要的朋友可以参考一下
  • 需求:遍历文本文件,在里面找到像素单位(例:“100px”),替换成相对单位(例如:“3rem”);px与rem单位转换过程中是一个固定比例。 研究半天弄了下面一个脚本,但是不能替换到位。望大佬给个意见 ``` ...
  • 使用vbs 脚本对工作目录下的字符串进行替换并统计被修改的文件数主调的批处理方法将捕捉该vbs脚本运行后的结果并打印在cmd窗口。
  • [b][size=16px]被替换文件编码是UTF-8,但是替换完成后的文件变成了ANSI编码了。[/size][/b] Set WshShell = CreateObject("Wscript.Shell") WshShell.Run "cmd /c dir /s/b *.cpt > list.txt",vbHide ...
  • 在用VBS写内容到记事本中提示以下错误: 错误: 无效的过程调用或参数 代码: 800A0005 源: Microsoft VBScript 运行时错误 后发现是因为内容中...在vbs中将包含Unicode格式的字符用chrw替换换 例如:字符“•”的编

    在用VBS写内容到记事本中提示以下错误:

    错误: 无效的过程调用或参数
    代码: 800A0005
    源: Microsoft VBScript 运行时错误

    http://blog.csdn.net/aminfo/article/details/21835869

    后发现是因为内容中含有 Unicode 格式的字符,记事本文件默认是 ANSI 编码的,所以无法写入并提示以下出错,例如字符“•”,解决办法:

    在vbs中将包含Unicode格式的字符用chrw替换换

    例如:字符“•”的编码为&#8226;,那么在vbs中加入以下代码对此字符进行替换处理,替换后再写入到文件中,代码如下:

    Content = Replace(Content, chrw(8226), "")

    同理,如果碰到其他Unicode字符可用同样的方法替换。

    展开全文
  • vbs_批量修改文件

    2014-12-15 12:23:54
    使用vbs 脚本对工作目录下的字符串进行替换并统计被修改的文件数主调的批处理方法将捕捉该vbs脚本运行后的结果并打印在cmd窗口。 示例代码(t.vbs)如下: Set fso=Wscript.CreateObject("Scripting....
  • 将以下代码复制到一个文本文档中,并将文本文档的后缀修改为.vbs,直接运行即可 Set WshShell = CreateObject("Wscript.Shell")WshShell.Run "cmd /c dir /s/b *.htm > list.htm",vbHideWscript.Sleep 1000sFile = ...
  • 源文件中某一行的换行方式未知,但是在vbs中使用readline语句读取的时候会报错,readline中识别的换行符号是vbcrlf,怎么才能找到源文件中使用的换行符号,并给他替换成vbcrlf,求大神解答!!!!!
  • 使用vbs 脚本对工作目录下的字符串进行替换并统计被修改的文件数主调的批处理方法将捕捉该vbs脚本运行后的结果并打印在cmd窗口。示例代码(t.vbs)如下: Set fso=Wscript.CreateObject("Scripting....
  • VBScript代码可以通过替换某些模式和扩展名来重命名文件夹中的多个文件
  • 代码包括对文本文件的读取,写入,替换操作。 测试可用。
  • 快速查找替换多种文件的工具,很实用.html。txt.asp.php.vbs等多种格式
  • 自己制作的文件内容和文件名同时替换成某个指定字符串的程序,挺好用的,但是有个小BUG,VBS更新文件时有可能出现编码转换的细微变化。
  • 无法复制staxmem.dll、iisapp.vbs、convlog.exe等文件,在确定你的安装盘或安装文件及你的操作系统的SP版本没问题没错的情况下,就别找同名文件替换了,产生这样的问题是因为:损坏了系统内部数据库所致.修复损坏的...
  • 安装IIS时如果老提示 无法复制staxmem.dll、iisapp.vbs、convlog.exe等文件,在确定你的安装盘或安装文件及你的操作系统的SP版本没问题没错的情况下,就别找同名文件替换了,产生这样的问题是因为:损坏了系统内部...
  • 安装IIS时如果老提示 无法复制staxmem.dll、iisapp.vbs、convlog.exe等文件,在确定你的安装盘或安装文件及你的操作系统的SP版本没问题没错的情况下,就别找同名文件替换了,产生这样的问题是因为:损坏了系统内部...
  • 启动日志 vbs.zip

    2020-11-22 14:16:42
    将OK文件替换成你的应用快捷方式,命名OK。打开ON.bat,就会打开OK文件,再打开Log file,CREATE_FILE_TEST.TXT是每次的打开数据,另一个是打开次数。 初始化 CREATE_FILE_TEST.TXT内容: 启动日志: CREATE_FILE_...
  • 把以下代码保存为*.vbs文件替换IP、用户名、密码。 Dim objShell Set objShell = CreateObject("Wscript.Shell") objShell.Run "cmd.exe",1,False WScript.Sleep 1000 objShell.SendKeys "telnet ...
  • VBS写的修复工具

    2008-10-17 16:48:38
    要使用本软件请下载压缩包后解压至任意一文件夹,建议执行run.bat,防止病毒/木马对VBS文件关联的篡改以及wscript.exe被感染或替换,tools.exe也就是Windows\system32\wscript.exe大家可以比对下这两个文件是否一致...
  • 用于 MSI 安装程序的文件、文件夹、注册表项、注册表值的复制备份及还原...14、文本行替换和写入:WriteTextFile.vbs 15、MSI 属性值更改:AddPropertyValue.vbs ----------------------------------------------------

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 126
精华内容 50
关键字:

vbs替换文件