Entry

TSE: File: Remove: Ring: How to remove files in the ring? Searching

Nov 12th, 2006 11:53
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 12 November 2006 - 07:41 pm -------------------

TSE: File: Remove: Ring: How to remove files in the ring? Searching

---

Method: Use NextFile() to go trough each file, starting from the first,
        current file, and possibly removing the found files (e.g. by
        searching for (part of) the filename)

===

--- cut here: begin --------------------------------------------------

FORWARD PROC Main()
FORWARD PROC PROCFileRemoveFileSearchRingAllSimple( STRING s1, STRING 
s2 )


// --- MAIN --- //

PROC Main()
 PROCFileRemoveFileSearchRingAllSimple( "c:\temp\ddd.s", "i" )
END

<F12> Main()

// --- LIBRARY --- //

// library: file: remove: file: search: ring: all: simple 
(filenamemacro=remofias.s) [kn, ri, su, 12-11-2006 19:44:40]

PROC PROCFileRemoveFileSearchRingAllSimple( STRING searchS, STRING 
searchOptionS )

 INTEGER bufferCurrentI = GetBufferId( CurrFileName() )

 INTEGER bufferNextI = bufferCurrentI

 STRING s[255] = ""

 REPEAT

  s = CurrFileName()

  IF StrFind( searchS, s, searchOptions )

   AbandonFile( bufferCurrentI )

   // if you deleted the current file, that bufferid has gone, so you 
make it equal to the bufferid of what is then the current file now

   bufferCurrentI = GetBufferId( CurrFileName() )

  ENDIF
  NextFile()
  bufferNextI = GetBufferId( CurrFileName() )

  // thus after going through all different bufferids, until you are 
back at the original file, thus bufferid the same again

  UNTIL ( bufferCurrentI == bufferNextI )
END


--- cut here: end ----------------------------------------------------

===

Internet: see also:

---



----------------------------------------------------------------------