Textlist und array

kroewing · 4. September 2006

Hi zusammen,

ich brauche noch mal Eure Hilfe"

Ich habe ein Feld "MGRACL" mit dem folgenden Wert:

"test"
"test1"
"test2"

Dieses Feld möchte ich nun in eine Text Datei exportieren. Ich habe daher ein Array für das textlist erstellt, wo ich in der Messagebox auch alle Werte hinterinander angezeigt bekomme. Leider nicht in einem String der wie folgt aussehen soll:

test; test1; test2

Wenn ich es so in der Messagebox angezeigt bekomme, kann ich es auch so exportieren via "Print"

Auszug:

Code

Dim aclmgr As Variant
For i = 0 To Ubound (aclmgr)	
Messagebox(aclmg(i))
Next

Vielen Dank
Heinz

PS: freue mich schon auf das Treffen :pint:

bofh · 4. September 2006

1) Ein Variant ist kein Array
2) Wie kommen die Werter/der Wert in den Variant?

Wenn Du schon Code postest, dann bitte den Ganzen (relevanten).

kroewing · 4. September 2006

Kein Poblem...

Code

Sub Initialize

	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim s As New NotesSession
	Dim view As NotesView
	Dim out As String
	Dim nFout As Integer
	nFout = Freefile()
	Dim cPath As String
	Dim SelectServerName As String
	Dim cFieldArray1 As String
	Dim cFieldArray2 As String

	SelectServerName="test/test"

	Set db = s.CurrentDatabase
	cPath = "C:\ACL-Output.txt"
	Set view = db.GetView("ByServer") 
	Set doc = view.getFirstDocument
	Open cPath For Output As nFout

	While Not doc Is Nothing
		If  doc.Server(0)=SelectServerName Then

			Dim nn As New NotesName(doc.server(0))
			ServerShort = nn.Abbreviated

			Dim aclmgr As Variant
			aclmgr = doc.mgracl

			For i = 0 To Ubound (doc.mgracl)	
				Messagebox(doc.mgracl(i))

			Next	

			cFieldArray1 = ServerShort
			cFieldArray2 = doc.mgracl(0)

			Print #nFout%, cFieldArray1"," cFieldArray2","

		End If

		Set doc = view.GetNextDocument(doc)

	Wend
	Close nFout

End Sub

Alles anzeigen

Jetzt ist der Output so:

Server,test,

wobei nur der erste Wert (test) ausgegeben wird. Es soll aber wie folgt sein :

Server,test;test1;test1,

Gruß
Heinz

dnotes · 4. September 2006

Dann solltest Du erstmal den String fuer die Ausgabe zusammen bauen.

[code].....
For i = 0 To Ubound (doc.mgracl)
Inhalt = Inhalt & (doc.mgracl(i))

Next

.
.

Print #nFout%, cFieldArray1 , Inhalt

kroewing · 4. September 2006

Und so bekomme ich noch Trennzeichen rein.

Inhalt = Inhalt & ";" & (doc.mgracl(i))

Super...hast mir sehr geholfen! Wenn Du auch beim Treffen bist, hast Du Dir n Bier oder was alkfreies verdient.

Gruß
Heinz

taurec · 4. September 2006

Oder noch einfacher:

Ergebnis = Implode(Feld, Trennzeichen)

Teilen