Ciao!!
Sto cercando di copiare il testo contenuto in un documento rtf in una stringa, sostituirci una parola e poi creare un nuovo file rtf in cui inserire questa stringa.
Il risultato del codice che riporto qui sotto è che il nuovo file viene creato, ma dentro non c'è scritto nulla.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filedoc As System.IO.File
Dim testo As String
Dim testo2 As String
Dim filedest As System.IO.File
testo = filedoc.OpenText_(" \\Siserver\wwwroot$\applicazione\moduli\
ciao.rtf").ReadToEnd
testo2 = Replace(testo, "forse", "piove")
filedest.CreateText_(" \\Siserver\wwwroot$\applicazione\moduli\
ciao2.rtf").Write(testo2)
Se invece uso dei file doc il risultato è che la stringa viene scritta nel documento, ma con una codifica strana
End Sub
Sto cercando di copiare il testo contenuto in un documento rtf in una stringa, sostituirci una parola e poi creare un nuovo file rtf in cui inserire questa stringa.
Il risultato del codice che riporto qui sotto è che il nuovo file viene creato, ma dentro non c'è scritto nulla.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filedoc As System.IO.File
Dim testo As String
Dim testo2 As String
Dim filedest As System.IO.File
testo = filedoc.OpenText_(" \\Siserver\wwwroot$\applicazione\moduli\
ciao.rtf").ReadToEnd
testo2 = Replace(testo, "forse", "piove")
filedest.CreateText_(" \\Siserver\wwwroot$\applicazione\moduli\
ciao2.rtf").Write(testo2)
Se invece uso dei file doc il risultato è che la stringa viene scritta nel documento, ma con una codifica strana
End Sub
