Lexer voor Powershell

Pagina: 1
Acties:

Acties:
  • 0 Henk 'm!

  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

Topicstarter
Ik heb al een jaar of twee-drie geleden hetzelfde gevraagd denk ik, maar misschien wordt Powershell intussen al serieuzer genomen. Kunnen we AUB een lexer krijgen voor Powershell op T.net? Ooit wou ik er zelf een maken, maar ik ken niet genoeg van lexers om daar zelf aan te beginnen. Intussen zijn er zoveel sites die dat hebben dat dit toch eenvoudiger moet zijn als tevoren. Of niet?

Acties:
  • 0 Henk 'm!

  • MuddyMagical
  • Registratie: Januari 2001
  • Laatst online: 09-10 21:40
Waar is die 'Ik henk em' knop als je hem nodig hebt!?

Ik ben ook voor!

Acties:
  • 0 Henk 'm!

  • crisp
  • Registratie: Februari 2000
  • Nu online

crisp

Devver

Pixelated

PowerShell:
1
blaat

Geen idee of de highlighting klopt, maar zover ik kan zien herkent de highlighter die we al een tijdje gebruiken PowerShell wel :)

edit: maar niet zonder bugs: code-tags, parse probleempje(?)

[ Voor 21% gewijzigd door crisp op 11-08-2015 16:17 ]

Intentionally left blank


Acties:
  • 0 Henk 'm!

  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

Topicstarter
Copy/Paste uit waar ik mee bezig ben - meteen een echte test :)

