Discussion :

[Mario Rousson]

Bonjour à tous,

Dans l'exemple que j'ai trouver pour me faire un petit bloc note j'ai un commandbouton "ouvrir" et j'ai une erreur à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

retour = Chr$(13) + Chr$(10)

voici tout mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Ouvrir_Click()
On Error Resume Next
Open "c:\windows\bureau\note.exe" For Input As #1
retour = Chr$(13) + Chr$(10)
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + retour + texte
Wend
End If
Close #1
End Sub

merci de votre aide et bonne soirée

[Mario Rousson]

voila que le commandbouton "sauvegarder" ne fonctionne pas
erreur au code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "C:\Windows\Bureau\note.txt" For Output As #1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Sauvgarder_Click()
Open "C:\Windows\Bureau\note.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

merci encore

[AlainTech]

1. Tu ne nous dis pas quelle erreur tu reçois. Comme on n'est pas devins...
2. Es-tu encore en Windows 98? Sinon, ça m'étonnerait que ton bureau soit dans le répertoire Windows.
3. Pour concaténer du texte, utilise l'opérateur & au lieu de +.

[avigeilpro]

A titre d'information, le $ n'est plus nécessaire. De plus il existe une constante de VB pour le retour à la ligne : VbCrLf.

Ensuite, il y a tellement plus court pour récupérer la totalité d'un fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim Tout As String
Dim Adresse As String
 
Adresse = "C:\Windows\Bureau\note.txt"
Tout = Space(Filelen(Adresse))
 
Open Adresse For Binary As #1
Get #1,,Tout
Close #1

Enfin dans le dernier code que tu as laissé, tu ouvre un executable ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "c:\windows\bureau\note.exe" For Input As #1

Relie ton code

[Mario Rousson]

Bonjour à tous

J'arrive à bien faire fonctionner le code du bloc Note en général, il reste un seul pepin à régler et je vois pas ce qui cloche dans mon code.

J'arrive à sauvegarder un bloc note sur le bureau avec du texte, quand j'utilise le commandbouton "ouvrir" pour récupérer le texte il m'apparait toujours une page vide pourtant le bloc note sur le bureau à du texte dedans. je tape de nouvelles données et quand je sauvegarde l'ancien texte à disparu et est remplacé par le nouveau, voici le code du commandbouton ouvrir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Ouvrir_Click()
On Error Resume Next
Dim retour, texte, tout As String
Open "c:\Documents and Settings\all users\bureau\note.txt" For Input As #1
retour = Chr$(13) + Chr$(10)
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + retour + texte
Wend
End If
Close #1
End Sub

merci de votre aide

[AlainTech]

TON bureau (celui de ton utilisateur) est différent de celui de tous les utilisateurs du PC.

Prends un explorateur Windows et va voir dans le chemin que tu donnes s'il existe un note.txt...

[avigeilpro]

Et le code que je donne plus haut ne te conviens pas au fait ?
Et normalement ca ne devrait pas poser de problème puisqu'il travail sur un fichier de AllUsers AlainTech.

[Mario Rousson]

avigeilpro j'ai essayé ton code aussi et je retrouve le même résultat, j'arrive à créer un fichier note.txt avec ce que je veux écrire dedans, si je ferme tout et que je recommance quand j'appuis sur ouvrir je ne récupère pas l'ancien texte. Autremant dit chaque fois que je tape un nouveau texte et que je sauvegarde je perd ce qui était inscris.

Je serais sensé être en mesure de récupérer l'ancien texte en cliquant sur ouvrir mais je récupère rien.

merci

[AlainTech]

Bon...

On va travailler par étapes.

Comment fais-tu pour écrire dans ton fichier?
Le code que tu nous montres ne sert qu'à le lire.

De plus, avigeilpro t'a donné des indications et tu n'en tiens pas compte.
Cette ligne n'est pas nécessaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

retour = Chr$(13) + Chr$(10)

puisque tu peux utiliser la constante VbCrLf à la place de retour.

Autre chose, encore.
Dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim retour, texte, tout As String

si tu veux que retour et texte soient déclarés comme String, tu dois écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim retour As String, texte As String, tout As String

[avigeilpro]

Euh ... juste comme ca, tu affiche la variable Tout à la fin de ta procédure ???

Tu utilise, je suppose, un RichTextbox pour afficher, donc il te faut mettre le contenu de la variable dans ton RichTextbox, sinon en effet tu n'as rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Ouvrir_Click()

On Error Resume Next
Dim tout As String
Dim Adresse As String
 
Adresse = "C:\Windows\Bureau\note.txt"
tout = Space(FileLen(Adresse))
 
Open Adresse For Binary As #1
Get #1, , tout
Close #1

RichTextBox1.Text = tout

End Sub

[Mario Rousson]

Je m'excuse mais je suis novice et j'essaie de comprendre un petit exercice pour m'aider à apprendre VB et quand tu dit

De plus, avigeilpro t'a donné des indications et tu n'en tiens pas compte.
Cette ligne n'est pas nécessaire

puisque tu peux utiliser la constante VbCrLf à la place de retour.

c'est que je sait pas comment l'inséré dans le code.

La, je vais renommer mais variable avec un string pour chacun je vous reviens tantôt.

merci

[AlainTech]

tu peux utiliser la constante VbCrLf à la place de retour.

Tu n'as pas besoin de la variable retour.
Donc, pas besoin de Dim retour...

[avigeilpro]

De toute façon si tu utilise le code que je t'ai donné et que tu vérifie que tu affiche bien comme je te l'explique dans le post précédent, tu n'as pas besoin ni de retour, ni de VbCrLf. Essaye et tiens nous au courant