Ciao a tutti. Devo scrivere in un file di testo righe della lunghezza di 1800 caratteri con il metodo Write
Public Sub export_txt()
Dim txtfile As Stream
txtfile = Open mydir & "/" & "S001" & Label62.Text & trimestre & progres & ".TXT" For Create
Write #txtfile, "0" & "MIS00" & "26" & label27.Text & Space(16 - Len(label27.Text)) & label28.Text & xlab & label32.Text & Space(30 - Len(label32.Text)) & label8.Text & Space(60 - Len(label8.Text)) & label29.Text & Space(40 - Len(label29.Text)) etc, etc
Close #txtfile
End
e qui tutto bene. La mia esigenza e di poter scrivere il codice visualizzato su più righe per esempio:
Public Sub export_txt()
Dim txtfile As Stream
txtfile = Open mydir & "/" & "S001" & Label62.Text & trimestre & progres & ".TXT" For Create
Write #txtfile, "0" & "MIS00" & "26" & label27.Text & Space(16 - Len(label27.Text)) &
& label28.Text &
& xlab &
& label32.Text & Space(30 - Len(label32.Text)) &
& label8.Text & Space(60 - Len(label8.Text)) &
& label29.Text & Space(40 - Len(label29.Text)) etc. etc.
Close #txtfile
End
in modo da poter essere più leggibile che su un'unica riga.
ho provato le parentesi, gli apici, le virgolette, ma non ho trovato soluzione, qualcuno mi può aiutare?
Grazie.
:ciao:
Scusa , forse non ho capito cosa vuoi fare ma usando print (perchè mi è più facile) se scrivo
print "biscotto" & "caciocavallo" &
"polistirolo" & "asino"
mi stampa:biscottocaciocavallopolistiroloasino
Questo se ho capito bene !
:ciao: :ciao:
La mia esigenza e di poter scrivere il codice visualizzato su più righe...
Tool > Preferenze > Projects > Automatic word wrap by default e riavvii il progetto
Dimenticavo: in alternativa c'è sempre il vecchio metodo:
sMyString = "Un"
sMyString &= " due"
sMyString &= " tre,"
sMyString &= " ecc."
Un'altra modalità è quella di suddividere la frase in tante parti, ciascuna delle quali sarà scritta nel file finale con una funzione Write.
Quindi usare una funzione Write per ciascuna parte della frase.
Esempio:
Write #variabile, "prima parte della frase"
Write #variabile, "seconda parte della frase"
Write #variabile, "terza parte della frase"
e così via.
----http://gambaswiki.org/wiki/comp/gb/string[]/join
Eccone qua uno semplice.
Il file di testo sarà salvato nella cartella "/tmp".
Public Sub Main()
Dim ss As String[] = ["vuott ", "ha estremo ", "bisogno di una ", "macchina del tempo"] ' array di tipo String con 4 elementi
File.Save("/tmp/join", ss.Join(Null, Null))
End