kenan 08.06.2017 15:35
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

kenan 08.06.2017 16:09
Predmet:Re: određivanje razmaka između podataka

Skonto ide space umjesto tab

Gjoreski 08.06.2017 19:43
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