quel est l'erreur ? lecture/ecriture texte

Question

Bonjour, voila mon blem.

j'ai un fichier texte dans laquel il y a plusieur lign du style :
"
Bonjour
Salut
Aurevoir
A bientôt"
"
etc...

mon prog contient deux textbox et un bouton command,
je voudrais que lorsque je tape "Aurevoir" dans text1 qu'il affiche " A bientôt" dans text2 lorsque je clik.
J'y suis arrivé grâce a l'aide de certain d'entre vous mais j'ai une erreur a chaque fois.

voici mon prg :

Private Sub Command3_Click()
Dim fin As Boolean
Dim mot1 As String
Dim mot2 As String
fin = False
Open "c:	est2.txt" For Input As #1
While Not (EOF(1)) And Not (fin)
'tu les deux lignes par deux lignes
Line Input #1, mot1
Line Input #1, mot2
If UCase$(Trim$(mot1)) = UCase$(Trim$(Text1)) Then
fin = True
Text2.Text = mot2
Close #1
End If
Wend
End Sub

*******************************

voici l'erreur :

Erreur d'execution 52 
Nom ou numéro de fichier incorrecte.

à cette ligne : While Not (EOF(1)) And Not (fin)

*******************************************

Merci de m'aider ;-)

cs_labout · Answer

labout
Si c'est pour écrire alors
Open fichier For Output As #1
@+

ephores · Answer

non, si text1 = une ligne de mon texte ALORS affiche la ligne suivante dans text2

cs_rene38 · Answer

Bonjour

Normal : quand il a trouvé (boucle If ... End If), le fichier est fermé (Close #1) et il arrive à Wend => il repart sur 
While Not EOF(1) ...
Mais il n'y a plus de fichier n° 1 (fermé) => Erreur

Solution : mettre Close #1 après Wend

cs_rene38 · Answer

... ou bien Private Sub Command3_Click() Dim fin As Boolean Dim mot1 As String Dim mot2 As String fin = False Open "c: est2.txt" For Input As #1 Do While Not (EOF(1)) And Not (fin) 'tu les deux lignes par deux lignes Line Input #1, mot1 Line Input #1, mot2 If UCase$(Trim$(mot1)) = UCase$(Trim$(Text1)) Then fin = True Text2.Text = mot2 Close #1 Exit Do End If ~~Wend~~ Loop End Sub ou encore Private Sub Command3_Click() Dim fin As Boolean Dim mot1 As String Dim mot2 As String fin = False Open "c: est2.txt" For Input As #1 While Not (EOF(1)) And Not (fin) 'tu les deux lignes par deux lignes Line Input #1, mot1 Line Input #1, mot2 If UCase$(Trim$(mot1)) = UCase$(Trim$(Text1)) Then fin = True Text2.Text = mot2 Close #1 Exit Sub End If Wend End Sub

cs_rene38 · Answer

... j'ajoute que, dans tous les cas, la variable "fin" est inutile :
dès qu'il a trouvé, on sort du Sub sans chercher plus loin.
Tu peux donc supprimer :
Dim fin As Boolean
fin = False
And Not (fin)
fin = True

ephores · Answer

Merci rene38 !!!
t'es un pro !
ça fonctionne comme je le voulais !
un grand merci. ça faisais une semaine que je me tracassais la tete.

Djflamouze · Answer

Salut moi j'ai la m&#234;me erreur cette maudite erreur 52 et je ne comprend pas j'ai mi pas mal de msgbox pour d&#233;cortiquer le probl&#232;me et je ne voi pas d'ou ca vient.
Car le prog marche tr&#232;s bien s'il est execut&#233; &#224; partir de VB alors que si je le compil , si je lance l'exe il me met cette erreur 52. j'ai proc&#233;d&#233; par &#233;limination en mettant au fur et a mesure des lignes en commentaires mais il veut rien savoir toujours la meme erreur!!!

A la fin j'ai mi tout en commentaire sauf un msgbox puis apres j'ai le end pour faire finir mon prog avant la fin normale mais pareil toujours cette erreur.

En plus faut que ca soit en place avant mardi!!!!
Si quelqun savait de quoi ca peut venir merci de mer&#233;pondre au plu vite ca serait sympa!!!!

cs_rene38 · Answer

Bonjour
Tu dois bien savoir quelle est la proc&#233;dure (Sub ou Function) qui provoque l'erreur.
Peux-tu indiquer le code de cette proc&#233;dure ou tout au moins la partie ouverture / lecture / &#233;criture de fichier.

Quel est l'erreur ? lecture/ecriture texte

8 réponses

Discussions similaires