jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 17 janv. 2006 à 16:50
Bonjour,
Ce que tu peux faire c'est de récupérer (dans un répetoire donné), les
noms de tes fichiers texte dans une ListBox et les ouvrir un à la
foix à patir de cette Listbox.
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 17 janv. 2006 à 18:13
Bonsoir,
Tu as mis Réponse Acceptée à ma réponse, si c'est uniquement pour visionner le contenu des fichiers. Tu peux faire ceci
Tu place sur ta Form Une ListBox(où l'utilisateur n'aura qu'à cliquer
sur le nom du fichier), unTextBox (propriété Multiligne à True) et un
CommandButton.
Dans mon exemple, les fichiers texte se trouvent dans le réprtoire C:\Mes documents.
Private Sub Command1_Click()
Dim MyName
List1.Clear
MyName = Dir("C:\Mes documents\*.txt*", vbNormal)
While MyName <> ""
List1.AddItem MyName
MyName = Dir
Wend
End Sub
Private Sub List1_Click()
Dim texte, crlf, tout, NomChemin, NomFichier, NomRep
crlf = Chr(13) + Chr(10)
NomChemin = "C:" 'Chemin
NomRep = "Mes documents" 'Répertoire
NomFichier = List1.Text
Open NomChemin + NomRep + NomFichier For Input As #1
On Error Resume Next
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse acceptée.
ScSami
Messages postés1488Date d'inscriptionmercredi 5 février 2003StatutMembreDernière intervention 3 décembre 200724 17 janv. 2006 à 16:22
Tu ne veux qu'un moyen ou plusieurs ??? 1 seul visiblement...
Alors voilà : tu vas dans l'explorateur pi tu double-cliques sur le fichier voulu... et t'a même pas besoin d'avoir le VB lancé derrière
Non, plus sérieusement. Pense à toujours nous préciser tant le langage utilisé que la version (VB6, VBA, VB.Net, VBS, ...).
Tout dépend ce que tu entends par "ouvrir" un fichier!!! Que veux-tu faire au juste ??? Afficher les fichiers, les modifiers, tous en même temps ou les uns à la suite des autres, les ouvrir dans leurs logiciels respectifs, ..., ..., ... ????
Faut être un chouïa plus précis!
Sinon, classiquement, tu as l'instruction "Open" en mode "Input" ou "Binary" selon la structure de tes fichiers (texte ou autre[binaire]) et ce que tu veux en faire!
T'en dire plus avec si peu d'infos je ne le saurais!
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
cs_kharrat
Messages postés71Date d'inscriptionmercredi 15 novembre 2000StatutMembreDernière intervention29 mars 2007 17 janv. 2006 à 16:36
ok, je m'lance :
Je ne sais pas encore si c'est du VB6 ou du VB.NET (ca commence bien...)
ouvrir = (
lire un fichier texte
ou parser un fichier XML (de pire en pire!!!)
)
avec VB (instruction open en mode input ou je ne sais quel autre détail technique)
Ce que je souhaite faire, c'est ouvrir tous les fichiers, les uns à la suite des autres, se trouvant dans un répertoire donné.
ScSami
Messages postés1488Date d'inscriptionmercredi 5 février 2003StatutMembreDernière intervention 3 décembre 200724 17 janv. 2006 à 17:07
Les ouvrir, d'accord, mais pour en faire quoi ??? Affiche le texte qu'il y a dedans ? Si ce sont, par exemple, des fichiers Excel (pour peut que tu bosses sous Excel en VBA), ouvrir les fichiers dans Excel ?
De plus, quel est le type de tes fichier ??? Ce sont des fichiers texte ou autre (images, vidéos, ...) ???
Tu les veux affichés dans un contrôle (Champ de texte) ou dans une variable (mode binaire) ???
Tu comprends, on ne peut pas te dire grand chose comme ça !!!
Essaie d'être un peu plus expensif dans tes explications!
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
cs_kharrat
Messages postés71Date d'inscriptionmercredi 15 novembre 2000StatutMembreDernière intervention29 mars 2007 17 janv. 2006 à 17:10
Ok,
c'est une solution intéressante, mais je veux que l'ouverture et le parcours des fichiers (les uns à la suite des autres) soient complètement transparente à l'utilisateur !
Je m'explique : l'utilisateur saisi le répertoire (à l'aide d'une boîte de dialogue) et après, il n'a pas à se préoccuper de sélectionner les fichiers à ouvrir. Cette étape doit-être totalement automatisée.
1. Est-ce possible ?
2. Si oui, comment faire ?
3. Merci du coup de main, c'est vachement sympa :)
cs_kharrat
Messages postés71Date d'inscriptionmercredi 15 novembre 2000StatutMembreDernière intervention29 mars 2007 17 janv. 2006 à 18:17
Ben, j'ai besoin de récupérer des données qui sont réparties sur plusieurs fichiers pour les traiter.
Par exemple, je dois comparer les données du fichier 1 et les données du fichier 2 et affichier les résultats de ces comparaisons à l'écran pour que l'utilisateur les analyse à loisir.
En pratique, c'est un peu plus compliqué que ça, mais le principe est le même.
cs_kharrat
Messages postés71Date d'inscriptionmercredi 15 novembre 2000StatutMembreDernière intervention29 mars 2007 17 janv. 2006 à 18:31
Réponse à jpleroisse,
merci :)
j'ai mis Réponse Acceptée à ta réponse car elle me semble en effet être une option efficace à mon problème.
Ce que je cherchais (à l'origine) était un degré d'automatisation supérieur, où l'utilisateur n'a pas à sélectionner les fichiers (en sélection multiple), mais seulement le répertoire où ils se trouvent. Cette exigeance est (probablement) un peu puérile...
Comme je disais dans un précédent message, je ne souhaite pas afficher le contenu des fichiers, mais effectuer des traitement sur les données qu'ils contiennent (voir au dessus l'exemple des comparaisons).
J'ai donc besoin de récupérer ces données et de les insérer dans des structures. Je crois que j'ai un minimum de modifs à apporter à ton exemple pour arriver à mon but.
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 17 janv. 2006 à 18:35
Re,
Dans ce cas tu peux mettre 2 listBox et 2 TextBox, l'utilisateur ouvre
un fichier dans le premier TexrBox avec la List1 et un autre dans le
deuxième TextBox avec la List2(où des combobox si tu veux, c'est le
même code); Il peut ainsi les comparer.
jpleroisse
Si une réponse vous convient, cliquez Réponse acceptée.