XProfan

Titre de la fenêtre "Klammer-Ausgewogenheitstest"
cls
declare u&,d&, r$
r$="latitude! (* (/ (+ lat! (* (- (+ 1 (* e2cuadrada! (math_pow(cos lat!)2)) ) (* (/ 3.0 2.0) e2cuadrada! (sin lat!) (cos lat!) (- tao! lat!))) (- tao! lat!))) Math_PI) 180.0)"

whileloop len(r$)

    cas mid$(r$,&Boucle,1)="(":inc u&
    cas mid$(r$,&Boucle,1)=")":inc d&

endwhile

imprimer "( ... ";u&
imprimer ") ... ";d&

si d&<>u&

    imprimer " pas ausgewogen!"

d'autre

    imprimer " OK."

endif

waitinput

Proc BracketBalance

    Paramètres line$
    Déclarer c$, u&, d&, str%

    WhileLoop len(line$)

        c$ = mid$(line$,&Boucle,1)
        cas (c$ = "\q") :  str% = Si(str% = 0, 1, 0)

        Si (str% = 0)'seulement si pas dans einer Zeichenkette

            Si (c$ = "'") AND (str% = 0)'chez Kommentar ist Schluss

                pause

            EndIf

            cas (c$ = "(") : inc u&
            cas (c$ = ")") : inc d&

        EndIf

    Endwhile

    '0 = ok, 1 = Klammern unausgewogen, 2 = Zeichenkette pas gschlossen, 3 = beides abîmé
    return (si(u& <> d&,1,0) + si(str% = 1, 2, 0))

ENDPROC

declare s1$, s2$, s3$, s4$
s1$ = "Das est un (\qguter\q) Test! 'avec Kommentar :-)"
s2$ = "Das est un (\qguter) Test! 'avec Kommentar :-)"
s3$ = "Das est un (\qguter\q Test! 'avec Kommentar :-)"
s4$ = "Das est un (bon) \qTest! 'avec Kommentar :-)"
imprimer BracketBalance(s1$) + " " + s1$'0 = ok
imprimer BracketBalance(s2$) + " " + s2$'3 = beides abîmé (Klammer seulement weil zweite ausversehen dans Zeichenkette)
imprimer BracketBalance(s3$) + " " + s3$'1 = Klammern unausgewogen
imprimer BracketBalance(s4$) + " " + s4$'2 = Zeichenkette pas gschlossen
waitinput
end