wie kann man eine Datei auf einem Webspace auslesen ?

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	cyby Betreff: wie kann man eine Datei auf einem Webspace auslesen ?	So, Jul 25, 2004 15:15 Antworten mit Zitat
hi, ist es mit BlitzBasic möglich eine Datei z.B. txt von einem normalen webspace auszulesen ? wenn ja wie funktioniert das so... ? Danke für Hilfe MfG cyby

cyby

Betreff: wie kann man eine Datei auf einem Webspace auslesen ?

So, Jul 25, 2004 15:15
Antworten mit Zitat

hi,

ist es mit BlitzBasic möglich eine Datei z.B. txt von einem normalen webspace auszulesen ?
wenn ja wie funktioniert das so... ?
Danke für Hilfe Smile

MfG
cyby

	fliege	So, Jul 25, 2004 18:34 Antworten mit Zitat
Ich denke mal schon... du öffnest die txt - Datei über TCP und liest sie wie den Quellcode aus...dann musst du ihn nur noch auswerten und fertig...Denk' ich mal...
Wer weiß was kommt.. ?

fliege

So, Jul 25, 2004 18:34
Antworten mit Zitat

Ich denke mal schon... du öffnest die txt - Datei über TCP und liest sie wie den Quellcode aus...dann musst du ihn nur noch auswerten und fertig...Denk' ich mal... Mr. Green

Wer weiß was kommt.. ?

	Hubsi	So, Jul 25, 2004 18:57 Antworten mit Zitat
BruZards Iscore könnte man dafür vergewaltigen
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Jul 25, 2004 18:57
Antworten mit Zitat

BruZards Iscore könnte man dafür vergewaltigen Wink

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	cyby	So, Jul 25, 2004 21:42 Antworten mit Zitat
gibt es das Iscore schon ?

cyby

So, Jul 25, 2004 21:42
Antworten mit Zitat

gibt es das Iscore schon ?

	Hubsi	Mo, Jul 26, 2004 18:06 Antworten mit Zitat
Ich meinte das erste Iscore. Ich denke bruZ hat nichts dagegen wenn ich den Code hier poste:Code: [AUSKLAPPEN] [EINKLAPPEN] Type OnlineScore Field name$ Field score End Type Function ShareScore(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" score.OnlineScore=New OnlineScore score\name$=in1$ score\score=Int(in2$) EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mo, Jul 26, 2004 18:06
Antworten mit Zitat

Ich meinte das erste Iscore. Ich denke bruZ hat nichts dagegen wenn ich den Code hier poste:Code: [AUSKLAPPEN]

Type OnlineScore
Field name$
Field score
End Type

Function ShareScore(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
req$=script$+par$
; Request an das Serverscript schicken
WriteLine is_online,"GET /"+req$+" HTTP/1.1"
WriteLine is_online,"Host: "+url$
WriteLine is_online,"User-Agent: score"
WriteLine is_online,"Accept: */*"
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
in2$=Trim(ReadLine(is_online))
If Left(in1$,5)<>"[END]"
score.OnlineScore=New OnlineScore
score\name$=in1$
score\score=Int(in2$)
EndIf
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	cyby	Mo, Jul 26, 2004 19:43 Antworten mit Zitat
geht das auch so irgentwie ? klapt nicht so richtig aber ist bin ich auf der richtigen Spur ? Code: [AUSKLAPPEN] [EINKLAPPEN] stream = OpenTCPStream("www.planetsoft-games.de/test.txt",80) If stream = 0 Then Print "Konnte keine Verbindung herstellen !" Else Print "Roger !" EndIf nachricht$ = ReadLine(stream) Print nachricht CloseTCPStream stream WaitKey End eine txt Datei ist hier: http://www.planetsoft-games.de/test.txt Danke für eine Antwort

cyby

Mo, Jul 26, 2004 19:43
Antworten mit Zitat

geht das auch so irgentwie ?
klapt nicht so richtig aber ist bin ich auf der richtigen Spur ?
Code: [AUSKLAPPEN]

stream = OpenTCPStream("www.planetsoft-games.de/test.txt",80)

If stream = 0 Then
Print "Konnte keine Verbindung herstellen !"
Else
Print "Roger !"
EndIf

nachricht$ = ReadLine(stream)
Print nachricht

CloseTCPStream stream
WaitKey
End

eine txt Datei ist hier: http://www.planetsoft-games.de/test.txt
Danke für eine Antwort Smile

	MVB	Mo, Jul 26, 2004 19:52 Antworten mit Zitat
Du musst noch die Datei "requesten", dann den Header überlesen, und dann kannst du die Datei lesen. Eben wie im Code oben. EDIT:Das ist nicht getestet, und wird auch so nicht funktionieren, aber so in der Art müsste es gehen. Code: [AUSKLAPPEN] [EINKLAPPEN] url$="http://www.planetsoft-games.de/" Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,80) If is_online req$=http://www.planetsoft-games.de/test.txt ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function
aquamonit.de\|BlitzMax\|MaxGUI

MVB

Mo, Jul 26, 2004 19:52
Antworten mit Zitat

Du musst noch die Datei "requesten", dann den Header überlesen, und dann kannst du die Datei lesen. Eben wie im Code oben. Wink

EDIT:Das ist nicht getestet, und wird auch so nicht funktionieren, aber so in der Art müsste es gehen.
Code: [AUSKLAPPEN]

url$="http://www.planetsoft-games.de/"
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,80)
If is_online
req$=http://www.planetsoft-games.de/test.txt
; Request an das Serverscript schicken
WriteLine is_online,"GET /"+req$+" HTTP/1.1"
WriteLine is_online,"Host: "+url$
WriteLine is_online,"User-Agent: score"
WriteLine is_online,"Accept: */*"
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
in2$=Trim(ReadLine(is_online))
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

