bb.donnay-software.com

Donnay Software Web Forums
http://donnay-software.com/DONNAY/

What is the maximum size of file uploads FILESTR?

http://donnay-software.com/DONNAY/viewtopic.php?f=2&t=2069

Page 1 of 1

What is the maximum size of file uploads FILESTR?

Posted: Thu Dec 29, 2016 10:43 am
by Eugene Lutsenko
What is the maximum file size you can upload using the function FILESTR

Re: What is the maximum size of file uploads FILESTR?

Posted: Thu Dec 29, 2016 11:36 am
by Wolfgang Ciriack
From the XBase++ 2.0 docs:
The length of a character string is not limited.

Re: What is the maximum size of file uploads FILESTR?

Posted: Thu Dec 29, 2016 1:16 pm
by Eugene Lutsenko
Wolfgang Ciriack wrote:From the XBase++ 2.0 docs:
The length of a character string is not limited.
And in 1.9?

Re: What is the maximum size of file uploads FILESTR?

Posted: Thu Dec 29, 2016 1:46 pm
by Auge_Ohr
Eugene Lutsenko wrote:
Wolfgang Ciriack wrote:From the XBase++ 2.0 docs:
The length of a character string is not limited.
And in 1.9?
both are 32bit so they can handle max. 2GB.

Note :
<nBytesToRead>

This parameter defaults to the file size, meaning all bytes should be read. This differs from the CA-Tools function where a 64kB limit exists. Although no limit exists for Xbase++ it is recommended not to read more than 500 kB at a time.

Re: What is the maximum size of file uploads FILESTR?

Posted: Thu Dec 29, 2016 1:53 pm
by Eugene Lutsenko
In principle, it is sufficient. Thank you

Re: What is the maximum size of file uploads FILESTR?

Posted: Fri Dec 30, 2016 1:58 am
by Victorio
I have used fread in my program. But sometimes I have file larger than 2GB, becasue I must spit it to several parts.
Also when you read file to string, here is ram limit 2GB for all - application and variables in program.

For example filestring=fread(...) and filestring has 2GB
then filestring2=filestring memory error !! because filestring + filestring has 4GB.

Because I modified program to read file as parts about 100MB , and works without risk memory problems.

Re: What is the maximum size of file uploads FILESTR?

Posted: Fri Dec 30, 2016 1:33 pm
by Eugene Lutsenko
I, too, once upon a time (about 20 years ago, it was a good time...) made a program that reads and process a file of any size with the pointer in the file:

Code: Select all

*** Преобразование текстового файла DOS -> WIN, Луценко Е.В., 10/05/96 06:09am

PARAMETERS File_name

scr_start=SAVESCREEN(0,0,24,79)

SHOWTIME(0,58,.T.,"rb/n")

FOR j=0 TO 24
    @j,0 SAY SPACE(80) COLOR "n/n"
NEXT

Fn = File_name
Ext = "NO"

IF .NOT. EMPTY(Fn)
   Pos_p = AT(".",Fn)
   IF Pos_p > 0
      Ext = UPPER(SUBSTR(Fn,Pos_p+1))
   ENDIF
ENDIF

IF EMPTY(Fn) .OR. .NOT. FILE(Fn) .OR. Ext = "OUT"

   SET CURSOR OFF
   SETCOLOR("g/n")
   *                    10        20        30        40        50        60        70
   *          0123456789012345678901234567890123456789012345678901234567890123456789012345678
   @ 1,0 SAY "█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
   @ 2,0 SAY "█      All Rights Reserved. (c) Scientific & inductrial enterprise AIDOS C°    █"
   @ 3,0 SAY "█      All Rights Reserved. (c) Евгений Луценко, 1995, 1996 7(8612) 311909     █"
   @ 4,0 SAY "█                                                                              █"
   @ 5,0 SAY "█      IF YOU WORK IN THE EDITOR DOS-TEXTS OR ENTER TEXTS WITH A SCANNER,      █"
   @ 6,0 SAY "█         AND THEN PROCESS THEM IN WINWORD, THIS PROGRAM - FOR YOU !!!         █"
   @ 7,0 SAY "█                                                                              █"
   @ 8,0 SAY "█      The given program executes following functions, which are necessary     █"
   @ 9,0 SAY "█   at transformation of text from a format DOS-TEXT in the format WinWord:    █"
   @10,0 SAY "█                                                                              █"
   @11,0 SAY "█    - Removal of symbols of the ends of lines in all cases, except the        █"
   @12,0 SAY "█      end of the paragraph;                                                   █"
   @13,0 SAY "█    - Correct transformation of the various lists of lines {-, *, Let, Num};  █"
   @14,0 SAY "█    - Removal of DOS-carries of words;                                        █"
   @15,0 SAY "█    - Removal ~clear of blanks~;                                              █"
   @16,0 SAY "█    - The exception ESC-sequences management of fonts, LEX-fonts and so on... █"
   @17,0 SAY "█                                                                              █"
   @18,0 SAY "█                                      Format of start: DW.EXE <FILE_NAME>     █"
   @19,0 SAY "█                                                                              █"
   @20,0 SAY "█   ATTENTION! A name of a source file should not have extension: ~.OUT~,      █"
   @21,0 SAY "█   as this expansion is reserved for target file !!!                          █"
   @22,0 SAY "█                                                         We wish success!     █"
   @23,0 SAY "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
   *          0123456789012345678901234567890123456789012345678901234567890123456789012345678
   *                    10        20        30        40        50        60        70

   @ 5,01 SAY "      IF YOU WORK IN THE EDITOR DOS-TEXTS OR ENTER TEXTS WITH A SCANNER,      " COLOR "g+/n"
   @ 6,01 SAY "         AND THEN PROCESS THEM IN WINWORD, THIS PROGRAM - FOR YOU !!!         " COLOR "g+/n"
   @18,56 SAY "DW.EXE <FILE_NAME>"            COLOR "rg+/n"
   @20,01 SAY "   ATTENTION! A name of a source file should not have extension: ~.OUT~,      " COLOR "r+/n"
   @21,01 SAY "   as this expansion is reserved for target file !!!                          " COLOR "r+/n"
   @22,58 SAY "We wish success!"              COLOR "g+/n"

   INKEY(0)

   RESTSCREEN(0,0,24,79,scr_start)
   SHOWTIME()
   QUIT

ENDIF

*****************************************************************************

File_name = ALLTRIM(LOWER(File_name))

Pos_p = AT(".",File_name)
Fn_out = SUBSTR(File_name,1,IF(Pos_p>0,Pos_p-1,LEN(File_name)))+".out"
IF FILE(Fn_out) .AND. File_name <> Fn_out
   ERASE(Fn_out)
ENDIF

File_size = FILESIZE(File_name)

Delta = MIN(File_size,MEMORY(1) * 1024 / 8)

Lc_buf = SPACE(Delta)

CSETSAFETY(.F.)

********** Массив начальных символов списков строк

List := {}
AADD(List,"-" )
AADD(List,"*" )
AADD(List,"1" )
AADD(List,"2" )
AADD(List,"3" )
AADD(List,"4" )
AADD(List,"5" )
AADD(List,"6" )
AADD(List,"7" )
AADD(List,"8" )
AADD(List,"9" )
AADD(List,"а)")
AADD(List,"б)")
AADD(List,"в)")
AADD(List,"г)")
AADD(List,"д)")
AADD(List,"е)")
AADD(List,"ж)")
AADD(List,"з)")
AADD(List,"и)")
AADD(List,"a)")
AADD(List,"b)")
AADD(List,"c)")
AADD(List,"d)")
AADD(List,"e)")
AADD(List,"f)")
AADD(List,"g)")

Nm = CHR(13)+CHR(10)          && Конец строки (абзаца) (CrLf)

@10,30 SAY "W a i t i n g  !" COLOR "rb+*/n"

@24,0 SAY REPLICATE("█",80) COLOR "rb/n"

x = 0
y = 0

