If you paste code into the MSDN forums straight from Visual Studio 2005, and then copy it back out and paste it in then you get double spaced lines. This is tedious as you often have to remove them to get the code to work.
To fix it, posters can use a Macro to format the code as HTML: Coding Horror Copying Visual Studio Code Snippets to the Clipboard as HTML.
If you want to strip the spaces from code you have pasted in then you can use a macro. I'll copy his ^^ instructions:
Here's how to get started with this macro
- go to Tools - Macros - IDE
- create a new Module named "DeDoubleSpace" under "MyMacros"
- Paste code into the module
- save and close the macro IDE window
- go to Tools - Macros - Macro Explorer
- The new macros will be under "DeDoubleSpace"; select the messy text and double click the macro.
Imports EnvDTE
Imports System
Imports System.Collections.Generic
Imports System.IO
Imports System.Text
Public Module DeDoubleSpace
' Remove double spaced lines from the selected text.
Public Sub SelectedText()
Dim textSelection1 As TextSelection = DirectCast(DTE.ActiveDocument.Selection, TextSelection)
Dim rawText As String = textSelection1.Text
Dim lines As New List(Of String)
Using sr As New StringReader(rawText)
lines = New List(Of String)
Do While sr.Peek > -1
lines.Add(sr.ReadLine())
Loop
End Using
If lines.Count < 3 Then Exit Sub
' Find the first bit of text.
Dim indexOfFirstLineWithText As Integer = 0
Dim done As Boolean = False
Do
If lines(indexOfFirstLineWithText) <> "" Then
done = True
Else
indexOfFirstLineWithText += 1
End If
Loop Until done Or indexOfFirstLineWithText = lines.Count
' Is the first line with text an odd or even line?
Dim even As Boolean = (indexOfFirstLineWithText Mod 2 = 0)
' If it is an even line, then check if all odd lines are blank
' and vice versa.
Dim allBlank As Boolean = True ' prove wrong
Dim index As Integer = IIf(even, 1, 0)
Do
If lines(index) <> "" Then
allBlank = False
Else
index += 2
End If
Loop Until Not allBlank OrElse index > lines.Count - 1
If allBlank = False Then Exit Sub
' Create new text
Dim sb As New StringBuilder
Dim i As Integer
For i = IIf(even, 0, 1) To lines.Count - 3 Step 2
sb.AppendLine(lines(i))
Next
sb.Append(lines(i))
' Alter the selection.
textSelection1.Delete()
textSelection1.Insert(sb.ToString)
End Sub
End Module
