[RESOLVED] [Solved] VBScript: Split String...

[wpearsall]

Hi guys,,

I need to split incoming data into seperate items of an array... now in Visual Basic this is easy...

in VBScript: i dunno why but its crapped up.

I need to use it like the following:

Sub wskScript_DataArrival(Index, bytesTotal)
'On Error GoTo ErrHand:
'On Error Resume Next
 
    Dim SplitDataA(), DataArrival(), DataRecieved
    Dim i
    
    wskScript(0).GetData DataRecieved, vbString
    
    SplitDataA() = Split(DataRecieved, " ## ")
    
    For i = 1 To UBound(SplitDataA())
        DataArrival() = Split(SplitDataA(i), " :$: ")
        
        Select Case DataArrival(0)

only problem is:

when i get to the following code:

SplitDataA() = Split(DataRecieved, " ## ")

i get the following error come up:

Error> 9 - Subscript out of range: 'SplitDataA' on line 145

has anybody got a clue of why this error is coming up?...

i know for a fact data is coming, cuz i added a message box like:

    wskScript(0).GetData DataRecieved, vbString
msgbox DataRecieved

and it come up with:

---------------------------
VBScript
---------------------------
## cmdDL :$: LT ## cmdSN :$: 127.0.0.1
---------------------------
OK
---------------------------

anyone got a clue on dis one?.. its prolly jst the fact of the vb / vbscript differences.... but :shrugs:

[Tom77757]

SplitDataA() = Split(DataRecieved, " ## ")

try removing the spaces before and after the # sign..

[wpearsall]

i need the spaces.... cant remove em, since they are the seperater between diff things in data which is sent...

[BrianS]

VBScript forum may have answers.

http://www.vbforums.com/forumdisplay.php?s=&forumid=4

[Memnoch1207]

Dim SplitDataA As String
Dim DataArrival As String
Dim i As Integer
Dim j As Integer
 
SplitDataA = Split(DataRecieved, " ## ")
 
For i = 0 To UBound(SplitDataA)
   DataArrival = Split(SplitDataA(i), " :$: ")
   
   For j = 0 To UBound(DataArrival)
      Select Case DataArrival(0)
         'do something
   Next
Next

[packetVB]

Dont define SplitDataA or DataArrival as array.

So Should be

Sub wskScript_DataArrival(Index, bytesTotal)
'On Error GoTo ErrHand:
'On Error Resume Next
 
    Dim SplitDataA, DataArrival, DataRecieved
    Dim i
    
    wskScript(0).GetData DataRecieved, vbString
    
    SplitDataA = Split(DataRecieved, " ## ")
    
    For i = 1 To UBound(SplitDataA)
        DataArrival = Split(SplitDataA(i), " :$: ")
        
        Select Case DataArrival(0)

packetvb

[wpearsall]

Originally posted by Memnoch1207

Dim SplitDataA As String
Dim DataArrival As String
Dim i As Integer
Dim j As Integer
 
SplitDataA = Split(DataRecieved, " ## ")

thanks memnock....

fixed ma problem (eh, was a diff between the two langs eh... vb needs (), and vbs dont )