21/11/2002, 10:35
|
| | | Fecha de Ingreso: noviembre-2002 Ubicación: Guatemala
Mensajes: 12
Antigüedad: 22 años, 2 meses Puntos: 0 | |
| Flavi
Mira la verdad yo tampoco se como hacerlo en JS, pero aqui te mando lo que quieres hacer en VBS. Espero te sirva de algo.
Dim texto
Dim out
Dim out1
Dim posicion
texto = "Planisferio 23 cod.P5.1"
posicion = 1
posicion = InStr(posicion, texto, "cod")
out = Right(texto, Len(texto) - posicion - 3)
out1 = InStr(1, out, "P")
MsgBox out1
'Si te regresa 1 es que si existe una P si te regresa 0 es que no exite una P.
Salud,
Peixe. |