Opdeling af gade og husnummer.

dn problematik har været vendt mange gange. Problemet er, at der er så mange regler.

Men disse 2 funktioner kan måske hjælpe dig:

Public Function SplitAdresse_FindGadenavn(Adresse As String) As String
    Dim pos As Integer
    pos = 1
    Do Until pos >= Len(Adresse) Or (Mid(Adresse, pos, 1) >= 0 And Mid(Adresse, pos, 1) <= 9)
        pos = pos + 1
    Loop
    SplitAdresse_FindGadenavn = Left(Adresse, pos - 2)
End Function

Public Function SplitAdresse_FindVejnr(Adresse As String) As String
    SplitAdresse_FindVejnr = Mid(Adresse, Len(SplitAdresse_FindGadenavn(Adresse)) + 2)
End Function

Er du med på hvordan du skal bruge dem?

Kan man ikke bare gå efter det første tal?

I de 3 eksempler der bliver nævnt er gadenavnet hele strengen indtil der kommer et tal. Når tallet er fundet bliver resten til husnummeret.

Du vil ikke se nogle gadenavne med tal i, og jeg har aldrig set nogen bo på "Gadenavn A"

/Flim/

Flim, det er jo netop det jeg gør i mine funktioner!

thomas.

Ok - havde jeg så ikke set, men så længe vi begge er enige så kan det jo ikke være helt forkert :-)

Helt enig :o)

Jeg har indsat de to funktioner i moduler,
jeg mangler lidt hjælp til at indsætte dem i en forespørgsel.
Jeg er lidt noob, så en syntaks ville være en stor hjælp :)

I din forespørgsel skriver du f.eks.:

Gadenavn: SplitAdresse_FindGadenavn([adresse])

og tilvarende i husnr:

Husnr: SplitAdresse_FindVejnr([adresse])

Det virker!! Perfekt. mange tak for hjælpen