asked on

Find Duplicates

Fairly simple.

Just laziness though. I have a list and I would like to have another list derived from this that would list only the duplicate items....

Anything is fine. @Functions / LotusScript I dont care.

:-)
Arun.

Example:

SourceList : one , two, three, four, one, one, two, five , six , seven

ResultList : one, one, two

qwaletee

Dim alreadyFound List as Integer
Set onlyDups = doc.replaceItemValue "onlyDups" , "Ignore first element - just a header"
Forall element in doc.FieldWithDups
If IsElement(alreadyFound(element)) Then
onlyDups.appendToTextList element
Else
alreadyFound(element) = True
End If
End Forall

Arunkumar

ASKER

That was good.... Qwaletee. Now add 50 pts to the question and answer this one....

Dim stTimeRange As NotesDateTime
      Dim edTimeRange As NotesDateTime
      Dim sysTime As NotesDateTime

      Set stTimeRange = New NotesDateTime("11/06/2003 07:00:00")
      Set edTimeRange = New NotesDateTime("11/06/2003 18:00:00")
      Set sysTime = New NotesDateTime("11/06/2003 10:00:00")

      Print "Start Time " & stTimeRange.TimeOnly
      Print "End Time " & edTimeRange.TimeOnly
      Print "CurrentTime " & sysTime.TimeOnly


      If (systime.TimeOnly > stTimeRange.TimeOnly) And (systime.TimeOnly < edTimeRange.TimeOnly) Then
            Print "The currentTime is falling in work hours."
      Else
            Print "The Time is beyond work hours"
      End If

Why does this always say not in range ? Can you fix this one for me..??

Arunkumar

ASKER

I just gave you a bunch of pts on an old question. Lets keep the point saga going....

Sjef Bosman

1) You're comparing strings
2) Could be a timezone-problem, you didn't include your timezone in the NotesDateTime-calls

Arunkumar

ASKER

Well, i just got around with it by adding Hour before all the time variants....and i am about to test it now.

ASKER CERTIFIED SOLUTION

qwaletee

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

Sjef Bosman

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

qwaletee

@Sort was introduced with R6, in which case you may as well use the looping mechanism.

Sjef Bosman

Sure, I know, and n cannot be generated automatically. Nevertheless, the thing works, and without explicit looping instructions, for that's what's so charming about lists in Notes. You could even write it as a one-liner, making it unreadable, almost like APL but then the other way around.

qwaletee

Wow! APL! that would easily generate N: ~i 10

Arunkumar

ASKER

Hey guys here is a continuation question. i will increase the pts accordingly while grading...

I have a customer running 5.08 and are experiencing a intermittent problem within one group of the organization. The problem is that on random, so they say, messages, that if the user forwards the message or if they reply to all with history the message is blank except for the new text that has been written.

I looked on ldd and saw quite a bit of this, but it all related to messages
within the iNotes environment.

Any thoughts ?

qwaletee

Any possibility someone likes to use "hide when copying" or "prevent copying."

And of course, you are trying to confuse everyone by having two completely different questions here!