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
Tis - markera and mail (R:4)
Tis - skapa and användare (R:0)
Tis - kan and inte and öppna and externa and mail (R:0)
Tis - sign and agent (R:4)
Tis - fel and användare (R:0)
Tis - getfirstItem (R:7)
Tis - hosting and domino (R:4)
Tis - contains (R:6)
Tis - öppna and länkar (R:0)
Tis - import* (R:60)
Tis - vidarebefordra and mail (R:0)
Tis - decs (R:1)
Tis - Ärendehantering (R:0)
Tis - år (R:0)
Tis - lotus and notes (R:418)
Tis - Notes and error: and Someone and else and deleted and this and index and while and you and were and updating and it (R:0)
Tis - jquery and view (R:1)
Tis - replikering (R:15)
Tis - fält and validering (R:0)
Tis - skapa and användare (R:0)
Tis - gömma and tabell (R:0)
Tis - webanv�ndare (R:0)
Tis - prestanda (R:12)
Tis - Richtext and �,�,� (R:0)
Tis - starta and lotus and notes and från and vb (R:0)
Tis - http and object (R:26)
Tis - Ärendehantering (R:0)
Tis - färg* (R:0)
Tis - java and script (R:6)
Tis - notes and kunder (R:24)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1014
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 140,25Mb
Fixup: 2016-08-29 00:31:04
FT:2016-08-30 00:17:36
DB Procent använd: 98,4
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 31032
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 573
Antal Attachments: 159
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1FP4 HF523|October 08, 2015
Server Plattform: Windows/64
Ändrad: 2016-08-30 01:10:28
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=97$ZN=W. Europe
Region:
Kommentarsspam Idag: 0
Kommentarsspam Totalt: 6287


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker