builderb.prg

来自「MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功」· PRG 代码 · 共 33 行

*  Program...........: BUILDERB.PRG
*  Author............: Ken R. Levy
*  Project...........: BuilderB
*  Created...........: 07/16/1995
*  Modifiled.........: 12/02/1996
*  Description.......: BuilderB startup program.



LOCAL lcPath,lcBuilderBPath

lcPath=SET("PATH")
lcBuilderBPath=TrimFile(SYS(16))
lcBuilderBPath=UPPER(LEFT(lcBuilderBPath,LEN(lcBuilderBPath)-1))
IF NOT (lcBuilderBPath+";")$(lcPath+";")
	IF EMPTY(lcPath)
		SET PATH TO (lcBuilderBPath)
	ELSE
		SET PATH TO (lcPath+";"+lcBuilderBPath)
	ENDIF
ENDIF
RETURN



FUNCTION TrimFile(tcFileName)
LOCAL lcFileName,lnAtPos

lnAtPos=RAT("\",tcFileName)
lcFileName=ALLTRIM(IIF(lnAtPos=0,tcFileName,LEFT(tcFileName,lnAtPos)))
RETURN lcFileName
ENDFUNC