Opdeling af adresse

Pos = InStrRev(Adresse, " ")  ' Find det sidste blanktegn
Vej = Left(Adresse, Pos-1)
Nr = Right(Adresse, Len(Adresse)-Pos)

...men hvis du også gerne vil tage hensyn til at der kan være noget efter nummeret:

Usserød Kongevej 85 1th

- så dur denne metode desværre ikke.

jeps da hus nummer faktsik både kan indeholde tal og bogstaver og være ganske lang:
Motorvejen 54B opgang 3A vær.5 th

Så mna man må lave noget som søger efter hvor husnr starter..:


str = "Motorvejen 54"
for i = 1 to len(str)
  if isnumeric(mid(str,i,1)) then
    husnrindex = i
    exit for
  end if
next
adr = trim(Left(str,husnrindex-1))
husnr = trim(Mid(str,husnrindex))

Response.Write adr & "<br>"
Response.Write husnr & "<br>"

Den "rigtige" løsning må nu være noget med et regulært udtryk. Jeg har desværre ikke lige tid til at kigge på det nu her i dag.

Hvorfor mener du det er mere "rigtigt"?

Du kan bruge regular expression sådan her, den sætte ;; inde før husnumeret så man kan lave en split på strengen.:


Function deladr(ByVal str)
  if isNull(str) then Exit Function
  dim ReqEx
  Set RegEx = New RegExp
  RegEx.IgnoreCase = true
  regEx.Pattern = "^([a-zæøå\s]+)(\d+)([a-zæøå\d\s]*)"
  deladr = RegEx.Replace(str, "$1;;$2$3")
End Function

str = "Usserød Kongevej 85"
str = deladr(str)
adrArr = Split(str,";;")

adr = trim(adrArr(0))
husnr = trim(adrArr(1))
Response.Write adr & "<br>"
Response.Write husnr & "<br>"

eagleeye > Hvis jeg bruger den du har der skriver den; "Type mismatch: 'RegEx.replace' "

Hvad betyder det`??

Ups min fejl...

ok :)

Hvis jeg har adressen "Händelsvej 10 1.th" skriver den:

Subscript out of range: '[number: 1]'

eagleeye > bruger den lige nu ihvertfald.. så kommer den med den fejl

arh prøv lige at lave denne om:

regEx.Pattern = "^([a-zæøå\s]+)(\d+)([a-zæøå\d\s]*)"

Til:

regEx.Pattern = "([^\d]+)(\d+)([a-zæøå\d\s]*)"

Faktisk så lav den om til:

regEx.Pattern = "([^\d]+)(\d+)(.*)"

KANON DET VIRKER BARE NU :)

Tak....