[E-03] Affecter un fichier à une variable

Bonjour,

Je voudrais savoir comment on peut affecter un fichier texte à une variable.

Mon but est de comparer tout le fichier pour vérifier s'il a des caractères minuscules.

Citation:

---

On en a la possibilité : il suffit pour celà de lire, avant importation, le fichier texte dans son ensemble (on va dire dans une variable toto) et de comparer toto et Ucase(toto) ===>> résultat dans une variable booléenne titi.

---

Cette question est la suite de http://www.developpez.net/forums/d64...er-minuscules/

Merci!

Bonjour.

Il doit y avoir qqc en FAQ sur le sujet.
Il faut utiliser une bibli de script, comme 'Windows script host object model'.
Regarde la méthode OpenAsTextstream de la class File, puis les méthodes de la classe TextStream.

Bon courage,

PGZ

Bonsoir (et merci d'avoir ouvert une discussion distincte).

Ma manière (et, surtout, dans être dépendant de FSO qui alourdirait ...) :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() Dim FF As Integer: FF = FreeFile Open "d:\essai.txt" For Input As #FF toto = Input(LOF(FF), #FF) Close #FF MsgBox toto ' si tu veux le voir (pas nécessaire) MsgBox toto = UCase(toto) ' et là (ce que tu attends) : True = pas de minuscules. False = contient des minuscules End Sub

---

EDIT : valable jusqu'à 2 GO. Si au delà, m'en parler (on décomposera en tant que de besoin...;))

Bonsoir,

Une méthode plus moderne :

Code:

---

1 2 3 4 5 6

Dim oFso Dim yaFichier As String Set oFso = CreateObject("Scripting.FileSystemObject") yaFichier = oFso.OpenTextFile("c:\autoexec.bat").ReadAll MsgBox yaFichier = UCase(yaFichier)

---

En gros merci!

Les deux façons fonctionnent très bien.... mais la plus moderne est-elle la meilleure?

Je sais que ça marche mais je ne comprends pas le pourquoi

Code:

---

1 2	Dim FF As Integer: FF = FreeFile Open "d:\essai.txt" For Input As #FF toto = Input(LOF(FF), #FF)

---

et j'aime comprendre ce que j'utilise :P

Alors si tu veux bien m'expliquer un peu ta façon ucfoutu je serais heureux! 8-)

Merci!

D'azccord :

1) (et surtout) : je ne passe pas par FSO (qui est du VBS) pour finalement faire à travers d'un tremplin inutile, ce que fait VB...

2) L'instruction Open permet d'ouvrir un fichier (ici en lecture) en lui attribuant un numéro identificateur libre (ici FF)

LOF est tout simplement l'abréviation de LENGTH OF FILE (longueur du fichier), que l'on lit donc de son début jusqu'à sa fin par l'instruction Input, dans une variable toto

Code:

---

toto = Input(LOF(FF), #FF)

---

puis on libère le fichier par un close.

C'est tout et c'est très simple.

Pour ton information : la solution "moderne" de référence à FSO a pour conséquence de charger la totalité de FSO !!! pour n'en utiliser au bout du compte qu'une minuscule partie ...
Si toutefois (et en dépit de ma remarque), tu tiens à utiliser FSO, pense alors ... au moins... à terminer (dès utilisation) par un Set oFso = Nothing (libère ainsi, au moins, ta mémoire !)

Parfait,
tout est clair et tout fonctionne parfaitement!

Merci de la réponse et des précisions!