Stringteile ersetzen

[TheCrow]

Hallo ihr, ich bekomme per Get ein paar Paramater über die URL geliefert, die ich mit einem JavaScript Agenten abfange.

Leider werden mir auch Strings übergeben, die anstatt einem Leerzeichen ein "%20" als Platzhalter setzen (was ja auch klar ist)

Wie kann ich am Besten in einer Ansicht diese "%20" in ein normales Leerzeichen umwandeln bzw. kann ich das schon davor irgendwie machen ?

Danke für eure Hilfe

[ata]

... brauchst du das in JavaScript?

ata

[tower]

Hallo,

ich mach folgendes:

1. CGI-Wert lesen:

Function getCGIWert(sQuery_string As String, sFeld As String) As String
   'Holt Werte aus Querystring
   ' Bsp: s = getCGIWert("..?openDocument&KUN_NAME=Uwe&KUN_ID=4711","KUN_ID")
   '  liefert String "4711" zurück
   ' Uwe Schräpler 29.3.01
   
   Dim i As Integer
   Dim s As String
   sFeld= sFeld + "="
   i = Instr(1, squery_string, sfeld)
   If i > 0 Then
      s= Mid$(squery_string, i + Len(sfeld))
      i = Instr(1, s, "&")
      If i > 0 Then s = Left(s,i - 1)
   End If   
   getCGIWert = s
   
End Function


und um strings zu ersetzen:


Function replaceSubstring(orgstr As String,substr As String,repstr As String) As String
   'Ersetzt in <orgstr> alle vorkommenden <substr> durch <repstr>
   Dim stelle As String
   Dim lensubstr As Long
   replaceSubstring=orgstr
   lensubstr=Len(substr)
   stelle= Instr(replaceSubstring, substr)
   Do While stelle <> 0                            
      replaceSubstring = Mid (replaceSubstring,1,stelle -1) & repstr & Mid (replaceSubstring, stelle+lensubstr)
      stelle= Instr(replaceSubstring,substr)
   Loop
End Function


Ich hoffe, geholfen zu haben...

[TheCrow]

Hi ata,
nein, in Formelsprache (innerhalb der Ansicht) oder on LotusScript wäre es auch ok.

... brauchst du das in JavaScript?

ata

[Till_21]

leg dir ein feld namens "Query_String" oder "Query_String_Decoded" an.
dies beinhaltet die Parameter der URL.
Mehr dazu siehe Designer-Hilfe.
Weiss wohl nicht genau, was du genau mit einer Ansicht vorhast, dass bringt mich irgendwie aus dem gleichgewicht.
till

[TheCrow]

Hallo Tower,
das mit deinem replaceSubstring hat funktioniert.

Vielen Dank  

Hallo,

ich mach folgendes:

1. CGI-Wert lesen:

Function getCGIWert(sQuery_string As String, sFeld As String) As String
   'Holt Werte aus Querystring
   ' Bsp: s = getCGIWert("..?openDocument&KUN_NAME=Uwe&KUN_ID=4711","KUN_ID")
   '  liefert String "4711" zurück
   ' Uwe Schräpler 29.3.01
   
   Dim i As Integer
   Dim s As String
   sFeld= sFeld + "="
   i = Instr(1, squery_string, sfeld)
   If i > 0 Then
      s= Mid$(squery_string, i + Len(sfeld))
      i = Instr(1, s, "&")
      If i > 0 Then s = Left(s,i - 1)
   End If   
   getCGIWert = s
   
End Function


und um strings zu ersetzen:


Function replaceSubstring(orgstr As String,substr As String,repstr As String) As String
   'Ersetzt in <orgstr> alle vorkommenden <substr> durch <repstr>
   Dim stelle As String
   Dim lensubstr As Long
   replaceSubstring=orgstr
   lensubstr=Len(substr)
   stelle= Instr(replaceSubstring, substr)
   Do While stelle <> 0                            
      replaceSubstring = Mid (replaceSubstring,1,stelle -1) & repstr & Mid (replaceSubstring, stelle+lensubstr)
      stelle= Instr(replaceSubstring,substr)
   Loop
End Function


Ich hoffe, geholfen zu haben...