在产品开发的时候，虽然大家知道需要做I18N的支持。不过在开发代码的过程中，由于需要首先关注逻辑实现，所以文件中也难免会hardcode中文文字什么的。在代码的UI描述和业务逻辑都很稳定后，最后还需要清理一下代码中是否还有中文资源，因为那些类似错误提示一类的描述，在程序未出错时Tester几乎是无法发现的。
不过这个检查如果靠眼睛看，也是非常之郁闷的事情，那么除了编写额外的工具分析文档，还有没有其它简单又自动的方法帮我们解决问题呢？由于VS.NET 2003给我提供了非常强大的宏功能(可以在宏中使用.NET Framework类库!)，所以对于这种小case使用宏来解决就太合适不过了。下面这个宏的功能就是在当前文档中找出非ASCII字符，并把出现的行号和内容输出到Output工具窗口中。代码如下：
Imports EnvDTE
Imports System.Windows.Forms
Imports System.Text
Imports System.Globalization
Imports System.Text.RegularExpressions
Imports System.Diagnostics
Imports MyMacros.Util
Public
Module Birdshome
Module Birdshome
Sub FindChineseWords()
Sub FindChineseWords()
Dim doc
As Document = DTE.ActiveDocument
Dim docText
As TextDocument = doc.Object
Dim lineCount = docText.EndPoint.Line
Dim ep
As EditPoint = docText.StartPoint.CreateEditPoint()
Dim strLine
As
String
Dim i
As
Integer
Dim regex
As Regex =
New Regex("[^\u0000-\u00ff]+")
Dim strbResult
As StringBuilder =
New StringBuilder
For i = 1
To lineCount - 1
strLine = ep.GetLines(i, i + 1)
Dim m
As MatchCollection = regex.Matches(strLine)
If m.Count > 0
Then
strbResult.Append(i.ToString())
strbResult.Append(". ")
Dim j
As
Integer
For j = 0
To m.Count - 1
strbResult.Append(m(j).Value)
strbResult.Append(", ")
Next
strbResult.Length = strbResult.Length - 2
strbResult.Append(";")
strbResult.Append(System.Environment.NewLine)
End
If
Next
'
MessageBox.Show(strbResult.ToString)
Dim win
As Window = DTE.Windows.Item(Constants.vsWindowKindCommandWindow)
Dim target
As
Object
If (DTE.ActiveWindow
Is win)
Then
target = win.Object
Else
target = GetOutputWindowPane("Chinese Words")
target.clear()
End
If
target.OutputString(strbResult.ToString())
End Sub
End Module
方法GetOutputWindowPane在如下公用模块中：
Imports EnvDTE
Imports System.Diagnostics
Public
Module Util
Module Util
Function GetOutputWindowPane()
Function GetOutputWindowPane(
ByVal Name
As
String,
Optional
ByVal show
As
Boolean =
True)
As OutputWindowPane
Dim win
As Window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput)
If show
Then win.Visible =
True
Dim ow
As OutputWindow = win.Object
Dim owpane
As OutputWindowPane
Try
owpane = ow.OutputWindowPanes.Item(Name)
Catch e
As System.Exception
owpane = ow.OutputWindowPanes.Add(Name)
End
Try
owpane.Activate()
Return owpane
End Function
End Module
// 多写写VB，觉得它的语法还是挺自然的:)
以中文google首页的html代码(Formatted by IDE)为示例，运行本脚本代码的结果如下图：
不过这个检查如果靠眼睛看，也是非常之郁闷的事情，那么除了编写额外的工具分析文档，还有没有其它简单又自动的方法帮我们解决问题呢？由于VS.NET 2003给我提供了非常强大的宏功能(可以在宏中使用.NET Framework类库!)，所以对于这种小case使用宏来解决就太合适不过了。下面这个宏的功能就是在当前文档中找出非ASCII字符，并把出现的行号和内容输出到Output工具窗口中。代码如下：
Imports EnvDTE
Imports System.Windows.Forms
Imports System.Text
Imports System.Globalization
Imports System.Text.RegularExpressions
Imports System.Diagnostics
Imports MyMacros.Util
Public
Module Birdshome
Module Birdshome
Sub FindChineseWords()
Sub FindChineseWords()
Dim doc
As Document = DTE.ActiveDocument
Dim docText
As TextDocument = doc.Object
Dim lineCount = docText.EndPoint.Line
Dim ep
As EditPoint = docText.StartPoint.CreateEditPoint()
Dim strLine
As
String
Dim i
As
Integer
Dim regex
As Regex =
New Regex("[^\u0000-\u00ff]+")
Dim strbResult
As StringBuilder =
New StringBuilder
For i = 1
To lineCount - 1
strLine = ep.GetLines(i, i + 1)
Dim m
As MatchCollection = regex.Matches(strLine)
If m.Count > 0
Then
strbResult.Append(i.ToString())
strbResult.Append(". ")
Dim j
As
Integer
For j = 0
To m.Count - 1
strbResult.Append(m(j).Value)
strbResult.Append(", ")
Next
strbResult.Length = strbResult.Length - 2
strbResult.Append(";")
strbResult.Append(System.Environment.NewLine)
End
If
Next
'
MessageBox.Show(strbResult.ToString)
Dim win
As Window = DTE.Windows.Item(Constants.vsWindowKindCommandWindow)
Dim target
As
Object
If (DTE.ActiveWindow
Is win)
Then
target = win.Object
Else
target = GetOutputWindowPane("Chinese Words")
target.clear()
End
If
target.OutputString(strbResult.ToString())
End Sub
End Module
方法GetOutputWindowPane在如下公用模块中：
Imports EnvDTE
Imports System.Diagnostics
Public
Module Util
Module Util
Function GetOutputWindowPane()
Function GetOutputWindowPane(
ByVal Name
As
String,
Optional
ByVal show
As
Boolean =
True)
As OutputWindowPane
Dim win
As Window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput)
If show
Then win.Visible =
True
Dim ow
As OutputWindow = win.Object
Dim owpane
As OutputWindowPane
Try
owpane = ow.OutputWindowPanes.Item(Name)
Catch e
As System.Exception
owpane = ow.OutputWindowPanes.Add(Name)
End
Try
owpane.Activate()
Return owpane
End Function
End Module
以中文google首页的html代码(Formatted by IDE)为示例，运行本脚本代码的结果如下图：
本文转自博客园鸟食轩的博客，原文链接：http://www.cnblogs.com/birdshome/，如需转载请自行联系原博主。
