Italian PDFWriter

Sub EsportaPDF
 
    'Imposta le coordinate iniziali per la tabella
    Dim startX come Int = 100
    Dim startY come Int = 760
    Dim rowHeight come Int = 20
    Dim colWidth come Int = 120
    
    ' Aggiungi intestazione della tabella
    pdf.addText(startX, startY, 12, "Dispositivo")
    pdf.addText(startX + colWidth, startY, 12, "Temperatura (°C)")
    pdf.addText(startX + (2 * larghezzacolonna), startY, 12, "Dati")
    
    ' Inizia a riempire la tabella con i dati dallo storico
    Per i = 0 Per history.Size - 1
        startY = startY - rowHeight ' Aggiorna la posizione Y per ogni riga
        Dim entry As String = history.Get(i)
        
        ' Supponiamo che l'entry sia formattata come: "data : dispositivo : temperatura"
        Dim parts() come stringa = Regex.Split(": ", voce)
        Se parti.Lunghezza >= 3 Allora
            Dispositivo di oscuramento come stringa = parts(1).Trim
            Dim temp come stringa = parts(2).Trim
            Dim dateInfo come stringa = parts(0).Trim
            
            ' Aggiungi i dati alla tabella
            pdf.addText(startX, startY, 12, dispositivo)
            pdf.addText(inizioX + larghezzacolonna, inizioY, 12, temperatura)
            pdf.addText(inizioX + (2 * larghezzacolonna), inizioY, 12, dateInfo)
        Fine se
    Prossimo
    
    ' Specifica il percorso e salva il PDF
    Disattiva come OutputStream
    out = File.OpenOutput(File.DirRootExternal, "dati_esportati.pdf", False)
    fuori.Chiudi
    
    Msgbox("Esportazione PDF completata. Salvato come dati_esportati.pdf", "Esportazione PDF")
    
    MostraMenu
Fine sotto

File.DirRootExternal