Split telefon nummer

Jeg ville nok starte, med at fjerne mellem rum, fra det indtastede:

phone = replace(request.form("phone"), " ", "")

nu indeholder phone nummeret "22501050".. og det er lige meget om brugeren skrev "2250 105 0" eller "2 2 5 0 1 0 5 0"..
Det kommer til at være uden mellemrum...

Skal det udskrives som "xx xx xx xx" eller som "xxx xxx xx" ?

Mener du sådan her:

    intPNo = "25986268"
    Dim arrNo(3)
    arrNo(0) = Left(intPNo, 2)
    arrNo(1) = Mid(intPNo, 3, 2)
    arrNo(2) = Mid(intPNo, 5, 2)
    arrNo(2) = Mid(intPNo, 7, 2)

    Response.Write(arrNo(0) & " " & arrNo(1) & " " & arrNo(2))

//>Rune

Sådan her selvf.:

  intPNo = "25986268"
    Dim arrNo(3)
    arrNo(0) = Left(intPNo, 2)
    arrNo(1) = Mid(intPNo, 3, 2)
    arrNo(2) = Mid(intPNo, 5, 2)
    arrNo(3) = Mid(intPNo, 7, 2)

    Response.Write(arrNo(0) & " " & arrNo(1) & " " & arrNo(2) & " " & arrNo(3))

//>Rune

Du kna også gøre sådan her, så kan du styre det helt præcist som du selv vil ha' det...

    intPNo = "25986268"
    Dim arrNo(8)
    For i = 1 To 8
        arrNo(i) = Mid(intPNo, i, 1)
    Next

    Response.Write(arrNo(0) & " " & arrNo(1) & " " & arrNo(2) & " " & arrNo(3) & " " & arrNo(4) & " " & arrNo(5) & " " & arrNo(6) & " " & arrNo(7) & " " & arrNo(8))


//>Rune

//Takker

eller som reg.exp
'fjerner alle mellemrum
str = replace(str," ","")
Set RegEx = New RegExp 
regEx.pattern = "^(\d){2}(\d){2}(\d){2}(\d){2}$"
str regEw.replace (str, "$1 $2 $3 $4")
response.write str

eagleeye> Det gik vist lidt for hurtigt :-)
Der er et par fejl.. :-)

Ja sådan kan det gå :)