vbs脚本怎样自动匹配文件名？

zxcvb888

想要自动匹配文件名0123200300100010001=0123-2003-001-0001-0001，如何编写？

batman

1. 
   
2. Dim FileName
   
3. FileName = "0123200300100010001"
   
4. WScript.Echo RegText(FileName)
   
5. 
   
6. Function RegText(RegStr)
   
7.   Dim RegEx
   
8.   Set RegEx = New RegExp
   
9.   RegEx.Pattern = "(\d{4})(\d{4})(\d{3})(\d{4})(\d{4})"
   
10.   RegText = RegEx.Replace(RegStr, "$1-$2-$3-$4-$5")
    
11.   Set RegEx = Nothing
    
12. End Function
    

复制代码