如何使批处理文件编辑文本文件

发布于 2024-08-27 10:20:18 字数 448 浏览 9 评论 0原文

我得到了代码

Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\test\file.txt"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If InStr(strLine,"ex3")> 0 Then
        strLine = Replace(strLine,"ex3","ex5")
    End If 
    WScript.Echo strLine
Loop

The strLine replacement part 我可以修复自己以用于我自己的目的，但是我该如何做这样的事情，以便它不需要文件名，它只编辑文档中的所有文本文件？

原文

I got the code

Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\test\file.txt"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If InStr(strLine,"ex3")> 0 Then
        strLine = Replace(strLine,"ex3","ex5")
    End If 
    WScript.Echo strLine
Loop

The strLine replacing part i can fix myself to use with my own purposes, but how do i do something like this so that it doesn't require the file's name, it just edits all text files within the document?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

土豪 2024-09-03 10:20:18

你可以这样做，

strFolder = "c:\myfolder"
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
    strFileName =strFile.Name
    strFilePath = strFile.Path
    strFileExt = objFS.GetExtensionName(strFile)
    If strFileExt = "txt" Then
        Set objFile = objFS.OpenTextFile(strFile)
            ' your current code here..
        objFile.Close()
    End If
Next

you can do it like this,

strFolder = "c:\myfolder"
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
    strFileName =strFile.Name
    strFilePath = strFile.Path
    strFileExt = objFS.GetExtensionName(strFile)
    If strFileExt = "txt" Then
        Set objFile = objFS.OpenTextFile(strFile)
            ' your current code here..
        objFile.Close()
    End If
Next

回复收藏 0 原文

~没有更多了~