home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / MISC / FNDPVE.PRG < prev    next >
Text File  |  1992-11-25  |  685b  |  32 lines
  1. /*
  2.  *   File......: FndPVE.Prg
  3.  *   Author....: Sheldon Easterbrook
  4.  *   CIS ID....: 71421,254
  5.  *   Date......: $Date$
  6.  *   Revision..: $Revision$
  7.  *   Log File..: $LogFile$
  8.  *
  9.  *   This is an original work by Sheldon Easterbrook and is placed in the
  10.  *   Public Domain
  11.  *
  12.  *   Modification History:
  13.  *   ---------------------
  14.  *
  15.  *   $Log$
  16.  *
  17.  */
  18.  
  19. function _fndPVarE( cPathVar,nSrchOrdr )
  20.     Local nI := 1
  21.     Local cRetPath := ""
  22.  
  23.     If ( Empty( cPathVar ))
  24.         Return( Nil )
  25.     EndIf
  26.     cRetPath = cPathVar
  27.     For nI = nSrchOrdr-1 to 1 Step -1
  28.         cRetPath = SubStr( cRetPath,( At( ";",cRetPath )+1 ))
  29.     Next nI
  30.     Return( cRetPath )
  31.  
  32.