DO WHILE x < File_size .AND. LASTKEY() <> 27

   ****** Загрузка фрагмента файла
   Lc_buf = ALLTRIM(FILESTR(File_name,Delta,x))


   ****** Кодирование "красных строк" (4 или более пробелов - кр.стр.)
   Lc_buf=STRTRAN(Lc_buf,Nm+CHR(09),CHR(01))      && TAB
   Lc_buf=STRTRAN(Lc_buf,Nm+Nm,CHR(01))           && Пустая строка
   Lc_buf=STRTRAN(Lc_buf,Nm+SPACE(4),CHR(01))     && 4 или более пробелов

   ** Исключение Esc-последовательностей управления шрифтами
   IF AT(CHR(27),Lc_buf) > 0
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"@" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"M" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"P" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"S0","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"T" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"I1","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"I2","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"I3","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"E" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"F" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"G" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"H" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"W1","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"W0","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"w1","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"w0","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"-1","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"-0","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"0" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"2" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"3/","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"37","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"3","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"h","")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"4" ,"")
      Lc_buf=STRTRAN(Lc_buf,CHR(27)+"5" ,"")
   ENDIF
   Lc_buf=STRTRAN(Lc_buf,"4","")
   Lc_buf=STRTRAN(Lc_buf,"5","")

   ** Исключение последовательностей управления шрифтами редактора LEXICON
   IF AT(CHR(255),Lc_buf) > 0
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"_","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"0","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"1","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"2","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"3","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"4","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"5","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"6","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"7","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"8","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)+"9","")
      Lc_buf=STRTRAN(Lc_buf,CHR(255)    ,"")
   ENDIF

   ******** Вставка пробелов после знаков
   Lc_buf = ALLTRIM(STRTRAN(Lc_buf,":",": "))
   Lc_buf = ALLTRIM(STRTRAN(Lc_buf,";","; "))
   Lc_buf = ALLTRIM(STRTRAN(Lc_buf,"?","? "))
   Lc_buf = ALLTRIM(STRTRAN(Lc_buf,"!","! "))
   *** Если после точки или запятой заглавная латинская буква
   FOR j=65 TO 90
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,"."+CHR(j),". "+CHR(j)))
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,","+CHR(j),", "+CHR(j)))
   NEXT
   *** Если после точки или запятой маленькая латинская буква
   FOR j=97 TO 122
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,"."+CHR(j),". "+CHR(j)))
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,","+CHR(j),", "+CHR(j)))
   NEXT
   *** Если после точки или запятой заглавная русская буква
   FOR j=128 TO 159
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,"."+CHR(j),". "+CHR(j)))
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,","+CHR(j),", "+CHR(j)))
   NEXT
   *** Если после точки или запятой маленькая русская буква
   FOR j=160 TO 175
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,"."+CHR(j),". "+CHR(j)))
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,","+CHR(j),", "+CHR(j)))
   NEXT
   FOR j=224 TO 239
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,"."+CHR(j),". "+CHR(j)))
       Lc_buf = ALLTRIM(STRTRAN(Lc_buf,","+CHR(j),", "+CHR(j)))
   NEXT

   ****** Удаление подряд идущих пробелов
   FOR j=10 TO 2 STEP -1
       Lc_buf=STRTRAN(Lc_buf,SPACE(j)," ")
   NEXT

   ****** Удаление пробелов в начале списков строк и абзацев,
   ****** а также после строк с DOS-переносами слов
   FOR i=1 TO 3
       FOR j=1 TO LEN(List)
           Lc_buf=STRTRAN(Lc_buf,Nm+SPACE(i)+List[j],Nm+List[j])
       NEXT
       Lc_buf=STRTRAN(Lc_buf,CHR(01)+SPACE(i),CHR(01))
       Lc_buf=STRTRAN(Lc_buf,"-"+Nm+SPACE(i),"-"+Nm)
   NEXT

   *** Исключение ВСЕХ управляющих символов с кодами от 0 до 31,
   *** кроме конца абзаца (1310) и кода абзаца 01
   FOR j=0 TO 31
       IF j <> 13 .AND. j <> 10 .AND. j <> 01
          Lc_buf=STRTRAN(Lc_buf,CHR(j),"")
       ENDIF
   NEXT

   ****** Кодирование списков строк через дефис "-"
   Lc_buf=STRTRAN(Lc_buf,Nm+"-" ,CHR(02))

   ****** Кодирование списков строк через дефис "*"
   Lc_buf=STRTRAN(Lc_buf,Nm+"*" ,CHR(03))

   ****** Кодирование списков пронумерованных строк
   Lc_buf=STRTRAN(Lc_buf,Nm+"1" ,CHR(04))
   Lc_buf=STRTRAN(Lc_buf,Nm+"2" ,CHR(05))
   Lc_buf=STRTRAN(Lc_buf,Nm+"3" ,CHR(06))
   Lc_buf=STRTRAN(Lc_buf,Nm+"4" ,CHR(07))
   Lc_buf=STRTRAN(Lc_buf,Nm+"5" ,CHR(08))
   Lc_buf=STRTRAN(Lc_buf,Nm+"6" ,CHR(09))
   Lc_buf=STRTRAN(Lc_buf,Nm+"7" ,CHR(11))
   Lc_buf=STRTRAN(Lc_buf,Nm+"8" ,CHR(12))
   Lc_buf=STRTRAN(Lc_buf,Nm+"9" ,CHR(14))

   ****** Кодирование списков строк, пронумерованных через русские буквы
   Lc_buf=STRTRAN(Lc_buf,Nm+"а)",CHR(15))      &&  1
   Lc_buf=STRTRAN(Lc_buf,Nm+"б)",CHR(16))      &&  2
   Lc_buf=STRTRAN(Lc_buf,Nm+"в)",CHR(17))      &&  3
   Lc_buf=STRTRAN(Lc_buf,Nm+"г)",CHR(18))      &&  4
   Lc_buf=STRTRAN(Lc_buf,Nm+"д)",CHR(19))      &&  5
   Lc_buf=STRTRAN(Lc_buf,Nm+"е)",CHR(20))      &&  6
   Lc_buf=STRTRAN(Lc_buf,Nm+"ж)",CHR(21))      &&  7
   Lc_buf=STRTRAN(Lc_buf,Nm+"з)",CHR(22))      &&  8
   Lc_buf=STRTRAN(Lc_buf,Nm+"и)",CHR(23))      &&  9

   ****** Кодирование списков строк, пронумерованных через латинские буквы
   Lc_buf=STRTRAN(Lc_buf,Nm+"a)",CHR(24))      &&  1
   Lc_buf=STRTRAN(Lc_buf,Nm+"b)",CHR(25))      &&  2
   Lc_buf=STRTRAN(Lc_buf,Nm+"c)",CHR(26))      &&  3
   Lc_buf=STRTRAN(Lc_buf,Nm+"d)",CHR(28))      &&  4
   Lc_buf=STRTRAN(Lc_buf,Nm+"e)",CHR(29))      &&  5
   Lc_buf=STRTRAN(Lc_buf,Nm+"f)",CHR(30))      &&  6
   Lc_buf=STRTRAN(Lc_buf,Nm+"g)",CHR(31))      &&  7

   ****** Удаление DOS-переносов
   Lc_buf=STRTRAN(Lc_buf,"-"+Nm,"")

   ****** Удаление ВСЕХ концов строк
   Lc_buf=STRTRAN(Lc_buf,Nm," ")

   ****** Восстановление "красных строк" (концов абзацев)
   Lc_buf=STRTRAN(Lc_buf,CHR(01),Nm)

   ****** Восстановление списков строк через дефис "-"
   Lc_buf=STRTRAN(Lc_buf,CHR(02),Nm+"-")

   ****** Восстановление списков строк через дефис "*"
   Lc_buf=STRTRAN(Lc_buf,CHR(03),Nm+"*")

   ****** Восстановление списков пронумерованных строк
   Lc_buf=STRTRAN(Lc_buf,CHR(04),Nm+"1")       &&  1
   Lc_buf=STRTRAN(Lc_buf,CHR(05),Nm+"2")       &&  2
   Lc_buf=STRTRAN(Lc_buf,CHR(06),Nm+"3")       &&  3
   Lc_buf=STRTRAN(Lc_buf,CHR(07),Nm+"4")       &&  4
   Lc_buf=STRTRAN(Lc_buf,CHR(08),Nm+"5")       &&  5
   Lc_buf=STRTRAN(Lc_buf,CHR(09),Nm+"6")       &&  6
   Lc_buf=STRTRAN(Lc_buf,CHR(11),Nm+"7")       &&  7
   Lc_buf=STRTRAN(Lc_buf,CHR(12),Nm+"8")       &&  8
   Lc_buf=STRTRAN(Lc_buf,CHR(14),Nm+"9")       &&  9

   ****** Восстановление списков строк, пронумерованных через русские буквы
   Lc_buf=STRTRAN(Lc_buf,CHR(15),Nm+"а)")      &&  1
   Lc_buf=STRTRAN(Lc_buf,CHR(16),Nm+"б)")      &&  2
   Lc_buf=STRTRAN(Lc_buf,CHR(17),Nm+"в)")      &&  3
   Lc_buf=STRTRAN(Lc_buf,CHR(18),Nm+"г)")      &&  4
   Lc_buf=STRTRAN(Lc_buf,CHR(19),Nm+"д)")      &&  5
   Lc_buf=STRTRAN(Lc_buf,CHR(20),Nm+"е)")      &&  6
   Lc_buf=STRTRAN(Lc_buf,CHR(21),Nm+"ж)")      &&  7
   Lc_buf=STRTRAN(Lc_buf,CHR(22),Nm+"з)")      &&  8
   Lc_buf=STRTRAN(Lc_buf,CHR(23),Nm+"и)")      &&  9

   ****** Восстановление списков строк, пронумерованных через латинские буквы
   Lc_buf=STRTRAN(Lc_buf,CHR(24),Nm+"a)")      &&  1
   Lc_buf=STRTRAN(Lc_buf,CHR(25),Nm+"b)")      &&  2
   Lc_buf=STRTRAN(Lc_buf,CHR(26),Nm+"c)")      &&  3
   Lc_buf=STRTRAN(Lc_buf,CHR(28),Nm+"d)")      &&  4
   Lc_buf=STRTRAN(Lc_buf,CHR(29),Nm+"e)")      &&  5
   Lc_buf=STRTRAN(Lc_buf,CHR(30),Nm+"f)")      &&  6
   Lc_buf=STRTRAN(Lc_buf,CHR(31),Nm+"g)")      &&  7

   *** Исключение ВСЕХ управляющих символов с кодами от 0 до 31,
   *** кроме конца абзаца (1310)
   FOR j=0 TO 31
       IF j <> 13 .AND. j <> 10
          Lc_buf=STRTRAN(Lc_buf,CHR(j),"")
       ENDIF
   NEXT

   ***** Запись фрагмента файла
   Len_x = STRFILE(Lc_buf,Fn_out,.T.,y,.F.)

   x = x + Delta
   y = y + Len_x

   p=x/File_size*100;p=IF(p<=100,p,100)
   @24,0 SAY STR(p,3)+"%" COLOR "rg+/r+"
   @24,4 SAY REPLICATE("█",p*0.76) COLOR "rb+/n"

