FQDN auflösen/spalten

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

ozzi789

Betreff: FQDN auflösen/spalten

BeitragFr, Jun 22, 2012 9:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Hat jemand eine Idee wie ich am elegantesten einen Fully qualified domain name aufspalten?

Also z.B. https://www.blitzforum.de/header/header.png in

Code: [AUSKLAPPEN]
http://www.blitzforum.de - Base
header/header.png - File


Klar man kann nun sagen sobald der 2te Punkt kommt, es gibt aber auch Sachen wie
http://www.subpage.blitzforum.de/header/header.png
geben.


Ideen?
Danke im Vorraus Smile
0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

Eingeproggt

BeitragFr, Jun 22, 2012 9:20
Antworten mit Zitat
Benutzer-Profile anzeigen
Servus.
Wie wärs wenn man das http:// (und event. Https://) weg nimmt und sich dann am ersten schrägstrich orientiert?
Mfg christoph
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

BladeRunner

Moderator

BeitragFr, Jun 22, 2012 9:23
Antworten mit Zitat
Benutzer-Profile anzeigen
pos = Instr(name,"/",8); edit oder 9, dann ist https auch durch.
Hier teilst Du.
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI

Stolzer Gewinner des BAC#48, #52 & #92

ozzi789

BeitragFr, Jun 22, 2012 9:26
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich seh wohl den Wald voller Bäume nicht mehr.
Danke für die schnellen Antworten! Smile


Edit:
Code: [AUSKLAPPEN]
Print "------HTTPS--------------"
Print ""
Print splitt_fqdn("https://www.blitzforum.de/forum/derp.html",1)
Print splitt_fqdn("https://www.blitzforum.de/forum/derp.html",2)
Print ""
Print ""
Print "------HTTP---------------"
Print ""
Print splitt_fqdn("http://www.blitzforum.de/forum/derp.html",1)
Print splitt_fqdn("http://www.blitzforum.de/forum/derp.html",2)
Print ""
Print ""
Print "------WITHOUT------------"
Print ""
Print splitt_fqdn("www.blitzforum.de/forum/derp.html",1)
Print splitt_fqdn("www.blitzforum.de/forum/derp.html",2)
Print ""
Print "------Subpage HTTPS------"
Print ""
Print splitt_fqdn("https://www.sub.blitzforum.de/forum/derp.html",1)
Print splitt_fqdn("https://www.sub.blitzforum.de/forum/derp.html",2)
Print ""

WaitKey


Function splitt_fqdn$(url$,part)
   Local pos=0
   url$=Lower(url$)

   If Left(url$,7)="http://" Then pos=7
   If Left(url$,8)="https://"  Then pos=8
   
   slash_pos=Instr(url$,"/",pos+1)
   If part=1
      Return Mid(url$,pos+1,slash_pos-pos-1)
   ElseIf part=2
      Return Mid(url$,slash_pos)
   Else
      Return "Invalid part parameter!"
   EndIf
   
End Function
0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group