recherche et remplacement sous dos dans un fichier

Question

Voila..

je ne sais pas par ou commencer,

je dois dans un fichier texte sous dos, chercher une chaine
de caractère et recuperer ce qui suit a celle ci, 

du style " CACAO 000022 000222 04444 "

je lance la recherche pour qu'il me trouve CACAO et ensuite
il sauvegarde 000022 000222 04444 dans un fichier.

que je réinjecte en faisant l'inverse dans un autre fichier texte.

mais mon gros souci c'est que tout ceci dois se faire sous dos 6.22
et que je ne vois pas du touut par ou commencer et ni comment
m'y prendre....

J'ecoute toute suggestions

Merci

cboulas · Answer

Tu programme en Basic ou QBasic ?
ou Batch ?

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

ben celui qui sera le plus adapté... 

mais si c'est faisable en batch et que cela fonctionne sur un dos 6.2 je suis aussi preneur, a vrai dire je ne sais pas du tout par quel bout commencer déjà ne serai ce que'avec le choix de la programmation sous dos

cboulas · Answer

Ok, hmm je te donne la réponse ce soir en rentrant à la zonzon, mais tu va utiliser les 2.
Tu va faire un batch pour lancer le programme QBasic, et ensuite en va pouvoir programmer dans QBasic. Enfin quand je dit que l'on va lancer QBasic, on va faire un Batch qui lancera QBasic et éxécutera le programme automatiquement.
J'ai mes cd de Dos à la maison donc ça devrais aller, n'hésite pas à me le rappeler par mail si tu n'a pas de réponse à 20h.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

ok 

merci  :)

cboulas · Answer

Sinon si on y arrive pas en QB, je peux t'aider à le faire en Turbo C, mais on vérra déjà en QB, car j'ai pas trop non plus envie de ressortir mes cours de TC.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

déjà que je suis paumé pour l'instant, le C ? bah .....

là je debauche et je rentre chez moi pour l'instant, @ + tard

cboulas · Answer

Je suis en pleine recherche

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

et moi je cherche de la doc sur qb...

cboulas · Answer

regarde à www.qbasic.com
c'est en anglais mais bien

http://www.cybwarrior.com/articles/?id=6

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

Juste une question temps que j'y suis :

" CACAO 000022 000222 04444 ", c'est pas toujours Cacao que tu cherche ?
Et le nom du fichier n'est pas toujours le même ?

Sinon j'ai trouver, ça fonctionne, j'ai vu qu'il existe des compilateur pour qbasic.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

oui ca peut aussi etre autre chose que CACAO

mais dans ce cas la longueur de la chaine de caractère a récupérér peut ne pas être de la même longueur

quand au nom du fichier dans lequel je prend et je remet l'info dans mon cas c'est le même mais pas au même endroit ni au meme moment d'ou le besoin de stocker l'info dans un fichier et de la réintroduire dans le nouveau fichier plus tard.

je visite ton lien

cboulas · Answer

Voici ce que j'avais :


DIM Filename AS STRING
DIM p1 AS INTEGER
DIM Valueoffile
DIM resteoffile

command
Filename = "c:	oto.txt"

OPEN Filename FOR INPUT AS #1
        INPUT #1, Valueoffile$
CLOSE #1
p1 = INSTR(Valueoffile$, "CACAO")
resteoffile$ = MID$(Valueoffile$, p1 + LEN("CACAO"))

OPEN "c:\Toto2.txt" FOR OUTPUT AS #1
        PRINT #1, resteoffile$
CLOSE #1


Par contre je sais que en VB on utilise Command pour récupérer les arguments. Car je voulais faire un fichier type, et à chaque chargement tu aurais mis par exemple :

Prog.exe Toto.txt Toto2.txt CACAO

Prog.exe étant le QBasic compiler, Toto.txt le fichier où l'on va rechercher l'info, Toto2.txt l'infos de sortie "000022...", et CACAO l'info à chercher.

