[vb6] Txt. Non legge elementi separati da una virgola

[Adrix]

Ragazzi ho un problema con la lettura dei file txt. Uso una RichTextBox e questo codice per la lettura:

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()
RichTextBox1.Text = LeggiFile(App.Path & "\file.txt")
End Sub

Il mio problema è che non legge correttamente gli elementi separati da una virgola...se ad esempio ho in riga:
pippo,pluto

lui legge:
pippo
pluto

come risolvere questo problema? Ho anche un problema con il salvataggio, uso questo codice:

Dim nuovonome
nuovonome = App.Path & "\file.txt"
RichTextBox1.SaveFile nuovonome

ma il testo mi viene salvato male, ogni riga è preceduta da \par , ci sono 2 righe in più alla fine e questa strana riga di codice all'inizio:
{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1040\f0\fs17

come posso risolvere? perfavore rispondete
grazie e ciao

[Lathspell]

Originariamente inviato da Adrix

lui legge:
pippo
pluto

Questo credo sia normale datto che hai inserito:

LeggiFile = LeggiFile & Riga & vbCrLf

è proprio quel &vbCrLf che manda a capo il testo.

come risolvere questo problema? Ho anche un problema con il salvataggio, uso questo codice:

per il secondo problema non so che dire

[arcadia]

Per caricare un file sulla RichTextBox basta usare

r1.FileName = "fileDaAprire"

Per salvare, se è un file txt devi mettere la flag "rtfCFText"

r1.SaveFile "NuovoNome" , rtfCFText

Altrimenti salvi un file "rtf" con tutti i suoi relativi tag.

Ciao

[Adrix]

cancellando & vbCrLf il testo si posiziona tutto in solo rigo...quindi non è la soluzione al problema. Il problema è che cancella le virgole e le manda a capo
help me please

[vonkranz]

Dim Riga As String
Dim NumFile As Integer
NumFile = FreeFile
Open File For Input As NumFile
While Not EOF(NumFile)
Line Input #NumFile, Riga
LeggiFile = LeggiFile & Riga 
Wend
Close (NumFile)
End Function

Private Sub Command1_Click()
RichTextBox1.Text = LeggiFile(App.Path & "\file.txt")
End Sub

Dim nuovonome
dim var as string
nuovonome = App.Path & "\file.txt"
var=RichTextBox1.Text
open nuovonome for output as 1
  print #1,var
close

[Adrix]

grazie vonkranz con il tuo code ho risolto tutto! sei mitico ciao!

[arcadia]

Scusa ma se usi Open for Input e Output per leggere e scrivere, e tratti solo file di testo......ma perchè non usi semplicemente una textbox anzichè scomodare la RichText?