Agent neede

i use a .col file to import.
yes i have a designer client, too.

the file looks like this:

url: UNTIL ",";
product: UNTIL ",";
ip: UNTIL ",";
netname: UNTIL ",";
descr: UNTIL ",";
date: UNTIL ",";
time: UNTIL ",";
timestamp: UNTIL ",";
pers1_name: UNTIL ",";
pers1_address: UNTIL ",";
pers1_email: UNTIL ",";
pers1_phone: UNTIL ",";
pers1_fax: UNTIL ",";
pers2_name: UNTIL ",";
pers2_address: UNTIL ",";
pers2_email: UNTIL ",";
pers2_phone: UNTIL ",";
pers2_fax: UNTIL "";

http://www.experts-exchange.com/Applications/Email/Lotus_Notes_Domino/Q_10303354.html?query=import+from+text+file&topics=133
Sub Initialize
      Dim ss As New notessession
      Dim ws As New notesuiworkspace
      Dim db As notesdatabase
      Set db = ss.CurrentDatabase
      Dim doc As notesdocument
      Dim wholetxt As String
      Dim fileNum As Integer
      Dim counter As Integer
      Dim countRec As Integer
      
      On Error Goto Errorhandler
      
      fileNum% = Freefile()
      counter% = 0
'Prompt for Text File:
      files = ws.OpenFileDialog(True, "File List", _
      "", "c:")
      If Isempty(files) Then
            Exit Sub
      End If
      
'Specify the file
      'Open "c:\windows\desktop\import.txt" For Input As fileNum%
      Open files(0) For Input As fileNum%
      Do While Not Eof(fileNum%)
 ' Read each line of the file.
            Line Input #fileNum%, wholetxt$
            
            pos = Instr(1,wholetxt,"|")
            firsttxt = Left(wholetxt, pos -1)
            remtxt = Right(wholetxt , Len(wholetxt) - (Len(firsttxt) + 1))
            
            pos = Instr(1,remtxt,"|")
            secondtxt = Left(remtxt , pos-1)
            remtxt = Right(remtxt , Len(remtxt) - (Len(secondtxt) + 1))
            
            pos = Instr(1,remtxt,"|")
            thirdtxt = Left(remtxt , pos-1)
            remtxt = Right(remtxt , Len(remtxt) - (Len(thirdtxt) + 1))
            
' pos = pos = Instr(1,remtxt,",")
'            fourthtxt = remtxt
' remtxt = Right(remtxt , Len(remtxt) - (Len(fourthtxt) + 1))
            
            Print firsttxt & " " & secondtxt & " " & thirdtxt
            Set doc = db.CreateDocument
            doc.form = "MSN"
            doc.Category = firsttxt
            doc.Organization = secondtxt
            'doc.dobField = Cdat(Format(thirdtxt,"MM/DD/YYYY"))
            doc.SystemName = thirdtxt
            Call doc.Save(True,False)
            Delete doc
            
 ' Increment the line count.
            counter% = counter% + 1
      Loop
      
      Call ws.viewrefresh
Errorhandler:
      Print "Error" & Str(Err) & ": " & Error$ & " Error Line #: "& Erl
      Resume Next
End Sub

hi madheeswar ,

thanks for this post.

i'm not a programmer but where could i see in the text to exclude or delete data records not wanted?

i need to specify that if a certain string appears in a specified field this record should be deleted.

does your code do this?

the import itsels works quite fine for me.

It will be much easier to do this after the import.

I'll see if I can post some code

ok , i'll have a look at it and wait.
thanks

After this below line:
Do While Not Eof(fileNum%)
 ' Read each line of the file.
          Line Input #fileNum%, wholetxt$


You can have a If condition and step out of that record.

See below code with small changes..
Do While Not Eof(fileNum%)
 ' Read each line of the file.
          Line Input #fileNum%, wholetxt$
         
          pos = Instr(1,wholetxt,"|")
          firsttxt = Left(wholetxt, pos -1)
          remtxt = Right(wholetxt , Len(wholetxt) - (Len(firsttxt) + 1))
     
          pos = Instr(1,remtxt,"|")
          secondtxt = Left(remtxt , pos-1)
          remtxt = Right(remtxt , Len(remtxt) - (Len(secondtxt) + 1))
         
          pos = Instr(1,remtxt,"|")
          thirdtxt = Left(remtxt , pos-1)
          remtxt = Right(remtxt , Len(remtxt) - (Len(thirdtxt) + 1))
         
' pos = pos = Instr(1,remtxt,",")
'          fourthtxt = remtxt
' remtxt = Right(remtxt , Len(remtxt) - (Len(fourthtxt) + 1))
         
          Print firsttxt & " " & secondtxt & " " & thirdtxt
    if (remtxt <>"SomeText") then 'Exclude this record.
          Set doc = db.CreateDocument
          doc.form = "MSN"
          doc.Category = firsttxt
          doc.Organization = secondtxt
          'doc.dobField = Cdat(Format(thirdtxt,"MM/DD/YYYY"))
          doc.SystemName = thirdtxt
          Call doc.Save(True,False)
end if
         ' Delete doc
         
 ' Increment the line count.
          counter% = counter% + 1
     Loop

madheeswar :

thanks for your code !!

sorry to ask this but ...
what does the code do (generally)?

what is the usage of this:
pos = Instr(1,wholetxt,"|")
          firsttxt = Left(wholetxt, pos -1)
          remtxt = Right(wholetxt , Len(wholetxt) - (Len(firsttxt) + 1))

and where can i store different text (found in the code 1 time : someText) to search for?

does your code import data?`



maybe my idea of it is not so realistic .... ?
i thought that it should be not a big deal to search documents in a nsf for some text and have these documents deleted.
...extend it to use a "storage" where diefferent text strings can be stored to look at.


i'm not a programer so i'm sorry if í ask something where you say:
big deal / too much work to do it.....

Option Public
Sub initialize
 Dim s As New NotesSession
 Dim mbox As NotesDatabase
 Dim dc As NotesDocumentCollection
 
  '>>Define search fomula
 sstring$ = "SELECT FORM = ""YourFormName"" & "Your text String""  'U can use Input box for getting test string from the user
 '>>Loop through all databases and remove documents based on the search formula
   Set mbox = s.currentDatabase
 If mbox.isopen Then
 Set dc = mbox.Search(sstring$, Nothing, 0)
 Print "Found " & dc.count & " documents to delete in " & mbox.filename
 Call dc.RemoveAll(True)
 Else
 Print "Unable to open database " & Cstr(d)
 End If
 
End Sub

i did not test it yet but instead of entering the strings allways again and again
could something work like this:

"Your text String""   & "Your text String1""   & "Your text String2""  & "Your text String3""  ....


when importing the data the incomming data is allways mixed with data i don't want.
this means that i need to delete allways the same kind of data (where e.g. name=smith & name=miller)....

thanks
hreinart

Untested but should work.

Create an agent  for Lotus Script in the DB that has the recoreds you want deleted. From menu, acts on all documents.

You need to substitute your values for

delNames list
and in
If Iselement(Delnames(doctocheck.name_of_the_person(0))) Then      

you need to plug in the name of the field where the peoples names are located.

copy and paste the declarations into the declarations section,
make sure option explicit is set

copy the initialize section and the second sub.
You can add error handling via Msgbox for now.

Declarations

      Dim db As NotesDatabase
      Dim inbox As notesview
Dim DELNames List As Integer
Dim server As String ,  mailpath As String ' server name and path to DB
Dim cutoffdate As NotesDateTime
' Dim DATABASE As NotesDatabase
Dim totaldeleted As Double, TotalDBSize As Double
Dim Dbg2 As Integer
Dim Dbg As Integer
Dim Dbg4 As Integer ' end count
Dim DbgEnd As Integer ' end early
Dim formname As String
Dim  servername As String
Dim Temp1 As Variant ' For checking if Field exists - flag or boolean
Dim DocCnt As Long , DocCntTot As Long  ' Documnet count

Sub Initialize
      
      Dim s As notesSession
      Dim db As NotesDatabase
      Dim inbox As notesview
      
      Set s=New notesSession
      
      Set db = s.currentDatabase
      servername=db.server
'
      Dim dbase As NotesDatabase
      Dim dbdirectory As New NotesDBDirectory (servername)
      Dim Nview As notesview
      
      Dim sDBpath As String  ' just path of DB being pocessed
      Dim nConfig As NotesDocument
      Dim Mycnt As Integer, CntL As Integer
      
'      Set agentLog =New  NotesLog("Clean Mail-D2-30" )
'      agentLog.logactions =1 ' set to True , 0 = false ?
      
      Dim Dirstr1 As String  ' For mail Dirs to Delete
      
      
      delNames("Joe Shmo") = 1
      delNames("Sam Smith") = 2
'      delNames("Sam Smith") = 3
'      delNames("Sam Smith") = 4 - as many names as you need
      
      
      Dbg2=2   ' for detailed debugging MR V 0.92
      Dbg=0   ' for detailed debugging MR V 0.927 E - Details in Process MailFile
      Dbg4=0   ' for detailed debugging MR V 0.92
      DbgEnd =0
      
      TotalDBSize=0
      totaldeleted = 0 ' start of total
      
      
      ' Add check for if file exists, append up til 1 MB size, then rename and create another
      
      
'      End If
      
                         ' MR 0.97 H list rather than string
      Call ProcessMailFile (dbase)
      
      '      Set dbase = dbdirectory.GetNextDatabase
      
      
      If totaldeleted = 0 Then
'
'            Call agentLog.LogAction("Cleanup Complete, 0 Bytes recovered")
      Else
            
      '      Call agentLog.LogAction("Cleanup Complete;Total space recovered;" & Format$(totaldeleted, "###,###,###,###") & "; Bytes recovered out of ;"& Format$(TotalDBSize, "###,###,###,###"))
      End If
'      Call agentLog.close
      
      
End Sub

Sub ProcessMailFile ( indb As notesdatabase)
      
      Dim deleted As Long, age As Long 'Dim deletedsize As Double
      Dim deletesize As Double
      
      Dim s As New notesSession
      
      Set Indb = s.currentDatabase
' server=db.server
      
'      mailpath="pathtoDB"
      
      Dim doctocheck As notesdocument
      Dim nextdoc As notesdocument
'      Dim collection As notesdocumentcollection
'      Set cutoffdate = New NotesDateTime( "Today" )
      
'      Set InDb = S.GetDatabase(server, mailpath)
      
      deleted = 0 'deletedsize = 0
      DocCnt =0
      DbgEnd =0  ' end after 4 errors at lowest level
      deletesize =0 ' set per DB
      
      
      On Error Goto PMFErrHandler
      
'      If Dbg2 > 0 Then Call agentLog.LogAction("P1 " & ","  & indb.Title & ","  & indb.filepath)
      
      Call indb.Open( "", "" )  ' already instantiated in external loop, so pass empty strings
'      If Dbg2 > 0 Then Call agentLog.LogAction("P2" & ","  & indb.Title & ","  & indb.filepath)
      TotalDBSize=indb.size+TotalDBSize ' MR 0.97G
'***check inbox or all
'      If Dbg2 >1 Then
      Set inbox =indb.GetView("Yourview")  '  Put your viewname here
      
      Set doctocheck = inbox.getfirstdocument
      
      While Not ( doctocheck Is Nothing )
            
            DocCnt =DocCnt +1
            If Iselement(Delnames(doctocheck.name_of_the_person(0))) Then      
                  
                  deletesize =deletesize +doctocheck.size
                  totaldeleted = totaldeleted + doctocheck.size 'total for all databases
                  Set nextdoc = inbox.GetNextDocument( doctocheck ) 'need to get next doc before doctocheck is deleted, otherwise errors
      '            If Dbg =0 Then ' MR V 0.9 debug mode checks only - no delete
                  Call doctocheck.remove(False)
                  Set doctocheck = nextdoc
      '            Else ' MR V 0.97  - get next Doc
      '                  Set doctocheck = nextdoc
      '            End If
                  deleted = deleted + 1
      '      Else
                  Set doctocheck = inbox.GetNextDocument( doctocheck )
      '      End If
'      Else ' skip to next doc or delete
'            Set doctocheck = inbox.GetNextDocument( doctocheck )
            End If
            
      Wend
      
      Goto normal
      
PMFErrHandler:
      On Error Goto 0
      ' Call logaction("Error processing " & indb.Title , Err, Error$, "Error")
' Call agentLog.LogError(Err,"Error processing " & ","  & indb.Title & ","  & indb.filepath & "," & Error$ & " on line," & Trim$(Str$(Erl)) )
      Exit Sub

hi,

i'm just trying it.
2 problems i have.

1)
what exactly do i need to do here?
make sure option explicit is set


2)
Goto normal
an error occures: undefined label.


could you please have a look at it?



thanks
hreinart

i tried to remark the line Goto normal

now i can save it but when i run it nothing happens.

Did you change the info for your view and add the peoples names.

Please post your code.

i did this:
delNames list
and in
If Iselement(Delnames(doctocheck.name_of_the_person(0))) Then    

could i send the nsf to you?


===============================================
Dim db As NotesDatabase
Dim inbox As notesview
Dim DELNames List As Integer
Dim server As String ,  mailpath As String ' server name and path to DB
Dim cutoffdate As NotesDateTime
' Dim DATABASE As NotesDatabase
Dim totaldeleted As Double, TotalDBSize As Double
Dim Dbg2 As Integer
Dim Dbg As Integer
Dim Dbg4 As Integer ' end count
Dim DbgEnd As Integer ' end early
Dim formname As String
Dim  servername As String
Dim Temp1 As Variant ' For checking if Field exists - flag or boolean
Dim DocCnt As Long , DocCntTot As Long  ' Documnet count





Sub Initialize
      Dim s As notesSession
      Dim db As NotesDatabase
      Dim inbox As notesview
      
      Set s=New notesSession
      
      Set db = s.currentDatabase
      servername=db.server
'
      Dim dbase As NotesDatabase
      Dim dbdirectory As New NotesDBDirectory (servername)
      Dim Nview As notesview
      
      Dim sDBpath As String  ' just path of DB being pocessed
      Dim nConfig As NotesDocument
      Dim Mycnt As Integer, CntL As Integer
      
'     Set agentLog =New  NotesLog("Clean Mail-D2-30" )
'     agentLog.logactions =1 ' set to True , 0 = false ?
      
      Dim Dirstr1 As String  ' For mail Dirs to Delete
      
      
      delNames("Daniel Budzyn") = 1
      delNames("Sam Smith") = 2
'     delNames("Sam Smith") = 3
'     delNames("Sam Smith") = 4 - as many names as you need
      
      
      Dbg2=2   ' for detailed debugging MR V 0.92
      Dbg=0   ' for detailed debugging MR V 0.927 E - Details in Process MailFile
      Dbg4=0   ' for detailed debugging MR V 0.92
      DbgEnd =0
      
      TotalDBSize=0
      totaldeleted = 0 ' start of total
      
      
     ' Add check for if file exists, append up til 1 MB size, then rename and create another
      
      
'     End If
      
                     ' MR 0.97 H list rather than string
      Call ProcessMailFile (dbase)
      
     '     Set dbase = dbdirectory.GetNextDatabase
      
      
      If totaldeleted = 0 Then
'
'          Call agentLog.LogAction("Cleanup Complete, 0 Bytes recovered")
      Else
            
     '     Call agentLog.LogAction("Cleanup Complete;Total space recovered;" & Format$(totaldeleted, "###,###,###,###") & "; Bytes recovered out of ;"& Format$(TotalDBSize, "###,###,###,###"))
      End If
'     Call agentLog.close
      
      
      
End Sub













Sub ProcessMailFile ( indb As notesdatabase)
      
      Dim deleted As Long, age As Long 'Dim deletedsize As Double
      Dim deletesize As Double
      
      Dim s As New notesSession
      
      Set Indb = s.currentDatabase
' server=db.server
      
'     mailpath="pathtoDB"
      
      Dim doctocheck As notesdocument
      Dim nextdoc As notesdocument
'     Dim collection As notesdocumentcollection
'     Set cutoffdate = New NotesDateTime( "Today" )
      
'     Set InDb = S.GetDatabase(server, mailpath)
      
      deleted = 0 'deletedsize = 0
      DocCnt =0
      DbgEnd =0  ' end after 4 errors at lowest level
      deletesize =0 ' set per DB
      
      
      On Error Goto PMFErrHandler
      
'     If Dbg2 > 0 Then Call agentLog.LogAction("P1 " & ","  & indb.Title & ","  & indb.filepath)
      
      Call indb.Open( "", "" )  ' already instantiated in external loop, so pass empty strings
'     If Dbg2 > 0 Then Call agentLog.LogAction("P2" & ","  & indb.Title & ","  & indb.filepath)
      TotalDBSize=indb.size+TotalDBSize ' MR 0.97G
'***check inbox or all
'     If Dbg2 >1 Then
      Set inbox =indb.GetView("Yourview")  '  Put your viewname here
      
      Set doctocheck = inbox.getfirstdocument
      
      While Not ( doctocheck Is Nothing )
            
            DocCnt =DocCnt +1
            If Iselement(Delnames(doctocheck.pers1_name(0))) Then    
                  
                  deletesize =deletesize +doctocheck.size
                  totaldeleted = totaldeleted + doctocheck.size 'total for all databases
                  Set nextdoc = inbox.GetNextDocument( doctocheck ) 'need to get next doc before doctocheck is deleted, otherwise errors
     '          If Dbg =0 Then ' MR V 0.9 debug mode checks only - no delete
                  Call doctocheck.remove(False)
                  Set doctocheck = nextdoc
     '          Else ' MR V 0.97  - get next Doc
     '               Set doctocheck = nextdoc
     '          End If
                  deleted = deleted + 1
     '     Else
                  Set doctocheck = inbox.GetNextDocument( doctocheck )
     '     End If
'     Else ' skip to next doc or delete
'          Set doctocheck = inbox.GetNextDocument( doctocheck )
            End If
            
      Wend
      
      ' Goto normal
      
PMFErrHandler:
      On Error Goto 0
     ' Call logaction("Error processing " & indb.Title , Err, Error$, "Error")
' Call agentLog.LogError(Err,"Error processing " & ","  & indb.Title & ","  & indb.filepath & "," & Error$ & " on line," & Trim$(Str$(Erl)) )
      Exit Sub
      
End Sub

ok, found the view:

Set inbox =indb.GetView("By Customer")  '  Put your viewname here


.. but does still do not delete...

post a zipped test DB on the ee-files site

http://www.ee-stuff.com

and post the link here.

i was ill, sorry.
will upload now.

when looking at the nsf, please e.g. try to delete with the agent

all records where pers1_name = ""Daniel Budzyn""

i uploaded it, but no infpormation about success or no-success was displayed.
please have a look and see if you can find the file.

tryied it again

View all files for Question ID: 22142331
http://www.ee-stuff.com/Expert/Upload/viewFilesQuestion.php?qid=22142331

Direct link to your file
http://www.ee-stuff.com/Expert/Upload/getFile.php?fid=2494

OK, I hope to look at this tomorrow.

hi,

please give me a hint when you had a chance to look at.
thanks

Sorry. things have been crazy witht he DST updates.

I hope to do so soon.

ok, thanks

hi,

you're still on this topic?

Yes, almost done with DST issues.

still here?

Looking at it now.

hi,

i tested the agent.
thanks a lot for your work !!!

generally it works fine.
it is strange that some data records are not deleted (maybe not found) .
all the names which you can see in the field are listed here (see below).

the agent should recognize and find them.

any idea what happens here?
do i need to modify anything else, too?

this is the code for finding the names:

delNames({"Daniel Budzyn"}) = 1
      delNames({"Security Team"}) = 2
      delNames("Stefan Feurle") = 3
      delNames("Torsten Vinke") = 4
      delNames("Rene Schulze") = 5
      delNames("Patrice Bertin") = 6
      delNames("Fred Mattig") = 7
      delNames("Claus Reinel") = 8
      delNames("NoValue") = 9
      delNames("AOL NOC") = 10
      delNames("Michel van der Laan") = 11
      delNames("Bernd Ahrens") = 12
      delNames("Bernhard Pege") = 13
      delNames("Fred Mattig") = 14
      delNames("Joerg Vierke") = 15
      delNames("Wilhelm Boeddinghaus") = 16
      delNames("mediaWays abuse") = 17
      delNames("pers1_name") = 18
      delNames("Net Pub") = 19
      delNames("Dominique Fillon") = 20
      delNames("Torsten Vinke") = 21
      '       delNames("pers1_name") =
      '       delNames("pers1_name") =
      '       delNames("pers1_name") =
      '       delNames("pers1_name") =
     '       delNames("pers1_name") =
      '       delNames("pers1_name") =


name #10 (AOL) is not found.

in the end the agend does about 80% of the work.
so if it's not a big deal please have a look at it.
if you need to invest a lot of time, don't do it.


thanks again
harald

For now the names must be an exact match, including case.
You might want to consider putting the delnames list all in upper case and changing the original  line to

If Iselement(Delnames(Ucase(doctocheck.pers1_name(0)))) Then  

I hope this helps !

this is how i create these names:

i open a document which i like to have deleted by the agent.
then i copy the contnent of the field names1 and paste it to the nameslist in the agent code.

using upper case would mean that the names in the documents need to be written in uppercase, too ?
if yes, i can't do this. there are too many documents which i'd need to modify.

i'm not good at reading the agent, but could it also work like this:
i write the delnames in uppercase
the agent browses through the database and loooks for:
if uppercase(name1) = delname (which is written in uppercase) then delete.


also:
do i need a special view to run the agent correctly?
or do i need to sort a column?

the agent runs only if i mark 1 document.



thanks
harald