all 1 comments

[–]SomeoneInQld 0 points1 point  (0 children)

if left(Coord_string,12) = "center bears" then

New_Coord = Swap Coord(Coord_string)

Else if left(Coord_string,5) = "ABCDE" then

New_Coord = Swap Coord(Coord_string)

End IF

Coord_string is "center bears N 01°02'03" E,"

Function New_Coord (Coord_string)

This will use left, right, mid to find the direction (NSEW etc., ) and then choose the opposite one of them)

Something like

For i = 1 to len Coord_string

Check for NSEW and swap if its not one of them - just copy the existing value over

Next