ENDDO

RESTSCREEN(0,0,24,79,scr_start)
SHOWTIME()
QUIT

*                                 ▄▄▄▄▄▄▄▄▄▄▄
*██████████████████████████████████ The end ██████████████████████████████████
*                                 ▀▀▀▀▀▀▀▀▀▀▀
[/size]

Re: What is the maximum size of file uploads FILESTR?

Posted: Sat Dec 31, 2016 8:29 am
by Victorio
I have alorithm as here. First I count number of blocks. Then read parts of this and processing.
Because I read text file, where is EOL character on every row, I tryed also count where is his position to prevent break chr13+chr10.

* set block size in bytes

LOCAL bloksize:=100000000 // nastavenie veľkosti bloku, final 100.000.000 Bytov
*LOCAL bloksize:=1000000 // test blok 1MB
*LOCAL bloksize:=25000
*LOCAL bloksize:=10000 // test blok 10kB
*LOCAL bloksize:=5000 // nastavenie veľkosti bloku, pre testovanie iba 5000 znakov
*LOCAL bloksize:=10

LOCAL velkostbloku:=0,poziciadelenia:=0,lastpozicia:=0
LOCAL poziciafileout:=0,poziciafile:=0
LOCAL nacitanychznakov:=0
LOCAL datpvz:=date(),vrozsahu:=.F.

