Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 08.06.2017 14:35
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet:određivanje razmaka između podataka
interesuje me dali se neko zezao sa određivanjem razmaka izmedu polja na exportu podataka u txt file

sta hoču da uradim, kod ispisa racuna u txt da su polja uvijekpočinju sa istog mjesta

probao sam sa TAB(A) naredbom izmedžu polja ali mi onda prebaci u novi red

A = 10 - Len(RS4!SifArt)
Print #1, Left(RS4!SifArt, 10); Tab(A); Left(RS4!NazivArtikla, 30); RS4!Boja; " "; RS4!Velicina
↑  ↓

#2 08.06.2017 15:09
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet:Re: određivanje razmaka između podataka
Skonto ide space umjesto tab
↑  ↓

#3 08.06.2017 18:43
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: određivanje razmaka između podataka
ja sam se dugo zanimao sa ovakav nacin printajna evo ti od mene jedo resenje.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function AlignLeftString(N, s)
  2.   If Len(s) >= N Then
  3.     AlignLeftString = Mid$(s, 1, N)
  4.   Else
  5.     AlignLeftString = s & String(N - Len(s), " ")
  6.   End If
  7. End Function
  8.  
  9. Public Function AlignRightString(N, s)
  10.   If Len(s) >= N Then
  11.     AlignRightString = Mid$(s, 1, N)
  12.   Else
  13.     AlignRightString = String(N - Len(s), " ") & s
  14.   End If
  15. End Function
  16.  
  17. Public Function AlignCenterString(N As Integer, s As String)
  18. Dim Razlika As Integer
  19.   Razlika = N - Len(s)
  20.   If Razlika > 0 Then
  21.     AlignCenterString = String(Int(Razlika / 2), " ") & s & String(Int(Razlika / 2), " ")
  22.   Else
  23.    AlignCenterString = Mid$(s, 1, N)
  24.   End If
  25. End Function
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 6: 56 pm.