44 lines
1016 B
Plaintext
44 lines
1016 B
Plaintext
FUNCTION extract_value(criterio, campo)
|
|
|
|
DEFINE criterio, campo VARCHAR(500)
|
|
DEFINE tok, tok2 base.StringTokenizer
|
|
DEFINE token, VALUE, token2 VARCHAR(200)
|
|
DEFINE idx INTEGER
|
|
|
|
LET tok = base.StringTokenizer.create(criterio, " ")
|
|
LET value = ""
|
|
LET campo = '*',campo,'*'
|
|
LET idx = 1
|
|
|
|
WHILE tok.hasMoreTokens()
|
|
LET token = tok.nextToken()
|
|
|
|
-- Verifica si el token comienza con el campo
|
|
IF token MATCHES campo THEN
|
|
|
|
LET tok2 = base.StringTokenizer.create(token, "=")
|
|
|
|
WHILE tok2.hasMoreTokens()
|
|
LET token2 = tok2.nextToken()
|
|
DISPLAY token2
|
|
|
|
IF idx = 2 THEN
|
|
|
|
LET VALUE = token2
|
|
EXIT WHILE
|
|
|
|
END IF
|
|
|
|
LET idx = idx + 1
|
|
|
|
END WHILE
|
|
|
|
END IF
|
|
END WHILE
|
|
|
|
|
|
DISPLAY VALUE
|
|
RETURN VALUE
|
|
|
|
END FUNCTION
|