* size of file
**************************
velkostsuboru3:=filesize(cSourceFile3)
velkostsuboru3p:=velkostsuboru3 // iba pre zapamätanie celej velkosti suboru, lebo neskor sa premenna
// velkostsuboru prepisuje podla velkosti bloku
* count number of blocks
***********************************************************
pocetblokov:=int(velkostsuboru3/bloksize)+1
pb:=pocetblokov

* NAČÍTANIE OBSAHU SÚBORU DO REŤAZCA - nová verzia z postupným načítaním blokov zo vstup.súboru
***********************************************************************************************
* cycle for processing blocks
*****************************************
FOR aktblok=1 to pocetblokov
*****************************************

* only one block
*****************
if pocetblokov==1

velkostbloku:=velkostsuboru3 // určenie veľkosti bloku
cSourcestring3:=Space(velkostsuboru3) // vytvorenie space pre fread
nSourcestring3 := FRead( nSource3, @cSourcestring3, velkostbloku) // načítanie bloku predbežne iba pre zistenie EOL
velkostsuboru3:=velkostsuboru3 // velkost pre spracovanie kódovania

* processing last block
*******************************
elseif pocetblokov!=1 .and. aktblok==pocetblokov
velkostbloku:=velkostsuboru3p-nacitanychznakov // určenie veľkosti bloku, zostatok do konca súboru
cSourcestring3:=Space(velkostbloku) // vytvorenie space pre fread
nSourcestring3 := FRead( nSource3, @cSourcestring3, velkostbloku) // načítanie bloku predbežne iba pre zistenie EOL
velkostsuboru3:=nSourcestring3 // velkost pre spracovanie kódovania

