Newsgroup: it.comp.lang.visual-basic
Titolo: salvare un file da una listbox

ciao,
vengo subito al dunque, ho una form con 3 pulsanto, apri, salva, aggiungi
--------------------------
Private Sub Command1_Click()
 Dim Nuovo As String
 Nuovo = InputBox("Inserisci la nuova voce", "Nuova Voce")
 List1.AddItem Nuovo
End Sub
Private Sub Command2_Click()
 Dim Linea As String
 List1.Clear
 Open "c:\windows\desktop\file.txt" For Input As 1
  While Not EOF(1)
   Input #1, Linea
   List1.AddItem Linea
  Wend
 Close 1
End Sub
Private Sub Command3_Click()
 Dim Linea As String
 Dim i As Integer
 Dim Fine As Integer
 Fine = List1.ListCount
 For i = 0 To Fine
  ????
  Open "c:\windows\desktop\file.txt" For Output As 2
   Print #2, Linea
  Close 2
 Next
End Sub
-----------------------
dove ci sono i ???? vorrei inserire la stringa contenuta nell'indice i della
list box, come faccio, secondo voi potrebbe funzionare il ciclo come l'ho
fatto, per l'apertura funziona correttamente.
grazie
--
._-----_-----_.
        _...-=</"GicK"\>=-..._
-
gi...@passaggiosegreto.cjb.net

 list box, come faccio
list.items(i).text
o qualcosa di simile, direi....
Funziona il tastino vicino all'esc?
Salutoni
Sergio

 chiuderlo dopo la fine:
Salutoni
Scusate il disturbo
Sergio

 o qualcosa di simile, direi....
non esiste, ho provato con itemdata(i) ma non va come faccio????

 Funziona il tastino vicino all'esc?
benone. il portatile si spegne in un attimo :)



è sufficiente      NomeListBox.List(i)
itemdata è un dato numerico che puoi associare ad un elemento...
è una matrice parallela a quella del list.
Ciao

 ha scritto nel messaggio
news:mmrF9.32978$3l.9...@twister1.libero.it...


grazie funziona, ora pero' ho un altro problema, io carico il file
C:\windows\desktop\file.txt
pero se non esiste mi da un errore, come faccio a sapere se non esiste e
quindo crearlo vuoto?

GicK ha scritto:

If Dir("C:\windows\desktop\file.txt")="" then
    MsgBox "Non esiste"
else
    MsgBox "Esiste"
end if
Poi? facciamo il programmillo una riga per volta?

> Poi? facciamo il programmillo una riga per volta?
in effetti ma non è un programma, una prova per vedere di imparare
qualcosa!!! :-)
pero', ho notato che se io aggiungo qualche voce alla lista, salvo e chiudo
il prog.
quando lo riapro e aggiungo un'altra riga, mi lascia una riga vuota. nel
file di testo infatti ci sono 2 ritorni a capo che non dovrebbero esserci,
come faccio a togliergli?? :-))) (chi va piano va sano e lontano)

 qualcosa!!! :-)
ah, ok. facciamo la provilla una riga per volta.

 End Sub
che funzione devo usare per uscire da questo ciclo prima che finisca?

GicK ha scritto:

Ecco (altra guerra di religione). Usa il Do/Loop che consente l'Exit Do. Se
no, GoTo (guerra atomica in arrivo)

quindi
Do EOF(1)
  Input #1, Linea
  List1.AddItem Linea
Loop
e poi metto Exit Do?

GicK ha scritto:

No.
    Do
        if EOF(1) then Exit Do
        Input #1, Linea
        List1.AddItem Linea
'            Fai il test che vuoi e se vuoi uscire esegui un Exit Do
    Loop
'        Eccetera

 no, GoTo (guerra atomica in arrivo)
Ho letto goto?
Ho letto goto...
Ho letto goto!
Ho letto goto, miii   ;-((((((
ciao
ugo

 Ho letto goto, miii   ;-((((((
quante storie. manco avesse scritto a di o :P

     Loop
appunto. mi sa che in sto thread ci sei fino al collo, caro
con-canide...

     Loop
Do While Not EOF(1)
    Input #1, Linea
    List1.AddItem Linea
If TestCheVuoiTu Then Exit Do
Loop
Esteticamente, mi piace di più ;-)
Un Paperino e l'"estetica esistenziale".
P.S.: Chissà se esiste davvero ? :-))))  Però è un'espressione simpatica,
sembra qualche cosa di estremamente filosofico...