Comment faire pour ouvrir un deuxieme fichier TXT dans un Textbox ?

Question

Voilà j'ai une Listbox et un Textbox et je voudrais que quand on clique sur un element de la listbox ca ouvre un autre fichier TXT dans le Textbox... Mais je sais pas trop comment faire...... Merci de m'aider !!!

Greg · Answer

Je manque d'information pour t'aider là

Si dans ta ListBox (ici List1) tu as le nom des fichiers textes tu dois utiliser 
   strText = List1.List(List1.ListIndex)
pour récupérer le nom du fichier puis 
   App.Path & "" & strText
pour accéder au fichier et ensuite utiliser une fonction qui ouvrira ce fichier, lira les données et les mettra dans ta TextBox

A+

Flit · Answer

Bah en fait j'ai un premier fichier TXTde ce genre :
Truc
Truc.txt
Machin
Machin.txt
Bidule
Bidule.txt
En clair quand je clique sur Truc dans la Listbox j'accede au fichier Truc.txt dans un Txtbox...

urc40 · Answer

salut
tu veux ouvrir un fichier dans une textbox? ca va faire un peu long pour la textbox non?

soit List1 (comme l'autre) ta listbox
dans un evennement onclick sur ta listbox (je sais pas si ca s'appelle comme, mais j'ai jamais eu à cliquer sur une listbox) tu mets:
dim st as string
st=List1.List1.Text

donc dans st y'a ce que t'as sélectionné
si c'est le chemin de ton fichier, t'as plus  qu'à l'ouvrir (mais dans une textbox??? je vois comment tu veux faire)

Flit · Answer

Bah ma textbox elle est très très grande !

urc40 · Answer

Si tu l'dis!

me suis gourré dans mon dernier message: List1.Text et pas List1.List1.Text

Pour récupérer le texte dans ta TextBox:
je sais plus, je te filerais le code demain

urc40 · Answer

Dim st, prem As String
st = "c:	est.txt"
Open st For Binary As #1
prem$ = Space$(FileLen(st))
Get #1, , prem$
Close #1
Text1.Text = prem$

mais le texte apparait sur une seule ligne dans la textbox
je sais pas comment le faire apparaitre sur plusieurs lignes

phil · Answer

salut j'ai surment la reponse a ton probleme 
tu met dans ta form 
file1
ok
dans file 1 tu met 
on error goto erreursauver

private sub file1_click()
dim fichier = file1
dim f as integer
f = freefile
open fichier for input as f
input #f, a
text1(0) = a
erreursauver:
close #f
end sub
dans ton file1 tu indique le patterne *.txt
si tu veux enregistrer par la suite dans un de tes fichier envoie un email je te dirai comment faire

Greg · Answer

Pour afficher du texte sur plusieurs lignes dans une TextBox il faut mattre sa propriété MultiLine à True

hy_honey · Answer

/auteurdetail.aspx?ID=508072 salut a tous j'affiche sur une listbox les nom des personne recuperer de la base de donner et je voudrais en clicant sur un des nom de la listbox recuperer de la base les caract&#233;ristique et les afficher dans des text box 
merci d'avance

Sinsitrus · Answer

Salut !

private sub file1_click()
dim fichier = file1
dim f as integer
f = freefile
open fichier for input as f
input #f, a
text1(0) = a
erreursauver:
close #f
end sub

Ce code fonctionne parfaitement, mais il affiche toujours le dernier fichier du dossier... savez vous comment régler ce problème svp ?

Merci						

----------
OS        : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

Comment faire pour ouvrir un deuxieme fichier TXT dans un Textbox ?

10 réponses

Discussions similaires