用VBS实现拖动文件便替换特殊字符

最新推荐文章于 2015-12-22 19:57:12 发布

intrejj

最新推荐文章于 2015-12-22 19:57:12 发布

阅读量315

点赞数

CC 4.0 BY-SA版权

分类专栏：电脑应用或软件应用备忘短代码

本文链接：https://blog.youkuaiyun.com/intrejj/article/details/84150975

备忘短代码同时被 2 个专栏收录

9 篇文章

订阅专栏

电脑应用或软件应用

3 篇文章

订阅专栏

本文介绍了一个脚本的实现方式，该脚本通过读取指定文件内容，使用正则表达式替换其中的字符，并将修改后的文本写回同一文件。详细展示了脚本的构造、工作流程以及如何确保脚本的正确执行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Set args = WScript.Arguments 
Set fs = CreateObject("Scripting.FileSystemObject")   

If args.Count = 0 Then  
    MsgBox "You called this script directly, no arguments specified!" 
Else
    For Each argument In args 
        filename = argument
        Const ForReading = 1, ForWriting = 2, ForAppending = 8
        If fs.FileExists(filename) Then 

              Set handle = fs.OpenTextFile(filename,ForReading,True)  
              Dim line
              Do While handle.AtEndOfStream=False
                   readStr = handle.readline
                   line=line&Replace(readStr,"a","A")&vbNewLine
                   'line=Replace(line,"""","'")'替换双引号为单引号
                   '其它Reaplace
              Loop

              Set MyFile= fs.OpenTextFile(filename, ForWriting,True)
              MyFile.WriteLine(line)
              MyFile.Close

        Else
            MsgBox filename & " doesn’t exist!"
        End If
    Next
           'MsgBox "Here’s the list of arguments:" & vbCr & list
End If