local cVar := ""
cVar := chr(8) + chr(8) + chr(8) + "Texto con 3 tabulaciones"
?cVar
return
#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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 77 guests