Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: mweitzel am 03.11.14 - 08:21:52

Titel: Letztes Zeichen soll ein ; anstelle eines " sein
Beitrag von: mweitzel am 03.11.14 - 08:21:52
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
Titel: Re: Letztes Zeichen soll ein ; anstelle eines " sein
Beitrag von: Tode am 03.11.14 - 09:16:07
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.

Nimm Print statt write, dann wird Dein String nicht manipuliert.
 
Titel: Re: Letztes Zeichen soll ein ; anstelle eines " sein
Beitrag von: mweitzel am 04.11.14 - 07:30:25
Vielen Dank für die Unterstützung, mit dem Print Befehl hat es so funktioniert wie gewünscht.