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...