Naar inhoud springen

Overleg gebruiker:ARTol

Pagina-inhoud wordt niet ondersteund in andere talen.
Onderwerp toevoegen
Uit Wikipedia, de vrije encyclopedie

Archief 2008
Archief 2014
Archief 2019

hulpmiddelen voor het onderhoud aan Lijst van Radio 2-Top 2000's

[brontekst bewerken]
Start een nieuw document in Word
Klik op 'Beeld' en dan op 'Macro's'
Vul even "xxx" in onder  'Macronaam:'
Klik op 'Maken' (of Create)
Je ziet nu staan:

--------------------
Sub xxx()
'
' xxx Macro
'
'

End Sub
--------------------

Wis deze de sectie tussen de streepjes en plak de onderstaande tekst tussen de streepjes (exclusief de streepjes) op de plaats van de cursor.

--------------------
Sub T2000BroncodeNaarImport()
'
' T2000BroncodeNaarImport Macro
'
'
Dim UserName As String
    Selection.PasteAndFormat (wdFormatPlainText)
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "{|"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "|}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p|-^p|"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "||"
        .Replacement.Text = "^t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ChangeFileOpenDirectory "C:\Users\" & Environ("UserName") & "\Desktop\"
    ActiveDocument.SaveAs2 FileName:="import.txt", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
        False, LineEnding:=wdCRLF, CompatibilityMode:=0
    ActiveWindow.Close
    Application.Quit
End Sub
----------------------------------------

Sluit het venster en sluit daarna het programma 'Microsoft Visual Basic for Applications' af. 
Je bent nu teruggekeerd naar Word.
Klik opnieuw op 'Macro's'
Als het goed is zie je nu dat er een macro bijgekomen is met de naam: T2000BroncodeNaarImport

Open nu:
https://nl.wikipedia.org/w/index.php?title=Lijst_van_Radio_2-Top_2000's&action=edit

plaats de cursor ergens binnen de broncode tekst en selecteer alles (Ctrl A)
Plaats de hele inhoud op het clipboard (Ctrl C)
Maak Word weer actief en voer de nieuwe macro uit.
Kan even duren, maar uiteindelijk sluit Word zichzelf af en staat er een tekstbestand op de desktop met de naam: 'import'.

Open nu Excel en start een leeg werkblad (automatisch: Map1 genaamd)
doe hetzelfde als bij de Word macro maar plak nu de inhoud van de onderstaande tekst:
----------------------------------------
Sub ImporteerImport()
'
' ImporteerImport Macro
'

