Prikazi cijelu temu 17.09.2024 10:40
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Re:Fiskalizacija u RS-u
PreuzmiIzvorni kôd (Text):
  1. Public Function ExtractBase64String(text As String) As String
  2.     Dim startStr As String
  3.     Dim endStr As String
  4.     Dim startPos As Long
  5.     Dim endPos As Long
  6.  
  7.     ' Definiraj pocetni i zavrsni parametar
  8.     startStr = """invoiceImagePngBase64"":"""
  9.     endStr = """,""invoiceNumber"""
  10.  
  11.     ' Nadji pozicije pocetka i kraja stringa
  12.     startPos = InStr(text, startStr)
  13.     If startPos = 0 Then
  14.         ExtractBase64String = "Start string not found"
  15.         Exit Function
  16.     End If
  17.     startPos = startPos + Len(startStr) ' Pomakni poziciju na kraj start stringa
  18.  
  19.     endPos = InStr(startPos, text, endStr)
  20.     If endPos = 0 Then
  21.         ExtractBase64String = "End string not found"
  22.         Exit Function
  23.     End If
  24.  
  25.     ' Izvuci substring izmedju pocetka i kraja
  26.     ExtractBase64String = "data:image/gif;base64," & Mid(text, startPos, endPos - startPos)
  27. End Function

Izvucem string iz odgovora i mogu ga pretvoriti u png.

Sad mi je problem poslati na stampu tu sliku na odredjen stampac.
Pozdrav, Amela