Starte bagfra. Dvs jeg nu står på e'et i Lyndels_e_...
Nu ville jeg så gå frem mod starten indtil jeg finder en tal. Det første tal jeg finder er 9. Derefter går jeg endnu 3 cifre frem (da et postnummer altid er 4 cifre) - på den måde burde du kunne smide dine 4 cifre i en variabel :-)
Enig med flim: Jeg kan ikke selv gennemskue hvordan den skal kodes, men i "klart sprog" må det være noget med at finde det første mellemrum efterfulgt af et ciffer, talt bagfra, og så tælle fire cifre op og det er så postnummeret.
Denne funktion kan lægges i e modul og så finder den Postnr ud fra den definition, som I er kommet frem med:
Public Function FindPostnr(Streng As String) As String Dim pos As Long pos = InStrRev(Streng, " ") If IsNumeric(Mid(Streng, pos - 4, 4)) Then FindPostnr = Mid(Streng, pos - 4, 4) Else FindPostnr = "" End If End Function
Så hvis du laver en forespørgsel kan du lave en ny kolonne, som ser således ud:
Dine eksempler følger ikke den syntaks, som blev beskrevet i spørgsmålet (gade, nr, postnr, by). Så datoen ville jo måske stå sådan: Aller Press Vigerslev Allé 18 877 Valby og da vil koden også virke. Dog med foranstillet mellemrum. Derfor kan man sætte en Trim på: Public Function FindPostnr(Streng As String) As String Dim pos As Long pos = InStrRev(Streng, " ") If IsNumeric(Mid(Streng, pos - 4, 4)) Then FindPostnr = Trim(Mid(Streng, pos - 4, 4)) Else FindPostnr = "" End If End Function
charlotterj > Ældre mennesker har ikke brug for så meget søvn ;o)
Nu skal vi ikke pinhugge spørgsmålet, og jeg er da også af den opfattelse, at spørgeren udelukkende mener "syddanske" postnumrer med 4 cifrer.
Jeg har ikke afprøvet din funktion, men vil gøre det ved først givne lejlighed. Ikke fordi jeg ikke tror den ikke fungerer, men jeg har det bedst med at afprøve forslagene.
Yes, altså: Lav en form, som virker ved at trykke på en knap, f.eks. "KØR". Den har et event "Ved Tryk", hvor du lægger koden i (Du bad om kode, og det gav frk. Charlotte dig). Dit event løber alle poster igennem og for hver post lagres f.eks. postnr. iflg. rutinen i et nyt felt, eller i ny tabel. Hvis det er en éngangsfornøjelse, så læg nogle flere point (du HAR jo fået koden), eksportér tabellen til en tekstfil og send til hvem her der måtte ønske den, f.eks. Charlotte, som jo allerede har rutinen klar, Mugs den Ældre, som har knappen klar (eller mig-sagde-hunden).
Synes godt om
Ny brugerNybegynder
Din løsning...
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.