LOCAL lcSourceFile,lcTargetFile,; nHndSource,nHndTarget,; nCpSource nCpSource=437 && may be 850 lcSourceFile=ADDBS(dserv)+"mirame.txt"lcTargetFile=ADDBS(dserv)+"mirame1.txt"
nHndSource=FOPEN(lcSourceFile,12)IF nHndSource < 0 RETURNENDIF
nHndTarget=FCREATE(lcTargetFile)IF nHndTarget < 0 FCLOSE(nHndSource) RETURNENDIF
DO WHILE !FEOF(nHndSource) lcGet=CPCONVERT(nCpSource,1252,FGETS(nHndSource,4096)) =FPUTS(nHndTarget,lcGet)ENDDO=FCLOSE(nHndSource)=FCLOSE(nHndTarget)
IF FILE(lcTargetFile) o = CREATEOBJECT("Shell.Application") o.ShellExecute("notepad.exe", '&lcTargetFile', "", "open", 1)ENDIF
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
el parámetro 11 Specifies the type of conversion.
Converts UTF-8 characters in cExpression to double-byte characters.
Leo, impresionante, te felicito, es una solución excelente.
Jaja todo bien, vamo arriba.
Me había retirado por un par de razones, cambio de laburo, etc. Y además, me estaban cayendo mal las fresas...:)
Pah, lo de los nombres, ni cuenta me había dado. Como en google ahora está todo integrado, se ve que cambié algo en google+ o en cualquier lugar y se cambió en los grupos. Debe ser el problema de usar variables globales.
Salú a la barra