Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

<< < (19/26) > >>

koehlerbv:
In LS ist das escapen hier unnötig.
Interesse wäre zu wissen, was in den Variablen steht - da könnte der Hund begraben liegen.

Bernhard

m3:
Ah, danke Bernhard. Ich hüpfe derzeit etwas zu viel zweischen unterschiedlichen Sprachen.

Was mir beim Lesen gerade aufgefallen ist:
Dir$( servername & "\" & dateipfad & "\*.*",0)
stinkt für mich sehr nach einem UNC-Netzwerkpfad a la "\\SERVER002\VERZ\Datei".
Und da gibts mit Domino - wie man über die Forensuche schnell herausfindet - Probleme, wenn der Code auf dem Server läuft.

lotus blue:
Also es scheint als würde es funzen.
Leider hängt er sich noch auf mit "Unable to open File".
Was aber wohl eher was mit der Berechtigung auf das Laufwerk zu tun hat oder?

Axel:

--- Zitat von: lotus blue am 17.07.08 - 15:33:04 ---Also es scheint als würde es funzen.
Leider hängt er sich noch auf mit "Unable to open File".
Was aber wohl eher was mit der Berechtigung auf das Laufwerk zu tun hat oder?

--- Ende Zitat ---

Dann "funzt" es also doch noch nicht.

Es ist durch aus möglich, dass es mit der Berechtigung zu tun hat. Wo läuft den der Agent und wie sieht denn der Dateiname aus?

Axel

lotus blue:
Hallo hier mein Script
Sub Initialize
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As Notesdocument, profdoc As Notesdocument
   Dim servername As String, dateipfad As String, aktfile As String
   Dim fileNum As Integer, cells As Integer, k As Long
   Dim fileName As String
   Dim InputStr As String, delimiter As String
   Dim FieldArray As Variant
   Dim view As NotesView
   
   Set db = session.currentdatabase
   Set profdoc = db.getprofiledocument("(Konfiguration)")
   servername = profdoc.Server(0)
   dateipfad = profdoc.Dateiname(0)
   fileNum = Freefile()
   Set view = db.GetView ("Test")
   
'Trennzeichen
   delimiter = ";"
   
   aktfile = Dir$( servername & "\" & dateipfad & "*.*",0)
   If aktfile <> "" Then
      Open aktfile For Input As fileNum%
      Line Input #1,  InputStr$   
      Do While Not Eof(fileNum%)
         
         Line Input #1,  InputStr$
         FieldArray = Split(InputStr$,delimiter, -1, 0)
         If Not Isempty(FieldArray) Then
            Set doc = view.GetDocumentByKey(FieldArray(2))
            If Not doc Is Nothing Then
               Call doc.ReplaceItemValue("Bestelldatum", Today)
               Call doc.Save(True,True)
            End If
         End If
      Loop
      Messagebox "Datei nicht vorhanden", 16, "Fehler"
   End If
   Close fileNum%
End Sub

Die Datei heist Test.txt und liegt auf nem Laufwerk W:

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete