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.
Public Function str2Array(xString As String) As String() Dim tmpArray() As String Dim tmpchar As String ' /* For Each Character In The String */ For I = 1 To Len(xString) ' /* Retrieve The Character */ tmpchar = Mid(xString, I, 1) ' /* Push It Into The Temporary Array */ spush tmpArray, tmpchar Next I ' /* Return The Array To The Calling Procedure */ str2Array = tmpArray End Function
About the Author
Die Monster! You don't belong in this world!
It was not by my hand, that I am once again given flesh. I was called
here by humans, who wish to pay me tribute!
TRIBUTE! You steal men's souls and make them your slaves!
Perhaps the same could be said of all religions....
Your words are as empty as your soul. Mankind ill needs a savior such as you!
What is a man?
Throws A Wine-Filled Goblet
A miserable little pile of secrets! But enough talk!
Have at you!