un saluto a tutti
ho un problema da risolvere
ho un file di testo molto lungo (da 1 a 4 M) nel quale devo ricercare delle parole molto frequenti quindi il file che si genera super di gran lunga i 32k che vb6 mi mette a disposizione.
es.
Private Sub Command1_Click()
Dim variabile As String
Open "C:\spam.txt" For Input As 1
Text4.Text = ""
Do
Line Input #1, variabile
If InStr(variabile, Text1.Text) > 0 Then
Text4.Text = Text4.Text + variabile + Chr$(13) + Chr$(10)
End If
Loop While Not EOF(1)
Close 1
End Sub
ho provato a creare un nuovo Text2 ma l'unico risultato è stato quello di avere lo stesso testo in entrambe le finestre.
ho bisogno che il risultato venga inserito in una finestra o piu finestre text e non su un file esterno.
grazie
Rispondi quotando
