Domino 9 und frühere Versionen > ND6: Entwicklung

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

(1/4) > >>

Ozan:
Hallo,

wie kann ich mit LS in einem Textfeld von recht nach erste "+" suchen und nur diese ersetzen wie z.b:

Original:
+Blintext+Blintext+BlintextBlintext+Blintext

ersetzt:
+Blintext+Blintext+BlintextBlintext-Blintext

Gruss

Maldus

WildVirus:
Die Forumssuche ist gut - bringt glatt:

http://atnotes.de/index.php?board=11%3Baction=display%3Bthreadid=12267

Viel Erfolg.

CU,
Axel

ascabg:
Hallo,

Ich wuerde mir auch einmal

StrRightBack, StrRight, StrLeftBack und StrLeft

zu diesem Zwecke ansehen.


Andreas

Ozan:
Jetzt habe ich mir eine andere Lösung erarbeitet, ich zerlege diese TextFeld mir folgendes:

 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( )


klappt auch hervorragend. Jetzt möchte ich diese Array in mehrere(Feldname+ArrayCount) Felder abspeichern:
 
For k = Lbound( resultArray ) To Ubound( resultArray )
  xmldoc.titel(k)=resultArray(k)
 Next

hier hängt der mit folgende Fehlermeldung:

"Attemt to access uninitialized dynamic array"

ich glaube dass Lbound und Ubound für diese Array nicht funktioniert.
Hat jemand eine Idee?

Gruss

Ozan

ascabg:
Hallo,

Warum fuer das Zerlegen in einen Array nicht die Split-Funktion verwenden?

Was willst Du mit dieser Zeile denn erreichen.

--- Code: ---Redim Preserve resultArray( elementCount ) As Variant
--- Ende Code ---


--- Code: ---Dim resultArray As Variant
Dim Count as Integer

resultArray = Split(xmldoc.Title(0), "+")

If Not IsArray(resultArray) Then Exist Sub   'kein Array

For Count = LBound(resultArray) To UBound(resultArray)
   ' Dein Code
Next


--- Ende Code ---

Und Das Feld "Titel" im xmldoc ist hoffentlich ein Feld fuer Mehrfachwerte.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite