|
Hola el siguiente código puede servirte de ayuda:
Supongamos que tenemos guardado un archivo *.txt en el ordenador el cual tiene guardados unos correos como el que especificas arriba.
Local cnControladorArch,nTamaño,cCadena, lcPos, a, b
cnControladorArch = FOPEN("D:\correos.txt")
* Busca hasta el final del archivo para determinar el número
* de bytes en el archivo.
nTamaño = FSEEK(cnControladorArch, 0, 2) && Lleva el puntero a EOF.
IF nTamaño <= 0
* Si el archivo está vacío, muestra un mensaje de error.
WAIT WINDOW "Este archivo está vacío." NOWAIT
ELSE
* Si el archivo no está vacío, el programa almacena su contenido
* en memoria, después muestra el texto en la ventana principal de
* Visual FoxPro.
= FSEEK(cnControladorArch, 0, 0) && Mueve el puntero a BOF.
cCadena = FREAD(cnControladorArch, nTamaño)
ENDIF
= FCLOSE(cnControladorArch) && Cierra el archivo.
lcPos = At("To:", cCadena)
cCadena = Substr(cCadena, lcPos + 4, Len(cCadena))
a = Getwordcount(cCadena, ";")
For i = 1 To a
b = Getwordnum(cCadena, i, ";")
Do Case
Case Atcc("Hotmail", b) > 0
Insert Into Tabla (campo_correo, campo_servidor) Values (b, "Hotmail")
Case Atcc("Yahoo", b) > 0
Insert Into Tabla (campo_correo, campo_servidor) Values (b, "Yahoo")
Case Atcc("Latinmail", b) > 0
Insert Into Tabla (campo_correo, campo_servidor) Values (b, "Latinmail")
Case Atcc("Gmail", b) > 0
Insert Into Tabla (campo_correo, campo_servidor) Values (b, "Gmail")
Endcase
Endfor
Estamos hablando...
|
