Autor Thema: Dokumente automatisch per Angent anlegen  (Gelesen 1823 mal)

Offline Synymy

  • Frischling
  • *
  • Beiträge: 22
Dokumente automatisch per Angent anlegen
« am: 31.01.13 - 11:37:58 »
Hallo liebe Entwicklungsfachmänner!

Ich bräuchte bei folgendem etwas Unterstützung:

In einer Datenbank sollen IP-Adressen den verschiedenen Gerätschaften zugeordnet werden.
Nun dachte ich mir, dass ich die Ranges in einer Ansicht komplett anlege und per Dialogfeld mir die Werte im Gerätedokument aus dieser Ansicht anzeigen lasse...
Leider scheitere ich schon daran, die IP-Adressen vernünftig in die Ansicht zu bekommen... Weil alle händisch eintippeln will ja keiner.

Also dachte ich mir per Import von Structured Text ja kein Problem. TXT erzeugt, COL erzeugt -> Problem, ab der Adresse xxx.xxx.xxx.100 verschwinden die Punkte zwischen den Oktetten.  ???

Deshalb die Frage, ob man die IP-Adress-Dokumente nicht per Agent anlegen kann?
Oder habt ihr bessere Tips parat?

Bin für Hilfe dankbar!

Grüße, Synymy

Offline Peter Klett

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.713
  • Geschlecht: Männlich
Re: Dokumente automatisch per Angent anlegen
« Antwort #1 am: 31.01.13 - 11:53:01 »
Das ist mit LotusScript kein Problem. Kannst Du (etwas) Script?

Offline Synymy

  • Frischling
  • *
  • Beiträge: 22
Re: Dokumente automatisch per Angent anlegen
« Antwort #2 am: 31.01.13 - 11:57:05 »
hmmm... das dachte ich mir. :-)

leider bin ich nicht der Script-Held... ich versuch mich mit den @-Formeln über Wasser zu halten...

Offline Peter Klett

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.713
  • Geschlecht: Männlich
Re: Dokumente automatisch per Angent anlegen
« Antwort #3 am: 31.01.13 - 12:11:39 »
Mit @Formeln kannst Du es vergessen.

Ich gebe Dir mal ein Gerüst für einen Agenten, das Du vermutlich auch in der Hilfe finden würdest.

Wolltest Du die Adressen aus einer txt-Datei importieren? Falls ja,mit diesem Script sollte das gehen.

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase

   Dim filenum As Integer
   filenum = Freefile
   Dim ip As String
   Open "c:\deinPfad\deinDateiname.txt" For Input As filenum
   Dim doc As NotesDocument
   Do While Not EOF (#filenum)
      Line Input #filenum, ip
      Set doc = New NotesDocument (db)
      doc.Form = "deineForm"
      doc.IP = ip
      Call doc.Save (True, True)
   Loop
   Close #filenum
End Sub

Ohne Datei musst Du die IP-Adressen per Script ausrechnen, falls es dafür eine Logik gibt (bisher steht nichts davon im Thread).

Alle Angaben ohen Gewähr :)

Offline Synymy

  • Frischling
  • *
  • Beiträge: 22
Re: Dokumente automatisch per Angent anlegen
« Antwort #4 am: 31.01.13 - 12:28:40 »
Wow... super... mit den IPs klappt das nun!

Wäre das auch der richtige Weg, um CSV-Dateien zu importieren?
Der laienhafte Gedanke dabei ist nun, dass ich dem Script irgendwie die Trennzeichen mitgeben muss und die verschiedenen Felder mitteilen (doc.<meinFeldname>= <meineSpaltenüberschrift>

Ist der Ansatz richtig?

Offline Peter Klett

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.713
  • Geschlecht: Männlich
Re: Dokumente automatisch per Angent anlegen
« Antwort #5 am: 31.01.13 - 12:34:14 »
Schau Dir mal in der Hilfe den Befehl Split an ...

Und dann bastelst Du Dir sowas zusammen. Aus der ersten Zeile merkst Du Dir die Feldnamen und ab der zweiten Zeile hast Du die Daten, die Du in die Felder schreibst

Offline Synymy

  • Frischling
  • *
  • Beiträge: 22
Re: Dokumente automatisch per Angent anlegen
« Antwort #6 am: 31.01.13 - 12:37:37 »
Das werd ich machen...

Vielen Dank erst mal für die Hilfe!!

Grüße, Syn

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz