Stampare listbox

andreas91

il 17 apr 2019, 16:04

15 risposte

andreas91

Utente Attivo

Iscritto da: apr, 2018

Messaggi:: 83

Stampare listbox

17 apr 2019, 16:56

Ciao, ho una lisbox con alcune righe contenenti più di 500 caratteri.
Quanto vado a esportarla in un file txt esporta tutte queste righe lunhissime. E' possibile che ogni riga può contenere al massimo 50 caratteri e poi va a capo?

15 Risposte

O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21575
Re: Stampare listbox
17 apr 2019, 17:11
No
A
andreas91
Utente Attivo
Iscritto da
apr, 2018
Messaggi:
83
Re: Stampare listbox
17 apr 2019, 17:35
Come potrei risolvere facilmente il problema
gibra
Molto attivo
Iscritto da
gen, 2013
Messaggi:
1647
Re: Stampare listbox
17 apr 2019, 17:42
Innanzitutto mostrando il codice che usi per 'esportare'.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21575
Re: Stampare listbox
17 apr 2019, 17:49
andreas91 ha scritto:
Come potrei risolvere facilmente il problema
Non esiste un problema se non mostri il codice che lo genera.

A parte il fatto che il "ritorno a capo" potrebbe stare all'interno del testo che stai mostrando.
A
andreas91
Utente Attivo
Iscritto da
apr, 2018
Messaggi:
83
Re: Stampare listbox
17 apr 2019, 17:52
Ecco il codice
Public Function SalvaLista()
Dim FileNum As Integer, ListCount As Integer
FileNum = FreeFile()
Open App.Path & "\Prova.txt" For Output As #FileNum
For ListCount = 0 To listbox_dati.ListCount - 1
Print #FileNum, listbox_dati.List(ListCount)
Print #FileNum, ""
DoEvents
Next ListCount
Close #FileNum
End Function
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21575
Re: Stampare listbox
17 apr 2019, 17:57
Ma questa

Print #FileNum, ""

a che ti serve?

Quale editor utilizzi per vedere il contenuto del file di testo? E' possibile che siano le impostazioni di questo editor a spezzare il testo?
A
andreas91
Utente Attivo
Iscritto da
apr, 2018
Messaggi:
83
Re: Stampare listbox
17 apr 2019, 18:03
Per lasciare uno spazio vuoto tra un rigo ed un altro
A
andreas91
Utente Attivo
Iscritto da
apr, 2018
Messaggi:
83
Re: Stampare listbox
17 apr 2019, 18:06
Voglio salvare il tutto in un file txt
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21575
Re: Stampare listbox
17 apr 2019, 19:56
andreas91 ha scritto:
Voglio salvare il tutto in un file txt
E' una risposta a quello che ti ho chiesto?

Che senso ha?

Quello che hai scritto salva su un file txt. Non vedo problemi. Quindi, rileggi il mio post precedente.
gibra
Molto attivo
Iscritto da
gen, 2013
Messaggi:
1647
Re: Stampare listbox
17 apr 2019, 19:59
Allora dovresti spezzare la stringa qui:
```
Print #FileNum, listbox_dati.List(ListCount)
```
Puoi crearti una funzione UDF a cui passi la stringa, esempio
```
Print #FileNum, SpezzaRiga(listbox_dati.List(ListCount))
```
, che usa la funzione Mid$() per spezzare la stringa ogni 50 caratteri ed aggiunge il ritorno a capo vbCrLf in ogni spezzone.

In teoria, dovrebbe funzionare.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21575
Re: Stampare listbox
17 apr 2019, 20:05
Ah .... ma allora non avevo capito la domanda ... pensavo che ti stampasse 50 caratteri e non capivi perché (ecco perché ti avevo detto che non era possibile ...).

Ma tu VUOI spezzarle in pezzi da 50 caratteri ... allora segui il consiglio di Gibra ...

Oppure se non sai scrivere la funzione, scrivi nel ciclo di lettura direttamente un ciclo che spezza la stringa in tanti pezzi da 50 o minori ... Ovviamente userai la Mid$
A
andreas91
Utente Attivo
Iscritto da
apr, 2018
Messaggi:
83
Re: Stampare listbox
18 apr 2019, 18:52
Sto leggendo un po' di cose sul web ma non so come ipostare la funzione
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21575
Re: Stampare listbox
18 apr 2019, 19:35
La funzione Mid$ sai come si usa?
A
andreas91
Utente Attivo
Iscritto da
apr, 2018
Messaggi:
83
Re: Stampare listbox
19 apr 2019, 01:26
Ho provato così, ma poi non so come attaccare i vari spezzoni
Public Function SalvaLista()
Dim Spezza, str As String
Dim FileNum As Integer, ListCount As Integer

FileNum = FreeFile()
Open App.Path & "\Prova.txt" For Output As #FileNum
For ListCount = 0 To listbox_dati.ListCount - 1
Spezza = listbox_dati.List(ListCount)
str = Mid$(strProva, 1, 50)
Print #FileNum, str
Print #FileNum, ""
DoEvents
Next ListCount
Close #FileNum
End Function

Devi accedere o registrarti per scrivere nel forum

15 risposte