Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

afficher contenu fichier

5 réponses
Avatar
kamel
Bonjour à tous,

J'aimerais savoir s'il existe un control en VB qui me permettrait d'afficher
le contenu d'un fichier et qui s'actualiserait quand le contenu du fichier
change.

Merci
Kamel

5 réponses

Avatar
Jean-marc
kamel wrote:
Bonjour à tous,



Bonjour,

J'aimerais savoir s'il existe un control en VB qui me permettrait
d'afficher le contenu d'un fichier et qui s'actualiserait quand le
contenu du fichier change.



Non, un tel controle n'existe pas. Mais il est assez facile d'en faire
un en utilisant une Textbox et l'API "ReadDirectoryChangesW" :-)

Bonne prog !

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Jean-marc
Jean-marc wrote:

Non, un tel controle n'existe pas. Mais il est assez facile d'en faire
un en utilisant une Textbox et l'API "ReadDirectoryChangesW" :-)

Bonne prog !



En fait on trouve même déjà du code tout prêt :
http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!61052/lngWid!1/anyname.htm

http://www.eggheadcafe.com/aspnet_answers/VisualBasicwinapi/May2006/post26916331.asp

NOTE: le souci c'est que l'API oblige à utiliser un thread. Hors l'IDE de VB
déteste les threads. Il est donc très conseillé de débugger en dehors de
l'IDE,
à grand coup de Msgbox si nécessaire, comme au bon vieux temps!

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
kamel
Merci bcp à tous les 2

"Jean-marc" a écrit dans le message
de news: 46bf54f8$0$13855$
Jean-marc wrote:

Non, un tel controle n'existe pas. Mais il est assez facile d'en faire
un en utilisant une Textbox et l'API "ReadDirectoryChangesW" :-)

Bonne prog !



En fait on trouve même déjà du code tout prêt :
http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!61052/lngWid!1/anyname.htm

http://www.eggheadcafe.com/aspnet_answers/VisualBasicwinapi/May2006/post26916331.asp

NOTE: le souci c'est que l'API oblige à utiliser un thread. Hors l'IDE de
VB
déteste les threads. Il est donc très conseillé de débugger en dehors de
l'IDE,
à grand coup de Msgbox si nécessaire, comme au bon vieux temps!

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/




Avatar
kamel
au fait, comment affiche t on la totalité du contenu d'un fichier dans un
textbox ... :)

"Jean-marc" a écrit dans le message
de news: 46bf54f8$0$13855$
Jean-marc wrote:

Non, un tel controle n'existe pas. Mais il est assez facile d'en faire
un en utilisant une Textbox et l'API "ReadDirectoryChangesW" :-)

Bonne prog !



En fait on trouve même déjà du code tout prêt :
http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!61052/lngWid!1/anyname.htm

http://www.eggheadcafe.com/aspnet_answers/VisualBasicwinapi/May2006/post26916331.asp

NOTE: le souci c'est que l'API oblige à utiliser un thread. Hors l'IDE de
VB
déteste les threads. Il est donc très conseillé de débugger en dehors de
l'IDE,
à grand coup de Msgbox si nécessaire, comme au bon vieux temps!

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/




Avatar
Jean-marc
kamel wrote:
au fait, comment affiche t on la totalité du contenu d'un fichier
dans un textbox ... :)



Hello,

On prend un TextBox, on met la propriété Multiline à True, on
affiche éventuellement les scrollbars (propriété ScrollBars),
puis on lit le fichier d'un bloc, comme ceci:

Function ReadBufferFromFile(ByVal szFileName As String) As String
Dim f As Integer
Dim buf As String

f = FreeFile
Open szFileName For Binary As #f
buf = Space$(LOF(f))
Get #f, , buf
Close #f
ReadBufferFromFile = buf
End Function

puis on affiche comme cela:


Dim fileContent As String
Dim fn As String

fn = "c:data.txt"

fileContent = ReadBufferFromFile(fn)

Text1.Text = fileContent


Il faut en plus vérifier que le fichier existe:
http://faq.vb.free.fr/index.php?question)


N'hésite pas à consulter la FAQ du groupe, tu y trouveras
la réponse à de nombreuses questions, des conseils, des trucs
et astuces utiles, etc. : http://faq.vb.free.fr/


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/