Predmet:Re: Čitanje broja računa HCP
Re : Ispravka Čitanje broja računa HCP
While Not EOF(1)
On Error Resume Next
Dim SpliStr
Line Input #1, Jedan_red
temp = temp & Jedan_red & vbCrLf
If Left(Jedan_red, 14) = "<RECEIPT_STATE" Then
SpliStr = Split(Jedan_red, " ") '' SpliStr(3) : "RECEIPT_NUMBER='8'"
End If
Wend