批处理+VBS脚本实现纯文本代码格式化输出

批处理+VBS脚本实现纯文本代码格式化输出
2011年06月06日
   鉴于一次无聊时将日志里面的代码全部格式化成跟编译器里面相同格式后,发现这样的日志看起来顺眼多了,以后发日志便强迫性的要做相应更改,但是对于选定关键字->更改字体颜色代码这样的工作模式,在任何一个页面文字编译工具下都显得费时费力,这种情况下势必选择一种相应较快的方式来完成这项工作,使用Dreaweaver能比较快速的对选择文字进行字体编码,但是它不支持多选,那我想到了另一种方式来处理该情况:使用Office来进行文字颜色设置,由于它能进行多项不连续文字选择,因此会对代码的格式化工作提升很大效率,这种情况在代码量及整个日志内容较少的时候非常适用,能够快速地格式化出希望的代码样式来,但当我试着对一篇一两千字的日志进行处理的时候就发现问题了:日志内容超过XXXX字节!不对啊,我的日志怎么着也不会写超过5、6K啊,切换HTML代码一看,原来由WORD转换的文字格式多了很多类似于的代码,并且自建了大量的CSS样式,基本上对于每一个词或句都进行了一次代码处理,导致很多重复做功与无用功!
  要在一个长达5、6K的文本文件里面去查找/替换无用的HTML标签,难度可想而知,我可不想写一篇日志只用几分钟,修改格式就要用到一两天的时间!其实对代码进行格式化的处理很简单,就设一个代码区背景色,替换一下空格为html标记,分别替换各部分不同功能代码为不同颜色即可,只做到对这几个关键部分的颜色替换,根本用不着那么多无用的HTML冗余信息,既然OFFICE不好用,那么自己来写一个小工具转换代码格式吧!
  思路:由于现在的网络文字编译器都支持带HTML格式的复制,因此我们直接将所需转换的代码存为html文件,然后再用脚本进行替换处理以使其达到我们所需的HTML格式。
  如下方代码:
  /***********************************************************
  * 函数名 : MsgBoxEx
  * 参 数 :
  * hwnd, szText, szCaption, uType
  * 返回值 : int
  * 功 能 : 在创建MessageBox之前, 创建CBT钩子与Keyboard钩子
  * 用以转发捕获的按键消息
  * 创 建 : KOUKON [2011/04/21]
  * 备 注 :
  **********************************************************/
  int MsgBoxEx(HWND hwnd, TCHAR *szText, TCHAR *szCaption, UINT uType)
  {
  int ret;
  g_hMsgCBTHook = SetWindowsHookEx(
  WH_CBT,
  CBTProc,
  NULL,
  GetCurrentThreadId()
  );
  g_hMsgKbdHook = SetWindowsHookEx(
  WH_KEYBOARD,
  KeyBordProc,
  NULL,
  GetCurrentThreadId()
  );
  ret = MessageBox(hwnd, szText, szCaption, uType);
  return ret;
  }
  直接将纯文本存到html里面,将里面的tab标签全部转换成空格以便作进一步处理。
  第二步即将里面的回车换行、空格及段落标签与注释的颜色信息标出,由于此类操作只需要做一次即可,所以我们用正则表达式判断是否已作相应处理。
  到此为准备工作,当这一切准备完善之后就需要正式对我们的关键字进行处理了,我们将三个参数传到VBS脚本,所需要做格式处理的文件名、需要处理的关键字、关键字所标注的颜色(如:注释008000 类型名0000ff 函数名880000 变量名000080 常量及宏名A000A0),然后对文件中的相应文字添加颜色标签,此处要注意,所查找的关键字应避开多行注释与单行注释里面的内容,因为这两处地方统一着色为注释文本颜色。
  最后将替换后的文本写回到指定的文件里面,即完成一个关键字的处理。
  以上即为一次关键字替换工作,要作批量处理,我们即可建一批处理文件来批量调用关键字,这里我用一个文本文件来存储格式化的颜色与关键字template.txt,内容大致如下:
  0000ff
  long
  int
  if
  else
  switch
  UINT
  TCHAR
  BOOL
  第一行为关键字颜色,从第三行起为各关键字,一个关键字占位一行。调用批处理代码如下fmtCode.bat:
  @echo off
  setlocal enabledelayedexpansion
  title fmtCode.::.By 呼吸新世界
  set "strColor="
  set "strKey="
  set /a offset=0
  for /f "tokens=*" %%i in ('more +!offset! template.txt') do (
  REM echo.%%i
  set "strColor=%%i"
  goto :_getKey
  )
  :_getKey
  set /a offset=!offset!+2
  for /f "tokens=*" %%i in ('more +!offset! template.txt') do (
  REM echo.%%i
  set "strKey=%%i !strKey!"
  )
  echo strColor is : !strColor!
  echo strKey is: !strKey!
  echo.&echo.
  for %%i in (!strKey!) do (
  cscript //nologo fmtcode.vbs test.htm %%i !strColor!
  )
  pause
  goto :EOF
  文本替换脚本如下fmtCode.vbs:
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  'ScriptName : fmtCode
  'Description: 设置指定关键字代码为指定颜色,并写入成html格式
  'Author : 呼吸新世界 [2011/06/06]
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Const ForReading = 1
  Const ForWriting = 2
  Const ForAppending = 8
  Dim wsh, fso, fil, reg, matchCollection, regTmp
  Dim strFileName, strContent, strKeyword, strColor
  Sub Init()
  If (WScript.Arguments.Count " & Chr(13)+Chr(10) & strContent & Chr(13)+Chr(10) & ""
  WScript.Echo "段落标记添加完毕……"
  End If
  '注释行添色添加
  If InStr(strContent, "") " & Chr(13)+Chr(10) & match.Value & "" & Chr(13)+Chr(10))
  Next
  End If
  reg.Pattern = "(.*)(//.*)"
  If reg.Test(strContent) Then
  WScript.Echo "单行注释匹配成功……"
  Set matchCollection = reg.Execute(strContent)
  For Each match In matchCollection
  WScript.Echo match.Value
  strContent = Replace(strContent, match.Value, match.Submatches.Item(0) & "" & match.Submatches.Item(1) & "")
  Next
  End If
  WScript.Echo "注释行颜色添加完毕……"
  End If
  End Sub
  Sub ReContent()
  '查找符合条件的行
  reg.Pattern = "(.*?\b)(" & strKeyword & "\b)(.*)"
  WScript.Echo reg.Pattern & " " & reg.Test(strContent)
  Set matchCollection = reg.Execute(strContent)
  For Each match In matchCollection
  regTmp.Pattern = "(\* |//)" '注释行不算
  WScript.Echo "Current matches count: " & CStr(match.Submatches.Count)
  If Not regTmp.Test(match.Submatches.Item(0)) Then
  '创建临时正则式
  Set reg1 = New RegExp
  reg1.Pattern = reg.Pattern
  Set matchCol1 = reg1.Execute(match.Value)
  '遍历子式
  Do While matchCol1.Count > 0
  For Each match1 In matchCol1
  '判断是否代码后面注释
  regTmp.Pattern = "//"
  If Not regTmp.Test(match1.Submatches.Item(0)) Then
  WScript.Echo match1.Submatches.Item(0) & "【" & match1.Submatches.Item(1) & "】" & match1.Submatches.Item(2)
  strContent = Replace(strContent, match1.Value, match1.Submatches.Item(0) & "" & match1.Submatches.Item(1) & "" & match1.Submatches.Item(2))
  Set matchCol1 = reg1.Execute(match1.Submatches.Item(2))
  Exit For
  Else
  Exit Do
  End If
  Next
  Loop
  End If
  Next
  End Sub
  Sub Destroy()
  Set fil = fso.OpenTextFile(strFileName, ForWriting, True)
  fil.Write strContent
  fil.Close
  Set regTmp = Nothing
  Set reg = Nothing
  Set fil = Nothing
  Set fso = Nothing
  End Sub
  Call Init()
  Call ReContent()
  Call Destroy()
  这是处理后的最终结果:
  /***********************************************************
  * 函数名 : MsgBoxEx
  * 参 数 :
  * hwnd, szText, szCaption, uType
  * 返回值 : int
  * 功 能 : 在创建MessageBox之前, 创建CBT钩子与Keyboard钩子
  * 用以转发捕获的按键消息
  * 创 建 : KOUKON [2011/04/21]
  * 备 注 :
  **********************************************************/
  int MsgBoxEx(HWND hwnd, TCHAR *szText, TCHAR *szCaption, UINT uType)
  {
  int ret;
  g_hMsgCBTHook = SetWindowsHookEx(
  WH_CBT,
  CBTProc,
  NULL,
  GetCurrentThreadId()
  );
  g_hMsgKbdHook = SetWindowsHookEx(
  WH_KEYBOARD,
  KeyBordProc,
  NULL,
  GetCurrentThreadId()
  );
  ret = MessageBox(hwnd, szText, szCaption, uType);
  return ret;
  }
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值