FiveTech Software tech support forums

... "File not found: " + cSource ) Return .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( cTarget, oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) end FClose( ...

... cannot show the values I saw all the variables init form CFG_ Function test() local aVar:= {} nMemHandle := Fopen( 'config.mem', 2 ) nMemLength := Fseek( nMemHandle, 0, 2) Fseek(nMemHandle,0) nCount := 1 Do While Fseek(nMemHandle, 0, 1)+1 < nMemLength nMemWidth:= space(18) Fread( nMemHandle, ...

Buenos dias

El comando FOpen() abre el archivo. Nada mas.

Fseek() posiciona el puntero de lectura.

Dentro de tu bucle no cambias el puntero con otro FSeek()
Como FRead() te devuelve el numero de bytes ledidos, yo comprobaría antes de escribir si cBuffer tiene contenido.

Saludos

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

Silvio,

Since a RTF-file is a ASCII-file, why don't you open it by using FOPEN, fiind you variable by using FSEEK, write it by using FWRITE and close your file by using FCLOSE?
So you don't need Word to replace your variables.

... hSource :=FOpen(cFileOrigen) cFileFTP:='httpdocs/Clientes/Archivo.txt' oFile :=TFtpFile():New(cFileFTP, oFTP) oFile:OpenWrite() FSeek(hSource, 0, 0) nBufSize:=2000000 cBuffer :=space(nBufSize) do while ( nBytes:=FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( ...

... FreeLibrary(<nDllHandle>)->lSuccess FRename(<cOldFile>,<cNewFile>)->nSuccess FSeek(<nHandle>,<nOffset>,[<nOrigin>])->nPosition FtoC(<nFloat>)->cFloat Fv(<nInvestment>,<nInterestRate>,<nPeriods>)->nFutureValue ...

... FileValid FileWriter FKLabel FKMax FLineCount FLock Floor FloppyType FOpen Found FParse FParseEx FParseLine FRead FReadStr FreeLibrary FRename FSeek FtoC Fv FWordCount FWrite GetActiveObject GetClearA GetClearB GetClrBack GetClrFore GetClrPair GetCurrentThread GetDefaultPrinter GetE GetEnv ...

Antonio buenas noches, ahora son estos: Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http:...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

... + oApp:cPassword + ' ' + oApp:cDatabase + ' > .\backup\' cComando += cFileBackup + CRLF hCambios := FOpen( cFile, FO_READWRITE + FO_SHARED ) FSeek( hCambios, 0, FS_END) FWrite( hCambios, cComando ) FClose(nHand) endif *------------- Proceso de Generacion del DUMP de la base de datos lEsc ...

... (maestro), y Francisco. Abel, utilizo muchísimo programas de lectura/conversión de archivos de texto, y solo con funciones FOpen(), FRead(), FSeek(), FCreate(), FWrite(), etc., incluso algunos de ellos debo convertir de EBCDIC a ASCII o viceversa. Los archivos de texto que leo están por encima ...

Abel,
Debes incluir en el PRG el header #include "FileIO.ch".
Y luego usar las funciones para manejo de archivos "low level" como estas:
fOpen(), fRead(), fClose(), fError(), fSeek().

Saludos,

George

... cUsuHD2+=" OK" ENDIF cUsuHD2+=CHR(13)+CHR(10) IF FILE (cRegUsu) nFichero:=FOpen(cRegUsu,2) ELSE nFichero:=FCreate(cRegUsu,0) ENDIF FSeek(nFichero,0,2) FWrite(nFichero,cUsuHD) FClose(nFichero) IF FILE (cRegUsu2) nFichero2:=FOpen(cRegUsu2,2) ELSE nFichero2:=FCreate(cRegUsu2,0) ENDIF ...