Notessidan - Sortera en array med evaluate

Testa gärna Intrapages
Ett gratis socialt intranät

Behöver du en snabb och effektiv konsult för Lotus Notes och Domino eller en offert på en applikation ? kontakta mig nu

Sortera en array med evaluate - Lotusscript

Följande kodsnutt sorterar en array

Dim s1 As String,sarr(4) As String, s2 As Variant
sarr(0) = "e"
sarr(1) = "c"
sarr(2) = "b"
sarr(3) = "f"
sarr(4) = "a"

s1 = |"| + Implode(sarr,|":"|) + |"|
s2 = Evaluate(|@Sort(| + s1 + |)|)
Print Implode(s2)

s2 innehåller en sorterad array

Lämna gärna en kommentar

18 feb 2011 | Länk till denna post | 0 personer gillar denna post

Kommentarer:3

2011-02-18 20:42:50 CET - Karl-Henry Martinsson

Snyggt! Själv försöker jag undvika Evaluate i Lotusscript (vet inte varför, känns bara inte rätt att blanda språk), men det är bra mycket kortare kod än den jag använder idag för att sortera arrayer...

2011-02-21 09:28:10 CET - Mark Leusink

Hi Thomas,

This solution works well for small lists, but be careful: there are lmits when using the evaluate function and/ or limits on the length of the list to be sorted. I encountered this when I used @URLDecode in a lotusscript class (see also here http://www.codestore.net/store.nsf/unid/BLOG-20080116).

Alternatives to use in lotusscript are to use a bubblesort routine (find one using Google) or to write a Java routine and use LS2J.

Mark

2011-02-21 12:12:36 CET - Per Gref

Kör en liknande själv, men ett tips kan vara att byta \ mot \\ innan implode märkte jag när jag sorterade filepaths häromdagen...:

s1 = |"| + Implode(Replace(sarr,"\","\\"),|":"|) + |"|

Kommentera denna post:

Namn:

Epost:

Skriv en kommentar:

Observera: Om du skriver en giltig epost adress kommer du få mail om någon annan svarar på denna post. Din epost adress visas aldrig här.

Du kommer också få ett bekräftelsemail inom 5 minuter, om inte, kontrollera din spam folder och makera meddelandet som "inte spam" så kommer det till din inbox nästa gång.

Gå till förstasidan

Besök Planet Lotus | Lotus Notes Hjälp | openNTF

Prenumerera på nya poster

Thomas Adrian
Tel: 0768-668550

http://www.pass4sure.us/
http://www.pimsleur.me/
http://www.learningfrench.ws/
http://www.finallylearnjapanese.com/
http://www.leather4sure.com/

Senaste Filer

• Svenska Helgdagar i IBM Notes
• Hämta in fondkurser från SEB till en notesdatabas
• openLog custom incl xpages support
• iPhone websida med xPages
• Logga in på en applikation med xPages

Senaste Kommentarerna

Easy way to change mail quota on several servers at once (1)

Från: Jared Jones

Thanks for posting this article. It's so helpful to find information like this freely shared. The code for updating quotas on multiple servers works great, until you try to use it to lower someone's quota ;) I found the solution thanks to this forum post: http://www-10.lotus.com/ldd/nd8forum.nsf/5f27803bba85d8e285256bf10054620d/aa16cd e85e238f2d852578aa0041a582?OpenDocument In addition to the fix from the forum, I added a loop to handle multiple servers. Just add/remove items to the mailserver list: Sub Click(Source As Button) On Error Goto e Dim ws As New NotesUIWorkspace Dim session As New NotesSession, db As NotesDatabase, dc As NotesDocumentCollection Dim i As Integer, doc As NotesDocument, maildb As NotesDatabase, mailfile As String Dim update As Integer Dim scount As Integer Set db = session.currentdatabase Dim mailserver List As String mailserver("server1/Domain") = "server1" mailserver("server2/Domain") = "server2" Dim quota As String Dim warning As String Set dc = db.UnprocessedDocuments quota = Inputbox("Enter Quota","Enter Quota in Mb to set on " + Cstr(dc.count) + " selected user","500") If Not Isnumeric(quota) Then Msgbox "Not a valid number, exiting",64,"Info":Exit Sub warning = Inputbox("Enter Quota Warning","Enter Quota Warning in Mb to set on " + Cstr(dc.count) + " selected user in","450") If Not Isnumeric(warning) Then Msgbox "Not a valid number, exiting",64,"Info":Exit Sub If dc Is Nothing Then Print "Nothing to do, exiting ":Exit Sub If Msgbox("Are you sure you want to set quota " + quota + "Mb and Warning " + warning + " Mb" + " on " + Cstr(dc.count) + " Users?",68,"Question") <> 6 Then Exit Sub Dim getdbQuota As Long Dim setdbQuota As Long setdbQuota = Clng(quota) * 1024 For i = 1 To dc.count Set doc = dc.getnthdocument(i) mailfile = doc.MailFile(0) Forall srv In mailserver Set maildb = session.GetDatabase(Listtag(srv),mailfile,False) If Not maildb Is Nothing Then getdbQuota = maildb.SizeQuota If quota = "0" Then maildb.SizeQuota = 0 maildb.SizeWarning = 0 Print "Quota set for mail file " + mailfile + " on " + srv Else If getdbQuota <= setdbQuota Then maildb.SizeQuota = setdbQuota maildb.SizeWarning = Clng(warning) * 1024 Else maildb.SizeWarning = Clng(warning) * 1024 maildb.SizeQuota = setdbQuota End If Print "Quota set for mail file " + mailfile + " on " + srv End If update = update + 1 Else Print "Could not open " + mailfile + " on " + srv End If Print "Quota on server " + srv + " is now " + Cstr(maildb.SizeQuota) + " warning is " + Cstr(maildb.SizeWarning) scount = scount + 1 End Forall If update > 0 Then doc.ModQuota = quota If update = scount Then 'quota is now the same on all servers doc.QuotaSync = 1 End If Call doc.save(False,False) End If update = 0 Next Call ws.ViewRefresh Exit Sub e: Print Error,Erl End Sub

Stapeldiagram på webben utan bilder (7)

Från: Rajesh

Please send me the code example to create charts using lotus script

Stapeldiagram på webben utan bilder (7)

Från: Rajesh

Please send me the code example to create charts using lotus script

Daily email event report from DDM 2 (1)

Från: Palmi

Very Cool

@Word and @ReplaceSubstring in Lotusscript (3)

Från: Txemanu

I like use ReplaceSubString in this way: ReplaceSubString = Join(Split(sourceString, SearchS), ReplaceS)