Oppure

Loading
20/05/06 12:40
robyn69
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.
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..
aaa
20/05/06 13:11
Impakto
allora te vuoi leggere solo delle righe, oppure tutte quante?
aaa
20/05/06 19:21
robyn69
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
aaa
20/05/06 20:07
Impakto
prova così:
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 20/05/06 20:08
aaa
21/05/06 16:44
robyn69
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?
aaa