Subj : Another exercise ... ???
To   : Renato Zambon
From : Gerald Miller
Date : Sat Aug 17 2002 11:39 am

Hello Renato,

I'm wanting to build a "Better" WHEREIS.BTM than the one that I'm currently 
using (WHEREFI.BTM Written by Robert Chung, Department of Demography, 
University of California, Berkeley)....

I'm wanting to search the %path first before it resorts to exploring all the 
drives.

=== Cut Begin: 4BWHERE.BTM ===
@echo off
::_________________________________________________________________________
::  Written by Gerald Miller 1:342/512@fidonet
::  Modifications Saturday, August 17, 2002 09:29:03
::
::
::  Displays a popup list of the files that match a certain search
::  criterion, then cd's to that subdirectory.
::  Search area is the path first, then tree of all drives.
::
::  THIS BTM IS INTENDED TO OPERATE IN 25 LINE MODE WITH COLOR GRAPHICS! :: 
::_________________________________________________________________________
iff %fileage[%_batchname] ne %@makeage[08-17-02,09:29:03] then %+
    touch /q /d08-17-02 /t09:29:03 %_batchname
else
endiff
cls
on error (qedit /n%_batchline %@search[%0] %+ quit)
setlocal
*color Bri Cyan on %_Bg
iff "%1"=="" then
  (echo.
  echo    Purpose: To locate a specified file on the path, any drive,
  echo             in any directory.
  echo. %+ *color Bri Red on %_Bg
  echo      Syntax: %@upper[%0] file_search_specs
  *color Bri Cyan on %_Bg
  delay 5
  quit)
else
endiff

break on
on break quit
::      Establish SearchPath....
set sp=%path
........
=== Cut End:   4BWHERE.BTM ===

I'm seeking a method to extract the various path components.....

      PATH=D:\4DOS;C:\4D\4B;C:\4D\4X;C:\DOS;C:\DO;C:\DO\C;C:\DO\%=
X;C:\NU;C:\NC;C:\UTIL;C:\QE3;C:\U;C:\SHZ;C:\CLK;C:\NC3

           Cheers ... Gerald

--- GoldED+/386 v1.1.5-20808
 * Origin: Alimony is like buying oats for a dead horse. (1:342/512)

.