Afkod/læs rækkeindhold fra venstre mod højre

Jeg tror det er muligt med en lille funktion, der gennemløber din krydstabulering.
Jeg prøver lige..

Du kan godt få et datasæt stillet til rådighed :o)

Ja, jeg tror næsten jeg har den nu, men jeg vil godt have et lille datasæt, så jeg kan teste det.
Min mail er: jesperfjoelner snabela hotmail.  com

Husk at zippe den :-)

sendt :o)

Den er modtaget. Jeg vender lige tilbage om få minutter.

Bare ok :o)

Nu har jeg noget, der fungerer. Det eneste der mangler er, at koden fejler, hvor gaden f.eks. hedder "Christian X's gade" fordi der er en apostrof i gadenavnet. Jeg skal lige have fundet ud, hvordan man indsætter en apostrof via SQL. Men for alt andet virker det.


Function fixit()

Dim rs As dao.Recordset
Dim db As dao.Database
Dim StartHusNr As Long
Dim SlutHusNr As Long
Dim SQL As String
Dim s As String
Dim i As Long
Dim arr() As String

SQL = "SELECT * FROM Ligehusnumre"

Set db = CurrentDb
Set rs = db.OpenRecordset(SQL)

'laver array med feltnavne
For i = 3 To rs.Fields.Count - 1
    s = s & rs.Fields(i).Name
    If i <> (rs.Fields.Count - 1) Then
        s = s & ";"
    End If
Next
arr = Split(s, ";")
s = vbNullString
'gennemløber
Do While Not rs.EOF
    For i = 3 To rs.Fields.Count - 1
        s = s & rs(i)
    Next
    'Debug.Print "s:" & s
    StartHusNr = arr(InStr(1, s, "1") - 1)
    SlutHusNr = arr(InStrRev(s, "1") - 1)
    'indsæt i ny tabel
    SQL = "INSERT INTO tblCoopOutput (postnr,rutenr,gade,starthusnr,sluthusnr) VALUES (" & rs!postnr & "," & rs!rute & " ,'" & rs!gade & "'," & StartHusNr & "," & SlutHusNr & ")"
    'Debug.Print SQL
    db.Execute SQL, dbFailOnError
    rs.MoveNext
    s = vbNullString
Loop

'oprydning
Erase arr
rs.Close
Set rs = Nothing
Set db = Nothing

End Function

Hvis jeg må skifte
Christian X's
med
Christian Xs
kan jeg få den helt færdig. Ellers skal vi lige finde ud af hvordan en apostrof indsættes via SQL.

Jeg undersøger det lige...

Damn ... du er hurtig ...

tester lige og vender tilbage

Her virker den uden problemer


Function fixit()

Dim rs As dao.Recordset
Dim db As dao.Database
Dim StartHusNr As Long
Dim SlutHusNr As Long
Dim sql As String
Dim s As String
Dim i As Long
Dim arr() As String
'  2  34
'  18
'  2  44
sql = "SELECT * FROM Ligehusnumre"

Set db = CurrentDb
Set rs = db.OpenRecordset(sql)

'laver array med feltnavne
For i = 3 To rs.Fields.Count - 1
    s = s & rs.Fields(i).Name
    If i <> (rs.Fields.Count - 1) Then
        s = s & ";"
    End If
Next
arr = Split(s, ";")
s = vbNullString
'gennemløber
Do While Not rs.EOF
    For i = 3 To rs.Fields.Count - 1
        s = s & rs(i)
    Next
    'Debug.Print "s:" & s
    StartHusNr = arr(InStr(1, s, "1") - 1)
    SlutHusNr = arr(InStrRev(s, "1") - 1)
    'indsæt i ny tabel
    sql = "INSERT INTO tblCoopOutput (postnr,rutenr,gade,starthusnr,sluthusnr) VALUES (" & rs!postnr & "," & rs!rute & " ,'" & Replace(rs!gade, "'", "''") & "'," & StartHusNr & "," & SlutHusNr & ")"
    Debug.Print sql
    db.Execute sql, dbFailOnError
    rs.MoveNext
    s = vbNullString
Loop

'oprydning
Erase arr
rs.Close
Set rs = Nothing
Set db = Nothing

End Function

Jeg fandt for øvrigt at du havde kalt "SlutHusNr" for "SutHusNr"
Det skal lige omdøbes, så du ikke får problemer.

Det så jeg .... ;o)

Kan du det til at virke?

Den kører, genererer små 6000 rækker, men stopper så med subscript out of range

Hvilken linjer stopper den på?
Er det på nogle af disse?

    StartHusNr = arr(InStr(1, s, "1") - 1)
    SlutHusNr = arr(InStrRev(s, "1") - 1)

Jeg skal lige have fremprovokeret fejlen igen

Kan det være noget med at den stopper på en linje, hvor der ikke står 1 i nogen af kolonnerne? Jeg tester lige.

StartHusnr

Den har behandlet denne post :

INSERT INTO tblCoopOutput (postnr,rutenr,gade,starthusnr,sluthusnr) VALUES (2670,109 ,'Grevevej',10,40)

( du har ikke den komplette fil ) ... så du kan nok ikke se hvorfor

Jeg kigger lige i query hvad den næste er

Her producerer den 921 linjer uden problemer. Men jeg har vist ikke alle data?

Ok. Kan du se hvilken linje den breaker på? SQL'en ser god nok ud.

Resultatet af :

INSERT INTO tblCoopOutput (postnr,rutenr,gade,starthusnr,sluthusnr) VALUES (2670,109 ,'Grevevej',10,40)

er reelt forkert ....

Det er den første vej hvor der overhovedet ikke er et eneste sammenhængende interval er det derfor ?

Vil du have hele datafilen ( 160 Mb ) ... kan sendes via FTP

Det med intervallet burde ikke være et problem.
Ja det vil godt prøve. Hvordan henter jeg den?

Jeg bliver nødt til at gå 1 times tid kl. 13.40.
Det er ikke sikkert jeg kan nå det inden da, men jeg prøver.

er den 160mb zippet? Det er ok uanset hvad.

Du får en mail med adressen du kan hente den fra

Så er den klarr til at hente

fino. Jeg er ved at hente den.

Jeg er dig dybt taknemmelig :o)

Jeg har lige testet med de ulige husnumre, og her fejler den også, men her er der sammenhængende intervaller :o(

Jeg er ked af at sige det, men den gør det heller ikke rigtigt ved afvikling på ulige numre :

Postnr    Rutenr    Gade                StartHusnr    SlutHusnr
1654    5    Abel Cathrines Gade    13    13
1654    113    Abel Cathrines Gade    1    33

Så er jeg tilbage fra frisøren. Jeg kigger på det med det samme. Det må være tæt på den der er.

Gud ved om problemet ikke er, at der reelt ikke er "huller" i intervallerne, når man kigger isoleret på det eksempel jeg har vist 26/01-2006 13:42:55 ...

Hvis man isolere postnr og gade i krydstabellen, får du ingen 0 værdier på rute 113, og så er det returnerede jo korrekt ... forstår du ?

Jeg prøver ligt at oprette en tabel ud fra krydstabuleringen, og køre modulet derfra

Jeg kan se at "subscript out of range" kommer når der ikke er 1'taller overhovedet i en række. Hvad skal funktionen gøre når det sker?

Hmmm ... burde ikke forekomme ... hvis den ikke kan finde husnummer overhovedet, burde den vel ikke optræde i krydstabuleringen, ... men hvis der udelukkende er 0-er, skal der ikke indsættes en post i tabellen

Hvilket postnr,rute og gade forekommer det ?

Jeg synes det ser ud til at virke her nu. Øjeblik så får du funktionen...

Den her ser ud til at virke. Denne failer ikke på subscript out of range.

Jeg får bl.a.

post start slut
1654  2  26



Function FixCoop()

Dim rs As dao.Recordset
Dim db As dao.Database
Dim StartHusNr As Long
Dim SlutHusNr As Long
Dim sql As String
Dim s As String
Dim i As Long
Dim arr() As String

'ProgressBar 5, 1, "Åbner query..."
sql = "SELECT * FROM Ligehusnumre"

'1  2-34
'2  24-150
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)

rs.MoveLast
rs.MoveFirst

'ProgressBar 5, 2, "Laver array..."
'laver array med feltnavne
For i = 3 To rs.Fields.Count - 1
    s = s & rs.Fields(i).Name
    If i <> (rs.Fields.Count - 1) Then
        s = s & ";"
    End If
Next
arr = Split(s, ";")
s = vbNullString
'gennemløber
Do While Not rs.EOF
    'ProgressBar rs.RecordCount, rs.AbsolutePosition - 1, ""
    For i = 3 To rs.Fields.Count - 1
        s = s & rs(i)
    Next
    If InStr(1, s, "1") > 0 Then
        StartHusNr = arr(InStr(1, s, "1") - 1)
        SlutHusNr = arr(InStrRev(s, "1") - 1)
    Else
        StartHusNr = 0
        SlutHusNr = 0
    End If
   
   
   
    'indsæt i ny tabel
    sql = "INSERT INTO tblCoopOutput (postnr,rutenr,gade,starthusnr,sluthusnr) VALUES (" & rs!postnr & "," & rs!rute & " ,'" & Replace(rs!gade, "'", "''") & "'," & StartHusNr & "," & SlutHusNr & ")"
    'Debug.Print sql
    db.Execute sql, dbFailOnError
    rs.MoveNext
    'Debug.Print s
    s = vbNullString