* processing blocks
********************************
elseif pocetblokov!=1 .and. aktblok!=pocetblokov

velkostbloku:=bloksize // určenie veľkosti bloku, zostatok do konca súboru
* zistenie pozicie EOL
lastpozicia:=FSeek(nSource3,0,FS_RELATIVE)
cSourcestring3 := Space( velkostbloku ) // vytvorenie space pre načítanie zo súboru
nSourcestring3 := FRead( nSource3, @cSourcestring3, velkostbloku ) // načítanie bloku predbežne iba pre zistenie EOL
poziciadelenia:=at((chr(13)+chr(10)),cSourcestring3,velkostbloku-85)

* tu úprava aby aj pozicia delenia sa menila
do while poziciadelenia==0
velkostbloku=velkostbloku-30
poziciadelenia:=at((chr(13)+chr(10)),cSourcestring3,velkostbloku)
enddo

velkostbloku:=poziciadelenia+1

poziciafile:=FSeek(nSource3,lastpozicia,FS_SET)
cSourcestring3 := Space( velkostbloku ) // vytvorenie space pre načítanie zo súboru

nSourcestring3 := FRead( nSource3, @cSourcestring3, velkostbloku ) // načítanie bloku predbežne iba pre zistenie EOL
*ladenie("FREAD final načital som text,počet znakov: ["+cSourcestring3+"],"+str(nSourcestring3))

*when in break file is EOL
/*
* ak by delil EOL chr(13)+chr(10)
cSourcestring3p:=space(1)
if right(cSourcestring3,1)==chr(13)
*ladenie("na konci je chr(13)")
FRead( nSource3, @cSourcestring3p, 1 )
cSourcestring3+=cSourcestring3p
nSourcestring3++
endif
*/
velkostsuboru3:=nSourcestring3 // priradenie pre nasledujúci cyklus
nacitanychznakov+=nSourcestring3
endif


************************************
* here processing block number x
************************************


********
NEXT // koniec cyklu blokov
********

* zatvorenie vstupného a výstupného súboru
FClose( nSource3 )
FClose( nTarget3 )
All times are UTC-07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited