Newsgroup: it.comp.lang.visual-basic
Titolo: come si puo fare 2

vi spiego meglio il mio problema :
ho un file di testo ( parole.txt)dove sono elencate 25000 parole  e frasi in
ordine alfabetico  ho collegato una textbox di nome parola  al data base
,poi eseguo un ciclo e trovo tutte quelle parole ho frasi che contengono il
contenuto nelle textbox  parola ( ho usato il comando instr e un ciclio do
until ) il risultato lo raggruppo in una listbox.tutto funziona bene ad
eccezione della velocità che e un po scadente  . per comodità ho trasportato
tutto in excel (dove o anche altre tabelle) ma la cosa non cambio molto
.Sono disperato come posso fare?Qualche anima gentile puo aiutarmi?Grazie
p.s mi potete dare spiegazioni semplici sono alle prime armi

 ha scritto nel messaggio
news:8vehbq$j50$1...@serv1.iunet.it...


p.s mi potete dare spiegazioni semplici sono alle prime armi
Prova a usare Regex
-- 
Sidewinder  
---------------------------------------------------------------------
"You, sir, are nothing but a pathetically lame salesdroid!
I fart in your general direction!"
	-- Randseed on #Linux
---------------------------------------------------------------------


O usare l'oggetto regexp presente nel WHS (versione 5 , fornito con IE5 )
create Un piccolo progetto vbp
Nel menu del progetto riferimenti (references) cercate la voce
Microsoft VBscript Regular Expressions e selezionatelo (se non compare
probabimimente o non avete WHS o IE 5 installati)
mettete un form con 2 textbox e 2 bottoni
i due bottono rinominateli come cmdSearch e cmdClose
poi incollate questa parte di codice
Private Sub cmdClose_Click()
    Unload Me
End Sub
Private Sub cmdSearch_Click()
    MsgBox grep(Text2.Text, Text1.Text), vbOKOnly
End Sub
Public Function grep(sPattern As String, sString As String) As String
    Dim RegEx As Object
    Dim Match As Object
    Dim Matches As Object
    Dim RetStr As String
 
    Set RegEx = New RegExp  ' Crea una regular expression.
    RegEx.Pattern = sPattern ' Setta il pattern.
    RegEx.IgnoreCase = False ' ignora il case		    
    RegEx.Global = True 
 
    Set Matches = RegEx.Execute(sString) ' Esegue ricerca
    If IsEmpty(Matches) Then
        grep =  "Not Found"								         
	Exit Function
    End If
    For Each Match in Matches
        RetStr = RetStr & "Match found at position "
	RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
	RetStr = RetStr & Match.Value & "'." & vbCrLf
    Next
    If RetStr = "" Then RetStr = "Not Found"
    grep = RetStr
End Function
Buon divertimento
Per chi non sa regexp e' una delle funzioni di ricerca piu' usate nel mondo unix...
-- 
Sidewinder  
---------------------------------------------------------------------
You will not censor me through bug terrorism.
	-- James Troup
---------------------------------------------------------------------

 eccezione della velocità che e un po scadente  . per comodità ho
trasportato
forse dovresti inviare anche il codice
cmq il codice seguente apre un file di nome listino.txt (una dozzina di
megabyte per oltre 90.000 record) legge blocchi di 9000 byte ed effettua una
ricerca utilizzando il contenuto di di un textbox in pochi secondi
devi solo adattarterlo
Ciao Stefano
Dim TextLine As String
Dim numerofile as string
numerofile = FreeFile
Open "c:\listino" For Binary As #numerofile ' Apre il file.
Dim counter as Long, dimfile As Long
counter = 1
dimfile = LOF(numerofile)
Dim a As Long
TextLine = String(9000, ".")
Do While Not EOF(numerofile) ' Ripete fino alla fine del file.
    Get #numerofile, counter, TextLine
     If InStr(1, TextLine, Text1.Text) > 0 Then Exit Do
    counter = counter + 9000
Loop
Text2.Text = TextLine
Close #numerofile    ' Chiude il file.

ordine alfabetico  ho collegato una textbox di nome parola  al data base
Ho mandato alcuni esempi via email, ma non so se l'hai ricevuti...
Se si, fammi sapere, grazie
-- 
Sidewinder  
---------------------------------------------------------------------
'Ooohh.. "FreeBSD is faster over loopback, when compared to Linux
over the wire". Film at 11.'
	-- Linus Torvalds
---------------------------------------------------------------------