Visual Studio .NET 2003 (이하 VS2003)을 이용하여 프로그래밍을 할 때 각자 개인이 사용하는 스타일이 있을 것이다. PC를 포맷하거나 다른 자리에서 작업할 때 매번 수동으로 환경을 설정하는 것도 상당히 고달픈 일이다. 왜 환경파일로 빼는 것을 만들지 않았을까 고민하다 자료를 찾다보니 예전엔 VSStyler 라는 애드온을 MS에서 배포했다고 하는데 현재는 배포가 중단된 상태였다. 어느곳에서도 사본을 찾을 수 없어 좌절하고 있었는데
http://weblogs.asp.net/rosherove/archive/2003/07/05/9722.aspx
라는 사이트에서 유용한 자료를 찾을 수 있었다.
VS2003에 매크로 기능을 이용하는 것인데, 단축키 alt+F11을 입력하면 매크로 관리하는 화면이 나온다. 여기서 새로운 매크로를 등록한 후 아래 코드를 입력한다.
nbsp;Imports EnvDTE
Imports System
.IO
Imports System.Text
Imports System
Public Module Settings
Public Sub SaveColorSettings()
Dim sb As New StringBuilder
Dim clr As [Property]
Dim ci As ColorableItems
Dim sFile As String = GetFileName()
If sFile = "" Then Exit Sub
clr = DTE.Properties("FontsAndColors", "TextEditor").Item("FontsAndColorsItems")
For Each ci In clr.Object
sb.Append(ci.Name & vbTab & ci.Foreground.ToString() & vbTab & ci.Bold.ToString() & vbTab & ci.Background.ToString() & vbNewLine)
Next
Dim write As TextWriter = File.CreateText(sFile)
write.Write(sb.ToString())
write.Close()
MsgBox(sFile & " created!", MsgBoxStyle.Information)
End Sub
Public Sub LoadColorSettings()
Dim sFile As String = GetFileName()
If sFile = "" Then Exit Sub
Dim reader As TextReader = File.OpenText(sFile)
Dim sLine As String
Try
Do
sLine = reader.ReadLine()
ParseLine(sLine)
Loop While sLine.Length > 0
Catch e As Exception
End Try
MsgBox("settings loaded successfully!")
End Sub
Private Function DefaultSettingsFileName() As String
Return Path.Combine(Environment.CurrentDirectory, "EditorSettings.txt")
End Function
Private Sub ParseLine(ByVal sLine As String)
Dim clr As [Property]
Dim ci As ColorableItems
Dim arr As String()
Try
arr = Split(sLine, vbTab)
clr = DTE.Properties("FontsAndColors", "TextEditor").Item("FontsAndColorsItems")
ci = clr.Object(arr(0))
ci.Foreground = UInt32.Parse(arr(1).ToString())
ci.Bold = Boolean.Parse(arr(2).ToString())
ci.Background = UInt32.Parse(arr(3).ToString())
Catch e As Exception
End Try
End Sub
Private Function GetFileName() As String
Dim sFile As String = InputBox("Enter the file name to create/load from", "Settings file name", DefaultSettingsFileName())
Return sFile
End Function
End Module
입력 후 저장시에는 Settings 함수로 가서 F5를 누르면 환경파일을 저장해 주고 로드시에는 LoadColorSettings 함수로 가서 F5를 누르면 저장한 환경파일을 로드할 수 있다.
이후 VS2003을 재 시작하면 환경파일을 로드한 VS2003을 볼 수 있을 것이다.
현재위치 :
Visual Studio .NET 2003 에디터 환경 변수 공유하기
