[RESOLU] Rechercer & remplacer dans un fichier

Rechercer & remplacer dans un fichier [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 16-01-2006 à 15:47:16    

Bonjour à tous...
je vous décrit mon problème sue lequel je buche depuis quelques jours...  
 
J'ai un fichier .txt que je dois explorer afin de trouvé un mot (jai trouvé le fonction inStr)... mais après, il faut que j'aille récupérer le 2eme mot sur la meme ligne, séparé par un espace et c'est là que je ne sais pas comment faire.
 
J'ai par exemple a cherché le "pc203_02" afin de reprendre son adresse IP... mon fichier txt ressemble à ca :

Code :
  1. pc203_01 10.125.123.01;
  2. pc203_02 10.125.123.02;
  3. pc203_03 10.125.123.03;
  4. pc203_04 10.125.123.04;
  5. pc203_05 10.125.123.05;
  6. pc203_06 10.125.123.06;


 
Donc mon code chercherai la ligne correspondant avec InStr, mais comment récupérer l'IP "10.125.123.02" s'il s'agit du "p203_02"...?  
 
merci  d'avance :)
 
 :hello:


Message édité par Crawdge le 17-01-2006 à 09:09:26
Reply

Marsh Posté le 16-01-2006 à 15:47:16   

Reply

Marsh Posté le 16-01-2006 à 16:42:29    

à mon avis le plus simple c'est avec un genre de gauche(droite(*,*))?..

Reply

Marsh Posté le 16-01-2006 à 17:10:50    

Pourrai tu etre un peu plus expréssif s'il te plait? ;)

Reply

Marsh Posté le 16-01-2006 à 17:56:09    

tu sauves ta ligne ds un string et après avoir trouvé le 1er mot, tu trim() et ainsi de suite jusqu'à avoir eu tous tes mots non ?

Reply

Marsh Posté le 17-01-2006 à 09:08:48    

Bon j'ai réussi mon truc... merci a gilbert qui m'a mis sur la voie avec les gauche droite,...
 
donc au final ca donne ca :
 
 
txt = "pc203_01 10.125.123.01;"
 
MsgBox Left(Mid(txt, InStr(txt, " " )), Len(Mid(txt, InStr(txt, " " ))) - 1)
 
et ca m'affiche bien que l'IP sans le point virgule :)
 
(par conte a expliqué ca serai plus dur je sais plus trop pourquoi j'ai mis le left par exemple... c'est plus embétant ca :p
 
EDIT : si en fait jai compris c'est bon c'est sjute que c'est un ch'ti peu complexe lol


Message édité par Crawdge le 17-01-2006 à 09:29:40
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed