Domino 9 und frühere Versionen > ND8: Entwicklung

Letztes Zeichen soll ein ; anstelle eines " sein

(1/1)

mweitzel:
Hallo,
ich habe ein Script in dem der Inhalt aus einer Maske in eine CSV Datei geschrieben werden soll.
Das funktioniert auch soweit ganz gut.
An einer Stelle komme ich aber nicht weiter.
Die Datei soll so aufgebaut sein, dass diese mit einem ; endet.
Das letzte Zeichen ist aber immer ein ". Egal was ich von der Variablen rechts abschneide.
Ich habe die Vermutung, dass der Write-Befehl immer ein " ans Ende setzt.
Hat jemand eine Idee oder Lösung?

Hier der Scriptausschnitt

                                                            For x = 1 To collection.count
            Set doc =collection.GetNthDocument(x)
            values=""
            Forall formfield In form.Fields
            newvalue=doc.GetItemValue(formfield)
            values=|"| & newvalue(0) & |";| & values
            End Forall
            values1 = Right(values, Len(values) - 1)
            values2 = Left(values1, Len(values1) - 2)
            values3 = Replace(values2,"""""","")
            Write #fileNum%,  || & values3
            Print "Datensatz " & x & " von " & collection.Count & " erfolgreich geschrieben."
            values=""
                        Next

Tode:
Auszug aus der Hilfe zum Write- Befehl:
--- Zitat ---The following table shows how the Write # statement behaves with various data types specified in exprList.
String: Encloses all strings in double quotation marks. Pads fixed-length strings with spaces as needed.
--- Ende Zitat ---

Nimm Print statt write, dann wird Dein String nicht manipuliert.
 

mweitzel:
Vielen Dank für die Unterstützung, mit dem Print Befehl hat es so funktioniert wie gewünscht.

Navigation

[0] Themen-Index