Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: masterste2000 am 23.11.06 - 16:29:27

Titel: Liste erzeugen ??????? In LS
Beitrag von: masterste2000 am 23.11.06 - 16:29:27
Hallo zusammen!!!

Ich möchte gerne eine Liste erzeugen, die ich durch eine Prompt_OCANCELLIST dem Nutzer zur Verfügung stellen möchte.

Mein Problem ist, dass ich keine Liste erzeugen kann die einzelne Auswahlmöglichkeiten ergeben!!???

Choices soll die Auswahlliste beinhalten

 Selection =   mworkspace.Prompt(PROMPT_OKCANCELLIST, "Select Batch Number", "Select Batch Number from the List", PROMPT_LISTMULT, Choices)

Wie bekomme ich in Choices z.b. folgende Auswahl:

100
200
300
700
900

Meine Versuche mit Choices = "100"+"200"+"300" .....

bringen nichts, da Choises nur eine Auswahl beinhaltet!!!

WER kann mir helfen?????



VIELEN DANK

 
Titel: Re: Liste erzeugen ??????? In LS
Beitrag von: koehlerbv am 23.11.06 - 16:34:00
Dim aChoices (0 to 4) As String

aChoices (0) = "100"
aChoices (1) = "200"
aChoices (2) = "300"
aChoices (3) = "700"
aChoices (4) = "900"

Selection = mworkspace.Prompt(PROMPT_OKCANCELLIST, "Select Batch Number", "Select Batch Number from the List", PROMPT_LISTMULT, aChoices (0), aChoices)

Das ist nur die starr codierte Variante. Interessant wird es, wenn man das dynamisch braucht. Aber das wirst Du nun selber hinbekommen.

HTH,
Bernhard
Titel: Re: Liste erzeugen ??????? In LS
Beitrag von: klaussal am 23.11.06 - 16:34:28
Mal wieder aus der Hilfe:

Zitat
Dim values(2) As Variant
  values(0) = "Schedule"
  values(1) = "Phone Book"
  values(2) = "My Mail"
  response = workspace.Prompt (PROMPT_OKCANCELLIST, _
  "Select a Database", _
  "Select a database to open.", _
  values(0), values)
Titel: Re: Liste erzeugen ??????? In LS
Beitrag von: m3 am 23.11.06 - 16:41:22
Zitat von: koehlerbv am 23.11.06 - 16:34:00
Dim aChoices (0 to 4) As String

aChoices (0) = "100"
aChoices (1) = "200"
aChoices (2) = "300"
aChoices (3) = "700"
aChoices (4) = "900"

Selection = mworkspace.Prompt(PROMPT_OKCANCELLIST, "Select Batch Number", "Select Batch Number from the List", PROMPT_LISTMULT, aChoices (0), aChoices)
Das Befüllen des Arrays geht mit Split eleganter:

Code
Dim aChoices As Variant

aChoices = Split( "100,200,300,700,900", ",")
...

Wobei, wenn ich mich richtig erinnere, gab es Split in R5 nicht :(
Titel: Re: Liste erzeugen ??????? In LS
Beitrag von: koehlerbv am 23.11.06 - 17:09:55
Deswegen habe ich das auch nicht gepostet, Martin. Für R4 / R5 habe ich deswegen eine eigene Routine "ArrayAdd", um dieses Manko zu umschiffen.

Bernhard
Titel: Re: Liste erzeugen ??????? In LS
Beitrag von: ZaLudtske am 24.11.06 - 06:35:50
Hallo,

hier eine kleine Funktion als Splitersatz unter R5.

Code
Public Function fktSplit(Byval strAusdruck As String, Byval strTrennz As String) As Variant
  Dim strCmd As String
	
  Dim vntReturn As Variant
	
  strCmd = "@EXPLODE(" + Chr(34) + strAusdruck + Chr(34) + "; " + Chr(34) + strTrennz + Chr(34) +");"
	
  vntReturn = Evaluate(strCmd)
	
  fktSplit = vntReturn
	
End Function