lettura file txt, sostituzione e stampa

[nat99]

salve...

vorrei sapere come si puo' fare a:
1. leggere un file txt da applicazione vb
2. sostituire alcune parole a modo di variabili (nn so a ke riag si trovino queste parole)
3. stampare direttamente senza aprire il file

se puede??

[matto84]

per leggere: (l'ho ttrovata sulle guide del sito!
Private Function LeggiFile(File As String) As String

Dim Riga As String

Dim NumFile As Integer

NumFile = FreeFile

Open File For Input As NumFile


While Not EOF(NumFile)

Input #NumFile, Riga

LeggiFile = LeggiFile & Riga & vbCrLf

Wend

Close (NumFile)

End Function




Private Sub Command1_Click()
Label1.Caption = LeggiFile("C:\Prova.txt")
End Sub

[Grunt]

Per modificare delle stringhe puoi farlo con la funzione "Replace".

NewStr=Replace(oldStr,ParolaDaSost,NewParola)

In pratica alla funzione di prima aggiungi questa riga di codice tra

Input #NumFile, Riga 
Riga=Replace(Riga,ParolaDaSost,NewParola)
LeggiFile = LeggiFile & Riga & vbCrLf

[nat99]

ok raga'... ma un'altra cosa... ho necessità di fare questo anke con dei RTF senza doverli aprire...

come se po fa?

[nat99]

+ o - va...

nn funzia il Replace in un txt... xké?

[Grunt]

Dopo che hai fatto tutte le sostituzioni, devi ricrivere il file. Quello originale non viene toccato.

[nat99]

risolto grazie ...

VVB

[FreeKevin]

Ciao a tutti,
ho un problema sul file modificato, perche nel sostituire il valore mi cancella tutti gli accenti "'" e le lettere con gli accenti.
Perche?
Vi allego il codice
"
Dim objReader As New StreamReader("c:\ar.htm")
Dim sLine As String
Dim sLine1 As String
Dim writer As StreamWriter = New StreamWriter("c:\arT.htm")
'visualizza dati anagrafici titolare
Call connetti()
Rs.Open("SELECT * FROM anagrafica WHERE tipo = 'admin'")
Do
sLine1 = objReader.ReadLine()
sLine = Replace(sLine1, "#nome#", Rs("nome").Value)

If sLine = "#STOP" Then
Else
writer.WriteLine(sLine)
End If
Loop Until sLine = "#STOP"
objReader.Close()
writer.Close()
"
Grazie 1000

[xegallo]

visto che hai deciso di fare una discussione nuova questa la chiudo