PowerShell:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#To be replaced by something that doesn't use the ActiveDirectory module, because it uses ADWS and is very, very slow
Import-Module ActiveDirectory
$ADCmdlet = "Set-ADUser"
$ADIdentity ="-Identity $($SelectedRow.Cells["UserName"].Value)"
$ADServer = "-Server $($SelectedRow.Cells["Domain"].Value)"
$ADWhatIf = "-WhatIf"
$ADCommandString = $ADCmdlet + " " + $ADIdentity + " " + $ADServer + " " + "-Credential (New-Object System.Management.Automation.PSCredential 'MICROSOFT\Administrator',(ConvertTo-SecureString $("hunter2") -AsPlainText -Force))"
If ($cbxGivenName.Checked -And ($($SelectedRow.Cells["GivenName"].Value) -NE ""))           {$ADCommandString = $ADCommandString + " " + "-GivenName '$($SelectedRow.Cells["GivenName"].Value)'"}
If ($cbxSurName.Checked -And ($($SelectedRow.Cells["Surname"].Value) -NE ""))               {$ADCommandString = $ADCommandString + " " + "-Surname `"$($SelectedRow.Cells["Surname"].Value)`""}
If ($cbxDisplayName.Checked -And ($($SelectedRow.Cells["DisplayName"].Value) -NE ""))       {$ADCommandString = $ADCommandString + " " + "-DisplayName '$($SelectedRow.Cells["DisplayName"].Value)'"}
If ($cbxMail.Checked -And ($($SelectedRow.Cells["Mail"].Value) -NE ""))                     {$ADCommandString = $ADCommandString + " " + "-Emailaddress '$($SelectedRow.Cells["Mail"].Value)'"}
If ($cbxDescription.Checked -And ($($SelectedRow.Cells["Description"].Value) -NE ""))       {$ADCommandString = $ADCommandString + " " + "-Description '$($SelectedRow.Cells["Description"].Value)'"}
If ($cbxTitle.Checked -And ($($SelectedRow.Cells["Title"].Value) -NE ""))                   {$ADCommandString = $ADCommandString + " " + "-Title '$($SelectedRow.Cells["Title"].Value)'"}
If ($cbxStreetAddress.Checked -And ($($SelectedRow.Cells["StreetAddress"].Value) -NE ""))   {$ADCommandString = $ADCommandString + " " + "-StreetAddress '$($SelectedRow.Cells["StreetAddress"].Value)'"}
If ($cbxPostalCode.Checked -And ($($SelectedRow.Cells["PostalCode"].Value) -NE ""))         {$ADCommandString = $ADCommandString + " " + "-PostalCode '$($SelectedRow.Cells["PostalCode"].Value)'"}
If ($cbxCity.Checked -And ($($SelectedRow.Cells["City"].Value) -NE ""))                     {$ADCommandString = $ADCommandString + " " + "-City '$($SelectedRow.Cells["City"].Value)'"}
If ($cbxCountry.Checked -And ($($SelectedRow.Cells["Country"].Value) -NE ""))               {$ADCommandString = $ADCommandString + " " + "-Country '$($SelectedRow.Cells["Country"].Value)'"}
If ($cbxCompany.Checked -And ($($SelectedRow.Cells["Company"].Value) -NE ""))               {$ADCommandString = $ADCommandString + " " + "-Company '$($SelectedRow.Cells["Company"].Value)'"}
If ($cbxHomePage.Checked -And ($($SelectedRow.Cells["HomePage"].Value) -NE ""))             {$ADCommandString = $ADCommandString + " " + "-Homepage '$($SelectedRow.Cells["Homepage"].Value)'"}
If ($cbxOfficePhone.Checked -And ($($SelectedRow.Cells["OfficePhone"].Value) -NE ""))       {$ADCommandString = $ADCommandString + " " + "-OfficePhone '$($SelectedRow.Cells["OfficePhone"].Value)'"}
If ($cbxHomePhone.Checked -And ($($SelectedRow.Cells["HomePhone"].Value) -NE ""))           {$ADCommandString = $ADCommandString + " " + "-HomePhone '$($SelectedRow.Cells["HomePhone"].Value)'"}   
If ($cbxMobilePhone.Checked -And ($($SelectedRow.Cells["MobilePhone"].Value) -NE ""))       {$ADCommandString = $ADCommandString + " " + "-MobilePhone '$($SelectedRow.Cells["MobilePhone"].Value)'"}
If ($cbxFax.Checked -And ($($SelectedRow.Cells["Fax"].Value) -NE ""))                       {$ADCommandString = $ADCommandString + " " + "-Fax '$($SelectedRow.Cells["Fax"].Value)'" }
Try
    {
    Invoke-Expression $ADCommandString -ErrorAction 'Stop'
    }
Catch
    {   
    $txtLog.Text = $txtLog.Text + "$($Error[0])`r`n (This is a string)"
    }


Ja, werkt zeer goed :) En daar is nooit ruchtbaarheid aan gegeven?

[ Voor 198% gewijzigd door YellowOnline op 11-08-2015 16:22 ]


Acties:
  • 0 Henk 'm!

  • crisp
  • Registratie: Februari 2000
  • Nu online

crisp

Devver

Pixelated

YellowOnline schreef op dinsdag 11 augustus 2015 @ 16:21:
[...]

Ja, werkt zeer goed :) En daar is nooit ruchtbaarheid aan gegeven?
Het zal vast wel in een .plan vermeld zijn :p

Intentionally left blank


Acties:
  • 0 Henk 'm!

  • Kees
  • Registratie: Juni 1999
  • Laatst online: 21:38

Kees

Serveradmin / BOFH / DoC
YellowOnline schreef op dinsdag 11 augustus 2015 @ 16:21:
Copy/Paste uit waar ik mee bezig ben - meteen een echte test :)

Ja, werkt zeer goed :) En daar is nooit ruchtbaarheid aan gegeven?
Nee, ik zie dat het zelfs niet in een .plan genoemt is voor zover ik kan zien.

Anyway, we gebruiken nu een hooglichter voor deze talen: http://pygments.org/languages/

"Een serveradmin, voluit een serveradministrator, is dan weer een slavenbeheerder oftewel een slavendrijver" - Rataplan


Acties:
  • 0 Henk 'm!

  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

Topicstarter
Kees schreef op dinsdag 11 augustus 2015 @ 16:59:
[...]

Nee, ik zie dat het zelfs niet in een .plan genoemt is voor zover ik kan zien.

Anyway, we gebruiken nu een hooglichter voor deze talen: http://pygments.org/languages/
Ik ben blij :) Het werkt trouwens ook op Tweakblogs, al zie ik daar ook meteen een bug: Title TK: Creating Excel files with PowerShell

Het comment op lijn 33 is zo lang dat er op het einde getruncate wordt en vanaf daar de comment-highlighting meteen voor de rest van de code geldt. Dat probleem is vermoedelijk in een maximumlengte van een lijn in het codeblok en niet zozeer bij de lexer.

Acties:
  • 0 Henk 'm!

  • Kees
  • Registratie: Juni 1999
  • Laatst online: 21:38

Kees

Serveradmin / BOFH / DoC
Code mag ook niet meer dan 76 chars lang zijn in een propere styleguide :+

"Een serveradmin, voluit een serveradministrator, is dan weer een slavenbeheerder oftewel een slavendrijver" - Rataplan


Acties:
  • 0 Henk 'm!

  • Raven
  • Registratie: November 2004
  • Niet online

Raven

Marion Raven fan

YellowOnline schreef op dinsdag 11 augustus 2015 @ 16:04:
Ik heb al een jaar of twee-drie geleden hetzelfde gevraagd denk ik
UBB code-tag: PowerShell O-)

After the first glass you see things as you wish they were. After the second you see things as they are not. Finally you see things as they really are, and that is the most horrible thing in the world...

Oscar Wilde


Acties:
  • 0 Henk 'm!

  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

Topicstarter
Pagina: 1