Centar za edukaciju-BiH



#1 16.04.2012 14:49
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Čitanje broja računa HCP
Imam ovu funkciju ali ne radi sa ovim mojim xml fajlom.Iz njega trebam da isčitam broj računa "RECEIPT_NUMBER"
PreuzmiIzvorni kd (Text):
  1. Function Citaj()
  2.  
  3. On Error GoTo Citaj_Err
  4. Dim temp As String
  5. Dim Jedan_red As String
  6. Dim Poz As String
  7. Dim Poz1 As String
  8. Dim RukaPo As String
  9. Close #1
  10. 'Open ("" & DLookup("[Putanja]", "[Put]") & "\Rac" & [Forms]![Osnovna tabela Q VP1]![Datum] & " " & [Forms]![Osnovna tabela Q VP1]![Index] & ".inp") For Input As 1
  11. Open ("C:\HCP\FROM_FP\Bill_State.xml") For Input As 1
  12. While Not EOF(1)
  13. Line Input #1, Jedan_red
  14. temp = temp & Jedan_red & vbCrLf
  15. Poz = InStr(1, temp, "RECEIPT_NUMBER=")
  16. Poz1 = InStr(1, temp, "REFOUND_RECEIPT_NUMBER")
  17. RukaPo = Mid(temp, Poz + 17, [Poz1] - [Poz] - 19)
  18. Wend
  19. Close #1
  20. If Poz > 0 Then
  21.  
  22. MsgBox "Fiskalni broj racuna je: " & [RukaPo], vbCritical, "UPOZORENJE"
  23. Else
  24. MsgBox "UPSSS"
  25. End If
  26. Citaj_Exit:
  27.  
  28. Exit Function
  29. Citaj_Err:
  30. MsgBox Error$
  31. Resume Citaj_Exit
  32. End Function
Prilog xml fajl iz kojeg mi treba broj računa

Prilozi:
Informacije o tipu datoteke za:rar  bill_state.rar
Preuzimanja:362
Velicina datoteke:305 Bajt


Miro
↑  ↓

#2 16.04.2012 18:23
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Čitanje broja računa HCP
ako ga čitaš kao string trebaš nešt tipa

If Left(Jedan_red, 14) = "<RECEIPT_STATE" Then
Poz = InStr(1, temp, "RECEIPT_NUMBER=")
Poz1 = InStr(1, temp, "REFOUND_RECEIPT_NUMBER")
RukaPo = Mid(temp, Poz + 17, [Poz1] - [Poz] - 19)
End If
Wend
↑  ↓

#3 16.04.2012 18:39
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


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
↑  ↓

#4 17.04.2012 11:55
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Čitanje broja računa HCP
Ne radi ni jedna ni druga. Ova prva sad pokazuje poruku "Fiskalni broj racuna je:" i napiše prazno.Ja sam stavio u xml fajlu bill_state da je broj 8.
Miro
↑  ↓

#5 17.04.2012 12:22
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Čitanje broja računa HCP
kad ti projde petlju beoj ti je u SpliStr(3) : "RECEIPT_NUMBER='8'"
↑  ↓

#6 18.04.2012 07:15
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Čitanje broja računa HCP
Ovo splitstr(3) mi ne radi.
Miro
↑  ↓

#7 18.04.2012 09:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: Čitanje broja računa HCP
PreuzmiIzvorni kd (Visual Basic):
  1. Const PutanjaR = "c:\_hcp\FROM_FP\Bill_State.xml"
  2. Function Citaj()
  3. Dim Temp As String
  4. Dim Jedan_red As String
  5. Dim Poz(1 To 3) As Integer
  6. Dim RacunBr As String
  7. Dim I As Integer
  8.  
  9.  
  10. On Error GoTo Citaj_Err
  11. Close #1
  12. Open PutanjaR For Input As 1
  13. For I = 1 To 4
  14. Line Input #1, Jedan_red
  15. Temp = Temp & Jedan_red
  16. Next I
  17. Poz(1) = InStr(1, Temp, "RECEIPT_NUMBER=")
  18. Poz(2) = InStr(1, Temp, "REFOUND_RECEIPT_NUMBER=")
  19. If Poz(1) > 0 And Poz(2) > 0 Then
  20. Poz(1) = Poz(1) + 16
  21. Poz(2) = Poz(2) - 2
  22. Poz(3) = Poz(2) - Poz(1)
  23. RacunBr = Mid(Temp, Poz(1), Poz(3))
  24. MsgBox "Fiskalni broj racuna je: " & RacunBr, vbCritical, "UPOZORENJE"
  25. Else
  26. MsgBox "UPSSS"
  27. End If
  28.  
  29. Close #1
  30.  
  31. Citaj_Exit:
  32.  
  33. Exit Function
  34. Citaj_Err:
  35. MsgBox Error$
  36. Resume Citaj_Exit
  37. End Function

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 18.04.2012 09:56 od strane zxz. ↑  ↓

#8 18.04.2012 10:23
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:304


Predmet:Re: Čitanje broja računa HCP
Za Reklamirani racun:

Const PutanjaR = "c:\hcp\FROM_FP\Bill_State.xml"
Function CitajRek()
Dim Temp As String
Dim Jedan_red As String
Dim Poz(1 To 3) As Integer
Dim RacunBr As String
Dim I As Integer


On Error GoTo Citaj_Err
Close #1
Open PutanjaR For Input As 1
For I = 1 To 4
Line Input #1, Jedan_red
Temp = Temp & Jedan_red
Next I
Poz(1) = InStr(1, Temp, "REFOUND_RECEIPT_NUMBER=")
Poz(2) = InStr(1, Temp, "RECEIPT_TO_REFUND=")
If Poz(1) > 0 And Poz(2) > 0 Then
Poz(1) = Poz(1) + 24
Poz(2) = Poz(2) - 2
Poz(3) = Poz(2) - Poz(1)
RacunBr = Mid(Temp, Poz(1), Poz(3))
MsgBox "Reklamirani broj racuna je: " & RacunBr, vbCritical, "UPOZORENJE"
Else
MsgBox "UPSSS"
End If

Close #1

Citaj_Exit:

Exit Function
Citaj_Err:
MsgBox Error$
Resume Citaj_Exit
End Function
Pozdrav, Amela
↑  ↓

#9 18.04.2012 10:36
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Čitanje broja računa HCP
Hvala to je to
Miro
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 01 pm.