Get ANSI character code for input character

[crackoo]

Hi
i have this source to get ANSI character code for input character
so my aim is how can i modify this code to show on the inputBox the hole string for exemple when i typed on the inputbox "vbscript" it show me like this in one line "chr(118)&chr(98)&chr(115)&chr(99)&chr(105)&chr(112)&chr(116)"
Thank you !

i = InputBox("Enter character to get ANSI character code.") 
If i <> "" Then 
Inputbox "ANSI Code for " & i & " is:",,"Chr(" & Asc(i) & ")" 
End If

 

[SkipVought]

crackoo (Programmer),

Use a For...Next loop and the Mid() function to loop thru each character of your string.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[crackoo]

Problem Solved Thank you for the reply an your idea !

Dim i,x,a 
i = InputBox("Enter character to get ANSI character code.") 
If i <> "" Then 
For x = 1 To Len(i) 
If x <> Len(i) Then 
a = a & "Chr(" & Asc(Mid(i,x,1)) & ")" & "&" 
Else 
a = a & "Chr(" & Asc(Mid(i,x,1)) & ")" 
End if 
Next 
Inputbox "ANSI Code for " & i & " is:",,a 
End If 
MsgBox Chr(84)&Chr(104)&Chr(97)&Chr(110)&Chr(107)&Chr(32)&Chr(121)&Chr(111)&Chr(117)&Chr(32)&Chr(74)&Chr(118)&Chr(105)&Chr(101)&Chr(114)&Chr(114)&Chr(97)&Chr(32)&Chr(33),64,"ANSI CODE"
MsgBox Chr(84)&Chr(104)&Chr(97)&Chr(110)&Chr(107)&Chr(32)&Chr(121)&Chr(111)&Chr(117)&Chr(32)&Chr(83)&Chr(107)&Chr(105)&Chr(112)&Chr(86)&Chr(111)&Chr(117)&Chr(103)&Chr(104)&Chr(116)&Chr(32)&Chr(33),64,"ANSI CODE"