Mais j'arrive pas à trouver comment faire, je sais que en Batch on utilise %1, %2, %3, .....

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

Eratum, y'a pas la ligne "Command", à supprimer.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

mmmh moi faudrai que je commence par le debut, pour utiliser ceci il me faut un compilateur,

sur http://quickbasic.free.fr/index.php j'ai trouvé 

quickbasic 4.5fr c'est bon ?

cboulas · Answer

Normalement QBasic est fournis avec Dos 6-22, sinon je peux t'envoyé la version que j'ai, au cas où celle que tu as trouver ne marcherais pas.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

version 1.1 sous dos 6.22 tu utilise quel version ?

cboulas · Answer

1.1 aussi

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

bon j'ai fialement la version 4.5 fr, mais heu pourrais tu me commenter un peu ton code ?

cboulas · Answer

Allright no problem, I comment :


DIM Filename AS STRING   'Je déclare une variable de type String (Texte)
DIM p1 AS INTEGER  'Je déclare une variable de type nombre Integer (Entier)
DIM Valueoffile  'Je déclare une variable sans préciser se quelle sera
DIM resteoffile  'Et une seconde


Les 2 dernières variables n'ont pas été précisées car je ne suis pas sûr du type d'infos que j'y stockerais, donc QB complètera ça tout seul comme un grand.


Filename = "c:	oto.txt"    'Je met le chemin du fichier d'origine dans la variable FileName



OPEN Filename FOR INPUT AS #1   'J'ouvre le fichier FileName en mode lecture et le numérote à "#1"
INPUT #1, Valueoffile$   'Je met les information du fichier N° #1 dans la variable ValueOfFile, le $ c'est car la longueur du texte est variable.
CLOSE #1   'Je referme le fichier



p1 = INSTR(Valueoffile$, "CACAO")  'Je recherche dans ValueOfFile le mot "CACAO", la position de CACAO sera mise dans p1.
resteoffile$ = MID$(Valueoffile$, p1 + LEN("CACAO"))   'Je récupère ce qui suit "CACAO" dans la variable ResteOfFile.


MID$( Texte, PositionDudébut de la sélection, Longueur), dans le code je n'ai pas préciser la longueur de la sélection car je ne la connais pas, enfin je n'ai pas envie de la calculé, je laisse cela à QB. p1 retourne la position du C de CACAO donc il faut ajouter la longueur de CACAO pour se positionner derrière.


OPEN "c:\Toto2.txt" FOR OUTPUT AS #1


'Ouverture d'un fichier toto2.txt pour y écrire des infos, on le nommera aussi #1, car lorsque l'on a fermé le précédent #1, QB à libérer le numéro #1.


PRINT #1, resteoffile$  'On écrit dans le fichier N° #1, le contenu de la variable ResteOfFile
CLOSE #1   'On ferme le fichier


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

yo ca c'est du commantaire  :)

cboulas · Answer

Merci, merci, comme je ne savais pas ton niveau j'ai tout détaillé au cas où

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

J'ai une autre version pour toi, elle est beaucoup mieux :


DIM Filename AS STRING  'Déclaration
DIM OutFile AS STRING
DIM Infos AS STRING
DIM p1 AS INTEGER
DIM Valueoffile
DIM resteoffile   'Fin des déclaration

CLS   'Effacement de l'écran
PRINT "Entrez le nom du fichier dans lequel faire la recherche"  'Affichage du texte de la question
INPUT Filename  'Demande à l'utilisateur une information qui sera stockée dans FileName
PRINT ""  'Ligne Vide
PRINT "Entrez le nom du fichier de sortie"  'La Question suivante
INPUT OutFile   'Stockage de la réponse dans OutFile
PRINT ""  'Ligne Vide
PRINT "Entrez l'information à rechercher"   'Encore une question
INPUT Infos  'Encore un stockage

OPEN Filename FOR INPUT AS #1  'Ouverture du Fichier FileName pour faire la recherche
        INPUT #1, Valueoffile$
