Seite 2 von 3
Verfasst: 02.03.2006 16:25
von onny
Sorry, er sagt File object not initialized....
Verfasst: 02.03.2006 16:32
von Kiffi
onny hat geschrieben:Sorry, er sagt File object not initialized....
ja, dann hast Du die Datei vorher nicht geöffnet. Ist wahrscheinlich besser,
wenn Du den Code mal hier postest. Dann kann ich genauer sagen, woran es
liegt.
Grüß ... Kiffi
Verfasst: 02.03.2006 16:44
von onny
Code: Alles auswählen
CreateFile(0,"server.txt")
WriteStringN(URL2$)
CloseFile(0)
FF = OpenFile(0, "server.txt")
If FF
While Eof(FF) = 2
Zeile$ = ReadString()
Debug StringField(Zeile$, CountString(Zeile$, "/") + 1 , "/")
Wend
CloseFile(FF)
Else
MessageRequester("04455","Error, Server.txt wurde nicht gefunden")
End
EndIf
Am schluss solte er es am besten mit einem MessageRequester ausgeben!
Verfasst: 02.03.2006 16:51
von Kiffi
onny hat geschrieben:Code: Alles auswählen
CreateFile(0,"server.txt")
WriteStringN(URL2$)
CloseFile(0)
Was steht in der Variable URL2$?
Grüße ... Kiffi
Verfasst: 02.03.2006 16:54
von onny
Verfasst: 02.03.2006 16:59
von Kiffi
nur eine URL?
Du meine Güte! Dann hätten wir uns den Aufwand sparen können.
Lass mal den ganzen CreateFile()- und OpenFile()-Quatsch weg und schreibe
nur folgende Zeile:
Code: Alles auswählen
Debug StringField(URL2$, CountString(URL2$, "/") + 1 , "/")
Da hast Du mich aber ganz schön auf die falsche Fährte gelockt...
Grüße ... Kiffi
Verfasst: 02.03.2006 17:19
von onny
so, es funzt, aber ich bin noch zu noobi (zu blöde):
http://onnsoft.xail.net/Test/rapidleech/index.php
www.google.de/index.php
test.de/test/test/tesT/test/index.php
usw...
Wie bekomm ich da überall die index.php weg?
Verfasst: 02.03.2006 17:49
von Kiffi
> (zu blöde):
nee, hier ist es so, dass ich zu blöde war, Dein Ursprungsposting korrekt zu lesen.
Code: Alles auswählen
Ausgabe$=""
For lCounter = 1 To CountString(URL2$, "/")
Ausgabe$ + StringField(URL2$, lCounter, "/") + "/"
Next
Debug Ausgabe$
Grüße ... Kiffi
Verfasst: 02.03.2006 18:23
von onny
ok, vielen dank für deine gedult. noch eine und hoffentlich letzte frage! die index.php oder die gif datei ist nun weg!
http://www.google.de/test/google.gif -->
http://www.google.de/test/
jetzt will ich aber noch den letzten / weghaben:
http://www.google.de/test
bitte helf mir und vielen vielen dank
Verfasst: 02.03.2006 18:48
von Kiffi
Code: Alles auswählen
Ausgabe$=""
For lCounter = 1 To CountString(URL2$, "/")
Ausgabe$ + StringField(URL2$, lCounter, "/")
If lCounter <> CountString(URL2$, "/")
Ausgabe$ + "/"
EndIf
Next
Debug Ausgabe$
