20 lines
479 B
Plaintext
20 lines
479 B
Plaintext
FUNCTION bBRACKETS_MATCH(zStringWithBrackets: STRING): STRING
|
|
VAR sCount: SHORT
|
|
VAR sBracketCounter: SHORT
|
|
VAR zOK: STRING
|
|
//
|
|
SET zOK = "NOT OK"
|
|
DO sCount = 1 TO LENGTH(zStringWithBrackets)
|
|
CASE SUBSTR(zStringWithBrackets, sCount, 1)
|
|
VALUE "["
|
|
SET sBracketCounter = sBracketCounter + 1
|
|
VALUE "]"
|
|
SET sBracketCounter = sBracketCounter - 1
|
|
ENDCASE
|
|
ENDDO
|
|
IF sBracketCounter = 0
|
|
SET zOK = "OK"
|
|
ENDIF
|
|
RETURN zOK
|
|
ENDFUNCTION
|