Entry

TSE: Block: Save: File: Size: How to get the filesize of a block saved on disk?

Nov 12th, 2006 08:00
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 12 November 2020 - 04:54 pm -------------------
TSE: Block: Save: File: Size: How to get the filesize of a block saved 
on disk?
---
Method: Copying the block to a temporary buffer, saving it to disk, 
and getting the filesize of that diskfile
--- cut here: begin --------------------------------------------------
FORWARD INTEGER PROC FNBlockGetFileSizeTotalBufferSimpleI()
FORWARD INTEGER PROC FNFileGetSizeDiskDosSimpleI( STRING s1 )
FORWARD INTEGER PROC FNFileGetSizeDiskSimpleI( STRING s1 )
FORWARD INTEGER PROC FNFileGetSizeDiskWindowsSimpleI( STRING s1 )
FORWARD PROC Main()
// --- MAIN --- //
PROC Main()
 Message( FNBlockGetFileSizeTotalBufferSimpleI() ) // gives e.g. 410 
bytes filesize totally in the currently marked block
END
// --- LIBRARY --- //
// library: block: get: character: total: simple 
(filenamemacro=getbltsi.s) [kn, ri, su, 12-11-2020 15:21:47]
INTEGER PROC FNBlockGetFileSizeTotalBufferSimpleI()
 INTEGER I = 0
 INTEGER bufferI = 0
 STRING fileNameS[255] = ""
 IF NOT IsBlockMarked()
  Warn( "Please mark a block" )
  RETURN( 0 )
 ENDIF
 PushPosition()
 PushBlock()
 Copy()
 bufferI = CreateTempBuffer()
 IF ( bufferI == 0 )
  Warn( "could not create a temporary buffer" )
  RETURN( 0 )
 ENDIF
 IF GotoBufferId( bufferI )
  Paste()
  fileNameS = MakeTempName( "." )
  SaveBlock( fileNameS )
  I = FNFileGetSizeDiskSimpleI( fileNameS )
  IF NOT EraseDiskFile( fileNameS )
   Warn( Format( "could not erase", fileNameS, " ", "on disk" ) )
  ENDIF
  AbandonFile( bufferI )
 ELSE
  Warn( "could not goto the temporary buffer" )
  RETURN( 0 )
 ENDIF
 //
 PopPosition()
 PopBlock()
 RETURN( I )
END
// library: file: size: disk: return the total amount of bytes the 
file takes on disk (filenamemacro=getfidsi.s) [kn, ri, tu, 02-01-2021 
03:32:03]
INTEGER PROC FNFileGetSizeDiskSimpleI( STRING filenameS )
 #IFDEF WIN32
  RETURN( FNFileGetSizeDiskWindowsSimpleI( filenameS ) )
 #ELSE
  RETURN( FNFileGetSizeDiskDosSimpleI( filenameS ) )
 #ENDIF
END
// library: file: get: size: disk: windows: return the total amount of 
bytes the file takes on disk / TSE for Windows only 
(filenamemacro=getfiwsi.s) [kn, ri, we, 29-08-2020 01:59:13]
INTEGER PROC FNFileGetSizeDiskWindowsSimpleI( STRING filenameS )
 #IFDEF WIN32
  INTEGER filesizeI = 0
  IF FindThisFile( filenameS, _HIDDEN_ | _SYSTEM_ | _READONLY_ )
   filesizeI = FFSize()
  ELSE
   Warn( Format( filenameS, "not found (thus filesize in bytes could 
not be determined)" ) )
   filesizeI = 0
  ENDIF
  RETURN( filesizeI )
 #ELSE
  // do nothing
 #ENDIF
END
// library: file: size: disk: return the total amount of bytes the 
file takes on disk / TSE for DOS only [kn, ri, tu, 02-01-2021 03:32:03]
INTEGER PROC FNFileGetSizeDiskDosSimpleI( STRING filenameS )
 #IFDEF WIN32
  // do nothing
 #ELSE
  STRING dtaS[80] = ""
  STRING s[50] = ""
  SetDTA( dtaS )
  IF NOT FindFirst( filenameS, _READONLY_ | _HIDDEN_ | _SYSTEM_ )
   Warn( Format( filenameS, " ", "not found" ) )
   RETURN( 0 )
  ENDIF
  s = DecodeDTA( dtaS )
  RETURN( Val( Trim( s[16:9] ) ) )
 #ENDIF
END
--- cut here: end ----------------------------------------------------
===
Internet: see also:
---
----------------------------------------------------------------------