Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: Karin am 14.10.02 - 07:47:11
-
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?
-
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
-
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