20 lines
354 B
Plaintext
20 lines
354 B
Plaintext
FUNCTION REMOVE_TRAILING_CHAR( Field, CharToRemove )
|
|
*
|
|
begin condition
|
|
pre:
|
|
post:
|
|
end condition
|
|
$insert logical
|
|
|
|
NewField = ''
|
|
FCnt = len(Field)
|
|
Done = false$
|
|
for i = FCnt to 1 step -1
|
|
ThisChar = Field[i,1]
|
|
if ThisChar = CharToRemove then
|
|
NewField = Field[1,i-1]
|
|
end
|
|
until ThisChar <> CharToRemove
|
|
next i
|
|
return NewField
|