Domino 9 und frühere Versionen > Entwicklung

Text in URL umwandeln

<< < (2/2)

Kuddel:
Leider funktioniert das mit den % als Ersatz für die Blanks nicht oder ich mach dabei einen Fehler. Die Lösung mit den Verknüpfungen ist auch nicht das was mir vorschwebt, da ich das ganze recht einfach halten möchte um auch Nutzer mit recht wenig PC-Erfahrung nicht zu verwirren.

Für weitere Ideen wäre ich sehr dankbar.

Gruß

Kuddel

Glombi:
Ein Leerzeichen muss durch %20 substituiert werden.
20 ist der Heximalwert für Dezimal 32 = Leerzeichen im ASCII-Code

Kuddel:
Kann man das auch in das Script sauber einbauen?
In der Hilfe bekomme ich nur die Funktion @ReplaceSubString raus.

Gruß

Kuddel

arcon:

--- Code: ---Function ReplaceSubString(strSource As String, strFind As String, strReplace As String) As String
   
   Dim intFindPos As Integer, intStartPos As Integer
   
   'Wenn Orgnialstring oder zu ersetzender Wert leer ist Funktion beenden und Rückgabe Orginalstring
   If (strSource = "") Or (strFind = "") Then
      ReplaceSubString = strSource
      Exit Function      
   End If  'If strFind = "" Then
   
   intStartPos = 1
   intFindPos = Instr(intStartPos, strSource, strFind)
   
   Do While intFindPos > 0
      strSource = Left$(strSource, intFindPos - 1) + strReplace + Mid$(strSource, intFindPos + Len(strFind))
      intStartPos = intFindPos + Len(strReplace)
      intFindPos = Instr(intStartPos, strSource, strFind)
   Loop
   
   ReplaceSubString = strSource
   
End Function
--- Ende Code ---

Kuddel:
Danke für Deine Arbeit werde das gleich mal umsetzen.

Gruß

Kuddel

Navigation

[0] Themen-Index

[*] Vorherige Sete