文件名称:VBS_delphi
介绍说明－－下载内容均来自于网络，请自行研究使用
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 result
}-VBS analytic _delphi.rarfunction ParseFileDir (a_strFileName) (var l_FunNo var l_BaseDir var result l_BaseDir =
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 result
}-VBS analytic _delphi.rarfunction ParseFileDir (a_strFileName) (var l_FunNo var l_BaseDir var result l_BaseDir =
(系统自动生成,下载前可以参看下载内容)
下载文件列表
VBS_delphi
..........\MSScriptControl_TLB.dcu
..........\MSScriptControl_TLB.pas
..........\Project1.cfg
..........\Project1.dof
..........\Project1.dpr
..........\Project1.exe
..........\Project1.res
..........\Project1.~dpr
..........\RegExp.vbs
..........\Unit1.dcu
..........\Unit1.ddp
..........\Unit1.dfm
..........\Unit1.pas
..........\Unit1.~ddp
..........\Unit1.~dfm
..........\Unit1.~pas
..........\MSScriptControl_TLB.dcu
..........\MSScriptControl_TLB.pas
..........\Project1.cfg
..........\Project1.dof
..........\Project1.dpr
..........\Project1.exe
..........\Project1.res
..........\Project1.~dpr
..........\RegExp.vbs
..........\Unit1.dcu
..........\Unit1.ddp
..........\Unit1.dfm
..........\Unit1.pas
..........\Unit1.~ddp
..........\Unit1.~dfm
..........\Unit1.~pas