Tvůrce webu je i pro tebe! Postav třeba web. Bez grafika. Bez kodéra. Hned.
wz

Obsah / Utility / TEXT / TextTrim

Zdrojový kód: INCLUDE\UTIL\TEXT.INC, UTIL\TEXT.ASM


TextTrim - Ořezání textu zleva a zprava

Funkce TextTrim odstraní nevýznamné mezery a řídicí znaky (tj. znaky s kódem 32 a menším) ze začátku a konce textu.


; -----------------------------------------------------------------------------
;   Trim text from the left and right (delete spaces and control characters)
; -----------------------------------------------------------------------------
; INPUT:	EBX = pointer to TEXT
; OUTPUT:	CY = memory error (text may be changed)
; -----------------------------------------------------------------------------

TextTrim:	call	TextTrimRight	; trim text from the right
		jc	short TextTrimLeft9 ; memory error

; TextTrimLeft must follow

Na vstupu funkce obsahuje registr EBX ukazatel na textovou proměnnou. V případě chyby paměti funkce navrátí příznak chyby CY. Funkce se provede zavoláním funkce pro ořezání textu zprava TextTrimRight a dále následuje funkce pro ořezání textu zleva TextTrimLeft. Funkce pro ořezání textu zprava je rychlejší (znaky se odstraňují z konce textu), proto se volá dříve než ořezání textu zleva (zbývá pak již kratší text k manipulaci).


Obsah / Utility / TEXT / TextTrim