Need Help Quickly With Strings

Can anyone show me how I can iterate over each character in a string in VB?
dereklAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
gencrossConnect With a Mentor Commented:
This should do it...

Dim bChar As Byte

For x = 1 To Len(sstring)
   bChar = Asc(Mid(sstring, x, 1))
Next
0
 
gencrossCommented:

for x = 1 to len(sString)
    sChar = mid(sString,x,1)
next
0
 
gencrossCommented:
This code will return every charecter of a string, one at a time in sChar variable.

Let me know if I am off base.
0
Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

 
dereklAuthor Commented:
I need sChar to be a byte or a long, not a string.  Is this possible?
0
 
gencrossCommented:
It is not a problem to change sChar to a long, as long as the data in the string is numeric.  However, if the data is numeric and you are looking at one charecter at a time it would make more sense to use an integer.  It will take up less memory.
0
 
gencrossCommented:
A Byte will work as well, and would probably be the best to use because of memory allocation.
0
 
dereklAuthor Commented:
The data is definitely non numeric.  What I really need is the ascii value of every character in the string be it a number or letter.
0
 
mdouganCommented:
Dim sString

sString = "Hello World"

For x = 1 To Len(sString)
   Debug.Print Asc(Mid(sString, x, 1))
Next
0
 
mdouganCommented:
rats... gencross beat me to it....
0
 
dereklAuthor Commented:
Thanks, you saved my life.  

You know as easy as VB makes working with COM components and stuff it makes this kind of problem equally hard.  At least for a recent convert from C++.
0
 
Anthony PerkinsCommented:
Any chance we can get you to close out some of your open questions:

Questions Asked 57
Last 10 Grades Given A B B A A A A A B A  
Question Grading Record 48 Answers Graded / 48 Answers Received

Thanks,
Anthony
0
All Courses

From novice to tech pro — start learning today.