una preguntonta
Posted:
Mon Jan 11, 2010 2:12 pmby horacio
Necesito generar una tabulación en un archivo de texto de tres espacios y no tengo idea de como hacerlo. cualquier sugerencia será bienvenida. Gracias de antemano
Re: una preguntonta
Posted:
Mon Jan 11, 2010 5:31 pmby carlos vargas
- Code: Select all Expand view
local cVar := ""
cVar := chr(8) + chr(8) + chr(8) + "Texto con 3 tabulaciones"
?cVar
return
estoy largito de mis anotaciones, y la memoria me falla (cada vez mas) y no recuerdo si chr(8) o chr(4) es el ascii de
tabulacion.
solo verifica cual es el valor correcto.
Re: una preguntonta
Posted:
Mon Jan 11, 2010 7:01 pmby Patricio Avalos Aguirre
Hola Horacio
prueba si sirve este codigo
- Code: Select all Expand view
#include "fivewin.ch"
procedure Test()
local cFile, nHandle, cText := ""
cFile := "c:\test.txt"
if FILE( cFile )
Ferase( cFile )
endif
if (nHandle := FCREATE( cFile, 0 )) == -1
msginfo( "Error al crear archivo" )
return
endif
cText += "linea1" + chr(9) + "texto1" + chr(9) + "text2" + chr(9) + "etc.." + CRLF
cText += "linea2" + chr(9) + "texto1" + chr(9) + "text2" + chr(9) + "etc.." + CRLF
cText += CRLF + CRLF + "este es el final, bye..."
FWRITE( nHandle, cText )
FCLOSE( nHandle )
alert( "creado" )
WinExec( "notepad.exe "+cFile )
return
Re: una preguntonta
Posted:
Tue Jan 12, 2010 12:55 pmby horacio
Carlos, Patricio Muchisimas gracias por la respuesta, era CHR( 9 ). Saludos