CLOSE #1
p1 = INSTR(Valueoffile$, Infos)  'Recherche de Infos dans ValueOfFile
resteoffile$ = MID$(Valueoffile$, p1 + LEN(Infos))  'Sélection de tout après Infos

OPEN OutFile FOR OUTPUT AS #1   'Ouverture du fichier OutFile pour y écrire les infos
        PRINT #1, resteoffile$
CLOSE #1

END   'Fin du programme


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

ouaip tout ce qu'il me faut

cboulas · Answer

Si cela marche Valide la réponse. sinon apparement on peux pas utiliser les argument de la ligne de commande, c'est C..

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

tiens tu l'as posté pendant que je te répondais, bon j'etudie la chose

cboulas · Answer

ensuite il te suffit de la compiler en EXE et c'est règler.
Si tu n'arrive pas à le compiler en EXE, tu peux essayé de faire :

qbasic /run toto.bas

Il doit y avoir une autre ligne de commande pour quitter automatiquement QB mais avec un EXE le pb ne se pose même pas.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

j'ai fait un test avec un fichier fictif que j'ai nommé essai.txt
et dedans 

passesattention attention            5510        319    2705    89801
c_cacao001487 2356987 000065

et je cherche  a obtenir les chiffres après c_cacao

mais là il m'a donné dans le fichier une partie de la première ligne
.. en résultat ?

cboulas · Answer

Sorry, je suis un peu rouillé :

