topic-17816

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

una preguntonta
Posted: Mon Jan 11, 2010 02:12 PM

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

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: una preguntonta
Posted: Mon Jan 11, 2010 05:31 PM

Code (fw): Select all Collapse

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.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: una preguntonta
Posted: Mon Jan 11, 2010 07:01 PM

Hola Horacio

prueba si sirve este codigo

Code (fw): Select all Collapse

#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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: una preguntonta
Posted: Tue Jan 12, 2010 12:55 PM

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

FiveTech Support Forums

Continue the discussion