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
Tor - vad and kostar (R:7)
Tor - web and control (R:1)
Tor - prestanda (R:12)
Tor - söka and i and flera and databaser (R:0)
Tor - webservices (R:3)
Tor - start and lotus and notes (R:17)
Tor - skapa and ny and vy (R:2)
Tor - stora and mail (R:5)
Tor - blogg and mall (R:11)
Tor - installera (R:46)
Tor - sort and array (R:7)
Tor - unread and red (R:1)
Tor - karlstad and kommun (R:1)
Tor - lista and mail (R:22)
Tor - rättstavning (R:0)
Tor - Initialize (R:47)
Tor - liten and text (R:2)
Tor - startsidan (R:2)
Tor - domino and 64 (R:7)
Tor - text and file (R:14)
Tor - länk (R:20)
Tor - hide and when (R:2)
Tor - http and port (R:5)
Tor - importera and till and exchange (R:1)
Tor - postnummer (R:4)
Tor - ementor (R:2)
Tor - krasch (R:2)
Tor - Vad and ska and du and heta (R:1)
Tor - subject (R:18)
Tor - jag and det and nu and så and blir and det and inga and bilder and alls (R:1)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:556
Antal Kommentarer: 995
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 102,5Mb
Fixup: 2014-12-18 00:30:48
FT:2014-12-18 14:21:00
DB Procent använd: 99,6
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 9156
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 552
Antal Attachments: 157
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1FP2 HF384|November 04, 2014
Server Plattform: Windows/64
Ändrad: 2014-12-18 14:54:30
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=97$ZN=W. Europe
Region:
Kommentarsspam Idag: 0
Kommentarsspam Totalt: 3495


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker