Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

<< < (17/26) > >>

s_Old:

--- Zitat von: Axel am 05.06.08 - 08:24:05 ---Das glaube ich eher weniger. Dann müsste die Fehlermeldung anders lauten.

Die Meldung "Variant does not contain an Object." weist in diesem Fall eindeutig auf die nicht gesetzte Variable view hin.

--- Ende Zitat ---
Schande über mein Haupt, du hast Recht. Ich habe vergessen, dass view hier nicht deklariert wurde und somit natürlich ein Variant ist.

Option Declare!

lotus blue:

--- Zitat von: lotus blue am 06.06.08 - 08:21:45 ---EditHier den endgültige Code, der auch funzt:
Sub Initialize
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   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 view = db.GetView ("Alle Dokumente")
   
   fileNum% = Freefile()
   
     'Dateipfad
   fileName$ = "C:\PROTOKOLL.TXT"
   
   'Trennzeichen
   delimiter = ";"
   
   Open fileName$ For Input As fileNum%
   Line Input #1,  InputStr$   
   Do While Not Eof(fileNum%)
     'Zeile für Zeile einlesen
      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("Status", "erledigt")
            Call doc.Save(True,True)
         End If
      End If
   Loop
   Close fileNum%
End Sub

--- Ende Zitat ---

Hallo Leute muss das Thema leider nochmal aufgreifen.
Das ganze LS funzt ja (dank Eurer Hilfe ;D ) nur will ich es nun ein wenig umbauen.
Hab jetzt ein Config-Dok angelegt in dem ich den Server und den Dateinamen eingetragen hab.
Anstatt fileName$ = "C:\Test.TXT" sollte nun die Datei aus dem Config-Dok ausgelesen werden.
Doch da steh ich vor nem Prob. Hoffe das es dieses Jahr noch mit nem LS-Kurs klappt.

Ich meine, dass ich

Dim doc As Notesdocument, profdoc As Notesdocument,
Dim servername As String, dateipfad As String
Set db = se.currentdatabase
Set profdoc = db.getprofiledocument("Config")
servername = profdoc.Server(0)
dateipfad = profdoc.Verzeichnis(0)
filenum = Freefile()
aktfile = Dir$( servername & "\" & dateipfad & "\*.*",0)
hinzufügen muss. (oder so in der Art)

Aber wie schreibe ich die folgenden Zeilen um?
fileNum% = Freefile()
   
     'Dateipfad
   fileName$ = "C:\Test.TXT"
   
   'Trennzeichen
   delimiter = ";"
   
   Open fileName$ For Input As fileNum%
   Line Input #1,  InputStr$   
   Do While Not Eof(fileNum%)

Irgendwas paßt natürlich überhaupt nicht.
Kann mir Bitte jemand weiterhelfen?

Axel:
Das sieht doch gar nicht mal so schlecht aus.

So kann' weitergehen.

...
Set profdoc = db.getprofiledocument("Config")
servername = profdoc.Server(0)
dateipfad = profdoc.Verzeichnis(0)
filenum = Freefile()

'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%)
Else
   Messagebox "Datei nicht vorhanden", 16, "Fehler"
End If
...


Axel

lotus blue:
JA da bin ich schon mal froh, dass ich auf dem richtigen Weg bin. ;D

Aber bekomm da ein Prob mit dem "Else". -->Unexpected Else, Expected Loop.
Kann das sein?

Gruß



--- Zitat von: Axel am 17.07.08 - 12:36:40 ---Das sieht doch gar nicht mal so schlecht aus.

So kann' weitergehen.

...
Set profdoc = db.getprofiledocument("Config")
servername = profdoc.Server(0)
dateipfad = profdoc.Verzeichnis(0)
filenum = Freefile()

'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%)
Else
   Messagebox "Datei nicht vorhanden", 16, "Fehler"
End If
...


Axel


--- Ende Zitat ---

DerAndre:
Dem While fehlt das wend

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete