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 dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% 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.
