Bosna i Hercegovina



kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 178


Subject: 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
↑  ↓

kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 178


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

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,232


Subject: Re: određivanje razmaka između podataka
ja sam se dugo zanimao sa ovakav nacin printajna evo ti od mene jedo resenje.
DownloadIzvorni kod (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
↑  ↓

 Podijeli  Dodaj odgovor Stranice (1): 1


All times are GMT +01:00. Current time: 28.06.2017-01:22.