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 - bild and signatur (R:1)
Tor - värdnamn (R:0)
Tor - användarguide (R:1)
Tor - Sortera and Lista (R:1)
Tor - Processa and XML (R:1)
Tor - datatyper (R:1)
Tor - böcker (R:0)
Tor - tipset (R:7)
Tor - systemkrav and för and lotus and notes and 8 (R:0)
Tor - h�nger (R:0)
Tor - ta and bort and användare (R:0)
Tor - söka and i and flera and databaser (R:0)
Tor - genväg (R:0)
Tor - sort and array (R:7)
Tor - säkerhet (R:0)
Tor - läs and xml (R:0)
Tor - öppna and notes and från and webben (R:0)
Tor - Se and om and mail and lästs (R:1)
Tor - svara and till and avsändaren (R:0)
Tor - fönster (R:0)
Tor - Connection and document (R:8)
Tor - genväg and på and skrivbordet (R:0)
Tor - brev* (R:4)
Tor - dominoserver (R:24)
Tor - mall and blog (R:0)
Tor - Multi-User (R:1)
Tor - Å and ä and ö (R:0)
Tor - cheklista (R:1)
Tor - ecl (R:2)
Tor - gör and tillgänglig (R:7)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1024
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 121Mb
Fixup: 2017-03-30 00:30:48
FT:2017-03-30 02:00:48
DB Procent använd: 99,6
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 7190
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.1FP8|February 23, 2017
Server Plattform: Windows/64
Ändrad: 2017-03-30 02:32:27
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=97$ZN=W. Europe
Region:
Kommentarsspam Idag: 0
Kommentarsspam Totalt: 8008


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker