不过VB.NET确实有许多VB6没有的新功能，代码的自动排版就是一项，这也正是我们今天要实现的功能——VB代码格式化。
先看下实现的效果：
格式化前：
代码如下:
For i = 0 To WebBrowser1.Document.All.length - 1
If WebBrowser1.Document.All(i).tagName = "HTML" Then
strContent = strContent & WebBrowser1.Document.All(i).innerHTML
Exit For
End If
Next
格式化后：
代码如下:
For i = 0 To WebBrowser1.Document.All.length - 1
If WebBrowser1.Document.All(i).tagName = "HTML" Then
strContent = strContent & WebBrowser1.Document.All(i).innerHTML
Exit For
End If
Next
C++水平一直很烂，所以选择了C++作为练手语言写了这个简陋的VB代码格式化工具。代码不长，才200多行，标准C++实现。另外，为了彻底打消某些人继续使用VC6的念头，使用了auto关键字嘿嘿。好吧，废话少说，直接上代码：
代码如下:
#include
#include
#include
#include
#include
using namespace std;
//判断是否为空格
bool isSpace(const char chr)
{
return chr == ' ';
}
//去除左侧空白
void leftTrim(string &str)
{
string::iterator p=find_if(str.begin(),str.end(),not1(ptr_fun(isSpace)));
str.erase(str.begin(),p);
}
//去除右侧空白
void rightTrim(string& str)
{
string::reverse_iterator p=find_if(str.rbegin(),str.rend(),not1(ptr_fun(isSpace)));
str.erase(p.base(),str.end());
}
//去除两侧空白
string trim(const string& str)
{
string strRet(str);
leftTrim(strRet);
rightTrim(strRet);
return strRet;
}
//转换成小写
string toLower(const string& str)
{
string strRet(str);
transform(strRet.begin(),strRet.end(),strRet.begin(),(int (*)(int))tolower);
return strRet;
}
//判断是否以给定关键字开头
bool startWith(const vector& vecCodeKeywords,const string& strCodeLine)
{
string line(toLower(strCodeLine));
for(auto keyword=vecCodeKeywords.begin(); keyword!=vecCodeKeywords.end(); keyword++)
if(line.find(*keyword + " ")==0 || line== *keyword)
return true;
return false;
}
//IF...Then...特殊检查
bool checkForIfThen(const string& strCodeLine)
{
vector vecIf;
vecIf.push_back("if");
if(!startWith(vecIf,strCodeLine))
return false;
if(toLower(strCodeLine).find("then")==string::npos)
return false;
string line(trim(toLower(strCodeLine)));
if(line.length()