Hvordan kan man så lave en routine, som kører listen igennem, og til sidst har beregnet hvor langt der dem samlede afstand er gennem alle punkter. Dvs. afstand fra p107 til p108 + afstand fra p108 til p109 osv...
<% i = 1 afstand = 0 Do While not f.AtEndOfStream linie = f.ReadLine myarr = split(linie,vbTab)
if i mod 2 = 0 then afstand = afstand + sqrt( ((X-myarr(1))*(X-myarr(1))) + ((Y-myarr(2))*(Y-myarr(2)))) else X = myarr(1) Y = myarr(2) end if i = i+1 Loop
response.write afstand %>
Noget i den her stil måske ? Du skal muligvis rette til i linien der beregner afstanden, kan ikke helt huske afstandsformlen, har defineret den som : sqrt((X-X0)^2+(Y-Y0)^2) samtidig skal du rette den type du benytter til at adskille de forskellige dele i filen. Jeg har i koden sat den til at være en tabulator...
den almindelige afstandsfunktion returnere længder i den størrelse som er angivet i dine koordinater...
Jeg havde lavet en fejl...
Sqrt skal rettes til sqr
Altså: <% Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("dinfil.txt") Set f = fso.OpenTextFile(filespec,1) i = 1 afstand = 0 Do While not f.AtEndOfStream linie = f.ReadLine myarr = split(linie,vbTab)
if i mod 2 = 0 then afstand = afstand + sqr( ((X-myarr(1))*(X-myarr(1))) + ((Y-myarr(2))*(Y-myarr(2)))) else X = myarr(1) Y = myarr(2) end if i = i+1 Loop
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
