38 lines
996 B
Text
38 lines
996 B
Text
DECLARE FUNCTION strip$ (what AS STRING)
|
|
DECLARE FUNCTION strip2$ (what AS STRING)
|
|
|
|
DIM x AS STRING, y AS STRING, z AS STRING
|
|
|
|
' tab c+cedilla eof
|
|
x = CHR$(9) + "Fran" + CHR$(135) + "ais" + CHR$(26)
|
|
y = strip(x)
|
|
z = strip2(x)
|
|
|
|
PRINT "x:"; x
|
|
PRINT "y:"; y
|
|
PRINT "z:"; z
|
|
|
|
FUNCTION strip$ (what AS STRING)
|
|
DIM outP AS STRING, L0 AS INTEGER, tmp AS STRING
|
|
FOR L0 = 1 TO LEN(what)
|
|
tmp = MID$(what, L0, 1)
|
|
SELECT CASE ASC(tmp)
|
|
CASE 32 TO 126
|
|
outP = outP + tmp
|
|
END SELECT
|
|
NEXT
|
|
strip$ = outP
|
|
END FUNCTION
|
|
|
|
FUNCTION strip2$ (what AS STRING)
|
|
DIM outP AS STRING, L1 AS INTEGER, tmp AS STRING
|
|
FOR L1 = 1 TO LEN(what)
|
|
tmp = MID$(what, L1, 1)
|
|
SELECT CASE ASC(tmp)
|
|
'normal accented various greek, math, etc.
|
|
CASE 32 TO 126, 128 TO 168, 171 TO 175, 224 TO 253
|
|
outP = outP + tmp
|
|
END SELECT
|
|
NEXT
|
|
strip2$ = outP
|
|
END FUNCTION
|