Predmet:Re: Gotova rjeÅ¡enja za fiskalne uređaje
vezano za moj raniji
post evo koda koji koristim za "izvlačenje" broja fiskalnog računa iz answer fajla za nsc uređaje:
Citat:Function Broj_Racuna()
Dim temp As String
Dim Poz, Poz2, Poz3 As Integer
Close #1
Open Putanja_Filea For Input As 1
While Not EOF(1)
Line Input #1, temp
If Mid(temp, 1, 2) = "56" Then
Poz = InStr(1, temp, ";")
Poz2 = InStr(Poz + 1, temp, ",")
Poz3 = InStr(Poz2 + 1, temp, ",")
Broj_Racuna2 = Mid(temp, Poz2 + 1, Poz3 - Poz2 - 1)
GoTo kraj:
End If
Wend
kraj:
Close #1
End Function
Izvorni kod primjer