Filtro con Scripts - VB-MUNDO

T800 · #1 (**permalink**) 09-04-2007, 19:31:30

Hola soy nuevo en esto de los VBscripts.. y les queria consultar algo..

Lo que quiero hacer es por medio de un VBscripts filtrar palabras y ponerlas en otro txt.. Esto como se entiende???

Por ejemplo:

texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto

Number: 24-22-32-6214-01090
REAL ESTATE PROPERTY

Owner & Address:

SCHMIDT ANTON
SCHMIDT ROSE
C/O ROSE L KERSCHL
PASSAUERSTR 5
PLATTLING GERMANY 944470000

texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto
texto texto texto texto texto texto texto texto texto texto

Quiero que me genere un txt con:

Number: 24-22-32-6214-01090 REAL ESTATE PROPERTY

Owner & Address:SCHMIDT ANTON SCHMIDT ROSE C/O ROSE L KERSCHL PASSAUERSTR 5 PLATTLING GERMANY 944470000
Osea que los busque por ejemplo Number: que me traiga todo lo que contenga despues del : hasta que se tope con otra palabra clave por ejemplo Owner & Address:

Se puede hacer eso???

Desde ya muchas Gracias!!!

J.M.Movilla · #2 (**permalink**) 10-04-2007, 07:01:48

Código:

Dim n1 as integer, n2 as integer
Dim TextoFinal As String

TextoFinal=""
n1=inStr(TextoGlobal,"Number")
n2=InStr(TextoGlobal,"Owner & Address")
If n1 > 0 and n2 > 0 then
    TextoFinal = TextoFinal & Mid(TextoGlobal, n1, n2-n1)
End If

De esta forma sigues buscando las siguientes claves inicial y final, y vas incrementando TextoFinal...

Bueno, yo te lo pongo en lenguaje propio de VB... Supongo que tengas que adaptarlo al de VBScripts...

T800 · #3 (**permalink**) 10-04-2007, 20:51:33

Lo voy a probar!!!

Muchisimas Gracias!!!