Eigene Script Sprache schreiben [klein & gut] ^.^

So Leute wollte hier mal erklären wie man bestimmte Worte erkennen kann und z.b. ein inhalt zwischen Klammern herrauslesen kann

im Präfix steht zwar drinne VB 6 aber müsste auch in den anderen Versionen klappen

also fang ich mal an:

dim temp_wert as String
temp_wert = ""
For i = 0 to len(Textfeld)

if(mid(Textfeld,i,7) = "message")then ' als mid findet einen Zusammenhang einer bestimmten Zeichen kette von einer bestimmten stelle bis zu einer bestimmten Stelle
i = i + 7 ' Die länge des Worts dazu zählen damit er diese Stellen überspringt ^_^
if(mid(Textfeld,i,1) = "(")then
i = i + 1 ' wieder die stelle dazuzählen
do until mid(Textfeld,i,1) = ")" ' schleife bis zu diesem Komma )
temp_wert = temp_wert & mid(Textfeld,i,1) ' alles wird zusammen gesetzt was sich an den stellen zwischen den Kommas befindet
i = i + 1 ' eine stelle + Zählen damit er die Zeichen nach und nach zusammensetzt
loop
if(mid(Textfeld,i,1) = ";")then ' findet er dieses Zeichen ; ist der Code Richtig und er kann fortfahren...
Msgbox temp_wert ' Zeigt die Nachricht an zwischen den klammern
temp_wert = "" ' den inhalt löschen
else
Msgbox "Ein Similikon Fehlt!",16,"Fehler"
temp_wert = ""
end if
end if
end if

next i

So ich hoffe ihr habts so verstanden, wenn nicht einfach Fragen ;x , Have Fun

aso und Textfeld gegen den String ersetzen wo dieser Code enthalten ist bzw. wo er finden/suchen soll

// Edit hab den Titel geändert und noch ein Tut im VB 6 Format und VB 2008 Format gemacht

so das mans gleich testen kann, have fun

Download Here

So habs mal in VB 6 und 2008 als Tut gemacht, so das man es gleich testen kann, sind auch nen paar erklärungen dabei,
hoffe es gefällt euch , die File is im ersten Post zu finden

das sollte nur ein ansatz dazu sein wie man Text Zeichen erkennt und inhalte filtert, aus sowas basieren manche Script Sprachen

keine Angst soweit geh ich nicht, ich bin schon soweit gegangen ;>