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

[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

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

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

Andreas

[Ozan]

Am ende kann ich durch die elementCount das letzte Feld ermitteln und entsprechend umsetzten, ich glaube dass das zerlegen auch für spätere Verarbeitung der Daten eine wichtige rolle spielt, z.b sortieren, bzw katalogisieren etc.

[BigWim]

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

und mit "xmldoc.titel(k)" legst Du aber nicht mehrere "Felder" an, sondern bestenfalls (im Erfolgsfall) ein "Feld" mit mehreren Einträgen (Textliste).

Wenn Du die Werte in einzelne "Felder" haben möchtest, versuche entweder a) NotesItem oder b) ReplaceItemValue aus NotesDocument

Markus

[ascabg]

Hallo,

Ich zielte eigentlich darauf hin ab, dass bei einem

Redim Preserve ... kein Datentyp mehr angegeben wird.

Also

Redim Preserve resultArray(elementCount)

[Ozan]

Feld "Titel" im xmldoc ist nicht ein Feld fuer Mehrfachwerte. Der beinhaltet

+blidtext+blintext+blidtext+blintext+blidtext+blintext

Mit der Array Zerlegung kann ich das schön aufteilen, bis dahin alles paletti, nur das dann an ensprechend mehrere Felder zu speichern ist mein problem.

Wie kann ich jetzt resultArray loopen und die Werte von [1],[2],...,[n] in mehrere Felder verteilen?

[ascabg]

Versuch mal das

Code

For k = LBound(resultArray) To UBound(resultArray)

  Call xmldoc.ReplaceItemValue("Titel" & CStr(k), resultArray(k)

Next

Andreas

[BigWim]

Wenn Du alle Einträge im Array prüfen mußt, kannst Du Dir auch mal ForAll ansehen.

Markus

[Ozan]

@Andreas

Fehler bei :

For k = LBound(resultArray) To UBound(resultArray)

Meldung:

"Attemt to access uninitialized dynamic array"

muss der vielleicht anders deklariert werden?

[ascabg]

Versuch doch einfach mal meinen vorherigen Code mit dem Split-Befehl und dann die For-Schleife mit dem ReplaceItemValue.

Andreas

[Ozan]

Hervorragend, funktioniert jetzt, Danke.

Gruss

Ozan

[ascabg]

Mit was funktioniert es denn jetzt?


Andreas

[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