Prikazi cijelu temu 21.10.2011 16:49
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Re: Fiskalizacija u FBiH
Hvala. Pokusavam sa ovom procedurom:

PreuzmiIzvorni kôd (Text):
  1. Function Broj_Racuna()
  2. Dim temp As String
  3. Dim Poz, Poz2, Poz3 As Integer
  4.  
  5. Close #1
  6. Open Putanja_Filea For Input As 1
  7. While Not EOF(1)
  8. Line Input #1, temp
  9. If Mid(temp, 1, 2) = "56" Then
  10. Poz = InStr(1, temp, ";")
  11. Poz2 = InStr(Poz + 1, temp, ",")
  12. Poz3 = InStr(Poz2 + 1, temp, ",")
  13. Broj_Racuna2 = Mid(temp, Poz2 + 1, Poz3 - Poz2 - 1)
  14. GoTo kraj:
  15. End If
  16. Wend
  17. kraj:
  18. Close #1
  19. End Function

Mozda se moze nesto uraditi.
Pozz
Pozdrav, Amela