鸟食轩

 Microsoft .NET[C#] MVP 2003
随笔 - 424, 文章 - 231, 评论 - 5394, 引用 - 344
数据加载中……

使用IDE宏遍历代码中的非ASCII字符

    在产品开发的时候，虽然大家知道需要做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
    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
    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)为示例，运行本脚本代码的结果如下图：
    ChineseWords.png

posted on 2005-12-25 14:53 birdshome 阅读(494) 评论(4)  编辑 收藏 所属分类: .NET技术开发相关

评论

#1楼    回复  引用    

先来一杯纯净的水。
2006-03-13 13:34 | chuanzai [未注册用户]

#2楼    回复  引用    

是不是只能用VB来写啊？看来挺好玩的
2006-03-14 02:48 | robaggio [未注册用户]

#3楼 [楼主]   回复  引用  查看    

@robaggio
嗯，至少目前这个宏只能用VB来写，虽然没有C#顺手，不过对于BASIC入门编程的我，还是觉得挺亲切的。
2006-03-14 21:16 | birdshome      

#4楼    回复  引用  查看    

受教了
2007-11-14 16:08 | 1-2-3      

标题  
姓名  
主页
Email (只有博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2006-03-11 17:22 编辑过
 
历史上的今天:

最新IT新闻:
· 第一财经周刊:当前互联网世界正处无秩序时代
· Visual Studio 2008 SDK 1.1 发布
· 死敌VMware变身微软认证计划新成员
· 英特尔雅虎开发网络计算机频道
· Windows Live视频邮件9月9日开始测试
博客园新闻频道  博客园首页  社区