#1楼    回复  引用  查看    

我只能说 我真的非常佩服你！文章 还有方法！

#2楼    回复  引用    

Cool article and cool VS.NET :)

#3楼    回复  引用  查看    

不错。

#4楼    回复  引用    

(?<code>\\u[a-f0-9]{4})

#5楼    回复  引用  查看    

You are right in C# programming, but VB Script is not case-sensitive.

#6楼    回复  引用    

这段宏代码是怎么用的啊？能不能详细介绍下使用的过程！

#7楼    回复  引用    

可以考虑用javascript+html写一个HTA

#8楼    回复  引用    

能不能具体讲讲怎么使用

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

目前最新版的Reflector 4.1.29.0，已经支持东亚语言了。

#10楼    回复  引用    

樓主NB！

#11楼    回复  引用    

re: 弥补Reflector对中文支持的不足
目前最新版的Reflector 4.1.29.0，已经支持东亚语言了。

--------------------------------------------------

有支持嗎，怎麼還是亂碼？

#12楼    回复  引用    

想不到还可以这样,我自已还为此专写了一个Unicode到中文转换的小工具呢! http://pdriver.com/blog/dibov/archive/2005/01/27/6066.aspx

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

#14楼    回复  引用    

对呀，怎么用宏呀

#15楼    回复  引用  查看    

Reflector.FileDisassembler 4.1.70.0
这个插件提供源代码的，可以尝试改这个代码实现把Unicode编码保存为中文的，昨天晚上看了一下这个代码，没怎么仔细看，LZ看看撒。

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

http://download.cnblogs.com/birdshome/archive/2005/04/18/139646.aspx
要转换不是很难，只是近来很难有这个需求，大多数有价值reflector的assembly本身都是英文版的。

#17楼    回复  引用    

不知怎么使用这个宏

#18楼    回复  引用    

多谢了，这也算是个不错解决办法!!!

#19楼    回复  引用    

开源了 现在 大家可以自己改嘛

#20楼    回复  引用    

挺好的啊 我太需要了

#21楼    回复  引用    

非常好。佩服。
不知能否将反编译的ＶＢ中的类似于ChrW(21306)的形式转变过来。
我考虑了一下，主要是对字符串前后的引号不太好处理。

您有何高见。

#22楼    回复  引用  查看    

最新版本中已经修复了这个bug

#23楼    回复  引用  查看    

楼主，希望你能帮我啊，我在网上找了很久，就只有你有相关的方法

我打开一个软件语言文件txt文本，看到里面的汉字全部用BigEndianUnicode代码表示，而我要得到的却是中文汉字，不知道该用什么软件或代码转换，请你帮帮我，真的很重要啊，我的邮箱是tiankongdahaigaoshan@126.com
我在网上搜索了很久，就看到你在（弥补Reflector反编译对中文支持的不足）有谈到这个问题，而我又不会编程，所以对你用VS.NET代码处理根本不懂，所以我希望你能帮我指点指点，或者是做一个exe文件，让我把文本文件拖进去，出来的就是中文的文本了，呵呵，期待你的回复

一下只是部分代码（都是txt格式的文本，希望把全部BigEndianUnicode代码转换成中文）

