striplines.prg

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

#DEFINE		CRLF				CHR(13)+CHR(10)

LPARAMETERS tcFile, tcPrefix
LOCAL lcFile, lcText, lcSafety

lcSafety = SET("SAFETY")
SET SAFETY OFF

lcFile = FULLPATH(tcFile)
lcText = FILETOSTR(lcFile)
lcText = CutWithPrefix(lcText, tcPrefix)
STRTOFILE(lcText, lcFile)

SET SAFETY &lcSafety

RETURN


FUNCTION CutWithPrefix(tcText, tcPrefix)
	LOCAL lnLines, laLines[1], lnCnt, lnLen, lcLine, lcRetVal
	lcRetVal = ""

	lnLen = LEN(tcPrefix)
	lnLines = ALINES(laLines, tcText)

	FOR lnCnt = 1 TO lnLines
		lcLine = RemoveWhite(laLines[lnCnt])

		IF LEFT(lcLine, lnLen) != tcPrefix
			lcRetVal = lcRetVal + laLines[lnCnt] + CRLF
		ENDIF
	ENDFOR

	RETURN lcRetVal
ENDFUNC


FUNCTION RemoveWhite(tcLine)
	#DEFINE		WHITESPACE		CHR(9)+CHR(32)
	LOCAL lcRetVal
	lcRetVal = tcLine

	DO WHILE LEFT(lcRetVal, 1) $ WHITESPACE
		lcRetVal = SUBSTR(lcRetVal, 2)
	ENDDO

	RETURN lcRetVal
ENDFUNC