Mdofier un fichier txt selon un mot saisie

Bonjour !!

J'ai un soucis, je cherche à modifier un fichier texte en fonction de ce qui est rentré dans des zones de texte de vb.

Voici un exemple d'info dans le fichier :
Hurrcaine,192.168.100.105
Sadnotrue,192.168.100.100

voici mon code pour le moment :

dim resultat as integer

IP = IPfixe(0).Text & "." & IPfixe(1).Text & "." & IPfixe(2).Text & "." & IPfixe(3).Text
nom = nomfixe(0).Text

Open "c:\listeadresse.txt" For Input As #1
Open "c:\listeadresse2.txt" For Output As #2

Do While Not EOF(1)
if ucase(nom) = ucase(nom2) or ip = ip2 then
Input #1, nom2, ip2
Print #2, nom2; ","; ip2
Else
msgbox ("Le nom ou l'ip nom pas été trouvé"), vbokonly + vbinformation, "information
Loop

Print #2, nom; ","; IP

While Not EOF(2)
Input #1, nom2, ip2
Print #2, nom2; ","; ip2
Wend

Close

Kill "c:\listeadresse.txt"

Name "c:\listeadresse2.txt" As "c:\listeadresse.txt"

voilà et ça ne marche pas, pire ça plante à chaque execution du bouton.

Si qq1 à une idée, Faites le moi savoir SVP MERCI d'avance !!

Envoi moi ton fichier source pour que je puisse te dépanner !!
Shuaib83@hotmail.com

Salut


Quand tu fais

input#1,truc

tu ne récupères normalement que la chaine située AVANT la virgule. Dès lors tu ne récupères pas toutes les infos.

Pour récupérer toute la ligne, il faut faire
line input #1,toto

Autre chose :

nom2 et ip2 ne sont pas initialisés quand tu les compares la première fois avec nom et ip. C pas trop grave, mais çà serait plus joli.


Autre chose :

Après msgbox, tu dois avoir un endif. Ca, çà cause un plantage.

Je ne l'ai pas encore testé, mais ton programme fonctionnera sans doute déjà mieux comme çà.

Manu

Autre chose qui me revient.

Dans ta boucle "while not eof(1)", tu commences par faire un test sur deux variables, et tu fait l'input après. Ca va tourner en rond indéfiniment !!!


Il faut d'abord faire input#1,toto puis comparer cette valeur avec autre chose.
Sinon, comme tu ne fais jamais d'input (ne rentre pas dans le then), tu n'atteindras jamais la fin du fichier.


Manu

Oki je vais tester, mais nom2 et ip2 sont déclarer en variable globale.
Quant a l'input quand je fais :
input #1, nom, ip

j'ai l'impresssion qu'il me prend pourtant les deux variables .

Et j'ai pas penser à l'indiquer mais j'ai mis le End if j'ai juste bidouillé dans le copier coller pour éviter de copier mes commentaires. Par contre j'ai pas compris ce que tu voulais que je fasse quand tu dis ?

Dans ta boucle "while not eof(1)", tu commences par faire un test sur deux variables, et tu fait l'input après. Ca va tourner en rond indéfiniment !!!

Sadnotrue

D'après ce que je lisais dans la source que tu as copiée :

'---------------------------------
while not eof(1)
if ucase(nom) = ucase(nom2) or ip = ip2
input#1,toto
else
msgbox
end if
wend
'------------------------------------------

comme la variable nom2 n'était pas initialisée, le IF n'était pas validé. Par conséquent, aucun input n'étant fait, tu ne parcours pas ton fichier texte. Tu restes toujours sur la première ligne.

Manu