Discussion :

[drakkar_agfa]

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.

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!

[pgz]

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

[ucfoutu]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[JackOuYA]

Bonsoir,

Une méthode plus moderne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[drakkar_agfa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci!

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 !)

[drakkar_agfa]

Parfait,
tout est clair et tout fonctionne parfaitement!

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