Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Daten aus online *.txt auslesen und ausgeben ???
Autor: Manu
Datum: 20.03.03 17:25
Hi Niko! Hier der Code: Option Explicit Private Declare Function GetTempFileName Lib "kernel32" _ Alias "GetTempFileNameA" (ByVal lpszPath As String, _ ByVal lpPrefixString As String, _ ByVal wUnique As Long, _ ByVal lpTempFileName As String) As Long Private Declare Function GetTempPath Lib "kernel32.dll" _ Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long Private winTempPath As String Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Function ReadAll(ByVal sFilename As String) _ As String Dim F As Integer Dim sInhalt As String ' Existiert die Datei ? If Dir$(sFilename, vbNormal) <> "" Then ' Textdatei im Binärmodus öffnen und gesamten ' Inhalt in einem Rutsch auslesen F = FreeFile Open sFilename For Binary As #F sInhalt = Space$(LOF(F)) Get #F, , sInhalt Close #F End If ReadAll = sInhalt End Function Private Function Down(LocalFile As String, Url As String) Dim Result As Variant ' Download ausführen Screen.MousePointer = vbHourglass Result = URLDownloadToFile(0, Url, LocalFile, 0, 0) Screen.MousePointer = vbNormal Down = Result End Function Private Function TempPath() As String Dim RetVal As Long Dim TempDir As String TempDir = Space$(256) RetVal = GetTempPath(Len(TempDir), TempDir) If RetVal <> 0 Then TempPath = "Temp-Verzeichnis: " & Left$(TempDir, RetVal) End If End Function Private Sub Online_txt_in_Msg (TxtUrl As String) Dim sInhalt As String Down TempPath & "\TempTxt.txt", TxtUrl sInhalt = ReadAll(TempPath & "\TempTxt.txt") MsgBox sInhalt End Sub Nur noch der Aufruf: Online_Txt_in_Msg(txtUrl) Manu

Daten aus online *.txt auslesen und ausgeben ???	114	niko001	19.03.03 21:01
Re: Daten aus online *.txt auslesen und ausgeben ???	279	Dieter	19.03.03 21:23
Re: Daten aus online *.txt auslesen und ausgeben ???	69	therealniko	20.03.03 13:59
Re: Daten aus online *.txt auslesen und ausgeben ???	254	Dieter	20.03.03 14:22
Re: Daten aus online *.txt auslesen und ausgeben ???	299	Manu	20.03.03 17:25
Re: Daten aus online *.txt auslesen und ausgeben ???	57	niko001	21.03.03 15:25
Re: Daten aus online *.txt auslesen und ausgeben ???	227	Manu	23.03.03 08:03

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen