Newsgroup: it.comp.lang.visual-basic
Titolo: <-- QUALCUNO MI AIUTI !!!! -->

ma come mai in questo NG pieno di programatori così bravi nessuno riesce a
risolvere il mio problema ?
Io sono un principiante ed autodidatta ma voi.....?
Il programma che ho creato ha una serie di tasti + un Filelistbox ed una
Richtextbox.
Sul Filelistbox mi vengono visualizzati tutti i files txt in particolare un
file.txt che ho chiamato Lista.txt che contiene appunto la lista di tutti i
miei programmi nei cd.
Quando ricerco una parola nella Richtextbox se questa si trova in fondo alla
pagina il programma mi da un errore di overflow.
Il consiglio che mi ha dato un amico è quello di passare alla ListBox ed
eliminare la RichTextBox xchè è meno capiente. Ok, ma che codice devo
inserire per fare in modo che il comando Ricerca mi cerca la parola
richiesta nella miriade di files .txt che si trovano nella Filelistbox e mi
restituisce il risultato nella listbox in modo da sapere in quale file e
quindi in  quale cd si trova la parola e quindi il programma o il gioco
richiesto?
il codice che ho utilizzato finora per il comando ricerca (nella
Richtextbox) è questo:
Private Sub Command2_Click()
   On Error Resume Next
   Dim FoundPos As Integer
   Dim FoundLine As Integer
   ' Trova il testo specificato nel controllo TextBox.
   FoundPos = Form1.RichTextBox1.Find(Text1.Text, , , rtfWholeWord)
   ' Visualizza un messaggio per indicare che il testo
   '   è stato o non è stato trovato.
   If FoundPos <> -1 Then
      ' Restituisce il numero della riga contenente
      ' il testo.
      FoundLine = Form1.RichTextBox1.GetLineFromChar(FoundPos)
 End If
Dim pos As Integer
    pos = Form1.RichTextBox1.SelStart
    pos = InStr(pos + 2, Form1.RichTextBox1.Text, Text1.Text)
    If pos = 0 Then
        Form1.RichTextBox1.SelStart = 0
        Form1.RichTextBox1.SelLength = 0
    Else
        Form1.RichTextBox1.SelStart = pos - 1
        Form1.RichTextBox1.SelLength = Len(Text1.Text)
    End If
    Form1.RichTextBox1.SetFocus
 On Error Resume Next
   ' Trova il testo specificato nel controllo TextBox.
   FoundPos = Form1.RichTextBox1.Find(Text1.Text, , , rtfWholeWord)
   ' Visualizza un messaggio per indicare che il testo
   '   è stato o non è stato trovato.
   If FoundPos <> -1 Then
      ' Restituisce il numero della riga contenente
      ' il testo.
      FoundLine = Form1.RichTextBox1.GetLineFromChar(FoundPos)
      MsgBox "Parola trovata nella riga " & CStr(FoundLine)
   Else
      MsgBox "Parola non trovata."
   End If
End Sub
non sono sicuro che sia giusto, se qualcuno sa come modificarlo in modo tale
da non far verificare l'overflow è meglio, ma quello per far caricare il
testo dei files e la ricerca nella Listbox qual è?
garzie
armando...@tin.it
http://armandopassaro.supereva.it

richiesto?
Allora.
Non ho ben capito perchè ricerchi il testo 3 volte.
Comunque, personalmente preferisco usare la Pos().
Però: non hai detto (cosa importantissima) dove ti dà l'overflow
(stranissimo tra l'altro), ma presumo sia perchè il tuo file di testo supera
i 32k.
Usa delle variabili di tipo Long, anzicè Integer.
Lascio a te il compito di informarti sulla loro differenza se già non la
conosci.
Ciao

allora ...........il file Lista.txt è sotto i 600 Kb ed è destinato ad
aumentare, il


voi del NG. GRAZEIEEEEEEEEE  !!!!!!!
Ma... come fai a programmare senza il debugging?
(1) Quando VB dice "Overflow [Debug] [Fine]" tu scegli [Debug] e lui ti
posiziona sulla linea che ti dà errore.
(2) se fai CTRL+G ti esce la finestra di Debug, dove puoi controllare tutto
il tuo codice.
(3) il menu View ha delle voci interessanti per il debug, ti consiglio di
darci un occhio.
(4) se premi F9 su una riga il prog si ferma quando ci arriva.
Ciao.