In einem Label den Inhalt einer txt datei

[Yugi-Radiodome]

Hi leute.

Ich möchte gerne ein Labelfeld machen das aus einer txt datei die online auf dem webserver liegt den inhalt liest




wir mach ich das

 

[Dario Linsky]

Mit dem Inet-Control kannst du über Standardprotokolle wie HTTP oder FTP URLs öffnen und die Rückgabe als Text dem Label zuweisen.

 

[Yugi-Radiodome]

Das hilft mir nicht grad weiter.

Gibt es nicht ein code dafür?

 

[Dario Linsky]

Wie gesagt: Benutz das Inet-Control. Sieh dir die Methoden und Eigenschaften davon einfach mal genauer an, so schwer ist das gar nicht zu verstehen.
Stell es einfach auf HTTP als Protokoll ein und ruf die URL mit der Datei auf. Als Rückgabe kannst du dann den Inhalt der Datei auslesen. Den Code dazu hab ich gerade nicht im Kopf, aber es sind nur ein paar Zeilen.

 

[JoKne]

Erklär doch mal bitte was du genau vor hast.
Ich versteh dein Problem nicht ganz, es gibt wie Dario schon gesagt hat
die Internet Controls (webbrowser) dort kannst du einfach deine txt oder auch html datei anschauen, diese wir dann im Browser ausgegeben.

Private Sub Command1_Click() 
   WebBrowser1.Navigate "www.tutorials.de" 
 End Sub

Wo http://www.tutorials.de steht kannste dann die url deiner txt eingeben.
Kannst auch ne Textbox einfügen um dort dann ne beliebige URL
zu öffnen:

WebBrowser1.Navigate text1.text

Hoffe es hat dir was gebracht.

 

[Dario Linsky]

Das Webbrowser-Control geht schon viel zu weit. Du musst doch nur eine Verbindung zur URL herstellen und die Ausgabe (die normalerweise zum Browser geht) an die Text-Eigenschaft des Labels zuweisen.

 

[JoKne]

Omg, bin ich blöd!
Dann sieht die Sache natürlich ganz anders aus

Private Sub Command1_Click() 
  Label1.Caption = Inet1.OpenURL("http://www.ietf.org/rfc/rfc2396.txt")
 End Sub

http://www.ietf.org/rfc/rfc2396.txt hat google halt ausgespuckt als ich ne Txt datei brauchte um das zu testen
Einfach deine Url einfügen. Und wenn die url variiert kannstes wie oben schonmal beschrieben mit der textbox machen

Private Sub Command1_Click() 
  Label1.Caption = Inet1.OpenURL(text1.text)
 End Sub

Hoffe mal jetzt passts

P.S. wenn du dein programm erweitern wilst kannste ja mal die ganzen methoden und funktionen im Objektkatalog anschauen, da sind auch immer sofort die definitionen

 

[esieben]

Und wenn du auf unnötige Controls verzichten willst: http://www.vbarchiv.net/archiv/tipp_details.php?pid=476