Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

<< < (22/26) > >>

lotus blue:

--- Zitat von: Driri am 18.07.08 - 13:28:40 ---
--- Zitat ---Feld Server ist gefüllt mit -> \\Filename
Dateinname ist gefüllt mit -> laufwerksname/Ordnername

--- Ende Zitat ---

Ähm, wenn ich das richtig verstehe, steht dann z.B. so etwas da drin ?

Server = "\\test.txt"
Dateiname = "C:\test\"

Weil wenn dem so ist, dann würde Dir in folgendem Pfad suchen :

\\test.txt\C:\test\*.*

Ich würde vorschlagen, Du schaust Dir mal im Debugger an, was da überhaupt in den Variablen "servername" und "dateipfad" steht, wenn Du das Script ausführst.

--- Ende Zitat ---

Also im Debugger steht
bei Servername: "\\Filename"
bei Dateipfad: "laufwerksname/Ordnername"
bei Aktfile: "test.txt"

Axel:
Also mal ganz ehrlich, bei den Variableninhalten ist das doch ganz offensichtlich, dass das nicht funktionieren kann.

Heißt euer Server wirklich Filename?
Der Dateipfad heißt auch berstimmt nicht laufwerksname/Ordnername.
Der Inhalt von aktfile passt auch nicht so ganz.

Sorge erstmal dafür, dass das vernüftige Werte drinstehen und sehen wir weiter.


Axel

lotus blue:

--- Zitat von: Axel am 18.07.08 - 14:12:06 ---Also mal ganz ehrlich, bei den Variableninhalten ist das doch ganz offensichtlich, dass das nicht funktionieren kann.

Heißt euer Server wirklich Filename?
Der Dateipfad heißt auch berstimmt nicht laufwerksname/Ordnername.
Der Inhalt von aktfile passt auch nicht so ganz.

Sorge erstmal dafür, dass das vernüftige Werte drinstehen und sehen wir weiter.


Axel

--- Ende Zitat ---

Also unser Server heißt in echt \\A13_File
und der Pfad notes/Bestellungen
Hab es nur fürs Forum mit ähnlichen Werten ersetzt.
Beim Debugger steht in echt:
bei Servername: "\\A13_File"
bei Dateipfad: "notes/Bestellungen"

Es muss eigentlich so stimmen, denn er findet als Aktfile ja die test.txt obwohl ich ausser den o.g. Daten nichts angegeben hab.

m3:
Ich würd mal den "/" durch einen "\" ersetzten. Ist ja Windows.

Ansonsten hab ich ja schon 2x geschrieben, woran es noch liegen kann.

lotus blue:
So. Hab noch weiter rumgebastelt und das Config nochmal geändert.
Dort musste ja zuerst der Server und der Dateiname getrennt in zwei Felder eingegeben werden. Was ja Käse ist und gleich in das Feld Dateipfad reinpaßt.
Hab dann den SCode geändert, dass er nur noch auf das Feld Dateipfad (mit dem kompletten Namen) zugreift.
Nun funzt es auch.
Hier der Code:
Sub Initialize
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As Notesdocument, profdoc As Notesdocument
   Dim 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("(Konfig)")
   Dateipfad = profdoc.Dateipfad(0)
   fileNum = Freefile()
   Set view = db.GetView ("Alle Bestellungen")
   
'Trennzeichen
   delimiter = ";"
   
   aktfile = Dateipfad
   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

Wo ich aber noch auf der Leitung steh. Er sucht alle Daten der zugewiesenen txt-Datei durch und wenn er was findet, setzt er auch das Bestelldatum auf Today.
Wenn er alle durchsucht hat, schließt er aber immer mit "Datei nicht vorhanden", 16, "Fehler".

Kann mir jemand auf die Sprünge helfen?

Gruß

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete