estrapolare una stringa da un file di testo

[j0tt0]

Salve a tutti,

sto diventando matto perchè non riesco ad estrepolare determinate occorrenze da un file di testo.
Mi spiego meglio, ho un file di testo semplice (txt) senza alcuna formattazione, da questo file di testo dovrei andare a rintracciare tutti le occorrenze "codice" per poi riutilizzarle.
Il formato è il seguente:

Codice: ab.e320x.252       Modello:  xxxxxxx        Serie: yyyyyyyy    Famiglia: zzzzzzzzzzz   Categoria: wwwwwww  etc.. etc...

Il mio scopo è prelevare tutti i Codici presenti in questo file di testo.
Riesco ad aprire il file, e a leggere il contenuto.
Ho provato con MID, LEFT, RIGHT etc... ma senza molti risultati.
Qualche idea?
:master:

Grazie tante.
Jotto

[optime]

con instr cerchi la parola Codice:
poi, partendo 9 caratteri più avanti, con MID prendi i caratteri uno ad uno fino a quando non incontri uno spazio

[Glabrezu]

potete far un semplice esempio, dato che l'argomento interessa pure me?
Grazie-e-e-e-e

[willybit]

Per me, in questi casi, è comodo usare le regular expression

set fso=Server.CreateObject("Scripting.FileSystemObject")
set erFile=fso.OpenTextFile(Server.MapPath("tuofile.txt"))
set re=Server.CreateObject("VBScript.RegExp")
re.Pattern="Codice: ([^\s]+)" 'cerca le stringhe che contengono "Codice: " e tutto quello che c'è fino al primo spazio (memorizzandolo in un SubMatch)
re.Global=true
re.Multiline=true
set Risultati=re.Execute(erFile.ReadAll)
for each risultato in Risultati
	Response.Write risultato.SubMatches(0)&"
"
next

[nikasil]

ciao riesumo perchè ho un quesito simile:

per estrapolare invece il nome di un'immagine in <img src="nome immagine" bla bla all'interno di un testo contenuto in un db mysql in campo text?

grazie mille

[optime]

fa' un esempio, stringa in input --> stringa in output

[nikasil]

il testo vienie inserito nel campo text con ckeditor e quindi può essere qualsiasi cosa....da una riga ad un testo lungo e può contenere delle immagini. Io vorrei poter estrapolare queste immagini....se possibile.....

es:

Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo. Nemo enim ipsam voluptatem [img]cheneso.jpg[/img] quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt.

ma potrebbero esserci 0 immagini inserite come n non lo sappiamo.....forse è pretendere troppo eh?

[nikasil]

dimenticavo, output tipo immagine1=cheneso.jpg, immagine2=blabla.jpg

oppure solo separate da una virgola immagine1, immagine2

una cosa del genere

[willybit]

caspita! Dopo 3 anni
ti faccio un esempio

stringa="Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo. Nemo enim ipsam voluptatem [img][/img] quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt. "
set re=Server.CreateObject("VBScript.RegExp")
re.Pattern="[img][/img]]+>"
response.Write Server.HTMLEncode(re.Pattern) & "<hr>"
re.Global=true
re.Multiline=true
re.IgnoreCase=true
set Risultati=re.Execute(stringa)
for each risultato in Risultati
	Response.Write risultato.SubMatches(0) & "
"
next

[nikasil]

beh sai qui se nn usi la ricerca ti cazziano subito ahahahhahahahaha grazie provo subito