hive tal ud af en streng

Disse 2 funktioner finder gadenavn og husnr:
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

Øhhhm, finder den ikke bare før de to sidste tegn i strengen???? hvad nu hvis man bor i nummer 125?

Findes der ikke en funktion el lign der kan kende forske på tal og bogstver i en streng???

/jan

Hvad med at afprøve funktionen inden du stiller spørgsmålstegn ved min funktion :o)

Funktionen leder efter første tal i adressen og betragter resten af strengen som vejnr.
Prøv selv med:
?SplitAdresse_FindVejnr("Niels Oles Ved 11 a")

Det gør den søreme også!!!

Pointene er dine!

/jan

thnx :o)