.bat 查找并重命名

发布于 2024-09-16 22:05:38 字数 157 浏览 13 评论 0原文

我已经在同一目录中输出了一些文本文件。每个 .txt 文件都有一个组编号，该编号始终以 RXC 开头，之后可以向上增加 5 个字符，给我们 RXCXXXXX 我需要脚本找到这个 RXC 编号并将文件重命名为相应的组编号，然后执行以下操作对于同一目录中的所有文件都相同。

提前致谢，乔

原文

分享到QQ

分享到微博

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

发布评论

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

治碍 2024-09-23 22:05:38

using System.IO;
foreach(var file in Directory.GetFiles("."))
{
    var content = File.ReadAllText(file);
    var startIndex = content.IndexOf("RXC");
    var id = content.Substring(startIndex, 8);
    File.Move(file, id);
}

using System.IO;
foreach(var file in Directory.GetFiles("."))
{
    var content = File.ReadAllText(file);
    var startIndex = content.IndexOf("RXC");
    var id = content.Substring(startIndex, 8);
    File.Move(file, id);
}

回复收藏 0 原文

梦断已成空 2024-09-23 22:05:38

Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder="c:\test"
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
    If objFS.GetExtensionName(strFile) = "txt" Then    
        strFileName = strFile.Name
        Set objFile = objFS.OpenTextFile(strFileName)
        Do Until objFile.AtEndOfStream 
            strLine=objFile.ReadLine
            If InStr(strLine,"RXC" ) > 0 Then
                number=Mid(strLine,4)               
                objFile.Close
                strFile.Name = Trim(number)&".txt"                      
                Exit Do 
            End If          
        Loop       
    End If  
Next

Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder="c:\test"
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
    If objFS.GetExtensionName(strFile) = "txt" Then    
        strFileName = strFile.Name
        Set objFile = objFS.OpenTextFile(strFileName)
        Do Until objFile.AtEndOfStream 
            strLine=objFile.ReadLine
            If InStr(strLine,"RXC" ) > 0 Then
                number=Mid(strLine,4)               
                objFile.Close
                strFile.Name = Trim(number)&".txt"                      
                Exit Do 
            End If          
        Loop       
    End If  
Next

回复收藏 0 原文

~没有更多了~