[RESOLVED] String manipulation

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

VB Code:

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

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

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

Do you also need to separate the two coordinates?

Yes, split is better.

yea so I have a list like

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

Code:

---

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.

Here is for them together.

VB Code:

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

And here is separated.

VB Code:

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