Loop

'oprydning
ProgressBar 1, 1, ""
Erase arr
rs.Close
Set rs = Nothing
Set db = Nothing

End Function

Jeg er lige ved at lade den køre igennem for at se om der sker noget.

Hvis der ingen ettaller er overhovedet indsætter den 0 som starthusnr og sluthusnr - er det i orden?

Det er ok, så kan jeg sætte den til at rydde op bagefter

Jeg prøver lige at sende den til dig. Jeg tror det kører.

Jeg har zippet den og nu fylder den 12mb - kan jeg sende den eller hvordan?

Den kan bare undlade at indsætte række, hvis der ikke er nogen 1-taller.

12 Mb bliver afvist af vores mail, men du kan smide den tilbage i den FTP-mappe fra tidligere

ok, smart. Det gør jeg.

Jeg kan ikke "unzippe" den ... smid lige hele filen

Så er den vist uploadet. Jeg har inkluderet en progressbar, så den viser hvor langt den er undervejs.

Kan fortsat ikke unzippe den :o(

Jeg prøver lige igen.

Ok :o)

Jeg har sendt dig en mail med et link.

Hej igen, prøv at tjekke ftp-mappen. Jeg tror den er der nu.
Ellers sig bare til.

jeg kigger

Jeg må sige ... jeg er målløs ... den foreløbige stikprøvetest siger at det ser ud til at virke ....

Som du måske har observeret, begrænser jeg mine krydstabuleringer til at medtage husnumre til og med 500 ... ( dette af hensyn til max-grænsen for kolonner ), men reelt er der i de 1.9 mio. rækker husnumre op til 1.000 .... har jeg andre muligheder end at isolere dem i 4 krydstabuleringer ???

mja, det kan være man kan løbe den store tabel igennem uden at krydstabulere. Jeg prøver lige at se om jeg kan komme på noget.

Det er ikke noget du behøver at gøre for min skyld, men hvis du vil udfordre dig selv, er du da velkommen ... jeg vil gerne se resultatet ...

Jeg har self forsøgt det samme på hovedtabellen, men opgav og kastede mig istedet over den løsning du har arbejdet videre med ....

Den står og generere rækker i skrivende stund :o)

din opdeling i lige/ulige numre er det kun for at begrænse antallet af kolonner i krydstabuleringen?

Ja, det går ikke superhurtigt som det er nu, men det virker vist.
Jeg vil lige se om det kan laves for hele den store tabel på én gang.

Jeg ved det faktisk ikke ... det er vores eksterne kunde som har bedt om at få det adskilt på den måde .... jeg tror det har noget at gøre med, at omdeling foregår på hver side af vejen ( deraf Lige/Ulige ) ... derfor skal der også genereres en række med de lige hudnumre og een med de ulige ...

Det har vist også noget med at gøre, at der er ruter som kun omdeler på enten lige eller ulige husnumre ...

Hvordan får du så kørt det hele igennem? Laver du nogle mellemkørsler, hvor du begrænser kolonneantallet og så kører 3-4 stykker?

Kunne ikke umiddelbart finde andre løsninger end at køre modulet 4 gange på hver sin krudstabulering med de nævnte husnummer begrænsninger

1. kørsel dvs. lige numre fra 2 - 500 kørte ca. 50 minutter ( bemærk på Citrix )

Er det hele så kørt nu? Så er der måske ingen grund jeg forsøger at lave det direkte på den store tabel. Det kunne nu godt lade sig gøre tror jeg.
Jeg tror det tog 5 min. her på min maskine lokalt. A64 3500+.

Du kan sagtens bilde mig ind, at der kan gøres på 5 minutter på en maskine som ikke er tilknyttet er citrix-server :o)

... men der er ikke noge grund til at lave det om ... princippielt er det lige gyldigt om det tager 1 eller 10 timer ... bare resultatet er ok ;o)

Jeg vil bruge morgendagen på at syreteste resultatet ... men det ser umiddelbart korrekt ud ... du hører nærmere hvis der er mere

Lyder fint alt sammen. Jeg har sendt dig en mail. Vi vender tilbage til det, hvis noget mangler.