|
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
#1
|
||||
|
||||
|
VB6 Exploding
Hi,
Using VB6, how can I enter text into a text box on the form press a button and get it to explode the text by space (" ") and sort of put it in an array so it can be reordered and bits sent to other bits of code? I know this can be done in php but php can't be an .exe ![]() any help gratefully recieved, computer |
|
#2
|
|||
|
|||
|
Look at the split function and it's complement join.
|
|
#3
|
|||
|
|||
|
Visual Basic Scripting Edition
Split Function Returns a zero-based, one-dimensional array containing a specified number of substrings. Split(expression[, delimiter[, count[, compare]]]) Arguments expression Required. String expression containing substrings and delimiters. If expression is a zero-length string, Split returns an empty array, that is, an array with no elements and no data. delimiter Optional. String character used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned. count Optional. Number of substrings to be returned; -1 indicates that all substrings are returned. compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values. Settings The compare argument can have the following values: Constant Value Description vbBinaryCompare 0 Perform a binary comparison. vbTextCompare 1 Perform a textual comparison. Remarks The following example uses the Split function to return an array from a string. The function performs a textual comparison of the delimiter, and returns all of the substrings. Dim MyString, MyArray, Msg MyString = "VBScriptXisXfun!" MyArray = Split(MyString, "x", -1, 1) ' MyArray(0) contains "VBScript". ' MyArray(1) contains "is". ' MyArray(2) contains "fun!". Msg = MyArray(0) & " " & MyArray(1) Msg = Msg & " " & MyArray(2) MsgBox Msg |
![]() |
| Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > VB6 Exploding |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|