[RESOLVED] String manipulation

[Granger9]

The code below is suppose to separate each pair of long and lat. It works fine apart from the last pair.

Plots textbox = 501918N 0053042W - 502400N 0053900W - 503200N 0053400W - 503930N 0052400W - 504300N 0051230W - 503830N 0050430W - 501918N 0053042W

Plots = Plots & " - "
NoPts = NoPts - 1
 
For i = 0 To NoPts
    PosN = InStr(1, Plots, "-")
    Points(i) = Left$(Plots, PosN - 2)
    
    Length = Len(Plots)
    Plots = Right$(Plots, Length - (PosN + 1))
Next i

[RobDog888]

Why not just Split the string into an array? Split on the "-" char. then loop through the array reading each pair.

[Granger9]

Sorry it does work it was my mistake for some reason there was a return at the end of the string in the textbox!

How would you do that spilt rob? Would it be better

[RobDog888]

Do you also need to separate the two coordinates?

Yes, split is better.

[Granger9]

yea so I have a list like

501918N
0053042W
502400N
0053900W
503200N
0053400W
503930N
0052400W
504300N
0051230W
503830N
0050430W
501918N
0053042W

[[Peter]]

Dim myArray() As String
Dim sString As String
sString = "501918N 0053042W - 502400N 0053900W - 503200N 0053400W - 503930N 0052400W - 504300N 0051230W - 503830N 0050430W - 501918N 0053042W"

myArray = Split(sString, "-")

MsgBox myArray(1)

This wil give you what you want.

[RobDog888]

Here is for them together.

Option Explicit
'Text2 is a multi-line textbox...
Private Sub Command1_Click()
    Dim ar() As String
    Dim i As Integer
    Text1.Text = "501918N 0053042W - 502400N 0053900W - 503200N 0053400W - 503930N 0052400W - 504300N 0051230W - 503830N 0050430W - 501918N 0053042W"
    ar = Split(Text1.Text, "-")
    For i = 1 To UBound(ar)
        Text2.Text = Text2.Text & ar(i) & vbNewLine
    Next
    Erase ar
End Sub

[RobDog888]

And here is separated.

Option Explicit
'Text2 is a multi-line textbox...
Private Sub Command1_Click()
    Dim ar() As String
    Dim i As Integer
    Text1.Text = "501918N 0053042W - 502400N 0053900W - 503200N 0053400W - 503930N 0052400W - 504300N 0051230W - 503830N 0050430W - 501918N 0053042W"
    ar = Split(Text1.Text, "-")
    For i = 1 To UBound(ar)
        Text2.Text = Text2.Text & Mid$(ar(i), 1, InStr(1, ar(i), " ")) & vbNewLine & Mid$(ar(i), InStr(1, ar(i), " "))
    Next
    Erase ar
End Sub