itianda 发表于 2011-12-22 15:34:41

VB代码格式化工具

本帖最后由 itianda 于 2011-12-24 00:16 编辑

今早写的，标准C++实现，为了推动C++标准化进程用了auto关键字，想用VC6编译的请自行修改变量定义。
不多说，看下效果：

格式化前(网上找的代码，故意丑化了下^_^)：

Function         bytes2BSTR(vIn)
strReturn = ""
   For i   = 1 To LenB(vIn)
ThisCharCode   = AscB(MidB(vIn, i, 1))
            If ThisCharCode < &H80   Then
strReturn = strReturn & Chr(ThisCharCode)
                        Else
NextCharCode = AscB(MidB(vIn, i                   + 1, 1))
      strReturn          =   strReturn & Chr( _
CLng(ThisCharCode) * _
            &H100 + CInt(NextCharCode))
i                        = i + 1
End    If
      Next
      bytes2BSTR   = strReturn
End   Function

格式化后：

Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
      ThisCharCode = AscB(MidB(vIn, i, 1))
      If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
      Else
            NextCharCode = AscB(MidB(vIn, i + 1, 1))
            strReturn = strReturn & Chr( _
                CLng(ThisCharCode) * _
                &H100 + CInt(NextCharCode))
            i = i + 1
      End If
    Next
    bytes2BSTR = strReturn
End Function

效果还凑和，代码不多，200多行，一些细节没有很好处理到，比如用冒号连结多行语句的情况。
进一步可以弄成IDE插件之类的东西，不过暂时可能没时间弄了。
看代码请去我的博客：http://www.programup.com/blog/archives/32
下载EXE程序：http://www.programup.com/files/puvbformatter.zip或者3楼附件

Tesla.Angela 发表于 2011-12-23 11:28:24

你这软件导入了两个莫名其妙的DLL，在我这里运行不起来。

itianda 发表于 2011-12-23 15:01:21

本帖最后由 itianda 于 2011-12-23 23:44 编辑

Tesla.Angela 发表于 2011-12-23 11:28 static/image/common/back.gif
你这软件导入了两个莫名其妙的DLL，在我这里运行不起来。

哦 一直用notepad++写c++，gcc作编译器。刚静态编译了下，开了体积优化...



见附件：

刚发现select case没放到关键字列表，已更新

Tesla.Angela 发表于 2011-12-24 00:01:06

itianda 发表于 2011-12-23 15:01 static/image/common/back.gif
哦 一直用notepad++写c++，gcc作编译器。刚静态编译了下，开了体积优化...




好吧，支持下！

cyycoish 发表于 2015-6-6 23:42:10

i。。。。itianda，好吧，我认识楼主，楼主不认识我。

页: [1]
查看完整版本: VB代码格式化工具