GroupDigits funktion ...

Bruger VB5 bare i så i ve\'t ..

Funktionen accepteres også i PHP/ASP da jeg selv ka omskrive den så...

Dim slut1 As String
Dim start1 As String

start1 = \"24123456789\"

\'slut1 = Left$(start1, 2) & \".\" & Mid$(start1, 3,) & \".\" mid$(start1, 1,8 ) & \".\" & Right$(start1, 4)
slut1 = Left$(start1, 2) & \".\" & Mid$(start1, 3, 3) & \".\" & Mid$(start1, 6, 3) & \".\" & Right$(start1, 3)

MsgBox slut1

Jeg går ud fra at første del kun er på 2 tal.

V.H
Kisbye

Så får du da bare en PHP løsning :)
Happy huntin\'


<?php
    function dotify($int) {
        $res = \"\";
        $intsize = strlen($int);
        $internalcount = 0;
       
        for ($i=$intsize;$i>0;$i--) {
            $res .= $int[$i];
            if ($internalcount%3 == 0 && $internalcount != 0) $res .= \".\";
            $internalcount++;
        }
       
        return strrev($res);
    }

    $tal = \"123456789012345678901234567890\";
    echo $tal.\"<BR>\\n\";
    echo dotify($tal).\"<BR>\\n\";
?>

Linien der er udkommenteret skal du bare se bort fra.

Mit bud:

Public Sub LavPænt(Tal)
    Lgd = Len(Tal)
    While Lgd >= 3
        tekst = Right(Tal, 3)
        Tal = Left(Tal, Lgd - 3)
        Lgd = Len(Tal)
        Gemstr = tekst & \".\" & Gemstr
    Wend
    If Tal <> \"\" Then Gemstr = Tal & \".\" & Gemstr
    MsgBox Gemstr
End Sub

men brug dog et sprog hvor vi må regexp\'e lidt :))

Hov den slutter med \".\"
Klares ved at indsætte:
    Lgd = Len(Gemstr)
    Gemstr = Left(Gemstr, Lgd - 1)
før msg :)

Prøver lige peter.erikse\'s ... det er trodsalt allerede skrevet i VB...

peter.erikse, din fejler hvis ikke tallets længde er deleligt med 3.
Omskriver lige ljweb\'s ..

:o)

Den fejler ikke hos mig

peter.erikse, hmm .. ud af 1234567890 fik jeg .234.567.890 ... ca.

Det gør den altså ikke hos mig, men pyt

Bruger ljweb\'s .. til \"forbipasserende\" ser funktionen således ud i VB:

Public Function Dotify(Expression)
    intInternalCount = 0

    For intIndex = Len(Expression) To 1 Step -1
        strRes = strRes & Mid(Expression, intIndex, 1)
        If (intInternalCount Mod 3) = 0 And intInternalCount > 1 Then strRes = strRes & \".\"
        intInternalCount = intInternalCount + 1
    Next

    Dotify = StrRev(strRes)
End Function

thx4ptn

Nu var min Funktion altså også i VB.
Men pyt... :)

Prøv med denne her:

s = \"24123456789\"
s = Format(s, \"##,###,##0\")