Prikazi cijelu temu 21.10.2011 20:06
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Re: Fiskalizacija u FBiH
zxz: Izgleda da sam uspjela sama. Mozda nije elegantno ali radi. Ni sama neznam kako sam uspjela. Malo sam i naucila.

PreuzmiIzvorni kôd (Text):
  1. Function Broj_Racuna()
  2. Dim temp As String
  3. Dim Poz, Poz2, Poz3, Pozz As Integer
  4. Const Putanja_Filea1 = "C:\Tring\stampatifiskalniracun11.xml"
  5. Close #1
  6. Open Putanja_Filea1 For Input As 1
  7. For x = 1 To 6
  8. Line Input #1, temp
  9. Next x
  10. Poz = InStr(1, temp, ">")
  11. Pozz = InStr(1, temp, "t>")
  12. broj_racuna2 = Mid(temp, 38 + 1, Pozz - 50)
  13. kraj:
  14. MsgBox "BF: " & broj_racuna2
  15. Close #1
  16. End Function

Nije uvijek isti naziv fajla pa cu morati jos vidjeti. Ako ti imas bolje rjesenje bila bih ti zahvalna.
Pozdrav, Amela.
Pozdrav, Amela