Edit.FormatDocument

Also goes by Cntrl-E + D.

I had a document with all the formatting messed up. Tabs were spaces, and they were 4 instead of 2 which is the standard here. I typed these 3 keys, and everything was magically fixed. Groovy.

The stack overflow answer that got me here.

This is just another time saving shortcut that I'm trying to remember.

Is it leaking?

I wondered if my program was leaking. Here's how I found out:
Using Visual Studio 2012, into the immediate window, I typed:

.load SOS

Then, I investigated my class with this command (still in the immediate window).

!DumpHeap -type

I could see how many objects there were of this type in the heap. I could see their addresses in memory.

!gcroot

This command showed me where they came from and what other objects had references to them.

Finally:

!finalizequeue -allready

This allowed me to verify that although the object wasn't finalized yet, it was due to be whenever the Garbage Collector got around to it and therefore, my program wasn't leaking.

Fun with active Directory

How to find out what ActiveDirectory groups you, or anyone else belongs to.

$de = New-Object System.DirectoryServices.DirectoryEntry          
$searcher = New-Object System.DirectoryServices.DirectorySearcher($de) 
$searcher.Filter = "(sAMAccountName=qatest13)" 
$result = $searcher.FindOne()        
$result.Properties

Also extremely useful, and from SysInternals, is Active Directory Explorer.

LDAP factors prominently in all of this. Someday I might like to have some confidence in what to use as a filter in the searcher. But for now, I'll settle for making a note about what works and not caring why.
(SAM-Account-Name)

How to load SOS into Visual Studio

How to load SOS debugging extensions into the immediate window of Visual Studio (any version).

.load sos

For some reason, this little gem has escaped me until now. Will I ever use WinDBG again? Do I feel sad or glad about that?

TSQL 101 Creating a set of n unique strings

I did this as an exercise in recursive TSQL functions.


with Stuff(one, i) AS (
SELECT CONVERT(NVARCHAR(20), 'one'), 1
UNION ALL
SELECT CONVERT(NVARCHAR(20), 'one' + CONVERT(nvarchar, i)) as one, i + 1
FROM Stuff
WHERE i < 100
)
select one from Stuff 


Which returns: 



one
one1
one2
...
one99


At first, I kept getting this error: 

Msg 240, Level 16, State 1, Line 1
Types don't match between the anchor and the recursive part in column "one" of recursive query "Stuff".


So I changed: 
SELECT 'one', 1 
To: 
SELECT CONVERT(NVARCHAR(20), 'one'), 1
in order to match the recursive part's exact type and it worked.

TSQL 101 UNION vs UNION ALL

UNION includes items only once, even if they exist in both sets.
UNION ALL includes items twice if they exist in both sets.

SELECT 'first' UNION
SELECT 'first'

= 'first'

SELECT 'first' UNION ALL
SELECT 'first'

= 'first', 'first'

Neat. This made me wonder if INTERSECT exists in TSQL. To my delight, both INTERSECT and EXCEPT exist.

Fizz Buzz in powershell

For fun, I thought I’d see if I could write Fizz Buzz in powershell.

1 .. 100 | foreach { if ($_ % 15 -eq 0) { Write-Host "FizzBuzz" } elseif ( $_ % 3 -eq 0) { Write-Host "Fizz" } elseif ($_ % 6 -eq 0) { Write-Host "Buzz" } else { Write-Host $_ } }

Or, if you prefer multiple lines:

1 .. 100 | foreach 
{ 
    if ($_ % 15 -eq 0) { 
        Write-Host "FizzBuzz" 
    } elseif ( $_ % 5 -eq 0) { 
        Write-Host "Fizz" 
    } elseif ($_ % 3 -eq 0) { 
        Write-Host "Buzz" 
    } else { 
        Write-Host $_ 
    }
}

Not to hard, but why stop there?

F# Fizz Buzz

[1..100]
|> Seq.map( function     
    | x when x % 15 = 0 -> "BizzBuzz"    
    | x when x % 5 = 0 -> "Bizz"     
    | x when x % 3 = 0 -> "Buzz"     
    | x -> string x ) 
|> Seq.iter(printfn "%s" ) ;;

TSQL Fizz Buzz

My first attempt:

DECLARE @i INT

SELECT @i = 0

WHILE @i < 100

BEGIN

SELECT @i = @i + 1

IF (@i % 15 = 0)

PRINT 'FIZZBUZZ'

ELSE IF (@i % 5 = 0)

PRINT 'FIZZ'

ELSE IF (@i % 3 = 0)

PRINT 'BUZZ'

ELSE

PRINT @i

END 

Not very TSQL-y so I tried again:

DECLARE @i INT

SELECT @i = 0

WHILE @i < 100

BEGIN

SELECT @i = @i + 1

PRINT CASE WHEN (@i % 15 = 0) THEN 'FIZZBUZZ'

WHEN (@i % 5 = 0) THEN 'FIZZ' 

WHEN (@i % 3 = 0) THEN 'BUZZ'

ELSE CAST(@i AS NVARCHAR(MAX))

END

END

A little better, but I found an even better one on the interweb.

WITH Numbers(Number) AS (

  SELECT 1

  UNION ALL

  SELECT Number + 1

  FROM Numbers

  WHERE Number < 100

)

SELECT

  CASE

    WHEN Number % 3 = 0 AND Number % 5 = 0 THEN 'FizzBuzz'

    WHEN Number % 3 = 0 THEN 'Fizz'

    WHEN Number % 5 = 0 THEN 'Buzz'

    ELSE CONVERT(VARCHAR(3), Number)

  END

FROM Numbers

ORDER BY Number

This one is full of interesting things. The recursive function at the start is going to take me some time to digest, but it is also very cool.

So once more in javascript:

Javascript Fizz Buzz

for( i = 1; i < 100; i++) {

if (i % 15 == 0) {

console.log("FizzBuzz");

} else if ( i % 3 == 0) {

 console.log( "Fizz" );

} else if ( i % 5 == 0) {

console.log( "Buzz" );

} else {

console.log( i );

}

}

The only thing interesting here is that you can type this in any browser’s javascript console (F12 to open it up).  Other than that, it is boring.