una preguntonta

[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

[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.

[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
 

[horacio]

Carlos, Patricio Muchisimas gracias por la respuesta, era CHR( 9 ). Saludos