Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: TheCrow am 16.12.02 - 15:41:24

Titel: Stringteile ersetzen
Beitrag von: TheCrow am 16.12.02 - 15:41:24

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

Titel: Re:Stringteile ersetzen
Beitrag von: ata am 16.12.02 - 16:08:34

... brauchst du das in JavaScript?

ata

Titel: Re:Stringteile ersetzen
Beitrag von: tower am 16.12.02 - 16:11:21

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...

Titel: Re:Stringteile ersetzen
Beitrag von: TheCrow am 17.12.02 - 11:52:34

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

Zitat von: ata am 16.12.02 - 16:08:34

... brauchst du das in JavaScript?

ata

Titel: Re:Stringteile ersetzen
Beitrag von: Till_21 am 17.12.02 - 14:43:45

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

Titel: Re:Stringteile ersetzen
Beitrag von: TheCrow am 19.12.02 - 15:15:29

Hallo Tower,
das mit deinem replaceSubstring hat funktioniert.

Vielen Dank  :)

Zitat von: tower am 16.12.02 - 16:11:21

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...