DaniWeb IT Discussion Community

Code Snippets (http://www.daniweb.com/code/)
-   visualbasic (http://www.daniweb.com/code/visualbasic.html)
-   -   String To Array (http://www.daniweb.com/code/snippet464.html)

Comatose visualbasic syntax
Feb 22nd, 2006
Another Small And Simple Function To Take Each Character of a string, and put it into an Array, This helps significantly when you need to sift through a string. This Function Uses The spush (String Push) Function, Also In Code Snippits.
 

  1. Public Function str2Array(xString As String) As String()
  2. Dim tmpArray() As String
  3. Dim tmpchar As String
  4.  
  5. ' /* For Each Character In The String */
  6. For I = 1 To Len(xString)
  7.  
  8.     ' /* Retrieve The Character */
  9.     tmpchar = Mid(xString, I, 1)
  10.     ' /* Push It Into The Temporary Array */
  11.     spush tmpArray, tmpchar
  12. Next I
  13.  
  14. ' /* Return The Array To The Calling Procedure */
  15. str2Array = tmpArray
  16. End Function