Just nu i M3-nätverket
Gå till innehåll

Skala av adress


Henkuttt

Rekommendera Poster

[color="#0000ff"]Function[/color] convertUrl(adress)
  [color="#0000ff"]If[/color] [color="#0000ff"]InStr[/color](adress, [GRÅ]"?"[/GRÅ]) [color="#0000ff"]Then[/color]
    x = [color="#0000ff"]Len[/color](adress)
    [color="#0000ff"]Do[/color]
      [color="#0000ff"]If[/color] [color="#0000ff"]Mid[/color](adress, x, 1) = [GRÅ]"?"[/GRÅ] [color="#0000ff"]Then[/color]
        convertUrl = [color="#0000ff"]Left[/color](adress, [color="#0000ff"]Len[/color](adress) - ([color="#0000ff"]Len[/color](adress) - x) - 1)
        [color="#0000ff"]Exit[/color] [color="#0000ff"]Function[/color]
      [color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
      x = x - 1
    [color="#0000ff"]Loop[/color]
  [color="#0000ff"]Else[/color]
    convertUrl = adress  
  [color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]Function[/color]

 

En som i alla fall förhoppningsvis fungerar... den skalar helt enkelt av adressen där första frågeteckenet kommer sett från höger sida.

 

[inlägget ändrat 2005-01-30 13:04:16 av Sasja]

Länk till kommentar
Dela på andra webbplatser

En annan variant, som använder reguljära uttryck istället:

 

[color="#0000ff"]Function[/color] RemoveQuerystring(sUrl)
[color="#0000ff"]Set[/color] regEx = [color="#0000ff"]New[/color] RegExp
regEx.IgnoreCase = [color="#0000ff"]True[/color]
regEx.Global= [color="#0000ff"]True[/color]
regEx.Pattern =[GRÅ]"(.+)(\?.*)"[/GRÅ]
RemoveQuerystring=regEx.[color="#0000ff"]Replace[/color](sUrl, [GRÅ]"$1"[/GRÅ])
[color="#0000ff"]End[/color] [color="#0000ff"]Function[/color]

 

Länk till kommentar
Dela på andra webbplatser

Vilket givetvis borde vara den optimalare lösningen av dessa två.

 

Inte nödvändigtvis i det här enkla fallet, men jag gillar att påtala möjligheterna med regexp. Kom förresten på ett annat, än enklare sätt:

 

sPureUrl=[color="#0000ff"]Split[/color](sUrl,[GRÅ]"?"[/GRÅ])(0)

 

Länk till kommentar
Dela på andra webbplatser

Tack! Det sista fungerade super-bra!

 

Testade inte de övre, eftersom den sistnämnda var kortast!

 

Tack åter igen!

 

Länk till kommentar
Dela på andra webbplatser

Testade inte de övre, eftersom den sistnämnda var kortast!

 

Bara så du vet... den kortaste behöver absolut inte vara den bästa! ;) Även om det nu är så i detta fallet.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...