aquamonit.de|BlitzMax|MaxGUI

	cyby	Mo, Jul 26, 2004 20:01 Antworten mit Zitat
aha könnte mir mal bitte wer die einselenen Parameter erklären ? ( am besten am Beispiel von mir) Function ShareScore(url$,script$,par$,port) ich denke mal so url = www.planetsoft-games.de script = test.txt par = (keine Ahnung ^^) port = 80

cyby

Mo, Jul 26, 2004 20:01
Antworten mit Zitat

aha

könnte mir mal bitte wer die einselenen Parameter erklären ? ( am besten am Beispiel von mir)
Function ShareScore(url$,script$,par$,port)
ich denke mal so
url = www.planetsoft-games.de
script = test.txt
par = Question

(keine Ahnung ^^)
port = 80

	cyby	Mi, Jul 28, 2004 15:29 Antworten mit Zitat
kann das niemand beantworten ?

cyby

Mi, Jul 28, 2004 15:29
Antworten mit Zitat

kann das niemand beantworten ?

	Hubsi	Mi, Jul 28, 2004 18:43 Antworten mit Zitat
url=planet.../text.txt script=weglassen par=weglassen port=80 Sollte so oder so ähnlich funzen
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, Jul 28, 2004 18:43
Antworten mit Zitat

url=planet.../text.txt
script=weglassen
par=weglassen
port=80

Sollte so oder so ähnlich funzen Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	dominik	Mi, Jul 28, 2004 19:50 Antworten mit Zitat
weiß jemand wo es so ne art Liste gibt wo alle Befehle aufgelistet sind wie z.B. "Get" oder was es halt bewirkt wenn ich an nen server "host: URL" schick?

dominik

Mi, Jul 28, 2004 19:50
Antworten mit Zitat

weiß jemand wo es so ne art Liste gibt wo alle Befehle aufgelistet sind wie z.B. "Get" oder was es halt bewirkt wenn ich an nen server "host: URL" schick?

	cyby	Mi, Jul 28, 2004 19:52 Antworten mit Zitat
