Domino 9 und frühere Versionen > ND6: Entwicklung

[erledigt] Suchen von rechts nach erste "+" Zeichen -LS-

<< < (4/4)

Ozan:
hier:

Dim stringList As String, delimiter As String
Dim resultArray( )  As Variant
Dim StringToArray As Variant
delimiter="+"
stringList=xmldoc.titel(0)
Dim elementCount As Integer
elementCount = -1
 While ( Instr( stringList, delimiter ) <> 0 )
   elementCount = elementCount + 1
   Redim Preserve resultArray( elementCount ) As Variant
   resultArray( elementCount ) = Trim$( Left$( stringList, Instr( stringList, delimiter ) - 1) )
  stringList = Right$( stringList, ( Len( stringList ) - Instr( stringList, delimiter) ) )
 Wend
elementCount = elementCount + 1
Redim Preserve resultArray( elementCount ) As Variant
resultArray( elementCount ) = Trim$( stringList )
StringToArray = resultArray( )
         
For k = 1 To elementcount
 Call xmldoc.ReplaceItemValue("Titel" & Cstr(k), StringToArray(k))
Next

Navigation

[0] Themen-Index

[*] Vorherige Sete