Leggere un file di testo selezionato da una TextBox

[Robyn69]

ciao che mi permette di visualizzare il contenuto del file in una textbox
tramite il cmmandbutton

Private Sub cmdload_Click()
Dim NumFile As Integer
Dim sNomeFile As String
Dim txt As String
sNomeFile = "c:\menufile\mio.txt"
txt = Text1.Text
NumFile = FreeFile()
Open sNomeFile For Input As #NumFile
Text1.Text = Input(LOF(NumFile), NumFile)
Close #NumFile
End Sub

fin qui tutto ok
ora questa lettura dei file dovrebbe restituirmi una descrizione dei file(cioe programmi)
che inserisco in questa compilation
quindi siccome i programmi sono moltissimi,avrò anche molte descrizioni
ora ho suddiviso i programmi in categorie e ad ogni categoria assegnerò un file txt
all'interno di questo file vorrei scrivere manualmente le singole descrizioni e quindi richiamarle
da codice solo in lettura.
supponiamo che questo sia il contenuto del file:


1 riga piena con a capo
2 riga piena con a capo
3 riga piena con a capo
a vuota
5 riga piena con a capo
6 riga piena con a capo
7 riga piena con a capo
b vuota
e cosi via ( se ce un limite non saprei quindi 1°?)
queste letture di tre righe serviranno per la descrizione del progr (es.pippo.exe) e cosi via per gli altri.
posso ridurre il codice con qualche trucchetto?
e come seleziono le righe da leggere?
e come indico la lunghezza della riga o dell'intero file?

[oregon]

Non riesco a seguire il discorso ... fai un esempio indicando

1) i dati che hai (effettivamente)

2) cosa vuoi ottenere e dove

[Robyn69]

pippo.exe = programma


dalla listbox seleziono pippo.gif, da qui visualizzo l'immagine

Poi ho il cmdload che apre il file mio.txt e qui dovrei far partire imput di lettura del file tramite la parola pippo e leggere le tre righe nella text1
penso dovrei mettere duemila if sull'imput

ma come fà il cmdload a sapre che mi trovo sul file pippo? tramite la selezione del file pippo.gif (si può)

potrei mettere un altra textbox dove appare il nome pippo e dare cosi un riferimeno al cmdload


le tre righe che assegnero a pippo nel file mio.txt saranno identificate col nome pippo

pippo
1 riga
2 riga
3 riga
pippo

non so se sono stato chiaro ma.

[oregon]

Scusami, ma non comprendo assolutamente nulla di quello che hai scritto ...

[Robyn69]

vorrei leggere da un file .txt solo tre righe
es
leggi dalla riga tre alla riga sei
come imposto il file che scrivo con il notepad per assegnare le righe.

poi

posso associare il commandbutton (il quale ora apre il file .txt) alla selezione di un file preso dalla listbox.?

es
listbox seleziono pippo e nel selezionare pippo, nella textbox mi appare la descrizione delle tre righe famose.
di seguito inserisco il codice che ora parte da cmdload

Private Sub cmdload_Click()
Dim NumFile As Integer
Dim sNomeFile As String
Dim txt As String
sNomeFile = "c:\menufile\mio.txt"
txt = Text1.Text
NumFile = FreeFile()
Open sNomeFile For Input As #NumFile
Text1.Text = Input(LOF(NumFile), NumFile)
Close #NumFile
End Sub

[Robyn69]

volevo sapere come mai non ho più avuto una risposta alle mie domande o forse detto o fatto quacosa che non dovevo
per saperlo?
se non mi sono espresso bene per l'aiuto che desidero mi ripeto cmq.

premessa sono riuscito a leggere un file txt in una textbox.
ora vorrei se fosse possibile un aiuto per capire come leggere dallo stesso file solo 3 righe
anzichè tutto il file, come da codice inserito precedentemente.
e poi come fare ad avviare la lettura di questo file txt ed in particolare solo le 3 righe
invece che da un cmdload (come da codice allegato), dalla selezione di un file nella listbox.

dico questo perche vorrei associare ad ogni nome di file che seleziono dalla listbox, imput di apertura del txt,prelevando le righe interessate
es.
se dalla lista seleziono pippo.gif,vedo l'immagine nella picturbox e la descrizione del file pippo
nella textbox.

una parentesi il file txt lo compilo da notepad manualmente,quindi potrei impostare dei riferimenti per richiamare gli imput di lettura o semplicemente in ordine di righe.