Prelevare una parte di stringa

[Dr Mal]

Ciao a tutti,

Ho bisogno di prelevare parte di una stringa, partendo da un carattere, fino ad una certa lunghezza.

Ho provato a fare in questo modo:
'word_key' è la parola da trovare nella stringa pricipale e dalla quale deve partire il prelievo di caratteri.
Con 'InStr' so da quale carattere parte la parola cercata, con 'CInt' forzo il risultato in numerico.

numero = CInt(InStr(rec("str_testo"), word_key))
'numero in questo caso corrisponderà a 67.

'se scrivo così non mi trova nulla
Response.Write "Stringa: ..."&Mid(rec("str_testo"),numero,20)&"...
"

'se scrivo così, invece, mi trova ciò che cerco:
Response.Write "Stringa: ..."&Mid(rec("str_testo"),67,20)&"...
"

Come posso fare?

[optime]

fa' una bella

response.write numero

e controlli

[Dr Mal]

Originariamente inviato da optime
fa' una bella

response.write numero

e controlli

Già fatto e 'numero' corrisponde sempre.

[optime]

str_testo è una colonna di tipo? Memo su Access?

[Dr Mal]

srt_testo è tipo 'memo' in access.

ma con InStr ottengo un numero e con CInt lo forzo ad Int.

Non capisco perchè non funziona, :master:

[optime]

Originariamente inviato da Dr Mal
srt_testo è tipo 'memo' in access.

ma con InStr ottengo un numero e con CInt lo forzo ad Int.

Non capisco perchè non funziona, :master:

CVD! E' perché due che non sanno lavorare (ASP e Access) quando lavorano assieme fanno ancora più casino: ASP non gestisce le variabili tipizzate (son tutte VARIANT!) e quindi non sa come trattare una variabile Memo di Access (che è una stringa speciale, figuriamoci!)

fa' tu quello che non fanno loro

Dim sMemo
sMemo = CStr(rec("str_testo") + "")

Response.Write "Stringa: ..." & Mid(sMemo, numero, 20) & "...
"

facce sape'

[Dr Mal]

Ciao Optime,

con il codice che mi hai postato, in pratica mi da questo errore:

invalid use of Null: 'CStr'

[Dr Mal]

Ciò che non capisco è questo:

se scrivo così non mi trova nulla

Response.Write "Stringa: ..."&Mid(rec("str_testo"),numero,20)&"...
"

Se scrivo così invece va tutto a buno fine

Response.Write "Stringa: ..."&Mid(rec("str_testo"),67,20)&"...
"

In pratica la funzione Mid legge 'rec("str_testo")' ma non riesce a leggere 'numero'.

[optime]

[Dr Mal]

Grazie lo stesso optime,

Agendo in modo diverso dal mio, come si potrebbe prelevare una parte di stringa partendo da una parola contenuta in essa?

Ex:

stringa = "Come è bello andare in montagna"

parola_da_trovare = "andare"

mio_risultato = "... andare in ..."

Ragazzi datemi una mano,