;$spath必须是一个确实的文件
;_getdir 给出文件路径但不包含文件名
;_getfilename 给出文件名 $sflag=1时不包含文件类型
;_getfiletype 给出文件类型
Func _getdir($spath)
If StringRegExp($spath, '\\') Then
$sdir = StringRegExpReplace($spath, '\\[^\\]*$', '')
Else
$sdir = ''
EndIf
Return ($sdir)
EndFunc ;==>_getdir
Func _getfilename($spath, $sflag = 0)
If $sflag = 0 Then
$sflag = 0
Else
$sflag = 1
EndIf
If $sflag = 0 Then
$sFileName = StringRegExpReplace($spath, '.+\\', '')
Else
$sFileName = StringRegExpReplace($spath, '.+\\', '')
$sFileName = StringRegExpReplace($sFileName, '\.[^\.]*$', '')
EndIf
Return ($sFileName)
EndFunc ;==>_getfilename
Func _getfiletype($spath)
$sFiletype = StringRegExpReplace($spath, '.+\.', '')
Return ($sFiletype)
EndFunc ;==>_getfiletype
|