Salvataggio file di log

giovedì 17 maggio 2007 - 15.38

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Cantalupynho Profilo | Newbie

20 messaggi | Data Invio: gio 17 mag 2007 - 15:38

Ciao a tutti
ho scritto questo codice per salvari un file di log

dunque se il file esiste ne legge il contenuto va da capo e aggiunge il "nuovo"
se non esiste lo crea e aggiunge il "nuovo"
ora: il problema è che mi crea il file ma in esso rimane scritta solo una riga(l'ultima)

Public Shared Sub SaveLog(ByVal Text As String)
On Error Resume Next
Dim FileText As String

If File.Exists(strLogFile) Then
'lettura file
Dim FileReader As New StreamReader(strLogFile)
FileText = FileReader.ReadToEnd()
'scrittura
Dim FileWriter As New StreamWriter(strLogFile)
FileWriter.WriteLine((FileText & vbCrLf & "[" & Date.Now.ToLongDateString & " " & Date.Now.ToLongTimeString & "]" & Text))
FileWriter.Close()
Else
'scrittura file

Dim FileWriter As New StreamWriter(strLogFile)

FileWriter.WriteLine("[" & Date.Now.ToLongDateString & _
" " & Date.Now.ToLongTimeString & "]" & Text)
FileWriter.Close()
End If
End Sub

Me.salute(voi)
Dio ha creato Bill Gates
Bill Gates ha creato il Computer

Cteniza Profilo | Guru

1.509 messaggi | Data Invio: gio 17 mag 2007 - 17:04

Probabilmente non imposti correttamente il parametro per fare l'accodamento.
http://msdn2.microsoft.com/en-us/library/aa328969(VS.71).aspx

Cantalupynho Profilo | Newbie

20 messaggi | Data Invio: gio 17 mag 2007 - 22:59

Ciao, ho provato come dici tu ma nulla.... mi fa lo stesso lavoretto niente + niente - (solo il codice è di più

Dio ha creato Bill Gates
Bill Gates ha creato il Computer

Cteniza Profilo | Guru

1.509 messaggi | Data Invio: gio 17 mag 2007 - 23:00

Vuoi dire che se scrivi:
Dim FileWriter As New StreamWriter(strLogFile, true)
non va in append?

Cantalupynho Profilo | Newbie

20 messaggi | Data Invio: ven 18 mag 2007 - 16:02

ahhhhhh siii adesso va!!
io avevo copiato da quel sito che mi avevi mandato tutto quel metodone

invece era cosi semplice!!!!!!!!

Public Shared Sub SaveLog(ByVal Text As String)
Dim FileWriter As New StreamWriter(strLogFile, True)
FileWriter.Write(vbCrLf & "[" & Date.Now.ToLongDateString & _
" " & Date.Now.ToLongTimeString & "]" & Text)
FileWriter.Dispose()
End Sub

grazie ancora
Dio ha creato Bill Gates
Bill Gates ha creato il Computer

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !