Ich versuche einen Port vom User abzufragen und möchte
diesen dann weiterverarbeiten.
Wie kann ich testen, ob die Eingabe auch eine Zahl ist?
Angenommen ich möchte Port 80 auf Port 81 ändern:
This is a ready-only archive of the InstallSite Forum. You cannot post any new content here. / Dies ist ein Archiv des InstallSite Forums. Hier können keine neuen Beiträge veröffentlicht werden.
Testen ob rückgabe auch eine Zahl ist.
Started by
andyPT
, Jul 01 2005 11:22
3 replies to this topic
andyPT
-
- Full Members
- 21 posts
Posted 01 July 2005 - 11:22
| CODE |
AskText("NewPort","80",szNewHttpPort); nvResult = StrToNum (nvNewHttpPort, szNewHttpPort); if(nvResult >= ISERR_SUCCESS ) then MessageBox("PORT"+szNewHttpPort,1); else MessageBox("wrong PORT"+szNewHttpPort,1); endif; |
Auf diese Weise kann der user auch "81asdfsdf" eingeben.
Gruß
Andy
Stefan Krueger
-
- Administrators
- 13,269 posts
InstallSite.org
Posted 04 July 2005 - 14:25
Du könnest dazu das Beispiel "Test Whether a String is Alphanumeric" leicht abwandeln.
http://www.installsi.../en/isp_str.htm
http://www.installsi.../en/isp_str.htm
Stefan Krüger
InstallSite.org twitter facebook
andyPT
-
- Full Members
- 21 posts
Posted 05 July 2005 - 09:10
Vielen Dank!
das werde ich tun.
Ich habe das gar nicht gesehen.
gruss Andy
das werde ich tun.
Ich habe das gar nicht gesehen.
gruss Andy
andyPT
-
- Full Members
- 21 posts
Posted 05 July 2005 - 18:31
Ich habe das nun mal versucht...
... hat bei mir aber nicht geklappt.
Ich denke da ist ein Fehler in eurem script.
orginal:
... hat bei mir aber nicht geklappt.
Ich denke da ist ein Fehler in eurem script.
orginal:
| CODE |
for nPos = 0 to StrLength (szStuff) StrSub (szChar, szStuff, nPos-1, 1); if !(ALPHANUMERIC_CHARS % szChar) then return FALSE; endif; endfor; |
hier wäre bei SubStr das erste Zeichen leer, da nPos = -1.
geändert:
| CODE |
for nPos = 0 to StrLength (szStuff)-1 StrSub (szChar, szStuff, nPos, 1); if !(ALPHANUMERIC_CHARS % szChar) then return FALSE; endif; endfor; |
oder mach ich da ein Fehler?
Gruss Andy