variables format

[maki]

Hallo!

I have created a vb application in which the variables take their values by another program. The format of the variables looks like that:
[V1,V2,V3]
Can i convert the list somehow so the variables are appeared without the brackets?
e.g. V1,V2,V3

Thank you!

[the182guy]

Dim RawData$
Dim NewData$
 
RawData = "[V1,V2,V3]"
 
NewData = Replace(RawData, "[", "")
NewData = Replace(NewData, "]", "")

or

Dim RawData$
Dim NewData$
 
RawData = "[V1,V2,V3]"
 
NewData = Mid(RawData, 2)
NewData = Left(NewData, Len(NewData) - 1)

that will remove the brackets, is that what you mean?

[maki]

Yes!
Thank you very much!

Can i ask something else also?
If a have a string variable that looks like that:
a=(X1,Y1,Z1,W1), (X2,Y2,Z2,W2)
can i remove the parenthesis and store the data in an array per parenthesis context.
eg 1st record X1,Y1,Z1,W1
2nd record X2,Y2,Z2,W2

Thanks again!

[the182guy]

okay try this

Dim a As String
Dim DataArray() As String
 
 
a = "(X1,Y1,Z1,W1), (X2,Y2,Z2,W2), (X9,Y9,Z9,W9)"
 
DataArray = Split(a, "), ")
 
For i = 0 To UBound(DataArray)
    DataArray(i) = Replace(DataArray(i), "(", "")
    DataArray(i) = Replace(DataArray(i), ")", "")
Next i
 
MsgBox DataArray(0)
MsgBox DataArray(1)
MsgBox DataArray(2)

[maki]

I get a compile error "expected array" for UBound

[the182guy]

hmm i copied it and pasted exactly and ran it without error, did you change any of the code?

this line

Dim DataArray[B]() [/B]As String

must have the brackets or it will give that error

[maki]

Maybe it is my fault. I will be more specific.
I have a variable named schedule and has the follwing content:
[(103,r1,c1,p1),(101,r1,c1,p2),(301,r1,c1,p2),(102,r1,c1,p3),(302,r1,c2,p2),(202,r1,c2,p3),(201,r1,c2 ,p4),(303,r1,c3,p1),(102,r2,c3,p2),(103,r2,c3,p3),(101,r2,c3,p4),(102,r4,c4,p4),(203,r1,c4,p5),(101, r4,c4,p5)]

I used the first code you send me and i removed the brackets.
I used the following code

Dim RawData$
Dim NewData$
Dim a As String
Dim DataArray As String
RawData = schedule
   NewData = Replace(RawData, "[", "")
   NewData = Replace(NewData, "]", "")
    a = NewData
   DataArray = Split(a, "),")
   
 
For i = 0 To UBound(DataArray)
    DataArray(i) = Replace(DataArray(i), "(", "")
    DataArray(i) = Replace(DataArray(i), ")", "")
Next i
 
MsgBox DataArray(0)
MsgBox DataArray(1)
MsgBox DataArray(2)

That's only a part of the code. Could the rest of the code that i have created before create any problem?

[the182guy]

the only problem with the code is the line

Dim DataArray[B]()[/B] As String

it should have those brackets, i just tried all of the code with the shedule content, and works, your code doesnt have the () brackets in the above line

[maki]

Yes you are right!

I must have been a little bit careless!!!

Thank you very much! You really help me a lot!

[the182guy]

alright no probs mate