批处理文件VBScript中

问题描述：

重命名我有一组文件被命名为这样的（字可以是任何文字或数字）：批处理文件VBScript中

Word word-word word word Floor B2342 Word Word-word.pdf 
Word word-word word Floor: B-2342 Word Word-word.pdf 
Word word- Floor C43 Word Word.pdf 
Word word word- Floor- E2AD342 Word Word.pdf

我想要的文件夹中的一切重命名为只拥有组遵循楼层...您可以指望楼层始终处于文件名称中，以及我想要保持在楼层后面的内容。

B2342.pdf 
B-2342.pdf 
C43.pdf 
E2AD342.pdf

那么问题是什么？你不能期望有人为你写代码。试一试，然后在这里发帖，如果你遇到问题或有特定的问题。 – BenV 2011-02-01 02:11:43

答

将想要处理的文件夹路径作为第一个参数传递给此脚本。您可能需要调整输入的正则表达式。

Set expr = New RegExp 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set fpath = fs.GetFolder(WScript.Arguments(0)) 

expr.Pattern = "Floor\S*\s+([^\s.]*)" 

For Each fspec In fpath.Files 
    Set matches = expr.Execute(fspec.Name) 
    If matches.Count = 0 Then 
     WScript.StdErr.WriteLine "Invalid file name " & fspec.Name 
    Else 
     fspec.Move fspec.ParentFolder & "\" & matches(0).Submatches(0) & ".pdf" 
    End If 
Next

批处理文件VBScript中

相关推荐