Trim tlf-nr

Hvilke andre variationer kan der være?

/theSurfer

"3300 0000" kan også forekomme.

Og tlf.nr. er altid på 8 cifre (hvis man ikke tæller "+45) med) ?

/theSurfer

Jeps...

Dim s, i, j, prefix
Dim tmp, tlfnr

' Jeg har valgt at lave en array, til at simulere nogle telefonnumre:

s = "+45 3300 0000¤33000000¤1234 5678" ' eksempler på numre
s = Replace(LCase(s), " ", "")
s = Replace(LCase(s), " ", "")
' Nu er strengen lig: "+4533000000¤33000000¤33000000"

s = split(s, "¤")

For i = 0 To UBound(s)
    prefix = "+45 " ' prefix, som indsættes foran tlf.nr.. husk mellemrum
    tmp = s(i) ' indeholder hele telefon nummeret
    tmp = Replace(tmp, "+45", "") ' fjern +45 så vi kun skal arbejde med tlf.nr.
   
        tlfnr = ""
    For j = 1 To 4
        tlfnr = tlfnr & mid(tmp, (j * 2) - 1, 2) & " "
    Next
        tlfnr = left(tlfnr, len(tlfnr) - 1)
        tlfnr = prefix & tlfnr

        msgbox "tlfnr: " & tlfnr & "<br>"
        'response.write "tlfnr: " & tlfnr & "<br>"
Next

/theSurfer

Der skulle ha' stået:

' Nu er strengen lig: "+4533000000¤33000000¤12345678"

Men det er lige meget, da det er en kommentar.. :-)

/theSurfer

Hehe.. og en ASP misser :-)

Der skulle ha' stået:
        msgbox "tlfnr: " & tlfnr & vbCrLf
:-)

/theSurfer

Kigger lige på det og vender tilbage....

Det ser fint ud og virker efter hensigten.

Kan 's = Replace(LCase(s), "&nbsp;", "")' ændres således at man fjerner alle ikke nummeriske tegn, i stedet for kun den eksakte frase "&nbsp;"?

Smid et svar så du kan få dine point :-)

Så skal man ud i noget RegExp, hvilket ikke er min stærke side.. Men man kunne også lave en loop, der kørte fra 0 og til længden af strengen..
Denne loop skal checke "nuværende" tegns CHR værdi.. CHR værdien skal så ligge i "0-9"-området.. hvis ikke, fjernes tegnet..

Laver lige en loop til dig..

- Svar.

/theSurfer

Man kan vist også bare brug IsNumeric.. laver lige loopen..

/theSurfer

Sådan:

Dim s, i, j, prefix
Dim tmp, tlfnr

' Jeg har valgt at lave en array, til at simulere nogle telefonnumre:

s = "+45 3300&nbsp;0000¤3300a0b00c0¤1234&nbsp;5678" ' eksempler på numre
s = split(s, "¤")

For i = 0 To UBound(s)
    prefix = "+45 " ' prefix, som indsættes foran tlf.nr.. husk mellemrum
    tmp = s(i) ' indeholder hele telefon nummeret
    tmp = Replace(tmp, "+45", "") ' fjern +45 så vi kun skal arbejde med tlf.nr.

    for j = len(tmp) to 1 step -1
        ' Denne linie fjerne alle tegn pånær tal
        if IsNumeric(mid(tmp, j, 1)) = false then    tmp = replace(tmp, mid(tmp, j, 1), "")
    next
   
    tlfnr = ""
    For j = 1 To 4
            tlfnr = tlfnr & mid(tmp, (j * 2) - 1, 2) & " "
    Next
    tlfnr = left(tlfnr, len(tlfnr) - 1)
    tlfnr = prefix & tlfnr

    msgbox "tlfnr: " & tlfnr & "<br>"
    'response.write "tlfnr: " & tlfnr & "<br>"
Next

/theSurfer

Kun som en kommentar til thesurfer udemærkede kode. Her er den med regex

Function PhoneNo(s As String) As String
Dim RegEx As Object, temp As String
  Set RegEx = CreateObject("vbscript.regexp")
  With RegEx
      .Global = True
      .Pattern = "[^\d]+"
  End With
  temp = RegEx.Replace(s, "")
  If Len(temp) = 8 Then PhoneNo = Format("45" + temp, "+## ## ## ## ## ##") Else PhoneNo = Format(temp, "+## ## ## ## ## ##")
  Set RegEx = Nothing
End Function


Sub test4()
Dim st As String
  st = "+45 3300&nbsp;0000"
  st = PhoneNo(st)
  MsgBox st
End Sub

Kanon!, tak for hjælpen.