STRINGTABLE
{
  IDS_OUTWINDOW_FILE "\u6587\u4EF6";
  IDS_OUTWINDOW_EDIT "\u7F16\u8F91";
  IDS_OUTWINDOW_VIEW "\u89C6\u56FE";

 

  IDS_EDITOR_FILE "\u6587\u4EF6";
  IDS_EDITOR_EXPORT "\u8F93\u51FA...";
  IDS_EDITOR_EXPORTPREFS "\u8F93\u5165/\u8F93\u51FA\u8BBE\u7F6E";
  IDS_EDITOR_PRESETS "\u9884\u5236";
  IDS_EDITOR_EDIT "\u7F16\u8F91";
  IDS_EDITOR_OBJECTS "\u5BF9\u8C61";
  IDS_EDITOR_PRIMITIVE "\u539F\u59CB\u51E0\u4F55\u4F53";
  IDS_EDITOR_SPLINE_PRIMITIVE "\u539F\u59CB\u6837\u6761";
  IDS_EDITOR_NURBS "NURBS";
  IDS_EDITOR_MODELING "\u9020\u578B";
  IDS_EDITOR_SCENE "\u573A\u666F";
  IDS_EDITOR_PARTICLE "\u7C92\u5B50";
  IDS_EDITOR_DEFORMATION "\u53D8\u5F62";
  IDS_EDITOR_SOUND "\u58F0\u97F3";
  IDS_EDITOR_TOOLS "\u5DE5\u5177";
  IDS_EDITOR_ACTION "\u52A8\u4F5C";
  IDS_EDITOR_COORDINATES "\u5750\u6807";
  IDS_EDITOR_OPTIONS "\u529F\u80FD";
  IDS_EDITOR_STRUCTURE "\u6784\u9020";
  IDS_EDITOR_MODEL_TOOLS "\u6A21\u578B\u5DE5\u5177";
  IDS_EDITOR_CREATEMODIFY "\u521B\u5EFA\u4FEE\u6539";
  IDS_EDITOR_MODELTOOLS "\u6A21\u578B\u5DE5\u5177";

#24楼    回复  引用  查看    

楼主，希望你能帮我啊，我在网上找了很久，就只有你有相关的方法

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

@alexanderssky
怎么你不能把我前面的Macro运行起来？

Visual Studio 05/08都可以运行呀，你的代码片断转换后是：

STRINGTABLE
{
    IDS_OUTWINDOW_FILE "文件";
    IDS_OUTWINDOW_EDIT "编辑";
    IDS_OUTWINDOW_VIEW "视图";

    IDS_EDITOR_FILE "文件";
    IDS_EDITOR_EXPORT "输出...";
    IDS_EDITOR_EXPORTPREFS "输入/输出设置";
    IDS_EDITOR_PRESETS "预制";
    IDS_EDITOR_EDIT "编辑";
    IDS_EDITOR_OBJECTS "对象";
    IDS_EDITOR_PRIMITIVE "原始几何体";
    IDS_EDITOR_SPLINE_PRIMITIVE "原始样条";
    IDS_EDITOR_NURBS "NURBS";
    IDS_EDITOR_MODELING "造型";
    IDS_EDITOR_SCENE "场景";
    IDS_EDITOR_PARTICLE "粒子";
    IDS_EDITOR_DEFORMATION "变形";
    IDS_EDITOR_SOUND "声音";
    IDS_EDITOR_TOOLS "工具";
    IDS_EDITOR_ACTION "动作";
    IDS_EDITOR_COORDINATES "坐标";
    IDS_EDITOR_OPTIONS "功能";
    IDS_EDITOR_STRUCTURE "构造";
    IDS_EDITOR_MODEL_TOOLS "模型工具";
    IDS_EDITOR_CREATEMODIFY "创建修改";
    IDS_EDITOR_MODELTOOLS "模型工具";

#26楼    回复  引用  查看    

@birdshome
老大，还是不行啊，都不知道怎么回事，就是运行不了

#27楼    回复  引用  查看    

 

 问题还是没有解决啊，我把过程截了图片给你看看，是那里出了问题

希望能详细的帮我解答一下，万分感谢

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

怎么会还没有成功啊？？？我都要晕倒了，，，你要修改一下模块名，改成和代码里的一样。。。
Public Module Birdshome
   Sub Unicode2Character()
       Dim doc AsDocument = DTE.ActiveDocument
       Dim docText AsTextDocument = doc.Object
       Dim selText AsTextSelection = docText.Selection()
       selText.SelectAll()
       Dim text As String = selText.Text
       Dim iLength As Integer
       Do
           iLength = text.Length
           Dim m As Match
           Dim strPattern AsString = "(?<code>\\[ux][A-F0-9]{2,4})"
           m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
           If m.Success Then
               Dim strValue AsString
               strValue = m.Groups("code").Value
               Dim digitLength AsInteger = strValue.Length - 2
               text = text.Replace(strValue, "")
               Dimint As Integer
               int = System.Int32.Parse(strValue.Substring(2, digitLength),NumberStyles.HexNumber)
               Dim ch As Char = ChrW(int)
               docText.ReplacePattern(strValue, ch)
           Else
               Exit Do
           End If
           If Nottext.Length < iLength Then
               Exit Do
           End If
       Loop
       selText.StartOfDocument()
   End Sub
End Module
// 增加了对\x??这种形式的转换支持

#29楼    回复  引用    

这是哪个版本啊。没有见过。
还有那个宏怎么用啊