kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

[ vbukic @ 19.10.2013. 18:28 ] @

kako da rsastavim u accessu broj od 13 cifara na pojedinacne cifre sa dva blanko polja izmedju svakog broja

[ izonic @ 19.10.2013. 21:02 ] @

Code:
Function Razmakni(Broj, Blanko As Integer)
Dim Br As String, tmp As String
Dim I As Integer

Br = Format$(Broj)
    If Len(Br) <> 13 Then
    MsgBox "Nekorektan unos"
    GoTo Kraj
    Else
    For I = 1 To 12
    tmp = tmp & Mid(Br, I, 1) & space(Blanko)
    Next I
    End If
    tmp = Left(tmp, Len(tmp) - Blanko)
    Razmakni = tmp
Exit Function
Kraj:
End Function

[ 3okc @ 20.10.2013. 08:01 ] @

Pokušao bih sa Format()

Code:
format("9876543210123","0 0 0 0 0 0 0 0 0 0 0 0 0")

ili, ako je potrebno za nepoznat broj cifara

Code:
format(9876543210123,replace(string(12,"0"),"0","0 ",1,12)&"0")

s tim da umesto "12" treba staviti br. cifara -1.
Obrati pažnju da za ulaz prihvata jednako i string kao i broj. Ulaz koji je kraći od definisane dužine na izlazu dobija vodeće nule.

[ agkiki @ 20.10.2013. 13:04 ] @

Dozvolite da i ja postavim sl. pitanje u vezi ove funkcije.

Fonkcija radi odlicno, a mene zanima sl. ito dalije moguce između brojeva ubaciti "kucicu" nešto ovako I_I ili sl.
za svaki broj, to mi je potrbno za izveštaj.
Unapred zahvalan Ika

[ izonic @ 20.10.2013. 13:49 ] @

Ako mislis na moju proceduru onda moram reci prvo da ne radi dobro jer izbacuje jedan broj manje.
Treba ovaj red popraviti:
For I = 1 To 13

Code:
Tvoja procedura bi izgledala ovako:
Function Razmakni(Broj, Kucica As String)
Dim Br As String, tmp As String
Dim I As Integer

Br = Format$(Broj)
     If Len(Br) <> 13 Then
     MsgBox "Nekorektan unos"
     GoTo Kraj
     Else
     For I = 1 To 13
     tmp = tmp & Mid(Br, I, 1) & Kucica
     Next I
     End If
     tmp = Left(tmp, Len(tmp) - Len(Kucica))
     Razmakni = tmp
Exit Function
Kraj:
End Function

[ 3okc @ 20.10.2013. 13:55 ] @

Najpribližnije, recimo sa

Code:
format(9876543210123,replace(string(13,"0"),"0","|0",1,13)&"|")

nađeš mu font fiksne širine, podvučeno, i otprilike bude to.

[ agkiki @ 20.10.2013. 14:54 ] @

Funkciju sam ispravio cim sam uocio grešku, zanimame sl. Dali znaš ime fonta koji mi treba i gde da ga skinem.

[ agkiki @ 20.10.2013. 20:13 ] @

--
Koristim Opera klijent pošte: http://www.opera.com/mail/

[ 3okc @ 21.10.2013. 12:28 ] @

Predlog za Kako doći do pravog fonta. -_-

E sad, koji je "onaj pravi" već spada u domen estetike a tu se ne bih mešao.