AFFICHEUR FICHIER TEXT GRACE À UN COMMON DIALOG CONTROL

Signaler
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Messages postés
1
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
4 janvier 2005
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/28499-afficheur-fichier-text-grace-a-un-common-dialog-control

Messages postés
1
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
4 janvier 2005

oui tres bien simple et decrivante
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Jack < PErso, je recommanderais plutot l'utilisation de Chr$() plutot que que Chr() : question de type retourné
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut xmac
- Ton projet, quand on l'ouvre demande une forme qui n'est pas dans le Zip, mais qui ne sert pas non plus, il faut dire ...
- Je ne sais pas de quand date cette source, mais les méthodes utilisées sont vieillotes :
Wrap$ = Chr$(13) + Chr$(10)
Cette variable est inutile : Il suffit d'utiliser vbCrLf à la place (Cr : Carriage Return 13, et Lf Line Feed = 10)
D'autre part, il vaut mieux utiliser Chr() que Chr$() : c'est pareil, mais c'est une question de bibliothèque.
- Pour charger la totalité d'un fichier texte dans une variable, il y a une méthode plus raicale et plus rapide :

Open "LeFichier" For Binary As #1
AllText$ = String(LOF(1), " ")
Get #1, , AllText$
Close #1

- Pour info, le CommonDialog ne te permet que de chosiir un fichier avec un système de filtre. Mais ce n'est pas lui qui ouvre le fichier.

Vala