Visual Basic 6 - leggere un file txt in una txtbox

Forum - Visual Basic 6 - leggere un file txt in una txtbox

robyn69 (Normal User)
Newbie

Messaggi: 3
Iscritto: 20/05/2006

Postato alle 14:40
Sabato, 20/05/2006

ciao a tutti
vorrei capire come fare a leggere nel mio.txt
solo alcune righe e riportarle in una textbox:
premessa il codice per leggere il file l'ho gia costruito.

Codice sorgente - presumibilmente VB.NET

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)
'Legge i primi 10 caratteri del file
Text1.Text = Input(110, #NumFile)
Close #NumFile
End Sub

il mio problema e questo:
sto realizzando un programma composto da una listbox
una image
una textbox
e cmdload (come da codice)
descrivo il prog.
dalla listbox seleziono un nome
pippo.gif,nella image lo visualizzo
e nella texbox vorrei inserire una descrizione del file pippo.gif
premessa il file mio.txt lo compilo con il notepad manualmente,quindi da codice lo leggo solo.
se fosse possibile leggere la descrizione quando seleziono il file dalla listbox,sarebbe meglio..

Impakto (Ex-Member)
Pro

Messaggi: 126
Iscritto: 06/10/2005

Postato alle 15:11
Sabato, 20/05/2006

allora te vuoi leggere solo delle righe, oppure tutte quante?

robyn69 (Normal User)
Newbie

Messaggi: 3
Iscritto: 20/05/2006

Postato alle 21:21
Sabato, 20/05/2006

si vorrei leggere solo delle righe
e se fosse possibile aprire il file mio.txt
quando seleziono un file dalla listbox
es
dalla listbox
seleziono ciccio.gif
nell'image vedo la figura ciccio
e nella texbox leggere la descrizione di ciccio
non so se sono stato chiaro se mai mi ripeto

Impakto (Ex-Member)
Pro

Messaggi: 126
Iscritto: 06/10/2005

Postato alle 22:07
Sabato, 20/05/2006

prova così:

Codice sorgente - presumibilmente VB.NET

Private Sub cmdload_Click()
  Dim NumFile As Integer
  Dim sNomeFile As String
  Dim Temp(1000) As string
  Dim counter as integer
  NumFile = FreeFile()
  Open  "c:\menufile\mio.txt" For Input As #NumFile
    While Not EOF(NumFile)
      counter = counter + 1
      Input #NumFile, Temp(counter)
    Wend
  Close #NumFile
  Text1.Text = Text1.Text & Temp(1) & vbCrlf
  Text1.Text = Text1.Text & Temp(10) & vbCrlf
  Text1.Text = Text1.Text & Temp(20) & vbCrlf
End Sub

Così stampa la riga numero 1, 10 e 20.
Prova se va

Ultima modifica effettuata da Impakto il 20/05/2006 alle 22:08

robyn69 (Normal User)
Newbie

Messaggi: 3
Iscritto: 20/05/2006

Postato alle 18:44
Domenica, 21/05/2006

ciao
questo che mi hai scritto potrei adattarlo allo scopo di leggere le righe interessate e quindi va bene,ma!
due cose non sono riuscito a capire come fare,
1) aprire il file mio.txt anzichè con il cmdload
con la selezione del file che prendo dalla list box
ovvero,dalla listbox selez. un file e nella textbox leggo la descrizione inerente a quel file.
per richiamare imput di ogni descrizione come posso fare? avevo pensato di numerare le righe nel file mio.txt ed ad ogni selezione di file richiamare quell'imput.
avevo pensato a qualcosa del genere

array (0) "0"
array (1) "1"
array (2) "2"
e cosi via
in modo da creare un indice per gli imput e richiamarli,
creo una textbox in questa textbox inserisco il numero dell'array che assegno in base al file,che seleziono dalla listbox
faccio un es.
listbox = ciccio.gif
text3.text = ciccio.gif (1 lo assegno a ciccio.gif)
e tramite la text3 faccio partire l'apertura del file mio.txt con indice 1
che dici hai capito qualcosa?