Postnumre afstand

det er svært, da ikke alle postdistrikter er lige store. Samtidig kan det være et problem om du befinder dig i midten af distriktet eller i udkanten...

Du skal med andre ord have en tabel der indeholder alle postnumer, samt størrelsen af disse. Det er et større arbejde at indsamle disse oplysninger..!

Nettop grunden til de 200 points, skulle der være en der havde lavet arbejdet og var villig til at dele!

Mend hansyn til nøjaktigheden er den ikke så vigtig inden for +- 25km

Men du kan sige at fx. hvis du befinder dig i kbh. kan du inden for 25 (med unøjagtighed på 25km (50 i alt)) km komme til velsagtens 40-50 forskellige postnumre, mens hvis du befinder dig i Skagen kan du måske komme til 5-10. Et sådant script er ikke praktisk ladsiggøreligt (brugbart) med mindre du har oplysningerne med størrelser af distrikter.

Jeg mener nu ikke at det er uladesiggørelig: Der er brug for en database som indeholder ca. afstande mellem de forskellige distrikter ala km matrixer mellem større byer. Så der er brug for en database samt et lille script, så jeg håber at der en nogle der har dette.

tja... Det skal ikke kunne udelukkes!

Jeg kan desværre ikke hjælpe dig, men lytter da med og ser om der er nogen der kan hjælpe..

Det vil jo tage en livstid at udregne og indtaste oplysninger mellem hvert distrikt. Langt fra umuligt, for Krak m.fl. har jo allerede gjort det, men jeg tror ikke, de giver de oplysninger fra sig uden videre ;o)

Prøv bare at se hvor mange postnumre, der egentlig er i Kbh.
http://www.opfinderen.dk/sites/?id=30&by_nr=k%F8benhavn

Ved at søge på nettet har jeg fundet ud af at vejdirktoratet faktisk har lavet en sådanne liste, men at de nu bruger et online system. Så hvis man kan få fat på den gamle liste så er jeg tæt på målet.

Øhh... Nå...?

