[VBSCRIPT] String to ascii [Geschlossen]

weissengel - 18. August 2011 um 11:47 - Letzte Antwort:  Sauron
- 26. November 2013 um 14:13
Hey Leute,

ich habe ein kleines Programm erstellt um Wörter in ascii zu konvertieren, aber es gibt mir die Meldung, dass der Typ der mid inkompatibel wäre.

Mein Programm:

Set objShell = WScript.CreateObject("WScript.Shell")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("nameinascii.txt", ForAppending, True)
namsplit = 0
namsplit2 = 1
nam = Inputbox ("Enter your name:", "name to ascii")
f.Write nam & " "
namlenght = Len(nam)
do
namchars = Mid(nam, namsplit, namsplit2)
namascii = Asc(namchars)
f.Write namascii
namsplit = namsplit + 1
namsplit2 = nampslit2 + 1
loop until namsplit2 = namlenght
Msgbox "end "



ich hoffe ihr versteht schon was ich meine :D

Danke für jede Verbesserungen und/oder Erklärungen :)
Mehr anzeigen 

3 Antworten

0
Bewertung
Hallo,

ich glaube dein Fehler ist hier zu finden

namsplit = 0


namsplit ist die Nr. des Zeichens am Anfand von Mid, "Start As Long". und eine String fängt ja mit seinem ersten Zeichens also

namsplit = 1

hoffe es klappt jetzt
0
Bewertung
Hallo,

es geht zum Teil wenn ich "my name is denstieven " eintippe

bekomme ich :

10912132110971091013210511532100101110115116105101118101110

also immer noch nicht asii
0
Bewertung
Hab das hier im Netz gefunden:

text = inputbox("bitte Text eingeben")
For x = 1 To Len(text)
kode = kode & " " & Asc(Mid(text,x,1))
Next
Msgbox(kode)