Stripping a string and placing values into two variables!! 1

[ftpdoo]

Hi all,

I have an array called (aryStr) which holds a list of tags. ie:

Seq2_Response
Seq2_UOM
Seq3_UOM

I'm trying to strip these tags to place everything to the right hand side of the under score into a string: strColumnName

Then the digit to the immediate left of the under score I wish to place into another variable: intSeqNo

Thankx,
Jonathan

 

[logius]

I'm not sure if this will work, but you could try using the

Split

function. It's a new one to me, so I'm not exactly sure how it works. Would probably go something like this.

Dim MyStr(2) As String
Dim StrLen As Integer

StrLen = UBound(arystr) - LBound(arystr)
For x = 1 To StrLen
   MyStr = Split(arystr(x), "_")
   strColumnName = MyStr(2)
   intSeqNo = MyStr(1)
   'INSERT THE REST OF YOUR CODE HERE...

Next x

If the

Split

works, then the only other problem you might run into is if you're trying to save intSeqNo into a number variable. Remember, MyStr is a String array, so you might have to do some conversion. ----------------------------------------
If you are reading this, then you have read too far...

lightwarrior@hotmail.com

 

[ftpdoo]

Thankx,

But its throwing up a type mismatch error at the follow line:

MyStr(x) = Split(aryStr(x), "_&quot


any ideas??
Jonathan

 

[ftpdoo]

got it working..

Thnx

 

[logius]

Just out of curiosity, what was wrong? ----------------------------------------
If you are reading this, then you have read too far...

lightwarrior@hotmail.com

 

[ftpdoo]

I changed these 2 lines and it works 110%!! )

Dim arySplit() As String
arySplit = Split(aryStr(x), "_&quot