FileSeek() ? Immer nur bestimmten Teil auslassen...

[onny]

Sorry, er sagt File object not initialized....

[Kiffi]

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

[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!

[Kiffi]

Code: Alles auswählen

CreateFile(0,"server.txt")
WriteStringN(URL2$)
CloseFile(0)

Was steht in der Variable URL2$?

Grüße ... Kiffi

[onny]

eine URL z.b. http://onnsoft.xail.net/Onnsoft/google.gif

[Kiffi]

eine URL z.b. http://onnsoft.xail.net/Onnsoft/google.gif

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

[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?

[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

[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

[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$