remplace : INPUT #1, Valueoffile$
par : ValueOfFile$ = INPUT$(LOF(1), #1)

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

ValueOfFile$ = INPUT$(LOF(1), #1)

Je demande à mettre le contenu du fichier dans la variable ValueOfFile, pour ce faire QB/VB demande la longueur, donc je lui dit de faire une variable aussi grande que le fichier 1 : LOF(1)  qui veux dire : Lenght Of File.,

Input$( Longueur, N° du fichier)

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

ah c'est peut être pour ca que j'ai eu un message d'erreur " out of capacity" quand j'ai voulu tester avec un fichier plus conséquent.. sinon ca marche nickel sur un petit fichier

cboulas · Answer

Ah oui j'ai pas mis de gestion d'erreur, mais je crois que cela ce fait avec un On Error ....

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

là j'ai compilé et retesté, maintenant j'ai appel de fonction interdit dans module  à l'adresse 0f7e:010c

cboulas · Answer

??? heu là je ne sais pas.

Met ceci dedant :


p1 = INSTR(Valueoffile$, Infos)  'Recherche l'infos

if p1=0 then end   'Si l'infos n'a pas été trouver Instr retourne 0 donc on test si p1=0 et si c'est le cas on sort du programme.


Cela viens ptetre de là.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

nan nan ce n'est pas ca, la j'ai depassement de capacité 
 je pense que c'est parce que le programme doit prendre tout ce qui est apprès le mot recherché et comme l'info est dans le milieu d'un fichier de 65K ca doit faire beaucoup, je t'envoi sur ton mail un fichier concret si tu veux...

cboulas · Answer

Oui vas y je vais voir cela.
peut-être pas ce soir, mais demain à la première heure oui.
enfin un petitpeu quand même ce soir, juste pour voir.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

c'est parti

cboulas · Answer

Cherche plus, regarde ce que j'ai trouver dans QB :


                             Maximum Minimum
                             ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ   ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
 Longueur nom de variable    40 caract?res             1 caract?re
 Longueur cha?ne de car.     32 767 caract?res         0 caract?res
 Entiers                     32 767                   -32 768
 Entiers longs               2 147 483 647            -2 147 483 648
 Nombres simple pr?cision :
   Positifs                  3,402823E+38              2,802597E-45
   Negatifs                 -2,802597E-45             -3,402823E+38
 Nombres double pr?cision :
   Positifs                  1,79769313486231D+308     4,940656458412465D-324
   Negatifs                 -4,940656458412465D-324   -1,79769313486231D+308


Une string ne peux pas faire plus de 32Ko, il faut que je réfléchissent comment faire un truc pour contourner ça, a mon avis un tableau devrais faire l'affaire. un tableau avec des plage de 32k.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

ah ben là je suis dépassé........faire un tableau ??

je crois que tu devrais allé faire un gros dodo, te fatigue pas inutilement, c'est déjà pas mal ce que tu as fait, je commence un pue a pigé en tout cas grace a toi

x505 · Answer

mais un truc me chiffone, le problème vien d'ou , du fait que le fichier soit trop gros ou que l'on essaye de recuperer une info trop grosse, sachant que c'est l'info qui est juste après le mot clé qui m'intéresse et non tout le reste du fichier

cboulas · Answer

Ouais c'est tout à fait ça.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

j'ai pas tout capter mais apparement avec la fonction GET on peut faire un accès aléatoire au fichier, donc je suppose que cela evite de charger l'intégralité du fichier...

ai je raison ?

je capte pas trop les exemples donné par contre :(

cboulas · Answer

Ok, je vais t'expliquer quand même 2, 3 trucs :

tu peux ouvrir un fichier de différente façon, normale (comme on a fait) ou en mode Binaire (Binary)

Chacun de ces modes à ces méthodes :

en Normal : Print, Write, Input
en Binaire : Put, Get

Print & Write servent à écrire dans le fichier, alors que Input sert à récupérer les données du fichier.

Put, Ecrit des données
Get, Récupère les données.

Ensuite il y a les mode d'ouvertures : Read, Write, Input, Output, Random.

Read, Write : sont pour le mode binaire et dise que l'on ouvre en mode Lecture (Read) ou Ecriture (Write).

Input, Output : sont pour le mode normale et dise que l'on ouvre en lecture (vers l'intérieur du programme : Input), ou en écriture (vers l'extérieur du programme : Output). Ce qui est entre parentèse c'est un moyen un peu mémotechnique pour retenir vers où vont les infos, vers le programme Input, ou or du programme : Output.

Random c'est pour dire soit en écriture ou en Lecture. C'est ce truc que l'on appel en mode aléatoire.

Exemple en mode normal :

open "toto.txt" for input as #1

Exemple en mode binaire :

open "toto.txt" for read access binary as #1

Perso il ne met arrivé qu'une fois d'utilisé le mode binaire, mais c'était pour avoir un fichier Temp dans une appli, ce fichier temp contenais un fichier extrait d'une ressource de mon EXE et ensuite je le vidais pour que l'utilisateur n'y ai pas accès et donc ne vois pas les données. mais ça c'est encore autre chose.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

Sinon, j'ai ré-installé Turbo-C pour voir combien il pouvais prendre en mémoire : j'arrive à ouvrir le fichier et récupérer les infos, mais j'arrive pas à rechercher les infos. Pfff !! je crois que je vais resté sur QB.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

Mouais...

donc si j'ai pigé

a moins de savoir faire comment lire le fichier sans le charger en memoire..

il faudrai presque s'amuser a scinder le fichier en plusieurs morceaux, mais là on n'est pas certain qu'il ne coupera pas l'info en deux par hasard..

cboulas · Answer

Tu as tout compris, alors c'est pour cela que je cherche (un peu de temps en temps) à faire un système qui quand il arrive à 32Ko, il cherche la fin de la ligne mais que si la fin de la ligne est > à 32....Ko (Val max du String), alors il doit s'arrêté à la ligne précédente. Ensuite cette partie sélectionnée est mise dans une variable Tableau et on passe à la suite, ensuite dans la recherche, on va rechercher dans tout les tableaux pour voir si elle y ai, si elle y ai alors on prend tout se qu'il y a après l'infos recherchée + les tableaux suivants. Un sécré bordel, le + chiant ces de découper le fichier sans avoir de OverFlow (Out of memory).

Un variable tableau c'est par exemple :

toto(12) : Toto s'appelle toujours toto mais il contient des tableaux allant de toto(0) à toto(12) soit 13 tableaux qui peuvent contenir chacun 32Ko (dans notre cas), tu va me dire pourquoi ne pas faire une variable à chaque fois ? La réponse est simple : lors de la recherche il faut que l'on énumère un nombre x de variable avec chacune un nom différent la seule possibilité c'est un tableau car dans un tableau on peux faire varier la valeur de l'index sans changer le nom de la variable et aussi en pouvant créer x tableau.

Variable(index)   =>  toto(index)

L'index c'est le numéro du tableau qui dans l'exemple un peu plus haut va de 0 à 12. mais comme la taille du fichier dbf peux varier, l'index peux et doit aussi varier et donc il est possible que l'index aille peut-être jusqu'à 30, 60, 250, etc...

Mais pour un fichier de 64Ko, il n'y aura que 2 tableaux : 0 et 1.
QB, doit pouvoir je pense redimmentionné ce tableau (augmenté l'index) avec ReDim, mais c'est à vérifier. au pire on créra un tableau toto(99) soit 100 tableaux et donc 100 x 32Ko = 3,2Mo.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

ok

 c'est donc a cela que tu pensais quand tu parlais de faire un tableau

il y cependant un truc qui m'échappe sur cette limitation, car quend tu edite le fichier, l'éditeur n'a aucun problème pour afficher l'intégralité et aussi d'y faire une recherche..

il utiliserai aussi la méthode d'un tableau, a moins que ce ne soit
a cause que la programmation se fasse avec qbasic ?

cboulas · Answer

Là par contre aucune idée, mais je pense que c'est QB qui est limité car en ces temps là MS n'était pas encore le chef de tribut car tout le monde n'avait pas un ordi, c'était encore très très rare ! Et donc je pense qu'il l'on limité pour ne pas être concurencé.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

Gobillot · Answer

Je m'excuses de mimiscer dans votre conversation.
Si ton fichier est un fichier texte, c'est à dire fait Ligne par Ligne avec chacune terminée par chr$(13)+chr$(10), pourquoi pas les traiter une par une avec Line Input et faire la recherche Ligne par Ligne.
Sinon en effet t'es obligé de faire un système de Buffer, traité une partie, garder la partie non traitée et relire une autre partie qu'il faut concaténer à la première et là c'est la galère.
Pour info je pense que les basic d'antan ne peuvent pas traiter plus de 64k et un tableau ne pourra jamais dépassé 64k.

cboulas · Answer

Merci Gobillot, c'est une très bonne idée, qui simplifie le pb !

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

Mais dans le fichier, y'a pas de ligne terminée par chr$(13), tout est concaténé, c'est la galère !

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

toutes les idées sont les bienvenues et moi cela m'apprend ;)

cboulas · Answer

Dis moi x505, il ne t'ai pas faisable d'avoir le même fichier mais ligne à ligne car là tout est concaténé.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

c'est peut etre un autre caractère que chr$(13)

car quand je l'ouvre avec l'editeur de laplink tout s'aligne

je t'envoie par mail, l'editeur pour voir

cboulas · Answer

Ok, veux bien.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

c'est parti, j'ai mis laplink la total ;)

x505 · Answer

tu fonctionne sous quelq os ? tu as un pc qui tourne sous dos ?

cboulas · Answer

Heu, non mais je vais m'arranger j'ai un soft qui simule les system.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

pour l'editeur c'est le.exe

moi j'utilise virtual pc pour la simul

cboulas · Answer

me also

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

x505 · Answer

j'ai trouvé ce petit truc

http://www.fys.ruu.nl/~bergmann/printdbf.bas

ici

http://www.fys.ruu.nl/~bergmann/basic-faq.html#dbase

et quand je passe le fichier dedans il le detecte comme un fichier
dbase 3

tu en pense quoi ?

Recherche et remplacement sous dos dans un fichier

60 réponses

Discussions similaires