Entree/sortie (ouvrir, enregister un texte)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 326 fois - Téléchargée 66 fois

Contenu du snippet

Dans un module:

Source / Exemple :


Option Explicit

Public Sub readIn(source As String, destination As TextBox)
Dim a As String
Open source For Input As #1
Do Until EOF(1)
Input #1, a$
destination.Text = destination.Text & Chr(13) & a$
Loop
Close #1
End Sub

Public Sub writeIn(source As TextBox, destination As String)
Open destination For Output As #1
Print #1, source.Text
Close #1
End Sub

A voir également

Ajouter un commentaire

Commentaires

j'aimerais savoir comment tu faits si tu veux ajouterencore du texte a ton fichier
cs_nico1610
Messages postés
402
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
-
Trois soucis :
Au lieu de faire une destination en argument (metre une sortie en entré sa fait pas bien !) crée une fonction !
Apres je te conseil de t'assuré que le canal utilisé est libre (un petit freefile serai le bienvenue!)
Ensuite et pour finir, si ta fonction n'as pas de paramètre de sortie je te conseil de faire une sortie en boolean pour la gestion des erreurs (revoi faux si erreur !))

Enfin voila, un code qui ne montre que l'utilisation d'un open en input et output, il manque encore le random ...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.