Navigation

• Main Page

• Random Page
• Create a new Page
• All Pages
• Categories
• VFP Functions
• Implementing VFP Functions
• VFP Commands
• Wish List
• Using the compiler

• Administration
• File Management

• Login/Logout
• Language Selection
• Your Profile
• Create Account

JustFName Function

function JustFName(tcString)
		local lnDivider
		lnDivider = max(rat("/",m.tcString), rat("\",m.tcString))
		do case
			case m.lnDivider=1
				RETURN JustFName_E_DoubDot(m.tcString)
			case m.lnDivider>1
				return substr(m.tcString,m.lnDivider+1)
			otherwise
				RETURN JustFName_E_DoubDot(m.tcString)
		endcase

--
Support function
function JustFName_E_DoubDot(tcString)
			if substr(m.tcString, 2, 1) ==":"
				if len(m.tcString)>2
					RETURN substr(m.tcString, 3)
				else
					return ""
				endif
			else
				return m.tcString
			endif