Semipro
Neuling
Dabei seit: 26.12.2001
Beiträge: 15
Herkunft: jenseits von Gut und Böse
|
|
VBS-Script läuft nicht |
|
Hi Leute,
warum funst folgender Code nicht?
Dim strA, strB
strA = 3
strB = InputBox ("nenne eine Zahl!")
If strB > strA Then
MsgBox (strA & " ist kleiner als " & strB)
EndIf
Die "\" sind nicht Teil des Codes
|
|
09.02.2002 21:43 |
|
|
LX
El Comandante en Jefe
Dabei seit: 25.11.2001
Beiträge: 5.372
Herkunft: Berliner Bronx
|
|
Also bei mir funktioniert es einwandfrei.
__________________ JS-Games.de - Misled Scripting Skills Gone Mad | Meine Filmkritiken | Urban Photography
Kommt mal in den IRC-Channel: irc.eu.freenode.net | Port 6667 | #blackboard
"Ever tried. Ever failed. No matter.
Try again. Fail again. Fail better."
- Samuel Beckett
|
|
10.02.2002 04:49 |
|
|
Semipro
Neuling
Dabei seit: 26.12.2001
Beiträge: 15
Herkunft: jenseits von Gut und Böse
Themenstarter
|
|
bei einer Zuweisung von 3 als Wert von strB, erscheint bei mir die MsgBox. dies sollte aber doch nur bei strB > strA
erfolgen. Auch eine Änderung des Vergleichsoperators zu "="
ergibt nicht das zu erwartende Ergebniss.
Ich gebe das in Notpad ein und speichere es unter .vbs.
Wenn ich es jedoch unter VBA in eine Excel Mappe schreibe verhält es sich richtig.
PS: wir reden aber schon von VBS?
|
|
10.02.2002 11:05 |
|
|
LX
El Comandante en Jefe
Dabei seit: 25.11.2001
Beiträge: 5.372
Herkunft: Berliner Bronx
|
|
Zitat: |
Original von Semipro
Wenn ich es jedoch unter VBA in eine Excel Mappe schreibe verhält es sich richtig.
PS: wir reden aber schon von VBS?
|
Oh, okay, dann ist es mein Fehler, ich dachte VBS ist nur ein Tippfehler (A ist ja gleich neben dem S). Hab's auch nur in Excel getestet.
Ich kenne mich zwar mit den VBS-Spezifikationen nicht aus, aber ich denke mal eine Klammerung
If (strA > strB) Then...
bringt auch nichts, oder?
__________________ JS-Games.de - Misled Scripting Skills Gone Mad | Meine Filmkritiken | Urban Photography
Kommt mal in den IRC-Channel: irc.eu.freenode.net | Port 6667 | #blackboard
"Ever tried. Ever failed. No matter.
Try again. Fail again. Fail better."
- Samuel Beckett
|
|
10.02.2002 14:06 |
|
|
Semipro
Neuling
Dabei seit: 26.12.2001
Beiträge: 15
Herkunft: jenseits von Gut und Böse
Themenstarter
|
|
nach dem ausklammern erscheint die MsgBox in jedem Fall!
|
|
10.02.2002 19:07 |
|
|
Medusa
Senior Member
Dabei seit: 10.09.2001
Beiträge: 356
Herkunft: ...von da, wo mein Haus wohnt...
|
|
Wenn du die 3 nicht in Anführungszeichen setzt, dann is des n Wert im Typ single und der kann net mit nem String verglichn werden.
So müsste es gehn:
Dim strA, strB
strA = "3"
strB = InputBox("nenne eine Zahl!")
If strB < strA Then
MsgBox (strB & " ist kleiner als " & strA)
End If
... un in deim Code würde in der msg-Box stehen dass
"A < B" wenn B < A hmmmmmmmm
Da fällt mir gerade ein:
Ich würde bei DIM noch "as single" hinschreiben. Denn
wenn des ein String is, dann is "200" < "3".
Also müsste des so heißen (jedoch ohne "", weil Single):
Dim A, B as Single
A = 3
B = InputBox("nenne eine Zahl!")
If B < A Then
MsgBox (B & " ist kleiner als " & A)
End If
__________________ Grüßle, Medi
|
|
05.03.2002 21:21 |
|
|
Semipro
Neuling
Dabei seit: 26.12.2001
Beiträge: 15
Herkunft: jenseits von Gut und Böse
Themenstarter
|
|
He, danke jetzt läuft das Ganze!
Die Anführungszeichen waren genau der richtige Tip!
Dim strA, strB
strA = "03"
strB = InputBox("nenne eine Zahl!")
If strB < strA Then
MsgBox (strB & " ist kleiner als " & strA)
End If
Also die Deklaration der Variablen als Single funst so nich,
weil VB Script alle Variablen automatisch als Variant deklariert!
Und die Sache mit
"Denn wenn des ein String is, dann is "200" < "3".
Also müsste des so heißen (jedoch ohne "", weil Single): "
kann man mit strA = "03" umgehen.
|
|
11.03.2002 14:24 |
|
|
|
|
|