Scrivere in una TextBox e salvarlo in un file di testo

[Robyn69]

salve
grazie a voi sto completando un programmino per archiviare programmi, ed eseguirli

il form e formato da sei pulsanti che richiamano le cartelle contenete i vari programmi,
di una listbox che visualizza il contenuto dei file di ogni cartella
ed un image che visualizza le figure dei programmi.
in questa listbox vengono caricati i file in formato gif i quali rappresentano i programmi,
quindi si seleziona il file.gif l'image visualizza la figura ed il pulsante installa lo esegue.
vorrei aggiungere due righe di testo ad ogni figura salvandole in un file txt.

vorrei se fosse possibile fare in modo di complilare il file durante il form attivo,
questo nel caso debba inserire un nuovo programma.
esiste un modo per scrivere delle righe di testo e richiamarle con delle parole chiavi
es. (parola chiave=pippo) che richiama prova.txt e visualizza dalla riga 3 alla riga 4 il testo nella textbox

questo perche potrei magari associare la parola chiave pippo al file pippo.gif e cosi via
in modo che quandio apro il form,e clicco sul file pippo,mi appare sia la figura del programma pippo e sotto la descrizione del prog.

[Robyn69]

ho trovato qualche documento a riguardo
questo e un codice che sto adattando per il mio programmino
all'interno del file mio.txt ho scritto ciao mondo
quando clicco sul command10
mi appare il testo ciao mondo nella text1.text ma mi da un errore dicendomi
imput oltre la fine del file

Private Sub Command10_Click()
Dim NumFile As Integer
Dim sTesto As String
Dim sNomeFile As String
Dim nRes As Integer
Dim txt As String
txt = Text1.Text
File1.Path = "C:\Menufile"
Dir1.Path = "C:" 'Drive1.Drive
NumFile = FreeFile()
Open "c:\menufile\mio.txt" For Input As #NumFile
Text1.Text = Input(LOF(NumFile), NumFile)


'Legge i primi 10 caratteri del file
sTesto = Input(10, #NumFile)       e qui che non va' giusto? 

Close #NumFile

End Sub

all'interno forse ci sono delle cose non servono perche sto facendo delle prove
vorrei adattare questa procedura al mio scopo ovvero
ora e un comando a farlo partire mentre vorrei farlo partire associandolo ad un file che seleziona dalla listbox
es. seleziono pippo.gif e si apre il contenuto nella text1.text

avrei altre domande da fare ma vorrei capire un po alla volta questo tipo di codice

[oregon]

Secondo me il tuo problema e' che non hai chiaro il significato e il funzionamento delle singole istruzioni.

Ad esempio, sai a cosa servono le singole istruzioni e funzioni presenti nella linea

Text1.Text = Input(LOF(NumFile), NumFile)

o nella linea

sTesto = Input(10, #NumFile)

?

Se chiarisci questi punti, trovi la soluzione e impari ...

[Robyn69]

questa sto cercando di capirla ma non sono sicuro
se non sbaglio qui di seguito scrivo tutto il contenuto del file mio.txt nella text1.text

Open "c:\menufile\mio.txt" For Input As #NumFile
Text1.Text = Input(LOF(NumFile), NumFile)

text1.text = casella di testo (sono certo)
Lof numfile,numfile = tutto il contenuto del file (forse mi sbaglio)

in questa riga
sTesto = Input(10, #NumFile)

che poi credo sia più corretta cosi
sNomefile = c:\mio.txt
qui dovrei leggere i primi dieci caratteri

sNomeFile = Input (10,#NumFile)

Sto Lontano?

[oregon]

La prima parte e' corretta ...

Sulla riga che legge i 10 caratteri dal file, non ha senso quando scrivi

sNomefile = c:\mio.txt

I 10 caratteri sono letti dal file che e' stato gia' letto tutto e quindi e' sbagliata (e inutile ...)

[Robyn69]

cosi cliccando sul cmdload
mi appare il contenuto nella textbox senza errore

Private Sub cmdload_Click()
Dim NumFile As Integer
Dim sNomeFile As String
Dim txt As String
sNomeFile = "c:\menufile\mio.txt"
txt = Text1.Text
File1.Path = "C:\Menufile"
Dir1.Path = "C:" 'Drive1.Drive
NumFile = FreeFile()
Open "c:\menufile\mio.txt" For Input As #NumFile
Text1.Text = Input(LOF(NumFile), NumFile)


'Legge i primi 10 caratteri del file
'sNomeFile = Input(10, #NumFile)             ho eliminato questa voce

Close #NumFile

End Sub

quindi se ho capito bene ripetevo la stessa cosa due volte
ossia prima gli chiedevo di leggerlo tutto
poi di leggere solo i primi dieci car.
e giusta la mia traduzione?

[Robyn69]

anke se nella seconda era sbagliato il codice
'sNomeFile = Input(10, #NumFile)


ora però dovrei aprire il file e leggerne il contenuto no con il cmdload(pulsante)
ma associandolo alla selezione del file gif

es.
listbox
pippo.gif
clicco su pippo.gif si carica la figura nella imagepicture
e mi legge la descrizione nella text1.text

se non ho capito male il vb credo si possa fare ora mi immergo poi ti dico
grazie di nuovo e così che intendo imparare...