AFFICHEUR FICHIER TEXT GRACE À UN COMMON DIALOG CONTROL
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
31 déc. 2004 à 14:49
intensodiseicolo Messages postés 1 Date d'inscription mardi 4 janvier 2005 Statut Membre Dernière intervention 4 janvier 2005 - 4 janv. 2005 à 13:55
intensodiseicolo Messages postés 1 Date d'inscription mardi 4 janvier 2005 Statut Membre Dernière intervention 4 janvier 2005 - 4 janv. 2005 à 13:55
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
https://codes-sources.commentcamarche.net/source/28499-afficheur-fichier-text-grace-a-un-common-dialog-control
4 janv. 2005 à 13:55
1 janv. 2005 à 21:27
31 déc. 2004 à 14:49
- 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