Domino 9 und frühere Versionen > ND8: Entwicklung

[gelöst]Problem mit Replace function, siehe 7. Beitrag

<< < (2/2)

DAU-in:
Ist FSendTo ist wirklich ein Array (oder ein String)?

Und nimmt er im Debugger wirklich den neuen Code?

LordKiri:

--- Code: ---                fSendTo = wfDoc.GetItemValue("SendTo")

                chkSendTo = Replace (fSendTo, srcArray, repArray)

--- Ende Code ---

fSendTo ist als Variant deklariert, aber durch das GetItemValue wird es doch zum array oder irre ich mich da.

im Debugger behandelt er es als Array, also mit
[0]....
[1].....
[2].....
[3]....
....

jetzt habe ich gedacht es liegt daran, dass repArray und srcArray als Variant behandel werden, auch deren Werte, also habe ich sie als String deklariert, aber es geht trotzdem nicht...

ich probier jetzt noch den neuen Array in einer anderen Variable zu speichern...

LordKiri:
ich habe es gelöst....
es lag daran dass fSendTo als Variant deklariert war hab diesen workaround geschrieben und schon gehts:

--- Code: --- Dim repArray(2) As String, srcArray(2) As String
Dim fSendTo As Variant
Dim nSendTo As Variant
Dim i As Integer, j As Integer, k As Integer, h As Integer

Set uidoc = ws.CurrentDocument
Set wfDoc = uidoc.Document

srcArray(0) = "."
srcArray(1) = "_"
srcArray(2) = "-"

repArray(0) = " "
repArray(1) = " "
repArray(2) = " "

fSendTo = wfDoc.GetItemValue("SendTo")

For h = 0 To Ubound(fSendTo)
Redim Preserve chkSendTo(h)
chkSendTo(h) = fSendTo(h)
Next

                nSendTo = Replace (chkSendTo, srcArray, repArray)

--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete