VBS解析_delphi.rar function ParseFileDir(a_strFileName) { var l_FunNo var l_BaseDir var result l_BaseDir = \"D:\\\\X项目\\\\\" l_FunNo = a_strFileName.substring(0, 5) result = l_BaseDir+l_FunNo + \\\\ +a_strFileName return

To run this code, you can save it as CurrencyEx.vbs and run it using Windows scr ipt Host, copy it to VB (need to add references to Microsoft VBscr ipt Regular Expressions) or embed the code in an HTML file.