Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare del testo in .net

Ho un problema apparentemente semplice ma che non riesco a risolvere.
Io ho un file di testo (primo.txt), lo compresso tramite la libreria
zlib.ocx che si trovata sul sito comune.
Fin qui tutto ok, se provo a scompressarlo funziona perfettamente.
Ora faccio lo stesso lavoro con un secondo file (secondo.txt).
Se apro i file vedo una riga in un formato incomprensibile.
Adesso arriva il problema ovvero gli faccio leggere la riga di tutte e due i
files e la salvo il tutto in un terzo ma questo č diverso dal primo file e
dal secondo.
1) non va a capo anche se scrivo vbcrlf (ho porvato anche tramite una rich
text box per vedere se funzionava ma con questo sistema non funziona)
2)mi da quadrati e non i caratteri che leggo da i due file.
Premetto che questo codice č stato riscritto parecchie volte facendo vari
esperimenti quindi potrebbe esserci qualche svarione ma cmq spero che vi
possa essere utile.
zlib.InputFile = "c:\uno.txt"
zlib.OutputFile = "c:\uno.zl"
zlib.Compress()
zlib.InputFile = "c:\due.txt"
zlib.OutputFile = "c:\due.zl"
zlib.Compress()
Dim myStreamReader As StreamReader
Dim myInputString As String
Dim num As Integer = 0
Dim uno As String
Dim due As String
apri.Text = "c:\uno.zl"
Try
myStreamReader = File.OpenText(apri.Text)
myInputString = myStreamReader.ReadLine()
While Not myInputString Is Nothing
uno = myInputString
myInputString = myStreamReader.ReadLine()
End While
Catch exc As Exception
MsgBox("Errore")
Finally
If Not myStreamReader Is Nothing Then
myStreamReader.Close()
End If
End Try
apri.Text = "c:\due.zl"
Try
myStreamReader = File.OpenText(apri.Text)
myInputString = myStreamReader.ReadLine()
While Not myInputString Is Nothing
uno = myInputString
myInputString = myStreamReader.ReadLine()
End While
Catch exc As Exception
MsgBox("Errore")
Finally
If Not myStreamReader Is Nothing Then
myStreamReader.Close()
End If
End Try
apri.Text = "c:\risu.txt"
Dim myStreamWriter As StreamWriter
Try
myStreamWriter = File.AppendText(apri.Text)
myStreamWriter.Write(uno + vbCrLf + due)
myStreamWriter.Flush()
Catch exc As Exception
MsgBox("NON")
Finally
If Not myStreamWriter Is Nothing Then
myStreamWriter.Close()
End If
End Try
Lo scopo finale sarebbe salvare in un file tutte le prime righe di piů
files.
Grazie in anticipo

Qualche svatione c'è, diciamo che per il tuo problema potresti usare il
metodo WriteLine, ovvero
apri.Text = "c:\pozzo\risu.txt"
      Dim myStreamWriter As StreamWriter
      Try
         myStreamWriter = File.AppendText(apri.Text)
         myStreamWriter.WriteLine(uno)
         myStreamWriter.WriteLine(due)
         myStreamWriter.Flush()
      Catch exc As Exception
         MsgBox("NON")
      Finally
         If Not myStreamWriter Is Nothing Then
            myStreamWriter.Close()
         End If
      End Try
Anche se in realtà la riga:
myStreamWriter.Write(uno & ControlChars.CrLf & due)
funziona perfettamente...
Lo svarione sta nel fatto che, vittima del copia incolla, la variabile due
non la utilizzi mai... ;-)
HTH
--
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

 ha scritto nel messaggio
news:jBbz9.10703$Zn2.3...@twister1.libero.it...


 ha scritto nel messaggio
news:jBbz9.10703$Zn2.3...@twister1.libero.it...
