Erstellt : Donnerstag dem 22.10.98                         Erhalten am 26.10.98
von      : *Tony Pater{at}3:712/848* an *All*

Hallo Tony,

why don't you use a FFind to find out which file contains the information you  
need. Just write Filenames (of found files) to a file you use for input to  
your fileopen part?

TP>   Using 'FindFirst' can use wildcards & attributes - would
TP>   that be the way to tackle the search for a file to be
TP>   opened given that it is a randomnly generated filename ?
Otherwise you have to do a Findfirst/findnext to get a filename that can be  
processed by fileopen.

TP>     . check that a file(s) within a folder(s) contain
TP>       a string (ie. I wish to test for 'BFE' in the first
TP>       line of the file(s) ..... before using a 'goto' ?

ffind /bt"BFE" *.* >> $$dx
for %a in ({at}$$dx) do gosub dowhatever
del /q $$dx
quit 0

:dowhatever
set dx=%{at}fileopen[%a,read]
.....
%{at}fileclose[%dx]
return

TP>   An example of how you handle/check/test for a string in
TP>   an opened file would be much appreciated.
If I would do it with the commands findfirst/findnext, fileopen, fileread,  
stringcompare, fileclose it should look like the following:

set dx=%{at}findfirst[*.*,n]
iff .%dx != . then
   gosub checkfile
   do
     set dx=%{at}findnext[*.*,n]
     if .dx == . leave
     gosub checkfile
   enddo
endiff
set dx=%{at}findclose[*.*]

:checkfile
  set hnd=fileopen[%dx,r]
  iff "%hnd" != "-1" then
     set rline=%{at}fileread[%hnd]
     iff "%rline" != "**EOF**" then
       iff "%{at}index[%rline,"BFE"]" != "-1" then
          gosub dowhatever
       endiff
     set dx=%{at}fileclose[%hnd]
     endiff
  endiff
return

:dowhatever
....
return

but if you do not have a newer 4dos version with the ffind implemented I  
would use a:

dir /b >>$$dx
for %dx in ({at}$$dx) do gosub checkfile
del /q $$dx
quit 0

:checkfile
rem use the code as above under checkfile
return

Now it's your turn again.

- mfg *Claus* -


 ... Pedestrians don't realize they are a threat to the safety of cars.
--- CrossPoint v3.11 R