Agent, der Tabelle in Textdatei ausliest

[Karin]

Wie kann man mit einem Agent eine Tabelle in einer Textdatei auslesen und sie in eine View übertragen, sodass in jeder Spalte der View eine Spalte der Tabelle von der Textdatei ausgegeben wird?

[eknori]

Hier mal auf die Schnelle ein Ansatz, wie man die zellen einer Tabelle auslesen kann

Sub Click(Source As Button)
   
    Dim w As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim bodytext As Variant
    Dim x As Integer, y As Integer
    Dim asciichr As Integer
   
    Set uidoc = w.currentdocument
    Set doc = uidoc.document
   
    bodytext = doc.body
   
    y = 1
    For x = 1 To Len(bodytext)
         asciichr = Asc(Mid(bodytext,x,1))
         If asciichr = 9 Or asciichr = 10 Then
              cellnumber = cellnumber + 1
                   Messagebox("Cell " & Str(cellnumber) & " contains """ & Mid(bodytext,y,x-y)) & """"
              y = x + 1
         End If
    Next x
   
End Sub

eknori

[Karin]

Ich weiß nicht so recht, ob das in folgendes reinpasst.
Es liest eine Textfile aus und schreibt sie in eine Spalte in der View. Da die Textfile selber auch eine Tabelle ist, brauche ich noch eine Formel, damit ich in der Spalte in der View nur eine Spalte aus der Textfile stehen habe.

Beispiel Textfile:

Spalte A      Spalte B
test1           test4
test2           test5
test3           test6
(soll             (Soll in zweite Spalte der View)
in erste
Spalte
in View)


Sub Initialize
   
   Dim S As New NotesSession
   Dim Db As NotesDatabase
   Dim Doc As NotesDocument
   
   Dim fileNum As Integer
   Dim text As String
   
   Set Db = S.CurrentDatabase   ' Bestimmt, dass die aktuelle Datenbank die Daten erhält
   
   fileNum = Freefile() ' Gewährleistet, dass die Textdatei geöffnet wird
   Open "c:\karin.txt" For Input As Freefile ' Öffnet die Textdatei
   
   Do While Not Eof(filenum)
      Line Input #filenum,text
      Set Doc = New NotesDocument(Db)
      Doc.Form = "Kandidaten"  ' Greift auf die Form "Kandidaten zu
      Doc.Kandidat = text 'Schreibt den Textfiletext in das Feld "Kandidat"
      Call Doc.Save(True, True) ' Speichert die Daten
   Loop
   
End Sub