strtranc.prg

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

LPARAMETERS tcOrig, tcFind, tcRepl, tnStart, tnHowMany
LOCAL lnPos, lcRetVal, lcFind, lnFound, lnOccur
lcRetVal = tcOrig

IF PCOUNT() < 5
	tnHowMany = LEN(tcOrig) + 1
ENDIF

IF PCOUNT() < 4
	tnStart = 1
ENDIF

lnFound = 0
lnOccur = 1

lnPos = ATC(tcFind, lcRetVal, lnOccur)
DO WHILE lnPos > 0
	IF (lnOccur < tnStart)
		lnOccur = lnOccur + 1
		lnPos = ATC(tcFind, lcRetVal, lnOccur)
	ELSE
		IF lnFound >= tnHowMany
			* Make sure we don't continue
			lnPos = 0
		ELSE
			lnFound = lnFound + 1
			lnOccur = lnOccur + 1
			lcRetVal = SUBSTR(lcRetVal, 1, lnPos-1) + tcRepl + SUBSTR(lcRetVal, lnPos+LEN(tcFind))
			lnPos = ATC(tcFind, lcRetVal, lnOccur)
		ENDIF
	ENDIF
ENDDO

RETURN lcRetVal