+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 5 su 5

Aiuto conversione linguaggio di programmazione da Visual C a Visual Basic

  1. #1
    tdx3 non  in linea Scolaretto

    Ciao a tutti, mi é stato passato questo testo scritto in Visual C per creare un file pdf, come lo posso importare e riutilizzare in VB?


    Imports System.IO

    Public Function create_string_xfdf(ByVal path_file_model_PDF As String) As String

    'crea una stringa XFDF e la ritorna al chiamante

    Dim xfdf_file As String

    xfdf_file = "<?xml version=" + Chr(34) + "1.0" + Chr(34) + " encoding=" + Chr(34) + "UTF-8" + Chr(34) + "?>" + vbCrLf + "<!-- file pdf -->" + vbCrLf + "<xfdf xmlns=" + Chr(34) + "http://ns.adobe.com/xfdf/" + Chr(34) + " xml:space=" + Chr(34) + "preserve" + Chr(34) + ">" + vbCrLf + "<fields>" + vbCrLf

    xfdf_file = xfdf_file + tag_xml ("DESCR_SOGGETTO", "Schumacher" + " " + "Michael")


    'CHIUSURA

    xfdf_file = xfdf_file + "</fields>" + vbCrLf + "<f href=" + Chr(34) + path_file_model_PDF + Chr(34) + "/></xfdf>" + vbCrLf

    'Valore ritornato dalla funzione
    Return xfdf_file
    End Function

  2. #2
    Questo non e' Visual C ma Visual Basic.Net

    Quindi e' trasformabile facilmente ...

    Cambi tutti i + in &

    Al posto di Return ... scrivi

    create_string_xfdf = xfdf_file

    Non usi la Imports ...
    ℹ️ Leggi di pi su AntonioG ...

  3. #3
    tdx3 non  in linea Scolaretto
    per testare la funzione di sopra mi potresti traddure anche questo testo che serve appunto per la creazione?

    Public Function create_file(ByVal path_to_xfdf_file As String, ByVal created_xfdf_string As String) As Boolean
    'Crea un file xfdf sul disco
    Dim fs As New FileStream(path_to_xfdf_file, FileMode.Create, FileAccess.Write)
    'Dichiara un FileStream e crea un documento pdf
    'con modalit&#224; di accesso per la scrittura

    Dim s As New StreamWriter(fs)
    'crea uno oggetto StreamWriter e fornisce l'oggetto FileStream come argomento
    s.BaseStream.Seek(0, SeekOrigin.End)
    'Il metodo seek &#232; utilizzato per muovoere il cursore alla prossima posizione ed evitare
    'che il testo sia sovrascritto

    s.Write (created_xfdf_string)
    'scrive il testo alla prossima riga
    s.Close()
    Return True
    End Function
    Ultima modifica di tdx3; 03-04-2006 22:30 

  4. #4
    tdx3 non  in linea Scolaretto
    Potrebbe funzionare una procedura analoga alla ceazione dei file txt?

    Function WriteFile(created_xfdf_string As String, PathFile As String)


    F = FreeFile 'imposta in F il numero di file libero

    'scrive il file in PathFile che indica il (percorso file) oltre all'estensione. (es. "f:\prova.pdf")

    Open PathFile For Output As #F
    'scrive nel file la variabile Testo
    Print #F, created_xfdf_string
    Close #F
    MsgBox "Creazione del file in " & PathFile & " avvenuta con successo!.", vbInformation, "Informazione"
    Exit Function
    End Function

  5. #5
    Quote Originariamente inviato da tdx3
    Potrebbe funzionare una procedura analoga alla ceazione dei file txt?

    Function WriteFile(created_xfdf_string As String, PathFile As String)


    F = FreeFile 'imposta in F il numero di file libero

    'scrive il file in PathFile che indica il (percorso file) oltre all'estensione. (es. "f:\prova.pdf")

    Open PathFile For Output As #F
    'scrive nel file la variabile Testo
    Print #F, created_xfdf_string
    Close #F
    MsgBox "Creazione del file in " & PathFile & " avvenuta con successo!.", vbInformation, "Informazione"
    Exit Function
    End Function
    S ... togli la Exit Function che non ha senso alla fine della funzione ...
    ℹ️ Leggi di pi su AntonioG ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Conversione codice da visual basic a visual....
    Da Sn0rky nel forum Visual Basic .Net
    Risposte: 5
    Ultimo Post: 20-03-2014, 08:17
  2. Risposte: 14
    Ultimo Post: 05-03-2012, 12:54
  3. Aiuto per Visual Basic
    Da letrusco nel forum Presentati
    Risposte: 2
    Ultimo Post: 25-02-2011, 08:51
  4. Visual Basic : programmazione livello avanzato
    Da BeBeToS92 nel forum Libri e riviste
    Risposte: 0
    Ultimo Post: 08-02-2011, 20:40
  5. Visual Basic excel aiuto please
    Da Depeche nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 05-07-2004, 16:12