Hvad med at finde et gammelt digitalt kort over DK ( der hvor 0,0 ligger ovre ved Bornholm. Placere curseren midt i postdistriktet. Kig på postvæsenets kort.

Indskrive x,y koordinatet for hvert postdistrikt og derefter bruge en afstandsformel ????

Henrik

BTW - er der ikke nogen af jer, der ved hvordan jeg for min ASP igen efter at have installeret .NET 1.1 framen på en XP pro, den forsvand bare.
Se mit spg på http://www.eksperten.dk/spm/393451

Henrik

Du må ikke reklamere for din egne spørgsmål i andres spørgsmål! Det burde du vide efterhånden...

>>netro

Ja jeg har jo nok været med en del år mere end dig.
Jeg laver ikke reklame - jeg har fandme brug for hjælp. .NET drengene er jo i princippet ligeglad med ASP, så hjælp herfra gruppen er nok påtrængen.

Vil nu give netro ret i at der er tale om reklame:

"se mit spg på http://osvosvosv"

hnteknik >> Interessant men hvorledes ved jeg hvor postnumrene ligger?

hnteknik -> Jeg har været med næsten siden Eksperten startede i '98. Har blot skiftet navn undervejs.

dta -> Spurgte du ikke vejdirektoratet, hvilke muligheder der var for at få listen (evt. i simplificeret form)?

>> dta

Postvæsenet har udgivet 'kort over posthuse og postdistrikter Danmark, Grønland og Færøerne 1986' af geomasters. Det fås nok kun på posthuset i hardcore udgave, men viser postdistrikternes udbredelse. Det kan så f.eks. sammenholdes med M$ Autoroute program, der angiver en verdens x,y koordinat.
Der findes også sites f.eks. i Tyskland, hvor for de enkelte adresser får en X,Y koordinat. Stedet finder du ved at klikke på kortet, som kan zoomes.
Adressen har jeg derhjemme et sted.

Lidt tung opgave, men en selv kunne nok også bruge sådan en løsning.
Keep me posted.

>>netro - jamen så er vi vel lige gamle. Jeg har dog ikke haft behov for at skrabe points sammen eller skifte navn eller reklamere for andre sites end eksperten.dk (http://www.opfinderen.dk/sites/?id=30&by_nr=k%F8benhavn).
Jeg nøjes med at hjælpe folk og behøves ikke at få points for det.

Jeg havde/har akut behov for at få mit ASP til at snurre igen under .net.
Men det ved du tilsyneladende ikke noget om.

tak for hjælpen og god weekend. Jeg skal hjem og rode med min server.

Det strider ikke mod reglerne, hverken at skrabe points sammen (sådan set en del af konceptet) eller at ændre navn undervejs, hvis den gamle konto blot afmeldes.

"Det er ikke tilladt at gøre reklame for andre websider, med mindre det foregår som relevant svar i et spørgsmål. Det er heller ikke tilladt at skrive links til egne websider som del af ens signatur."

Når jeg linker til et andet site, er det altid min intention, at det skal være relevant, hvilket jeg også mener, at en liste over postnumre er i et spørgsmål om postnumre. Og jeg har desuden aldrig underskrevet mig med en privat URL - heller ej, da dette var tilladt.

Btw - har jeg aldrig haft problemer med mit framework. Hvis jeg var dig, ville jeg af- og geninstallere IIS.

Jeg tror vi lukker diskussions klubben!

God idé *gg*

Yep men hold lige ideen varm. Jeg har selv brug for samme og vender tilbage, hvis der dukker noget brugbart op.

Jeg har nu databasen hvis der er nogle der skulle have brug for denne!

Til dem der selv ønsker at hente afstandende så er der her et script til MS Excel som henter afstandende (Kræver ASPHTTP objectet)

Function test()
    Set HTTPObj = CreateObject("AspHTTP.Conn")
    strSheet = "Sheet2"
    sh = 2
    U = 2
    T = 1
    Do Until Worksheets("Sheet1").Cells(T, 1).Value = ""
        N = T
        Do Until Worksheets("Sheet1").Cells(N, 1).Value = ""
            Sejle = False
            HTTPObj.Url = "http://www.trafikken.dk/vejafstande.asp?action=LISTE&page=dept&objno=1000005487"
            HTTPObj.RequestMethod = "POST"
           
            HTTPObj.PostData = "By1=" & Worksheets("Sheet1").Cells(T, 1).Value & "&By2=" & Worksheets("Sheet1").Cells(N, 1).Value & "&BMetode=h&SB=Beregn%20afstand"

            strResult = HTTPObj.GetURL
            tmpval = -1
            StartStr = "Afstanden er: "
            SlutStr = " km"
           
            Start = InStrRev(strResult, StartStr)
            tmpstr = Mid(strResult, Start + Len(StartStr))
            Do Until InStrRev(tmpstr, SlutStr) = 0
                Slut = InStrRev(tmpstr, SlutStr)
                tmpstr = Left(tmpstr, Slut - 1)
            Loop
           
            StartStr = "sejlet længde er: "
            SlutStr = " km"
            If Len(tmpstr) <> 0 And Start <> 0 Then tmpval = CInt(tmpstr)
           
            Start = InStrRev(strResult, StartStr)
            tmpstr = Mid(strResult, Start + Len(StartStr))
            Do Until InStrRev(tmpstr, SlutStr) = 0
                Slut = InStrRev(tmpstr, SlutStr)
                tmpstr = Left(tmpstr, Slut - 1)
            Loop
           
            If Len(tmpstr) <> 0 And Start <> 0 Then
                tmpval = tmpval + CInt(tmpstr)
                Sejle = True
                Worksheets(strSheet).Cells(U, 4).Value = "Sejle"
            End If
         
           
            Worksheets(strSheet).Cells(U, 1).Value = Worksheets("Sheet1").Cells(T, 1).Value
            Worksheets(strSheet).Cells(U, 2).Value = Worksheets("Sheet1").Cells(N, 1).Value
            If tmpval <> -1 Then
                Worksheets(strSheet).Cells(U, 3).Value = tmpval
                U = U + 1
            Else
                Worksheets(strSheet).Cells(U, 3).Value = "N/A"
            End If
            If U = 50000 Then
                U = 0
                sh = sh + 1
                strSheet = "Sheet" & sh
            End If
            N = N + 1
           
        Loop
        T = T + 1
    Loop
   
End Function

>>dta

Jeg vil da gerne have en kopi på hnteknik@post4.tele.dk

Henrik

>>dta

Jeg vil også gerne ha' en kopi af databasen på art2@c.dk

mvh bjarne

>>dta send venligst basen på excel eller what ever til

teamdid@hotmail.com

Mvh HTML_WIZARD