trovare termini all'interno di un testo

[Fello]

Ciao, vorrei il vostro aiuto riguardo questo:
ho una variabile che contiene un testo.
Poi ho un database accessi di questi tipo:

Id

di tipo contatore

termine

di tipo testo

ora vorrei creare una funzione che controlli se le parole nel DB sono contenute all'interno del testo nella variabile, e che mi stampi quelle trovate.

Come potrei fare?

[longline]

Non è molto chiaro quello che vuoi fare. Fai un esempio.

[dizionario]

database access o sql server?

[Andriy88]

semplicemente poi recuperare i valori dal db e confrontarli con un if oppure fare tutto incontrario.
confrontare la variabile con i dati nel db senza recuperarli facendo una select del tipo

strSQL = "SELECT Campo FROM Tabella WHERE Campo = "&varibile&";"

cmq spiegati meglio

[Fello]

Allora in effetti non sono stato molto chiaro, provo a rspiegarmi meglio:

Ho un testo contenuto in una variabile "text" e poi ho un DB Access che contiene un termine per ogni record.

Ora vorrei fare una cosa simile:
verificare se il DB ha delle parole che compaiono nel testo, quindi dovrei fare un ciclo dall'inizio del database fino alla fine e cercare recerd per record se la relativa parola compare nel testo.
In caso positivo stampare queste parole a video.

Forse dovrei usare la funzione

Instr

??

[Andriy88]

modo più semplice che io conosca sarebbe quello di dividere la tua varibile in più parti formando un array con la funzione Split() e poi con un ciclo while controllare se ogni parola del tuo array è presente nel db, se è presente lo recuperi e lo stampi se invece non è presente passi al secondo valore con cliclo.

tipo.

Dim strTesto, arrTesto, strSQL, strConn, rs
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb") & ";Persist Security Info=False"
strTesto = "Questo è il testo che cercerà nel database per ogni singola parola"
arrTesto = Split(strTesto, " ")
FOR j=0 TO UBound(arrTesto)
     strSQL = "SELECT Campo FORM Tabella WHERE Campo=" & arrTesto(j) & ";"
     Set rs = Server.CreteateObject("ADODB.Recordset")
     rs.Open strSQL, strConn
          WHILE NOT rs.EOF AND NOT rs.BOF
               Response.Write("ID = " & rs.Fields("ID") & "" & rs.Fields("Campo") & "
")
          WEND
     rs.Close
     Set rs = Nothing
     strSQL = ""
NEXT

Vedi che non programmo con ASP da un bel può di tempo è ti conviene dare prima un occhiata se ho fatto bene, cmq ti ho scritto un esempio così avrai almeno un idea su come fare.

Ciao

[Andriy88]

ma a cosa ti serve questa cosa?

Se per fare un motore di ricerca si può fare in un altro modo più facile.

[Andriy88]

Forse dovrei usare la funzione

Instr

??

Non poi usare la funzione InStr() perché la funzione InStr ti restituisce la posizione esempio

InStr("ABCDEFGH", "DE")

ti restituisce 4 perche DE sarebbe la quarta lettera nella stringa.

[Fello]

Ciao Andriy88 grazie dei suggerimenti, in effetti devo fare un qualcosa di simile.

Devo "suggerire" degli argomenti correlati al testo della pagina, il testo dell pagina non lo inserisco io ma un'altra persona e lo inserisce direttamente in html.

Quindi vorrei analizzare il testo, vedere se contiene parole che sono contenuto del DB e in caso positivo stamparle con il link ad un'altra pagina.

spero di essere stato chiaro!

:master:

[Andriy88]

x cosa ti serve questa cosa? così vedo se ti posso fare direttamente il codice pronto