FiveTech Software tech support forums

... FRead(<nHandle>,@<cBufferVar>,<nBytes>,[<nOffset>])->nBytes FReadStr(<nHandle>,<nBytes>)->cString FreeLibrary(<nDllHandle>)->lSuccess FRename(<cOldFile>,<cNewFile>)->nSuccess ...

... FileStats FileStr FileTime 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 ...

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

... the current pointer position and stops at the first occurrence of the found string. To search for multiple occurrences, find the first occurrence, freadstr() or fseek() past it, and start searching for the next occurrence.

Saludos. En efecto, con las funciones fopen(), fread(), freadstr() puedes leer el archivo binario que quieras y del tamaño que sea. Sin son archivos texto que tengan internamente un delimitador con un "pipe", un CRLF o el que sea, utiliza la ...

... := cFile IF (nHandle[1] := FOPEN(cInFile, 0)) >= 0 nPieces := 0 FileCreate (@aVars) nLineCtr := nTotLines := 0 cText := "" cChars := FREADSTR(nHandle[1], NCHARS) DO WHILE ! EMPTY(cChars) .AND. nHandle[2] >= 0 ReadLine (@aVars) WriteLine (@aVars) nLineCtr++ nTotLines++ IF nLineCtr ...

... cTest:=cTest+"Reading 10M file with 1000KB segments **"+chr(13)+chr (10) nStart:=seconds() handle:=fopen(cFile) for i:=1 to 10000 cVar:=freadstr(handle,1000) next fclose(handle) nEnd:=seconds()-nStart cTest:=cTest+"Done. "+str(nEnd,10,2)+" seconds required"+chr(13)+chr ...

... cescribe:= "" //se abre el fichero a bajo nivel para lectura-escritura nManejador = FOpen ( cFicheroDBF , 2 ) //Leemos el primer byte cCabecera := FReadStr( nManejador , 1 ) if cModo == "ON" // busca codigo de protección do case case cCabecera == DESPROT_SIN_DBT cEscribe := PROT_SIN_DBT case cCabecera ...

Richard I think it can only be done when each record from the dbf is read with freadstr FUNC MAIN(cDbf) LOCAL nHandle , nPos , nRecSize , nRecords LOCAL i , el LOCAL cRecord LOCAL aStruct LOCAL aPos[0] , Sum IF pCount() == 0 cDbf := ...

... funciona, pues a primera vista y sin probarlo, estas utilizando fRead, y esta funciona retorna los bytes leidos, y no la cadena leida. O bien usas fReadStr, o a fRead le pasas como parametro una variable por referencia donde te colocara lo leido. Cambia esto, y vuelve a probar. FREAD(<nHandle>, ...

... el tama¤o calculado DBFHeader := FILESTR( cFileName, g_header, 10 ) //contenido del header de la DBF DO WHILE .NOT. feof( g_handle ) g_cdata := FREADSTR( g_handle, g_recsize * 10 ) nfpos := g_ftell( g_handle ) // posicion del pointer en el archivo g_offset := AT(cBuscar, g_cdata ) IF g_offset ...

... Revisa otras funciones que tienes para el manejo a bajo nivel de ficheros, fOpen,fClose, fError, fSeek,fRead,fReadStr. En este link estan todas las funciones de clipper http://clipper.ecofor.cl/C52G01B/ng3f4.html

... IF PCOUNT()<3 nLen = 1 ENDIF // Init... IF nRead > 1 cChar = SPACE(nRead) ENDIF DO WHILE (! lEof) // Init... Mline = .F. IF nLen = 1 cChar = FREADSTR(hHandle,1) ELSE nRead = FREAD(hHandle, @cChar, nLen) IF nRead<>nLen lEof = .T. ENDIF EXIT ENDIF DO CASE CASE ASC(cChar) = 10 EXIT CASE ...