NOTESSIDAN

Allt om Lotus Notes & Domino


« Hur man gör en mall i Photoshop « | Blogg | » 4 Mallar till Photoshop »


Ett moln i Lotusscript
Det är ju ganska populärt att göra moln (cloud) av allt möjligt. här nedan är ett snabbt script som gör ett moln av alla kategorier på Notessidan. Du kan se resultatet av scriptet längre ner på högersidan eller här.

Sub Initialize ' Detta skript gör ett moln av taggar baserat på kolumn 1 i en vy ' dvs om du har dina taggar/kategorier i ett fält så kategorisera detta ' fältet i första kolumnen. On Error Goto e Dim entry As notesviewentry, nav As notesviewnavigator,view As notesview Dim db As notesdatabase,diff As Integer,max As Integer,min As Integer Dim pub As Integer,session As New notessession,wdb As Variant Set db = session.currentdatabase Set view = db.getview("MinVy") Set nav = view.CreateViewNav wdb = Evaluate(|@WebDbName|) Set entry = nav.GetFirst Do Until entry Is Nothing If entry.ChildCount > max Then max = entry.childcount Set entry = nav.GetNextCategory(entry) Loop min = 1 diff = max - min pub = diff / 3 Print |<div style=width:200>| Set entry = nav.GetFirst Do Until entry Is Nothing Select Case entry.childcount Case min : Print |<span style=font-size:10px>| Case max : Print |<span style=font-size:20px>| Case Is > min + (pub *2) :Print |<span style=font-size:18px>| Case Is > min + (pub) :Print |<span style=font-size:16px>| Case Else : Print |<span style=font-size:12px>| End Select Print |<a href=/| + wdb(0) + |/ByCat?Openview&type=Blogg&cat=| + _ entry.ColumnValues(0) + |>| + entry.ColumnValues(0) + |</a>| Print |</span>| Set entry = nav.GetNextCategory(entry) Loop Print |</div>| Exit Sub e: Print Error,Erl End Sub





Relevanta Poster på Notessidan:



Publicerad 2006-07-16 | Kommentarer: 3 | Läsningar: 11871
Kommentarer

Patrick Kwinten ( 2008-03-14 13:48:49 ) Websida
Object variable not set 14 -> när jag kör länkan till exemplet
Thomas ( 2008-03-14 14:00:22 ) Websida
Vad tror du själv är fel ?

- T
Patrick ( 2008-03-14 14:16:54 )
btw: tack för koden, den funkar utmärkt!



Sök på Notessidan
Thomas Adrian
ThomasCertifierad utvecklare och administratör inom Notes & Domino

Kontakta mig







Senaste Sökningarna på Notessidan
Lör - spellcheck (R:6)
Lör - temporära and vyer (R:4)
Lör - mail (R:124)
Lör - fönster (R:7)
Lör - print and java (R:9)
Lör - 8.5 (R:66)
Lör - google and kalender (R:8)
Lör - läsa and mail and hemma (R:0)
Lör - auto.mdb (R:0)
Lör - computed and value and javascript (R:2)
Lör - importera and helgdagar (R:2)
Lör - static (R:108)
Lör - domino and server (R:79)
Lör - status and bar (R:2)
Lör - attachment (R:9)
Lör - kan and inte and hitta and filen (R:7)
Lör - google (R:103)
Lör - idg (R:12)
Lör - inotes (R:7)
Lör - a (R:440)
Lör - mail.sll.se (R:0)
Lör - html and email (R:2)
Lör - android (R:4)
Lör - rtf and to and html (R:1)
Lör - sid* (R:124)
Lör - databaser (R:60)
Lör - Mix and a and Lotus and Notes and view and an and xPage and Chart and in and a and Composite and Application (R:1)
Lör - mail and problem (R:13)
Lör - replication (R:5)
Lör - trim and number (R:1)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:555
Antal Kommentarer: 984
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 112,75Mb
Fixup: 2014-10-25 06:30:35
FT:2014-10-25 15:58:31
DB Procent använd: 98,7
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 9137
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 552
Antal Attachments: 156
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1|October 14, 2013
Server Plattform: Windows/64
Ändrad: 2014-10-25 16:37:56
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=97$ZN=W. Europe
Region:
Kommentarsspam Idag: 0
Kommentarsspam Totalt: 3368


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker