VBScript String to ASCII Geschlossen

Question

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 :)

Piyaku · Answer

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

weissengel · Answer

Hallo, 

es geht zum Teil wenn ich "my name is denstieven " eintippe 

bekomme ich :

10912132110971091013210511532100101110115116105101118101110

also immer noch nicht asii

Sauron · Answer

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)