
PRINT "***********************************************************************************"
PRINT "*                                                                                 *"
PRINT "*     Recherche d'une chane de caractre dans plusieurs fichiers en mode texte   *"
PRINT "*                                                                                 *"
PRINT "***********************************************************************************"
PRINT " "

LOOP
PRINT "Saisir le nom du rpertoire de la base dans lequel sont stocks les fichiers  parcourir."
INPUT W_NomRep
IF W_NomRep # "" THEN
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
	OPEN "", W_NomRep TO F.Rep ELSE W_NomRep = "FAUX"
END ELSE
	PRINT "Recherche abandonne."
	STOP
END
WHILE W_NomRep = "FAUX"
REPEAT 

PRINT "Saisir la chane de caractres  rechercher."
INPUT W_Chaine
IF W_Chaine = "" THEN
	PRINT "Recherche abandonne."
	STOP
END

EXECUTE 'SELECT ':W_NomRep:' # "_]"'

EXECUTE 'COMO ON RechercheText.txt'
PRINT "Liste des fichiers du rpertoire ":W_NomRep:" contenant la chaine : ":W_Chaine
PRINT " "
PRINT " "
W_Fin = "F"
W_NbFic = 0
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_Fic FROM F.Rep, W_Cle THEN
		
		W_Count = DCOUNT(ENR_Fic,CHAR(254))
		FOR i = 1 TO W_Count
			IF INDEX(ICONV(ENR_Fic<i>,"MCU"),ICONV(W_Chaine,"MCU"),1) # 0 THEN
                           PRINT W_Cle
				W_NbFic = W_NbFic + 1
				i = W_Count
			END
		NEXT i

	END
REPEAT
PRINT W_NbFic:" fichier(s) contenant la chane de caractre ":W_Chaine:" ont t trouvs."
EXECUTE 'COMO OFF'
PRINT "La liste des fichiers trouvs est disponible dans le rpertoire _ph_, fichier O_Recherche.txt" 
STOP


