Just nu i M3-nätverket
Jump to content

Skala av adress


Henkuttt

Recommended Posts

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

Link to comment
Share on other sites

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]

 

Link to comment
Share on other sites

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)

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...