Match1.New1 Regex1.New2("<longitude\b[^>]*>(.*?)</longitude>", true, false) Match1.Value = Regex1.Match(m) longitude=StrReplace(Match1.String,"<longitude>","") longitude=StrReplace(longitude,"</longitude>","")
Xdistance = WP.Cell("X",i) - utmi(1) If abs(Xdistance) < appr Then ' carry on and check Y End if
If WP.Cell("X",i) > utmi(1)-appr Then '200m voor appr= 200 If WP.Cell("X",i) < utmi(1)+appr Then '200m na .... End if End if
You might want to make that +/- 100 points or 10%, whichever is greater. (Or any other numbers, the choice of 100points/10% was arbitrary)After reading carfully, I see I misunderstud : I understand now, I have to change the startpoint to search from in the waypointlist from 8 to 10 % around the actual position point every fetch of the new position... so I must only compare a few points in the enviremont.