Avenue Abfrage ob String Zahl enthält ?

Gespeichert von Sebastian am
im Forum ArcView 3.x classic
Guten Morgen,

ich habe folgendes Anliegen.Ich benötige ein Scrip, indem man abfragen kann, ob in einem String eine Zahl enthalten ist. Hat jemand eine Idee ?

Gespeichert von Maxilla am Do., 23.11.2006 - 09:49

Permalink
Z.B. so:

yourString = "S1ebastia200n"
theList = yourString.AsTokens("ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrst uvwxyzäöü,.-")
MsgBox.Info(yourString.Quote+" enthält Nummern: "+(theList.Count>1).AsString.UCase,"")
MsgBox.ListAsString(theList,(theList.Count).AsString+" Nummern in "+yourString.Quote,"")

oder um sich die Auflistung der Zeichen etwas einfacher zu machen:

yourString = "S1ebastia200n"
theSList = yourString.AsTokens("0123456789")
MsgBox.Info(yourString.Quote+" enthält Nummern: "+(theSList.Count>1).AsString.UCase,"")
theCString = ""
for each it in theSList
theCString = theCString + it
end
theNList = yourString.AsTokens(theCString)
MsgBox.ListAsString(theNList,(theNList.Count).AsString+" Nummern in "+yourString.Quote,"")

Gruß, Mx.

Gespeichert von Sebastian am Do., 23.11.2006 - 10:43

Permalink
Super.Vielen Danke für die schnelle Antwort !!! Genau sowas brauche ich.

Gespeichert von Sebastian am Do., 23.11.2006 - 14:51

Permalink
Eine Frage habe ich aber noch :

Wenn ich z.B. den String "33a" habe und ich frage ab ob Zahl enthalten ist, wie kann den Buchstaben rausnehmen, so dass ich nur noch die Zahl habe.

Gespeichert von Maxilla am Do., 23.11.2006 - 15:20

Permalink
Die Skripte tun doch genau das... "theNList" listet dir in beiden Skripten die im String enthaltenen Nummern auf, für 33a also 33...

Hab dadurch im Übrigen einen kleinen Fehler entdeckt (statt theList.Count>1 bzw theSList.Count>1 muss es zweimal >= heißen. Hier noch mal die korrigierten Versionen:


' NUMMERN (positiv) AUS STRING EXTRAHIEREN

yourString = "33a3"
theNList = yourString.AsTokens("ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrst uvwxyzäöü,.-")
MsgBox.Info(yourString.Quote+" enthält Nummern: "+(theNList.Count>=1).AsString.UCase,"")
MsgBox.ListAsString(theNList,(theNList.Count).AsString+" Nummer(n) in "+yourString.Quote,"")

' ODER, um sich die Auflistung der Zeichen einfacher zu machen:

yourString = "33a3"
theSList = yourString.AsTokens("0123456789")
MsgBox.Info(yourString.Quote+" enthält Nummern: "+(theSList.Count>=1).AsString.UCase,"")
theCString = ""
for each it in theSList
theCString = theCString + it
end
theNList = yourString.AsTokens(theCString)
MsgBox.ListAsString(theNList,(theNList.Count).AsString+" Nummer(n) in "+yourString.Quote,"")