Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora sulle textbox: perchèèè???????????

Raga, perchè se io metto le virgole in un file di testo aperto con
questo codice mi va a capo a ogni virgola e mi da un errore??
(Run-Time error 62
Input past end of file)
Sigh! sono disperato! Aiutatemi!!!
Premetto che la variabile Directory è una variabile pubblica e
contiene la directory in cui si lavora.....
Scrivitext è una funzione che ho creato io e si limita a scrivere il
testo. (l'ho creato perchè mi dimentico sempre qual'è il comando per
scrivere.... mshngbox... boh... me lo dimentico sempre! :D In più
aggiunge l'icona INFORMAZIONI... avete presente?)
Chiedo scusa a Mazzaro Diego, ma le linee di codice da lui proposte
(quelle per copiare tutto il contenuto di un file in una textbox) mi
sono risultate difficili da adattare al mio codice..... C'ho provato
ma mi dava sempre un errore..... Invece con l'altro non ho avuto
difficoltà.....
Se avete difficoltà a vedere il motivo dell'errore, ditemelo che vi
mando tutto il proggetto....  Così avrete anche un programma che io
reputo interessante per chi ha un masterizzatore.........
Grazie in anticvipo a chi mi risponderà.......
Private Sub List1_Click()               'Descrizione programma scelto
    Dim Percorso As String
    Dim Percorso2 As String
    Dim Lettura As String
    Dim temp As String
    Percorso = List1.List(List1.ListIndex)
    Percorso2 = Directory + "\" + Percorso + "\" + Percorso + ".txt"
 
    If Dir(Percorso2) = "" Then
     ScriviText ("Il file di descrizione '" + Percorso + "' non
esiste.")
     Command3.Enabled = False
 
    Else
 
     Text1.Text = ""
     nf = FreeFile
     Open Percorso2 For Input As #nf
     Do Until EOF(nf)
        Input #nf, temp
        Text1.Text = Text1.Text & temp & vbCrLf
     Loop
     Close #nf
 
     Percorso2 = Directory + "\" + Percorso + "\" + Percorso + ".exe"
 
     If Dir(Percorso2) = "" Then        ' pulsanti attivi / inattivi
      Command3.Enabled = False
      Percorso2 = Directory + "\" + Percorso + "\"
 
      If Dir(Percorso2) = "" Then
       Command4.Enabled = False
      Else
       Command4.Enabled = True
      End If
 
     Else
      Command3.Enabled = True
      Command4.Enabled = True
     End If
 
    End If
 
    Close #1
End Sub

     Close #nf
Devi usare
Line Input #nf, temp
altrimenti ogni virgola viene vista come delimitatore di campo.
Guarda l'help per Input e per Line Input.
Tra l'altro, per dei file piccoli magari non è un problema, ma se
usi questo sistema per file grandi è molto lento perché cambi
continuamente il valore di una proprietà anziche quello di una variabile.
Dovresti fare:
     temp=""
     nf = FreeFile
     Open Percorso2 For Input As #nf
     Do Until EOF(nf)
        Line Input #nf, temp
        temp2=temp2 & temp & vbCrLf
     Loop
     Close #nf
     Text1 = temp2
.text è la proprietà predefinita di una TextBox, quindi non hai
bisogno di specificarla, anzi è più veloce usare la predefinita.
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

      Close #nf
Ma mi viene un dubbio, hai impostato la proprietà multiline a true per la
textbox?!?!?!?
Inoltre penso, anche se potrei dire una scemata immensa e per questo chiedo
scusa, che non ti serve aggiungere il vbCrLf perche' quando ti copy dal file
la stringa penso che contenga già il vbCrLf !!!
Ciaps
Stracca
P.S. Perche' non mi mandi il progettino, visto che lo ritieni interessante
?!?!?

     ecc. ecc.
Ciao
    Diego