Festellen, ob ein String nur Zahlen enthält

[MVXA]

Hallo !
Ich hab für ein Programm von mir eine Funktion geschrieben, mit der man überprüfen kann, ob ein String nur Zahlen enthält (#True) oder nicht (#False)

Code: Alles auswählen

Procedure isNumeric(strZahl.s)
    DefType.b bytResult
    DefType.l lngCount
    DefType.s strTmpChar
    
    For lngCount = 1 To Len(strZahl)
        strTmpChar = Mid(strZahl, lngCount, 1)
        If Asc(strTmpChar) => '0' And Asc(strTmpChar) <= '9'
            bytResult = #True
        Else
            bytResult = #False
            Break
        EndIf
    Next
    
    ProcedureReturn bytResult
EndProcedure

[GPI]

Ah. wieder mal ein optimierungswettbewerb:

Code: Alles auswählen

Procedure IsNumeric(*String.BYTE)
  Result=#True
  While *String\b
    If *String\b<'0' Or *String\b>'9'
      Result=#False
      Break
    EndIf
    *String+1
  Wend
  ProcedureReturn Result
EndProcedure

Debug IsNumeric(@"1233587923")
Debug IsNumeric(@"234243jk")
a$="654"
Debug IsNumeric(@a$)

[MVXA]

ich habs nur gepostet weil ich diese Funktion nirgends gefunden hab, das soll kein optimierungswettbewerb sein

[Falko]

@GPI
Optimieren?
Unter Andere Sprachen ist ein Source von Powerbasic aus dem
englischen Forum, bei dem ich leider passen muß.
Wie wäre es denn damit? Das wäre doch eine Herausforderung zum
Optimierungswettbewerb, oder?

Gruß Falko

[PMV]

Ich hät da nix gegen ... da ich auf Optimierte Codes lauere wie der Wolf auf das Häschen *gg* ... kann ich nur von profetieren, vorallem benutzt ich auch so eine Procedure ... und lernen tut man (Anfänger ) bei so was auch noch

also in dem Sinne *gg*

MFG PMV

[GPI]

ich habs nur gepostet weil ich diese Funktion nirgends gefunden hab, das soll kein optimierungswettbewerb sein

War nicht böse gemeint. Aber bei solch kleinen Routinen hat jeder seine vorgehensweise. Ich würde sowas über Pointer lösen (siehe oben).

[MVXA]

dann lsöcht das ganze hier halt, ich wollt das nur für anfänger bereitstellen... mir doch egal -_-

[GPI]

dann lsöcht das ganze hier halt, ich wollt das nur für anfänger bereitstellen... mir doch egal -_-

Toll. ich fühl mich jetzt auch mieß

Es führt mehr als nur ein Weg zum Ziel. Wichtig ist erstmal einen weg zu finden.

[redacid]

LittleFurz: nein, der Thread wird nicht gelöscht. Ich habe deine Procedur nicht getestet, gehe aber einfach davon aus, dass sie funktioniert. Und nur, weil GPI eine "andere" Version zeigt, ist deine doch noch lange nicht schlechter - nur eben anders gelöst. Es ist doch schön, wenn man für ein und dasselbe Problem gleich mehrere verschiedene Lösungen hat.

[Vallan]

Um herauszufinden ob keine Buchstaben da sind (Kürtzer aber schlechter) :

Code: Alles auswählen

string.s = "34"
If UCase(string) = LCase(string)
Debug "Ja"
Else 
Debug "Nein"
EndIf