irgentwie geht es immer noch nicht Code: [AUSKLAPPEN] [EINKLAPPEN] Type OnlineScore Field name$ Field score End Type ShareScore("www.planetsoft-games.de/test.txt","","" ,80) WaitKey() End Function ShareScore(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online Print "Verbunden" req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" score.OnlineScore=New OnlineScore score\name$=in1$ score\score=Int(in2$) EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function Danke für HILFE

cyby

Mi, Jul 28, 2004 19:52
Antworten mit Zitat

irgentwie geht es immer noch nicht Confused

Code: [AUSKLAPPEN]

Type OnlineScore
Field name$
Field score
End Type

ShareScore("www.planetsoft-games.de/test.txt","","" ,80)
WaitKey()
End

Function ShareScore(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
Print "Verbunden"
req$=script$+par$
; Request an das Serverscript schicken
WriteLine is_online,"GET /"+req$+" HTTP/1.1"
WriteLine is_online,"Host: "+url$
WriteLine is_online,"User-Agent: score"
WriteLine is_online,"Accept: */*"
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
in2$=Trim(ReadLine(is_online))
If Left(in1$,5)<>"[END]"
score.OnlineScore=New OnlineScore
score\name$=in1$
score\score=Int(in2$)
EndIf
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

Danke für HILFE Exclamation

	Hubsi	Mi, Jul 28, 2004 19:58 Antworten mit Zitat
Ups, hab nicht aufgepasst url=planet... script=test.txt par=weglassen port=80 chmod sollte für die Datei auf dem Server auf 666 gesetzt sein (sollte mit dem Ftp-Proggi einstellbar sein). Wenns dann nicht funzt schraub ich mal eben eine Funktion zusammen, stell mir das nicht so schwer vor
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, Jul 28, 2004 19:58
Antworten mit Zitat

Ups, hab nicht aufgepasst Embarassed

url=planet...
script=test.txt
par=weglassen
port=80

chmod sollte für die Datei auf dem Server auf 666 gesetzt sein (sollte mit dem Ftp-Proggi einstellbar sein).

Wenns dann nicht funzt schraub ich mal eben eine Funktion zusammen, stell mir das nicht so schwer vor Smile

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	cyby	Mi, Jul 28, 2004 20:04 Antworten mit Zitat
könnt ihr mir mal bitte ein FTP programm sagen womit das geht ? ( habe zwar eines , aber das muss ich alle 30Tage neu installieren weil die Demo zu ende ist ... )

cyby

Mi, Jul 28, 2004 20:04
Antworten mit Zitat

könnt ihr mir mal bitte ein FTP programm sagen womit das geht ?
( habe zwar eines , aber das muss ich alle 30Tage neu installieren weil die Demo zu ende ist ... Smile

)

	Hubsi	Mi, Jul 28, 2004 20:07 Antworten mit Zitat
ws_ftp95le habe ich, damit die Datei markieren, Rechtsklick auf chmod(unix) und entsprechende Rechte setzen.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, Jul 28, 2004 20:07
Antworten mit Zitat

ws_ftp95le habe ich, damit die Datei markieren, Rechtsklick auf chmod(unix) und entsprechende Rechte setzen.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	cyby	Mi, Jul 28, 2004 20:35 Antworten mit Zitat
hi, so, die Rechte sind eingestellt (alle lesen und schreiben ) ! das Programm läuft zwar, aber es wird nie der Inhalt der Datei angezeigt Code: [AUSKLAPPEN] [EINKLAPPEN] Type OnlineScore Field name$ Field score End Type ShareScore("www.planetsoft-games.de","/test.txt","" ,80) WaitKey() End Function ShareScore(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online Print "Verbunden" req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" score.OnlineScore=New OnlineScore score\name$=in1$ score\score=Int(in2$) EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function

cyby

Mi, Jul 28, 2004 20:35
Antworten mit Zitat

hi,

so, die Rechte sind eingestellt (alle lesen und schreiben ) !
das Programm läuft zwar, aber es wird nie der Inhalt der Datei angezeigt Sad

Code: [AUSKLAPPEN]

Type OnlineScore
Field name$
Field score
End Type

ShareScore("www.planetsoft-games.de","/test.txt","" ,80)
WaitKey()
End

Function ShareScore(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
Print "Verbunden"
req$=script$+par$
; Request an das Serverscript schicken
WriteLine is_online,"GET /"+req$+" HTTP/1.1"
WriteLine is_online,"Host: "+url$
WriteLine is_online,"User-Agent: score"
WriteLine is_online,"Accept: */*"
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
in2$=Trim(ReadLine(is_online))
If Left(in1$,5)<>"[END]"
score.OnlineScore=New OnlineScore
score\name$=in1$
score\score=Int(in2$)
EndIf
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

	Hubsi	Mi, Jul 28, 2004 21:09 Antworten mit Zitat
Habs grad getestet, bei mir funktionierts:Code: [AUSKLAPPEN] [EINKLAPPEN] Type inhalt Field zeile$ End Type Global i.inhalt If ReadServerFile("www.hubsi.biz","blitzforum/test.txt","" ,80) For i.inhalt=Each inhalt Print i\zeile Next EndIf Print "" Print "Fertig..." WaitKey() End Function ReadServerFile(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online Print "Verbunden" req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" i.inhalt=New inhalt i\zeile=in1$ EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function Die Datei auf dem Server muß übrigens so in etwa aufgebaut sein:Zitat: [BEGIN] ; Wichtig Zeile 1 Zeile 2 weitere Zeile noch eine Zeile Hui, ist das lustig Zeile Schon 7 Zeilen Bla Jetzt reichts aber Schluß... [END] ; Nicht so wichtig Kannst Du direkt so testen, es wird das Zitat ohne das Begin und End rauskommen
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, Jul 28, 2004 21:09
Antworten mit Zitat

Habs grad getestet, bei mir funktionierts:Code: [AUSKLAPPEN]

Type inhalt
Field zeile$
End Type
Global i.inhalt

If ReadServerFile("www.hubsi.biz","blitzforum/test.txt","" ,80)
For i.inhalt=Each inhalt
Print i\zeile
Next
EndIf
Print ""
Print "Fertig..."
WaitKey()
End

Function ReadServerFile(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
Print "Verbunden"
req$=script$+par$
; Request an das Serverscript schicken
WriteLine is_online,"GET /"+req$+" HTTP/1.1"
WriteLine is_online,"Host: "+url$
WriteLine is_online,"User-Agent: score"
WriteLine is_online,"Accept: */*"
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
If Left(in1$,5)<>"[END]"
i.inhalt=New inhalt
i\zeile=in1$
EndIf
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

Die Datei auf dem Server muß übrigens so in etwa aufgebaut sein:Zitat:

[BEGIN] ; Wichtig
Zeile 1
Zeile 2
weitere Zeile
noch eine Zeile
Hui, ist das lustig
Zeile
Schon 7 Zeilen
Bla
Jetzt reichts aber
Schluß...
[END] ; Nicht so wichtig

Kannst Du direkt so testen, es wird das Zitat ohne das Begin und End rauskommen Wink

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	rambo256	Mi, Jul 28, 2004 21:48 Antworten mit Zitat
Jo bei mir funzt es auch!
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Mi, Jul 28, 2004 21:48
Antworten mit Zitat

Jo bei mir funzt es auch!

Asus F53z

Das Leben ist eine reine Konkatenation...

	cyby	Mi, Jul 28, 2004 23:28 Antworten mit Zitat
gut danke kann mir wer mal bitte das Iscore erklären , was das genau ist ^^ ? //edit: bei mir geht es jetzte auch ^^

cyby

Mi, Jul 28, 2004 23:28
Antworten mit Zitat

gut danke

kann mir wer mal bitte das Iscore erklären , was das genau ist ^^ ?

//edit: bei mir geht es jetzte auch ^^

	lettorTrepuS	Do, Jul 29, 2004 13:35 Antworten mit Zitat
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

lettorTrepuS

Do, Jul 29, 2004 13:35
Antworten mit Zitat

-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

wie kann man eine Datei auf einem Webspace auslesen ?

Betreff: wie kann man eine Datei auf einem Webspace auslesen ?