Txt datei vom web einlesen

Computer: Software & Programmierung Visual Basic
#1

Hi Folks,

ich versuche schon seit ein paar Stunden eine txt Datei, welche auf meinen Server liegt, einzulesen. Wenn ich die Datei lokal verwende, funktioniert es problemlos. Da ich ein VB-Blank bin, wäre eine detailierte Hilfe sehr schön.

 Dim pfad, FileLength, inhalt

 pfad = "http://www.4uweb.de/badwords\smut.txt" 'FUNKTIONIERT NICHT
 pfad = "t:\smut.txt" 'FUNKTIONIERT
 Open pfad For Input As #1 ' Datei zum Einlesen öffnen.
 FileLength = LOF(1)
 inhalt = Input(FileLength, #1)
 Close #1
 MsgBox inhalt

TNX & CU Fr@nkie

#2

Nachtrag
Ouups…
das ganze sollte in Outlook VBA funktionieren um eine Badword-Liste zu integrieren.

#3

Hi Frankie,

ich versuche schon seit ein paar Stunden eine txt Datei,
welche auf meinen Server liegt, einzulesen. Wenn ich die Datei
lokal verwende, funktioniert es problemlos. Da ich ein
VB-Blank bin, wäre eine detailierte Hilfe sehr schön.

Dim pfad, FileLength, inhalt

pfad = ‚http://www.4uweb.de/badwords\smut.txt‘
'FUNKTIONIERT NICHT
pfad = ‚t:\smut.txt‘ 'FUNKTIONIERT
Open pfad For Input As #1 ’ Datei zum Einlesen öffnen.
FileLength = LOF(1)
inhalt = Input(FileLength, #1)
Close #1
MsgBox inhalt

ja, klar. :smile: Mit ‚Open‘ kommst Du nicht ins Internet.
Ich habe mal im Archiv gesucht …
/t/vba-excel-internet-seiten/715166/2

Gruß, Rainer

#4

hallo

muss es unbedingt vb sein? mit perl ist es ein klax, auf webseiten zuzugreifen. oder auch java.

lg
erwin

#5

Hallo Rainer,

zu diesem Ergebniss (vom Archiv) kam ich schon wenn ich den Excel Macrorecorder einschalte und eine Externe Datenquelle/Website auswähle und mir dann den Quelltext ansehe. Nur ich brauche ja kein Excel-Sheet sondern die Daten in Outlook.
Wenn nun jemand kein Office sondern nur Outlook besitzt, ist dies danneher suboptimal.

CU Fr@nkie