'
Dim UserName As String
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\" & Environ("UserName") & "\Desktop\import.txt", Destination:=Range("$A$1"))
        .Name = "import"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Cells.Select
    With Selection.Font
        .Name = "Calibri"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Rows("1:1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.RowHeight = 27
    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveWindow.ScrollColumn = 1
    Range("A1:Z4504").Select
    Range("Z4504").Activate
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
End Sub
----------------------------------------

voer in Excel de 'ImporteerImport' macro uit.

Deze hele lijst van Top 2000's zit nu in Excel
Tip: laat alle Wikicode (zoals: align="left"|, [[, ]], etc.) gewoon staan. Bij het terug converteren is deze weer nodig.

Maak de wenselijke aanpassingen in Excel.

Met het de Word macro "GekopieerdeExcelSelectieNaarT2000Broncode" ga je weer van Excel naar T2000 broncode.
Werkwijze als volgt:
Maak eerst een nieuwe Word macro op dezelfde manier met de onderstaande tekst:
----------------------------------------
Sub GekopieerdeExcelSelectieNaarT2000Broncode()
'
' GekopieerdeExcelSelectieNaarT2000Broncode Macro
'
'
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.5)
        .BottomMargin = CentimetersToPoints(2.5)
        .LeftMargin = CentimetersToPoints(2.5)
        .RightMargin = CentimetersToPoints(2.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(42)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
    If Selection.PageSetup.Orientation = wdOrientPortrait Then
        Selection.PageSetup.Orientation = wdOrientLandscape
    Else
        Selection.PageSetup.Orientation = wdOrientPortrait
    End If
    Selection.Style = ActiveDocument.Styles("Geen afstand")
    Selection.Font.Name = "Consolas"
    Selection.Font.Size = 8
    Selection.PasteAndFormat (wdFormatPlainText)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^t"
        .Replacement.Text = "||"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.ActivePane.VerticalPercentScrolled = 0
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p|-^p|"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.EndKey Unit:=wdStory
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeText Text:="}"
    Selection.HomeKey Unit:=wdStory
    Selection.TypeText Text:="{| class=""wikitable sortable"" style=""text-align: center; font-size: 75%;"""
    Selection.TypeParagraph
    Selection.TypeText Text:="!"
    Selection.WholeStory
    Selection.Copy
End Sub
----------------------------------------

Selecteer in Excel het gebied dat naar Wikipedia moet en druk Ctrl C.
Terwijl de sectie gekopieerd staat (kringeltjes rond de selectie) run je GekopieerdeExcelSelectieNaarT2000Broncode macro in Word.
het eindresultaat wordt automatisch op het clipboard gezet en het enige dat hoeft te gebeuren is plakken op de juiste plaats in de broncode pagina van de Lijst van Top 2000's pagina.

Succes.

Enquête bewerkers Nederlandstalige Wikipedia 2022

[brontekst bewerken]
Laatste bericht: 2 jaar geleden1 bericht1 persoon in overleg

Wikimedia Nederland organiseert voor de vierde keer een enquête onder de bewerkers van de Nederlandstalige Wikipedia. Misschien heb je de banner al voorbij zien komen. Er zijn in 2013, 2015 en 2018 soortgelijke enquêtes gehouden. Doel van de enquête is om meningen van de bewerkers te peilen (bijvoorbeeld over de werksfeer) en om inzicht te krijgen in de samenstelling van de gemeenschap.

Via deze weg benaderen we 300 willekeurige bewerkers persoonlijk, om te vragen mee te doen. We zijn erg geïnteresseerd in je mening. Meedoen kan tot woensdag 26 januari. Hier vind je de link naar de enquête.

Dank bij voorbaat, en hartelijke groet, Sandra Fauconnier - Wikimedia Nederland 20 jan 2022 15:28 (CET)Reageren

Lijst van type stopcontacten per land

[brontekst bewerken]
Laatste bericht: 2 jaar geleden1 bericht1 persoon in overleg

Hallo,

Het door jou aangemaakte artikel Lijst van type stopcontacten per land bestaat al als Landenoverzicht stekkertypen, netspanningen en -frequenties. Joostik (overleg) 24 sep 2022 10:35 (CEST)Reageren

Nominatie van Merel ek

[brontekst bewerken]
Laatste bericht: 1 jaar geleden2 berichten2 personen in overleg

Beste ARTol, welkom op Wikipedia. Ik heb uw/je artikel Merel ek voor directe verwijdering voorgedragen omdat ik het (in deze vorm) niet geschikt acht voor Wikipedia.

Deze directe verwijdering heeft de volgende reden:

Met vriendelijke groeten, Mondo (overleg) 31 mrt 2023 22:51 (CEST)Reageren

Ach, het viel mij op dat er geen pagina over haar bestond. Ik heb toen even snel een opzetje gemaakt en per abuis op publiceer gedrukt. Normaal gesproken ga ik veel nauwkeuriger te werk. Gelukkig heeft de wikipedia gemeenschap de pagina naar het juiste academische niveau gebracht. 1 apr 2023 09:55 (CEST) ARTol (overleg) 1 apr 2023 09:55 (CEST)Reageren

NPR 5310

[brontekst bewerken]
Laatste bericht: 1 jaar geleden1 bericht1 persoon in overleg

Hoi ARTol,

Het is op Wikipedia niet toegestaan om teksten van andere sites over te nemen, zoals in jouw geval de zin op de pagina NPR 5310, die van deze site kwam. Als je een artikel over de NPR5310 wil schrijven, dan kan dat, maar dan wel in jouw eigen woorden. Met vriendelijke groet, Dqfn13 (overleg) 24 mei 2023 22:28 (CEST)Reageren

[brontekst bewerken]
Laatste bericht: 1 jaar geleden1 bericht1 persoon in overleg

Beste ARTol, bedankt voor uw recente bewerkingen. Een bot heeft geconstateerd dat u hierbij een of meerdere links naar doorverwijspagina's toegevoegd heeft. Meestal gebeurt dit onbedoeld. Het gaat om het volgende artikel:

Het streven is om dergelijke links tot een minimum te beperken: zie Wikipedia:Links naar doorverwijspagina's. Uw hulp is welkom bij het oplossen van deze en andere links. Om links naar doorverwijspagina's een aparte kleur te geven, kunt u de code .mw-disambig { color: #FF0066 } (of een andere html-kleur) toevoegen aan uw common.css. Zie hiervoor ook Wikipedia:Scriptbibliotheek#Zichtbaar maken doorverwijskoppelingen.

Om deze berichten voortaan niet meer te ontvangen, kunt u {{bots|deny=Dpmelderbot}} op uw overlegpagina plaatsen. Dpmelderbot (overleg) 22 jul 2023 13:36 (CEST)Reageren

[brontekst bewerken]
Laatste bericht: 9 maanden geleden1 bericht1 persoon in overleg

Beste ARTol, bedankt voor uw recente bewerkingen. Een bot heeft geconstateerd dat u hierbij een of meerdere links naar doorverwijspagina's toegevoegd heeft. Meestal gebeurt dit onbedoeld. Het gaat om het volgende artikel:

Het streven is om dergelijke links tot een minimum te beperken: zie Wikipedia:Links naar doorverwijspagina's. Uw hulp is welkom bij het oplossen van deze en andere links. Om links naar doorverwijspagina's een aparte kleur te geven, kunt u de code .mw-disambig { color: #FF0066 } (of een andere html-kleur) toevoegen aan uw common.css. Zie hiervoor ook Wikipedia:Scriptbibliotheek#Zichtbaar maken doorverwijskoppelingen.

Om deze berichten voortaan niet meer te ontvangen, kunt u {{bots|deny=Dpmelderbot}} op uw overlegpagina plaatsen. Dpmelderbot (overleg) 17 feb 2024 21:38 (CET)Reageren

[brontekst bewerken]
Laatste bericht: 8 maanden geleden1 bericht1 persoon in overleg

Beste ARTol, bedankt voor uw recente bewerkingen. Een bot heeft geconstateerd dat u hierbij een of meerdere links naar doorverwijspagina's toegevoegd heeft. Meestal gebeurt dit onbedoeld. Het gaat om het volgende artikel:

Het streven is om dergelijke links tot een minimum te beperken: zie Wikipedia:Links naar doorverwijspagina's. Uw hulp is welkom bij het oplossen van deze en andere links. Om links naar doorverwijspagina's een aparte kleur te geven, kunt u de code .mw-disambig { color: #FF0066 } (of een andere html-kleur) toevoegen aan uw common.css. Zie hiervoor ook Wikipedia:Scriptbibliotheek#Zichtbaar maken doorverwijskoppelingen.

Om deze berichten voortaan niet meer te ontvangen, kunt u {{bots|deny=Dpmelderbot}} op uw overlegpagina plaatsen. Dpmelderbot (overleg) 16 mrt 2024 13:47 (CET)Reageren

Lijst van unieke artiesten uit alle top 2000's

[brontekst bewerken]
Laatste bericht: 8 maanden geleden2 berichten2 personen in overleg

Beste ARTol. Je hebt ongetwijfeld veel werk gestoken in Lijst van unieke artiesten uit alle top 2000's. Ik vraag me echter af of dit geschikt is voor Wikipedia. Zo'n lijst is in feite eigen onderzoek (zie WP:GOO), er is geen bron die dit in deze vorm presenteert. Verder zet ik vraagtekens bij het onderhoud; jaarlijks moet er nogal wat gecontroleerd worden om het up-to-date en correct te houden. Ik zal daarom het artikel ter beoordeling voorleggen, zodat er een discussie kan plaatsvinden over een eventuele verwijdering. GeeJee (overleg) 5 apr 2024 12:45 (CEST)Reageren

Beste Geejee, ik heb feitelijk geen onderzoek verricht bij de samenstelling van deze lijst. De lijst is gebaseerd op gegevens die reeds in onze eigen Nederlandse Wikipedia te vinden zijn. Dus feitelijk is het en bundeling van bestaande gegevens. voor wat het onderhoud betreft zijn dezelfde middelen bruikbaar die ik beschikbaar heb gesteld voor het onderhoud van de Lijst van Radio 2-Top 2000's en waar de Wikipedia gemeenschap gebruik van maakt. Zodra er weer een nieuw jaar aan de voornoemde lijst is toegevoegd, is binnen een paar uur deze lijst ook aangepast. De Lijst van Radio 2-Top 2000's zal op een goede dag de 2Mbyte grens overschrijden en niet langer passen op een enkelvoudige Wikipedia pagina. Daarnaast zijn de oude edities van de Top 2000 altijd te bekijken op de site van Radio 2. Het enige bijzondere van deze lijst is dat hij alle artiesten omvat van alle edities top 2000 tezamen. Mijn nieuwe lijst bevat ook deze informatie in een veel compactere vorm. Daarnaast bevat mijn lijst ook additionele informatie die niet te vinden is in Lijst van Radio 2-Top 2000's. Enfin, afwachten maar hoe de Wikipedia gemeenschap oordeelt over jouw verzoek tot verwijdering. Met vriendelijke groet, ARTol (overleg) 5 apr 2024 16:25 (CEST)Reageren

Hoe wordt lineaire grijs-waarde (Clinear in het Engels) berekend?

[brontekst bewerken]
Laatste bericht: 1 maand geleden2 berichten2 personen in overleg

Hallo ARTol,

In Lijst van RAL-kleuren ("List of RAL colours" in het Engels) staat een tabel met een attribuut genaamd lineaire grijs-waarde (Clinear in het Engels). Het is een meting van hoeveel grijs er in een sRGB-kleur zit van 0 tot 255. Die waarde wordt echter niet berekend door het gemiddelde te nemen van de rode, groene en blauwe waarden. Hoe wordt het dan berekend? Sorry als ik niet vloeiend Nederlands spreek. EJPPhilippines (overleg) 12 okt 2024 10:50 (CEST)Reageren

The calculated grey value of a colour is determined by: (0,2126 × Red) (0,7152 × Green) (0,0722 × Blue). By using this formula the grey value is corrected for the human eye.
See: https://www.w3.org/Graphics/Color/sRGB ARTol (overleg) 12 okt 2024 18:33 (CEST)Reageren
Overgenomen van "https://nl.wikipedia.org/w/index.php?title=Overleg_gebruiker:ARTol&oldid=68239966"