Click above to get retro games delivered to your door ever month!

lfindfirst()                                                       READWKS.PRG
------------------------------------------------------------------------------------------
 Purpose
   To return the first cell in the spreadsheet

 Syntax
   Lfindfirst( aWks [,xColumn] )

 Parameters
   aWks      - Spreadsheet handle array
   xColumn   - Column letter to find first cell of
   nColumn   - Column number to find first cell of

 Returns
   aCell     - Array of cell information
               1)  Cell data
               2)  Cell type
               3)  Physical size in spreadsheet
               4)  Cell address
               5)  Row number
               6)  Column number
               7)  Physical offset in file

 Notes
   Lfindfirst() positions the spreadsheet to the first cell in the
   spreadsheet or in the specified column.  It also returns an array
   of cell information.  Subsequent calls to Lfindnext() will obtain
   the next cell.

 Example
function main
    LOCAL aWks   := Lread("PAYROLL")
    LOCAL aCell
    if !empty(aWks)
       aCell := LfindFirst(aWks)
       while !empty(aCell)
          ? aCell[1]
          aCell := LfindNext(aWks)
       enddo
       Lclose(aWks)
    endif
return ""

 Category
   Reading spreadsheet files