[VBSCRIPT] String to ascii
Résolu/Fermé
denstieven
Messages postés
662
Date d'inscription
jeudi 14 avril 2011
Statut
Membre
Dernière intervention
15 juillet 2012
-
18 août 2011 à 08:45
denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 - 18 août 2011 à 11:51
denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 - 18 août 2011 à 11:51
A voir également:
- [VBSCRIPT] String to ascii
- Caractère ascii - Guide
- Qwerty to azerty - Guide
- À l’aide des tableaux ci-dessous, trouvez le mot dont le code ascii est le suivant : 72 65 6a 6f 69 6e 64 72 65 - Forum C
- \N ascii - Forum Programmation
- Press esc in 1 seconds to skip startup.nsh any other key to continue ✓ - Forum Windows 10
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 750
18 août 2011 à 10:31
18 août 2011 à 10:31
Bonjour,
Il me semble bien que votre erreur est ici :
namsplit est le n° du caractère de début de Mid, "Start As Long". Or le caractère 0 n'existe pas. Un String débute par son 1er caractère non?
Remplacez donc par :
Il me semble bien que votre erreur est ici :
namsplit = 0
namsplit est le n° du caractère de début de Mid, "Start As Long". Or le caractère 0 n'existe pas. Un String débute par son 1er caractère non?
Remplacez donc par :
namsplit = 1
denstieven
Messages postés
662
Date d'inscription
jeudi 14 avril 2011
Statut
Membre
Dernière intervention
15 juillet 2012
41
18 août 2011 à 11:51
18 août 2011 à 11:51
Merci ca marche!!!
Le code complet
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 = 1
'namsplit2 = 2
nam = Inputbox ("Enter your name:", "name to ascii")
f.Write nam & " "
namlenght = Len(nam)
do
namchars = Mid(nam, namsplit, 1)
namascii = Asc(namchars)
f.Write namascii
namsplit = namsplit + 1
'namsplit2 = nampslit2 + 1
loop until namsplit = namlenght
Msgbox "end "
Le f.write sert a ecrire dans le fichier nameinascii.txt
regarde: (Grand Merci Gord21 pour ce bout de code ^^)
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("nomdufichier.txt", ForAppending, True)
f.Write "Qu'est ce que tu veux"
Et grand merci a toi aussi pour m'avoir aidé et c'est resolu :D
Bonne journée encore ;)
Le code complet
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 = 1
'namsplit2 = 2
nam = Inputbox ("Enter your name:", "name to ascii")
f.Write nam & " "
namlenght = Len(nam)
do
namchars = Mid(nam, namsplit, 1)
namascii = Asc(namchars)
f.Write namascii
namsplit = namsplit + 1
'namsplit2 = nampslit2 + 1
loop until namsplit = namlenght
Msgbox "end "
Le f.write sert a ecrire dans le fichier nameinascii.txt
regarde: (Grand Merci Gord21 pour ce bout de code ^^)
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("nomdufichier.txt", ForAppending, True)
f.Write "Qu'est ce que tu veux"
Et grand merci a toi aussi pour m'avoir aidé et c'est resolu :D
Bonne journée encore ;)
18 août 2011 à 11:10
18 août 2011 à 11:24
Mais a la fin toujours type incompatible ASC
18 août 2011 à 11:26
18 août 2011 à 11:37
namsplit = 1 'namsplit2 = 1 nam = Inputbox ("Enter your name:", "name to ascii") f.Write nam & " " namlenght = Len(nam) do namchars = Mid(nam, namsplit, 1) namascii = namascii & Asc(namchars) 'f.Write namascii 'je ne connais pas cette instruction. Elle sert à quoi? namsplit = namsplit + 1 'namsplit2 = nampslit2 + 1 loop until namsplit <= namlenght