Entree/sortie (ouvrir, enregister un texte)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 478 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

Messages postés
402
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
1
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 ...
j'aimerais savoir comment tu faits si tu veux ajouterencore du texte a ton fichier

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.