'*******************************************************************************************************************************************************
'Function Name: ExtractProjectName
'Description: It will Return Project Name from Project File Path
'Parameters: Project.FileName
'output: Project File Name without Extension
'Example: ProjectName=ExtractProjectName(Project.FileName)
'*******************************************************************************************************************************************************
Function ExtractProjectName(ProjectFilePath)
ProjectFilePath=Project.FileName
Log.Message ProjectFilePath
lastPosSlash=aqString.FindLast(ProjectFilePath,"\")
lastpostDot=aqString.FindLast(ProjectFilePath,".")
totalLength= aqString.GetLength(ProjectFilePath)
a=aqString.SubString(ProjectFilePath,lastPosSlash+1,(lastpostDot-1)-lastPosSlash)
ExtractProjectName =a
End Function