Avatar billede malm Nybegynder
26. januar 2007 - 14:11 Der er 7 kommentarer og
1 løsning

Foranstille 0'er således feltet altid fylder 10 karaktere

Jeg mangler lidt hjælp til en konverter. Den nuværende kode fjerner spaces men mangler at kunne foranstille '0'. Variablen s variere i længde.

s:
97500658KP
LISTE0308
LISTE174
8853X7

Bliver konverteret til

f:
97500658KP
0LISTE0308
00LISTE174
00008853X7

Koden der skal rettes i:


    Do Until rec.EOF
       
        rec.Edit
       
        ref = rec!ref
        p = InStr(1, ref, " ")
       
        If p Then
            s = Left(ref, p - 1)
            s = s + Mid(ref, p + 1, Len(ref))
/*kode til at foranstille nuller*/
            f = konverter(s)
/* slut */
            rec!ref = f
        End If
       
        rec!konv = 1
        rec.Update
        rec.MoveNext
   
    Loop


Håber i kan hjælpe
Hilsen
-Malm
Avatar billede oz1aiv Nybegynder
26. januar 2007 - 14:17 #1
Her er en funktion, som vist kan det du mangler:
Den kan køres fra en forespøgsel: forannul(s;10)


Function ForanNul (InVar As String, Length As Integer) As String

Select Case Len(InVar)

Case Is < Length

AntalNul = Length - Len(InVar)
tmpVar = InVar

For a = 0 To AntalNul - 1
tmpVar = "0" & tmpVar
Next a
ForanNul = tmpVar

Case Is = Length
ForanNul = InVar

Case Else
ForanNul = "#FEJL"

End Select


End Function
Avatar billede oz1aiv Nybegynder
26. januar 2007 - 14:55 #2
Kom lige i tanke om, at du også kunne bruge noget i retning af:

nuller = "0000000000"
left$(nuller,10-Len(ref)) & ref
Avatar billede hugopedersen Nybegynder
26. januar 2007 - 15:35 #3
f = Right$("0000000000" & s, 10)
Avatar billede oz1aiv Nybegynder
26. januar 2007 - 16:51 #4
Ja - selvfølgelig!
Avatar billede jesperfjoelner Nybegynder
26. januar 2007 - 16:53 #5
Super simpelt:

?format(234,"0000000000")
0000000234
Avatar billede jesperfjoelner Nybegynder
26. januar 2007 - 16:54 #6
hov min virker ikke, bare glem den :-)
Avatar billede hugopedersen Nybegynder
27. januar 2007 - 15:50 #7
Ja hvorfor gøre det mere besværligt end nødvendigt :-)
Avatar billede malm Nybegynder
29. januar 2007 - 09:05 #8
Mange tak oz1 Aiv for din hurtige besvarelse :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester