Henkuttt Posted January 30, 2005 Share Posted January 30, 2005 Dim, adress adress = "http://www.google.se/?a=b" Om adressen ser ut som ovan, skall ?a=b bort. adress = "http://www.google.se/" Om adressen ser ut som den ovan ska inget hända alls. Kan det bli tydligare? Desvärre har jag inget förslag på lösning... POÄNGVARNING! Link to comment Share on other sites More sharing options...
Sasja Posted January 30, 2005 Share Posted January 30, 2005 [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 More sharing options...
Anjuna Moon Posted January 30, 2005 Share Posted January 30, 2005 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 More sharing options...
Sasja Posted January 30, 2005 Share Posted January 30, 2005 Vilket givetvis borde vara den optimalare lösningen av dessa två. [inlägget ändrat 2005-01-30 14:02:16 av Sasja] Link to comment Share on other sites More sharing options...
Anjuna Moon Posted January 30, 2005 Share Posted January 30, 2005 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 More sharing options...
Sasja Posted January 30, 2005 Share Posted January 30, 2005 sPureUrl=Split(sUrl,"?")(0) Hur som helst borde denna vara den optimalare lösningen av dessa tre!? Link to comment Share on other sites More sharing options...
Henkuttt Posted January 30, 2005 Author Share Posted January 30, 2005 Tack! Det sista fungerade super-bra! Testade inte de övre, eftersom den sistnämnda var kortast! Tack åter igen! Link to comment Share on other sites More sharing options...
Sasja Posted January 30, 2005 Share Posted January 30, 2005 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 More sharing options...
.thumb.png.71a73be41d8bf63826729db87e16f1ce.png)
.thumb.JPG.3e82d4144efd88a901bb8d25a8b2e943.JPG)
Recommended Posts
Archived
This topic is now archived and is closed to further replies.