String rückwärts in VB-Skript ohne Verwendung von Eingebauten Funktionen

 option explicit

dim r, res, num

num= cint(inputbox("Enter the number"))

  do while(num > 0)

 r= num mod 10

 num= num\10

res= res & r

loop

msgbox res

Gut, das ist der code, nun ist meine Frage, funktioniert dies perfekt für die Eingabe von 1234, auch wenn die Eingabe 0123 es druckt nur, 321, die ist falsch.Es muss zum drucken 3210.
Ich bin nicht in der Lage, herauszufinden, viel versucht, aber vergeblich, jede mögliche Hilfe würde geschätzt werden
Danke und Grüße

InformationsquelleAutor g90uagk | 2014-05-27
  1. 1

    Müssen Sie entscheiden, ob Sie umkehren möchten strings oder zahlen (unfallbedingt dargestellt als Dezimalzahlen). Wenn Sie umkehren möchten, Streicher, sollten Sie

    1. nicht konvertieren (string) input eine Zahl/integer
    2. die Verwendung von string-ops: Mid () - zum Lesen, Verkettungs - & für Gebäude

    Hinzugefügt: In (demo - /nicht-Produktion) code:

    Option Explicit

Function rev(s)
  Dim p
  For p = Len(s) To 1 Step -1
      rev = rev & Mid(s, p, 1)
  Next
End Function

Dim s
For Each s In Array("1234", "0123")
    WScript.Echo s, rev(s)
Next

    Ausgabe:

    1234 4321
0123 3210
    • Nun, was, wenn der Eingang übernommen wird, als num= "1234"
    • bitte siehe update.
    • Auch schätzen Ihre Hilfe bei diesem, ist es nicht möglich dies zu tun ohne alle Funktionen/ eingebaute Funktionen, was so überhaupt.
    InformationsquelleAutor Ekkehard.Horner
  2. 0

    str = Inputbox("Geben Sie die Nummer ein")

    rev=""

    Set regx = New RegExp

    regx.Global = True

    regx.IgnoreCase = True

    regx.Pattern = ".{1}"

    Set colchars= regx.Execute(str)

    For i = 0 To colchars.Count-1

    rev= colchars.Item(i)&rev

    Nächsten

    MsgBox rev

    InformationsquelleAutor Gimmet
  3. 0

    String reverse-Programm ohne Verwendung von Reverse String Funktion & Mid-Funktion.

    str=inputbox("Enter the string: ")
str1=len(str)
a=Left(str,1)
for i=1 to str1
str2=Left(str,i)
if len(str2)>1 then
   str3=Right(str2,1)&temp
   temp=str3    
end if
next
msgbox temp&a
    InformationsquelleAutor Rakesh Yadav
  4. 0

    Versuchen Sie dies:

    Dim   num,   rev
num   =   inputbox("Enter a number")
If   Len(num)=4 Then
rev = rev*10 + num mod 10
num = num/10
num = left(num,3)
rev = rev*10 + num mod 10
num = num/10
num = left(num,2)
rev = rev*10 + num mod 10
num = num/10
num = left(num,1)
rev = rev*10 + num mod 10
msgbox "Reverse Order of the number is "&rev 
Else
msgbox "Number, you entered is not a 4 digit number"
End If
    InformationsquelleAutor Jayaprasanta Mahapatra
Schreibe einen Kommentar