Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Ozan am 23.04.09 - 12:09:27

Titel: Mehrfachfeld auf String umwandeln
Beitrag von: Ozan am 23.04.09 - 12:09:27

Hallo,

es gibt in der Datenbank ein Feld(Mehrfachwert), diese Feld beinhaltet verschieden infos z.B.:

"01"
"05"
"1995"

diese infos möchte ich in ein Text Feld wie folgt speichern:

"01.05.1995"

Das ganze in LS, hier codeschnipsel:

docPerson.Datum=cstr(docReaktion.Datum)

mit "cstr" sagt der "type Mismatch"!

Für eine Lösungsvorschlag währe ich dankbar.

Ozan

Titel: Re: Mehrfachfeld auf String umwandeln
Beitrag von: BigWim am 23.04.09 - 12:17:58

Zitat

Für eine Lösungsvorschlag wäre ich dankbar.

Keine Ahnung, was Du damit lösen willst, aber in LS müßtest Du es so schreiben

Code

docPerson.Datum=docReaktion.Datum(0) + "." + docReaktion.Datum(1)+ "." + docReaktion.Datum(2)

Markus

Titel: Re: Mehrfachfeld auf String umwandeln
Beitrag von: Ozan am 23.04.09 - 12:21:18

Das hatte ich bereits getestet gehabt:

Fehler: Subscript out of range

Titel: Re: Mehrfachfeld auf String umwandeln
Beitrag von: m3 am 23.04.09 - 12:22:02

Code

docPerson.Datum=Join(docReaktion.Datum, ".")

Wobei ich persönlich kein Feld "...Datum" nennen würde, wenn dann ein oder mehrere String(s) drinnen steht/stehen.

Titel: Re: Mehrfachfeld auf String umwandeln
Beitrag von: BigWim am 23.04.09 - 12:27:05

Zitat

Das hatte ich bereits getestet gehabt: Fehler: Subscript out of range

Dann stehen in diesem Fall nicht drei Werte in Deinem Mehrfachfeld, denn das wäre bei meinem Vorschlag zwingend. Füge vor der Zeile ein stop ein und prüfe das mal im Debugger ....

Titel: Re: Mehrfachfeld auf String umwandeln
Beitrag von: Ozan am 23.04.09 - 12:34:32

Volltreffer m3, der "join" war es.
Danke vielmals.
Gruss

Ozan

Titel: Re: Mehrfachfeld auf String umwandeln
Beitrag von: C_T am 23.04.09 - 15:45:53

Ich würde sicherheitshalber einfach noch einen schritt weitergehen und folgendes machen...

Code

Dim i as integer
Dim Text as String

Text = ""

For i = 0 to ubound(docReaktion.Datum)
  if Text <> "" then
    Text = Text + "."
  end if
  Text = Text + cstr(doc.Reaktion.Datum(i))
Next

docPerson.Datum = Text