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

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:

VB Code:

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:

VB Code:

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

i get the following error come up:

Quote:

---

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:

Code:

---

    wskScript(0).GetData DataRecieved, vbString
msgbox DataRecieved

---

and it come up with:

Quote:

---

---------------------------
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:

Quote:

---

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

---

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

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

VBScript forum may have answers.

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

VB Code:

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

Dont define SplitDataA or DataArrival as array.

So Should be

VB Code:

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

Quote:

---

Originally posted by Memnoch1207

VB Code:

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 :D)