hola tengo este codigo que me funciona a medias
Código PHP:
txt = mail
' el txt tiene esta cadena:
' destino: oriolsv77@hotmail.com; nombre: Veronica mundonez sanchex; email: xini28@hotmail.com; mensaje: ; IP: 212.77.232.57; Servicio Gratuito Proporcionado por www.chechesa.net
txt2=replace(txt, chr(34) , chr(96) )
pos=InStr(txt2,"email:")
pos_2 =left(txt2, (pos+6))
txt_2=replace(txt2, pos_2, "")
'aqui ya tengo el principio del mail:
'xini28@hotmail.com; mensaje: ; IP: 212.77.232.57; Servicio Gratuito Proporcionado por www.chechesa.net
'ahora toca sacar lo de:
'; mensaje: ; IP: 212.77.232.57; Servicio Gratuito Proporcionado por www.chechesa.net
' aqui ja tenim el text a la dreta ara anem a treure des de '> cap a la dreta
mail_mes =InStr(txt_2,";")
'mail_mes1 =InStr(txt_2,chr(38))
mail_mes1=left(txt_2, mail_mes)
'aqui ya tengo el correu:
xini28@hotmail.com;
mail_cont = mail_mes1
lo que no puedo hacer es que me recorte el ; de la variable mail_mes1 por que si pongo
mail_mes1 = left(txt_2, (mail_mes-1))
me da un error
Error de Microsoft VBScript en tiempo de ejecución (0x800A0005)
Argumento o llamada a procedimiento no válidos: 'left'
alguien me puede echar un cable?
gracias de antemano