Intégrer du texte à partir d'un fichier [Résolu]

Signaler
Messages postés
2
Date d'inscription
dimanche 11 septembre 2005
Statut
Membre
Dernière intervention
12 septembre 2005
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Salut ! Bon je suis archi débutant au ras des pâquerettes et j'aimerais
savoir comment intégrer du texte issu d'un fichier WordPad ou BlocNote
dans une zone type OLE ou du genre dans VB6. J'aimerais aussi avoir une
possibilité de mise à jour une fois le prog compilé...

Merci pour vos réponses...

3 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Re,
OK merci, mais quand une réponse te convient, clique sur Réponse acceptée
celà évite re revisiter le post

jpleroisse
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 82 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonsoir,
Voici une méthode parmis tant d'autres.Tu places sur ta Form un TextBox (propriété multiligne à True) et un CommandButton (cmdQuitter).

' Ouvre le fichier Text1.txt que la commande quitter a créé sur le disque
Private Sub Form_Load()
Dim crlf, tout, texte
On Error Resume Next 'Les erreurs sont ignorées
crlf = Chr(13) + Chr(10)
Open "C:\Text1.txt" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub

Private Sub cmdQuitter_Click()
Open "C:\Text1.txt" For Output As #1
Print #1, Text1.Text
Close #1
Unload Me
End Sub

'La commande quitter crée le fichier Text1.txt dans C:\ et enregistre ce que tu as écrits dans Text1

jpleroisse
Messages postés
2
Date d'inscription
dimanche 11 septembre 2005
Statut
Membre
Dernière intervention
12 septembre 2005

Merci "jpleroisse" ta méthode marche du tonnerre !