Visual Basic 6 - Scrittura file di testo

Forum - Visual Basic 6 - Scrittura file di testo

fosforo (Normal User)
Expert

Messaggi: 391
Iscritto: 06/04/2009

Postato alle 15:10
Martedì, 14/04/2009

Ciao
Dovrei scrivere un file di testo con alcune righe intervallate da righe vuote.
Tipo:
Riga 1
(riga vuota)
Riga 2

Ho scrittp questo:
Text1 = "Riga 1"
Text2 = ""
  Text3 = Riga2
        Open MyFolder "testo.txt" For Append As #1 Append As #2 Append As #3
        Print #1, Text1
        Print #2, Text2
        Print #3, Text3
        Close #1

Ma non funziona.

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 15:24
Martedì, 14/04/2009

Questo codice è soltanto un esempio, infatti:
1.Non l'ho provato col compilatore
2.Non funziona così perchè devi aggiustare ad esempio la Sub Button1_Click()

Quindi non fare copia-incolla perchè non ti funziona. È tanto per farti capire cosa devi fare:

Codice sorgente - presumibilmente VB.NET

Dim r1 as string
dim r2 as string
dim r as string
 
Private Sub Button1_Click()
r1="Riga1"
r2="Riga2"
r=r1 & vbcrlf & r2
 
Open "percorsofile" for append as #1
print #1,r
close #1
End Sub

Ultima modifica effettuata da ruggy94 il 14/04/2009 alle 15:28

()
Newbie

Messaggi:
Iscritto:

Postato alle 15:57
Martedì, 14/04/2009

prova con

Codice sorgente - presumibilmente Delphi

Open "path" For Append As #1
Print #1, Text1.Text
Write #1,
Print #1, Text2.Text
Write #1,
Print #1, Text3.Text
Close #1

Ultima modifica effettuata da il 14/04/2009 alle 15:59