$Flags fältet i Lotus Notes
Här är en sida som beskriver vad varje bokstav och varje bokstavskombination i $Flags fältet betyder.
Mycket användbart..
Finns även en funktion för att kolla designelement utifrån $Flags men den har några brister.
Bifogar en förbättrad variant nedan.
Allt du vill veta om $Flags fältet
Function getElementType(eldoc As NotesDocument) As String
Dim flags As String, etype As String
flags = eldoc.GetItemValue("$FLAGS")(0) ' from the design element
If Instr(1, flags, "sj", 0) > 0 Then getElementType = "SCRIPT LIBRARY - JAVA" : Exit Function
If Instr(1, flags, "s", 0) > 0 Then getElementType = "SCRIPT LIBRARY - LS" : Exit Function
If Instr(1, flags, "h", 0) > 0 Then getElementType = "SCRIPT LIBRARY - JS" : Exit Function
If Instr(1, flags, "t", 0) > 0 Then getElementType = "DATABASE SCRIPT" : Exit Function
If Instr(1, flags, "m", 0) > 0 Then getElementType = "OUTLINE" : Exit Function
If Instr(1, flags, "k", 0) > 0 Then getElementType = "DATA CONNECTION RESOURCE" : Exit Function
If Instr(1, flags, "U", 0) > 0 Then getElementType = "SUBFORM" : Exit Function
If Instr(1, flags, "#", 0) > 0 Then getElementType = "FRAMESET" : Exit Function
If Instr(1, flags, "i", 0) > 0 Then getElementType = "IMAGE RESOURCE" : Exit Function
If Instr(1, flags, "W", 0) > 0 Then getElementType = "PAGE" : Exit Function
If Instr(1, flags, "@", 0) > 0 Then getElementType = "APPLET" : Exit Function
If Instr(1, flags, "=", 0) > 0 Then getElementType = "SHARED STYLE SHEET" : Exit Function
If Instr(1, flags, "{", 0) > 0 Then getElementType = "WEB SERVICE" : Exit Function
If Instr(1, flags, "^", 0) > 0 Then getElementType = "SHARED COLUMN" : Exit Function
If Instr(1, flags, "g", 0) > 0 Then getElementType = "SHARED FILE" : Exit Function
If Instr(1, flags, "y", 0) > 0 Then getElementType = "SHARED ACTIONS" : Exit Function
If Instr(1, flags, "F", 0) > 0 Then getElementType = "FOLDER" : Exit Function
If Instr(1, flags, "G", 0) > 0 Then getElementType = "NAVIGATOR" : Exit Function
If Instr(1, flags, "OQ", 0) > 0 Then getElementType = "SEARCH QUERY" : Exit Function
If flags = "X" Then getElementType = "V4 agent data note" : Exit Function
If Instr(1, flags, "Y", 0) > 0 Then etype = "VIEW"
If Instr(1, flags, "d", 0) > 0 Then etype = "VIEW"
If Instr(1, flags, "T", 0) > 0 Then etype = "VIEW"
If Instr(1, flags, "c", 0) > 0 Then etype = "VIEW - CALENDAR"
If Instr(1, flags, "o", 0) > 0 Then etype = "VIEW - SPOFU DESKTOP STORED"
If Instr(1, flags, "f", 0) > 0 Then
etype = "AGENT"
If Instr(1, flags, "J", 0) > 0 Then
etype = etype & " - JAVA"
Elseif Instr(1, flags, "L", 0) > 0 Then
etype = etype & " - LS"
Else
etype = etype & " - FORMULA"
End If
If Instr(1, flags, "S", 0) > 0 Then etype = etype & " - SCHEDULED"
If Instr(1, flags, "u", 0) > 0 Then etype = etype & " - RUN AS USER"
End If
If Instr(1, flags, "C", 0) > 0 Then etype = "FORM"
If Instr(1, flags, "D", 0) > 0 Then etype = "FORM"
If Instr(1, flags, "V", 0) > 0 Then etype = etype & " - PRIVATE"
If etype = "" Then
If eldoc.HasItem("$FIELDS") Then getElementType = "FORM" : Exit Function
If eldoc.HasItem("$$FORMSCRIPT") Then getElementType = "FORM" : Exit Function
If eldoc.HasItem("$VIEWFORMAT") Then getElementType = "VIEW" : Exit Function
If eldoc.HasItem("IconBitmap") Then getElementType = "DATABASE ICON" : Exit Function
etype = "*UNKNOWN*"
etype = etype & " (flags: " & flags & ")"
End If
getElementType = etype
End Function
Mycket användbart..
Finns även en funktion för att kolla designelement utifrån $Flags men den har några brister.
Bifogar en förbättrad variant nedan.
Allt du vill veta om $Flags fältet
Function getElementType(eldoc As NotesDocument) As String
Dim flags As String, etype As String
flags = eldoc.GetItemValue("$FLAGS")(0) ' from the design element
If Instr(1, flags, "sj", 0) > 0 Then getElementType = "SCRIPT LIBRARY - JAVA" : Exit Function
If Instr(1, flags, "s", 0) > 0 Then getElementType = "SCRIPT LIBRARY - LS" : Exit Function
If Instr(1, flags, "h", 0) > 0 Then getElementType = "SCRIPT LIBRARY - JS" : Exit Function
If Instr(1, flags, "t", 0) > 0 Then getElementType = "DATABASE SCRIPT" : Exit Function
If Instr(1, flags, "m", 0) > 0 Then getElementType = "OUTLINE" : Exit Function
If Instr(1, flags, "k", 0) > 0 Then getElementType = "DATA CONNECTION RESOURCE" : Exit Function
If Instr(1, flags, "U", 0) > 0 Then getElementType = "SUBFORM" : Exit Function
If Instr(1, flags, "#", 0) > 0 Then getElementType = "FRAMESET" : Exit Function
If Instr(1, flags, "i", 0) > 0 Then getElementType = "IMAGE RESOURCE" : Exit Function
If Instr(1, flags, "W", 0) > 0 Then getElementType = "PAGE" : Exit Function
If Instr(1, flags, "@", 0) > 0 Then getElementType = "APPLET" : Exit Function
If Instr(1, flags, "=", 0) > 0 Then getElementType = "SHARED STYLE SHEET" : Exit Function
If Instr(1, flags, "{", 0) > 0 Then getElementType = "WEB SERVICE" : Exit Function
If Instr(1, flags, "^", 0) > 0 Then getElementType = "SHARED COLUMN" : Exit Function
If Instr(1, flags, "g", 0) > 0 Then getElementType = "SHARED FILE" : Exit Function
If Instr(1, flags, "y", 0) > 0 Then getElementType = "SHARED ACTIONS" : Exit Function
If Instr(1, flags, "F", 0) > 0 Then getElementType = "FOLDER" : Exit Function
If Instr(1, flags, "G", 0) > 0 Then getElementType = "NAVIGATOR" : Exit Function
If Instr(1, flags, "OQ", 0) > 0 Then getElementType = "SEARCH QUERY" : Exit Function
If flags = "X" Then getElementType = "V4 agent data note" : Exit Function
If Instr(1, flags, "Y", 0) > 0 Then etype = "VIEW"
If Instr(1, flags, "d", 0) > 0 Then etype = "VIEW"
If Instr(1, flags, "T", 0) > 0 Then etype = "VIEW"
If Instr(1, flags, "c", 0) > 0 Then etype = "VIEW - CALENDAR"
If Instr(1, flags, "o", 0) > 0 Then etype = "VIEW - SPOFU DESKTOP STORED"
If Instr(1, flags, "f", 0) > 0 Then
etype = "AGENT"
If Instr(1, flags, "J", 0) > 0 Then
etype = etype & " - JAVA"
Elseif Instr(1, flags, "L", 0) > 0 Then
etype = etype & " - LS"
Else
etype = etype & " - FORMULA"
End If
If Instr(1, flags, "S", 0) > 0 Then etype = etype & " - SCHEDULED"
If Instr(1, flags, "u", 0) > 0 Then etype = etype & " - RUN AS USER"
End If
If Instr(1, flags, "C", 0) > 0 Then etype = "FORM"
If Instr(1, flags, "D", 0) > 0 Then etype = "FORM"
If Instr(1, flags, "V", 0) > 0 Then etype = etype & " - PRIVATE"
If etype = "" Then
If eldoc.HasItem("$FIELDS") Then getElementType = "FORM" : Exit Function
If eldoc.HasItem("$$FORMSCRIPT") Then getElementType = "FORM" : Exit Function
If eldoc.HasItem("$VIEWFORMAT") Then getElementType = "VIEW" : Exit Function
If eldoc.HasItem("IconBitmap") Then getElementType = "DATABASE ICON" : Exit Function
etype = "*UNKNOWN*"
etype = etype & " (flags: " & flags & ")"
End If
getElementType = etype
End Function
Jag vill bygga en TRIKE !
Det hela började med att jag vann denna lilla minichopper
Eftersom den inte är inreggad våga jag liksom inte använda den men istället började jag undersöka möjligheten att regga in den.
Nu visade det sig vara omöjligt men eftersom jag ändå inte har nåt mc-kort så......äh, jag får bygga nåt eget istället...
En TRIKE!!
Klart det enklaste bland häftiga, cruising-vänliga fordon man kan bygga !! (Eller....?)
Jag vill inte ha nån stor fet trike med vw-motor. Nej, det ska va en liten en i storleksordning mini-chopper.
Har lusläst reglerna och det finns ingen egentlig begränsning på hur liten den får va. Det som sätter gränsen är att man måste ha gott om manöverutrymme på förarplatsen.
Och så slipper man den tråkiga effektbegränsningen som gäller för bilar. (15kw/100kg)
Fördelen med att göra den liten är att jag inte behöver någon motorlyft eller några andra avancerade anordningar under bygget. Allting blir liksom lättare att handskas med..
Hela projektet är under planeringsstadiet än så länge. Saknar tid och eftersom jag inte har byggt nåt tidigare saknas en hel del utrustning.
Fast bågfil, rörböjare och svets att punkta med är väl det enda som behövs :) (har en bekant som svetsar ihop alltsammans på ett riktigt sätt när jag har punktat allt på plats..)
Jag har två ideer om hur bygget ska gå till:
1. Köpa en enduro (minst 500cc), byta ut baksvingen mot en stel gammal opelbakaxel och sänka ner hela hojjen bak så långt det går. (och naturligtvis byta sadel, tank, styre, skärmar, kåpor........u name it)
2. Bygga ramen själv. samma bakaxel
Om man gör alternativ 1 kan det räcka att regga som ombyggt fordon. Det är lite billigare än att regga som amatörbyggt vilket alternativ 2 kräver.
För att göra det så enkelt, billigt, snyggt och lågt som möjligt tänker jag bygga "Hard tail". Alltså odämpad bak.
Här en snygg hard tail ram
Eftersom den inte är inreggad våga jag liksom inte använda den men istället började jag undersöka möjligheten att regga in den.
Nu visade det sig vara omöjligt men eftersom jag ändå inte har nåt mc-kort så......äh, jag får bygga nåt eget istället...
En TRIKE!!
Klart det enklaste bland häftiga, cruising-vänliga fordon man kan bygga !! (Eller....?)
Jag vill inte ha nån stor fet trike med vw-motor. Nej, det ska va en liten en i storleksordning mini-chopper.
Har lusläst reglerna och det finns ingen egentlig begränsning på hur liten den får va. Det som sätter gränsen är att man måste ha gott om manöverutrymme på förarplatsen.
Och så slipper man den tråkiga effektbegränsningen som gäller för bilar. (15kw/100kg)
Fördelen med att göra den liten är att jag inte behöver någon motorlyft eller några andra avancerade anordningar under bygget. Allting blir liksom lättare att handskas med..
Hela projektet är under planeringsstadiet än så länge. Saknar tid och eftersom jag inte har byggt nåt tidigare saknas en hel del utrustning.
Fast bågfil, rörböjare och svets att punkta med är väl det enda som behövs :) (har en bekant som svetsar ihop alltsammans på ett riktigt sätt när jag har punktat allt på plats..)
Jag har två ideer om hur bygget ska gå till:
1. Köpa en enduro (minst 500cc), byta ut baksvingen mot en stel gammal opelbakaxel och sänka ner hela hojjen bak så långt det går. (och naturligtvis byta sadel, tank, styre, skärmar, kåpor........u name it)
2. Bygga ramen själv. samma bakaxel
Om man gör alternativ 1 kan det räcka att regga som ombyggt fordon. Det är lite billigare än att regga som amatörbyggt vilket alternativ 2 kräver.
För att göra det så enkelt, billigt, snyggt och lågt som möjligt tänker jag bygga "Hard tail". Alltså odämpad bak.
Här en snygg hard tail ram
Ranka högre på Google
För alla er som har en egen hemsida:
Här har ni min egenhändigt ihopsnickrade, automatiska tvåvägs link-sharing applikation.
http://linkspider.failure.se/
Det hela började med att jag ville hamna högre upp hos google. Läste på och kom fram till att en viktig grejj är att ha sin sida länkad från så många andra sidor som möjligt.
Men det räcker inte att bara länka från vilka sidor som helst utan det ska va sidor med så lika innehåll som möjligt.
Då började jag titta på vilka link sharing alternativ som finns. (det ska va gratis..) men hittade inget som va tillräckligt enkelt (och gratis..)
Så då byggde jag mig en egen :)
Den är så enkel som det kan bli (och gratis..).
Lägg bara in koden från http://linkspider.failure.se/ på din sida och konfigurera variablerna. KLART!!
Ingen registrering eller nåt annat krångel.
Testa gärna!! Det är helt riskfritt! (och gratis..) Gillar du det inte är det bara att plocka bort koden..
Här har ni min egenhändigt ihopsnickrade, automatiska tvåvägs link-sharing applikation.
http://linkspider.failure.se/
Det hela började med att jag ville hamna högre upp hos google. Läste på och kom fram till att en viktig grejj är att ha sin sida länkad från så många andra sidor som möjligt.
Men det räcker inte att bara länka från vilka sidor som helst utan det ska va sidor med så lika innehåll som möjligt.
Då började jag titta på vilka link sharing alternativ som finns. (det ska va gratis..) men hittade inget som va tillräckligt enkelt (och gratis..)
Så då byggde jag mig en egen :)
Den är så enkel som det kan bli (och gratis..).
Lägg bara in koden från http://linkspider.failure.se/ på din sida och konfigurera variablerna. KLART!!
Ingen registrering eller nåt annat krångel.
Testa gärna!! Det är helt riskfritt! (och gratis..) Gillar du det inte är det bara att plocka bort koden..
Kul illusion...
Försök fokusera på en svart prick...
Titta inte för länge. Risk för ögonvärk !!
Titta inte för länge. Risk för ögonvärk !!
Mejla till bloggen?
Har just skapat denna blogg, mest för att jag ska kunna skriva ner alla tokiga ideer som jag får men det blir ju krångligt när man måste logga in här fort man ska skriva nåt...
Måste jag verkligen logga in här på bloggen varenda gång jag ska skriva nåt?
Vore bra om man kunde skicka ett mail rätt in istället.... och/eller sms:a...
Kanske finns såna funktioner? Jag är nybörjare så vet inget än........
Annars så är det ju en rätt bra idé :)
Måste jag verkligen logga in här på bloggen varenda gång jag ska skriva nåt?
Vore bra om man kunde skicka ett mail rätt in istället.... och/eller sms:a...
Kanske finns såna funktioner? Jag är nybörjare så vet inget än........
Annars så är det ju en rätt bra idé :)
Välkommen till min nya blogg!
Imin.blogg.se skiftar innehållet liksom bladens färger om hösten.....