Was man mit RegEx so alles anstellen kann. :idea:
Vielleicht hilfreich für die Kleinen zum Üben :
Code
Declare String s, Dreisatz[3]
Declare Int Var1[], Var2, zaehler, erg
Set("RegEx", 1)
Var Int pos = 1
Dreisatz[0] = "4 Eier kosten 80 Cent, wieviel kosten 3 Eier ?"
Dreisatz[1] = "5 Männer trinken 20 Bier, wieviel trinken 8 Männer, wenn jeder gleichviel trinkt ?"
Dreisatz[2] = "7 Hühner legen 42 Eier am Tag. Wieviel Eier legen 12 Hühner am Tag, wenn jedes gleichviel legt ?"
Dreisatz[3] = "3 Machinen fertigen 1200 Stück am Tag. Wieviel fertigen 10 Maschinen ?"
WhileLoop 0, 3
zaehler = 0
pos = 1
Clear Var1[]
While pos <> 0
pos = Instr("[0-9]{1,}", Dreisatz[&LOOP], pos)
If pos > 0
Var1[zaehler] = Val($Match)
Inc zaehler
pos = pos + 4 ' wegen mehreren möglichen Stellen (hier bis Tausender)
EndIf
EndWhile
Print Dreisatz[&LOOP]
Print "Gebe Ergebnis ein : ";
Input Var2
erg = (Var1[1] / Var1[0]) * Var1[2]
If Var2 = erg
Print "Richtig !!!!"
Else
Print "Leider falsch !"
Print erg, "wäre richtig !"
EndIf
EndWhile
Print "Taste zum Beenden..."
Waitkey
End
Alles anzeigen