[RISOLTO]file di testo codice viisualizzato

[naderit]

Ciao a tutti. Devo scrivere in un file di testo righe della lunghezza di 1800 caratteri con il metodo Write

Codice: [Seleziona]

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:

Codice: [Seleziona]

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.

[kicco]

 
Scusa , forse non ho capito cosa vuoi fare ma usando print (perchè mi è più facile) se scrivo

Codice: [Seleziona]

print "biscotto" & "caciocavallo" &
"polistirolo" & "asino"

mi stampa:biscottocaciocavallopolistiroloasino
Questo se ho capito bene !
 

[Top Fuel]

Magari dico una vaccata, ma creare una classe in cui metti tutti i testi delle Label e salvare le proprietà una per una non sarebbe più semplice e leggibile?

[Gianluigi]

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:

Codice: [Seleziona]

  sMyString = "Un"
  sMyString &= " due"
  sMyString &= " tre,"
  sMyString &= " ecc."

[vuott]

Io ho una curiosità da domandare: perché utilizzi una variabile di tipo Stream ?

[naderit]

ciao  grazie Gianluigi era ciò che cercavo nel metodo di spezzare l'istruzione. Non so se esistono altri metodi ma in questo modo risolvo egregiamente in modo pulito e chiaro.

Io ho una curiosità da domandare: perché utilizzi una variabile di tipo Stream ?

ho sempre usato le funzioni di Stream e input/output per gestire i file mi sono trovato sempre bene, ma accetto volentieri altre dritte.
grazie       

[vuott]

Ma perché non usi il tipo File ?

[naderit]

Ma perché non usi il tipo File ?

ho provato ora la classe, le istruzioni sono simili a Stream (open, write, print, ecc ) se mi dici che questa è migliore ne faccio tesoro. 

[vuott]

Non si tratta di essere "migliore"; è che solitamente nella gestione in lettura e scrittura di flussi di dati viene usato il tipo "File", anche se gli effetti sono identici, essendo la Classe Stream "genitore" in fondo pure della Classe File.

La variabile dell'Oggetto "Stream" va invece senz'altro utilizzata con i Memory Stream per gestire un flusso di dati in aree di memoria volatile riservate dal'utente e identificate da una variabile nativa di tipo Puntatore.

[naderit]

Grazie Vuott nel frattempo mi sono documentato. Per il resto metto risolto.   

[vuott]

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:

Codice: [Seleziona]

Write #variabile, "prima parte della frase"
Write #variabile, "seconda parte della frase"
Write #variabile, "terza parte della frase"
e così via.

[vuott]

Se non è necessaria la funzione "Open", si può considerare un'altra modalità: l'uso del Metodo ".Save( )" della Classe "File".
All'interno del predetto Metodo si inserirebbe il Metodo ".Join" dell'Oggetto array di tipo String, per concatenare il contenuto dei vari elementi, ciascuno dei quali parte dell'unico testo da scrivere.

[naderit]

Ciao ho trovato qualcosa
https://en.wikibooks.org/wiki/Gambas/String_Manipulation
ma non spiega l'uso del metodo .Join. Puoi fare qualche esempio? Grazie 

[vuott]

----http://gambaswiki.org/wiki/comp/gb/string[]/join

Eccone qua uno semplice.
Il file di testo sarà salvato nella cartella "/tmp".

Codice: [Seleziona]

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

[naderit]

faccio delle prove, mi pare interessante. Grazie