临山古照

使用phpED开发，使用phpCB作为代码格式化工作。当压缩后的PHP文件比较大时，要打开它是一件痛苦的事情。经常导致phpED罢工。无奈之下，动手写了一个PHP代码批量格式化工具。代码分享如下：

１.　新建一个名为 FormatPHP.bat 的文件。其内容如下：

View Code

@TITLE 格式化PHP代码　路径：%1
@echo *****************************************************************
@echo *
@echo *　PHP代码文件的路径：%1 
@echo *　该路径下的所有 .PHP 和 .php 后缀的文件，其内容都将被格式化。
@echo *
@echo *　提示：格式化需要一定的时间！如果要取消，请将本窗口关掉。
@echo *
@echo *　　　　　　　　　　　　　　　　　　————Create　By　布衣卿相
@echo *
@echo *****************************************************************
@pause
@echo *
@echo *　格式化开始...
@echo *

@cd /D %1
@set BackupPath = %2
@if "%BackupPath%"=="" @set BackupPath=D:\MyFile\UltraEdit\backup\Date
@set phpCB = %3
@if "%phpCB%"=="" @set phpCB=D:\soft\phpCB.exe

@set a=%cd%t
@set des=%BackupPath%\%date:~0,4%\%date:~5,2%\%date:~8,2%\%time:~0,2%%time:~3,2%%time:~6,2%\%a:~0,1%\
@FOR /r %1 %%f IN (*) DO @call :FormatPHP1 %%f %des% %phpCB%
@echo *****************************************************************
@echo *
@echo *　PHP格式化结束
@echo *
@echo *****************************************************************
pause
@goto :eof

:FormatPHP1
@set FileName=%1
@set des=%2
@set phpCB = %3
@if "%FileName:~-4,4%"==".php" @call :FormatPHP2 %FileName% %des% %phpCB%
@if "%FileName:~-4,4%"==".PHP" @call :FormatPHP2 %FileName% %des% %phpCB%
@goto :eof

:FormatPHP2
@set FileName=%1
@set FilePath=%2
@set phpCB = %3
@set FileName2=%FileName%t
@set FileBakup=%FilePath%%FileName2:~3,-1%

@echo F|xcopy "%FileName%" "%FileBakup%" /S /Y | echo off
@echo *　当前文件：%FileName%
@echo *　　　　　　备份成功
@echo *　　　　　　正在格式化...

@"%phpCB%" --equal-align-position 50 --padding-char-count 4 --space-after-if --space-after-switch --space-after-while --glue-amperscore --force-large-php-code-tag --align-equal-statements --comment-rendering-style PEAR --extra-padding-for-case-statement --glue-arrow --optimize-eol --one-true-brace --one-true-brace-function-declaration "%FileName%" > "%FileName%.phpFormatBak"

@move /Y "%FileName%.phpFormatBak" "%FileName%" | echo off
@echo *　　　　　　格式化成功
@echo *
@goto :eof

２.　新建一个 reg 类型的文件，其内容为：

其中，

　D:\MyFile\UltraEdit\save\FormatPHP.bat 为第一步中所建立的bat文件的完整路径；

　D:\MyFile\UltraEdit\backup\Date 是用于备份代码的文件夹；

　D:\soft\phpCB.exe 是phpCB的完整路径。

以上三个参数应该按照实际情况修改。

执行上述 reg 文件后，在文件夹上点击鼠标右键，便为出现一个名为“格式化PHP代码”的菜单项。

大功告成！

睡个觉起来，VS2005的智能提示就坏掉了。一时间我如同被废去武功，无法行走江湖。于是打开万能的搜索引擎，得到了一个解决办法：

http://www.cnblogs.com/deodara/archive/2007/12/05/983777.html

本人比较懒，不想试用该文中的第一个方法；于是直接在cmd中执行：

执行完以后，才发现这个命令是将VS的使用环境设置为“未使用”。早知如此，还不如采用第一个办法，直接在VS中重置默认配置。

该文称重置默认配置的方法无效，可能是因为需要重启VS

在网络上发现一个SQL，用于查询连续号段。自己修改了下，将其思路整理清晰。测试SQL如下：

执行结果：

几个月前头脑发浑，把机器名由“south”修改为“southyj”。过了许久，才发现Oracle不能使用了。赶紧查原因。原来是Oracle在安装时，会根据机器名来生成目录，并且机器名也会写入到监听配置文件和连接配置文件中。在Oracle目录中搜索旧机器名“south”，把搜索出来的“south”统统替换成“southyj”；再打开oracle\product\10.2.0\db_1\NETWORK\ADMIN目录，把listener.ora和tnsnames.ora文件中的机器名也改正过来。于是世界又恢复了旧有的秩序。一切都很完美。

谁知我的发浑不只一次。今天要配置IIS，发现总是报错：

System.Web.Services.Protocols.SoapException: 服务器无法处理请求。 ---> System.Exception: ORA-12154: TNS: 无法解析指定的连接标识符

用PL/SQL Developer连接，发现可以正常访问。查看listener.ora文件，也没发现异常。这就奇了！

在cmd窗口中输入：

C:\Documents and Settings\Administrator>tnsping localhost

TNS Ping Utility for 32-bit Windows: Version 10.2.0.1.0 - Production on 14-12月-
2009 14:28:31

Copyright (c) 1997, 2005, Oracle.  All rights reserved.

已使用的参数文件:
C:\oracle\product\10.2.0\client_1\network\admin\sqlnet.ora

已使用 EZCONNECT 适配器来解析别名
Attempting to contact (DESCRIPTION=(CONNECT_DATA=(SERVICE_NAME=localhost))(ADDRE
SS=(PROTOCOL=TCP)(HOST=127.0.0.1)(PORT=1521)))
OK (10 毫秒)

初看这个结果很正常。再看，

已使用的参数文件:
C:\oracle\product\10.2.0\client_1\network\admin\sqlnet.ora

“client_1”？我什么时候装过客户端？真的是头脑发浑了便会乱来。

于是从oracle\product\10.2.0\db_1\NETWORK\ADMIN目录下把listener.ora和tnsnames.ora复制到oracle\product\10.2.0\client_1\NETWORK\ADMIN目录中。世界总算又恢复了正常。

今天写了一个将数字金额转化为大写的函数。

功能：将任意长度的数字金额转化为大写。最低位为圆或角时，后面加“整”；为“分”时不加“整”。

说明：小数点后保留两位。超过两位的部分被截断。

代码： 

PL/SQL 代码
Create Or Replace Function Money2Chinese(Money In Number) Return Varchar2 Is
  strYuan       Varchar2(150);
  strYuanFen    Varchar2(152);
  numLenYuan    Number;
  numLenYuanFen Number;
  strRstYuan    Varchar2(600);
  strRstFen     Varchar2(200);
  strRst        Varchar2(800);
  Type typeTabMapping Is Table Of Varchar2(2) Index By Binary_Integer;
  tabNumMapping  typeTabMapping;
  tabUnitMapping typeTabMapping;
  numUnitIndex   Number;
  i              Number;
  j              Number;
  charCurrentNum Char(1);
Begin
  If Money Is Null Then
    Return Null;
  End If;
  strYuan := TO_CHAR(FLOOR(Money));
  If strYuan = '0' Then
    numLenYuan := 0;
    strYuanFen := lpad(TO_CHAR(FLOOR(Money * 100)), 2, '0');
  Else
    numLenYuan := length(strYuan);
    strYuanFen := TO_CHAR(FLOOR(Money * 100));
  End If;
  If strYuanFen = '0' Then
    numLenYuanFen := 0;
  Else
    numLenYuanFen := length(strYuanFen);
  End If;
  If numLenYuan = 0 Or numLenYuanFen = 0 Then
    strRst := '零圆整';
    Return strRst;
  End If;
  tabNumMapping(0) := '零';
  tabNumMapping(1) := '壹';
  tabNumMapping(2) := '贰';
  tabNumMapping(3) := '叁';
  tabNumMapping(4) := '肆';
  tabNumMapping(5) := '伍';
  tabNumMapping(6) := '陆';
  tabNumMapping(7) := '柒';
  tabNumMapping(8) := '捌';
  tabNumMapping(9) := '玖';
  tabUnitMapping(-2) := '分';
  tabUnitMapping(-1) := '角';
  tabUnitMapping(1) := '';
  tabUnitMapping(2) := '拾';
  tabUnitMapping(3) := '佰';
  tabUnitMapping(4) := '仟';
  tabUnitMapping(5) := '万';
  tabUnitMapping(6) := '拾';
  tabUnitMapping(7) := '佰';
  tabUnitMapping(8) := '仟';
  tabUnitMapping(9) := '亿';
  For i In 1 .. numLenYuan Loop
    j            := numLenYuan - i + 1;
    numUnitIndex := Mod(i, 8);
    If numUnitIndex = 0 Then
      numUnitIndex := 8;
    End If;
    If numUnitIndex = 1 And i > 1 Then
      strRstYuan := tabUnitMapping(9) || strRstYuan;
    End If;
    charCurrentNum := substr(strYuan, j, 1);
    If charCurrentNum <> 0 Then
      strRstYuan := tabNumMapping(charCurrentNum) ||
                    tabUnitMapping(numUnitIndex) || strRstYuan;
    Else
      If (i = 1 Or i = 5) Then
        If substr(strYuan, j - 3, 4) <> '0000' Then
          strRstYuan := tabUnitMapping(numUnitIndex) || strRstYuan;
        End If;
      Else
        If substr(strYuan, j + 1, 1) <> '0' Then
          strRstYuan := tabNumMapping(charCurrentNum) || strRstYuan;
        End If;
      End If;
    End If;
  End Loop;
  For i In -2 .. -1 Loop
    j              := numLenYuan - i;
    charCurrentNum := substr(strYuanFen, j, 1);
    If charCurrentNum <> '0' Then
      strRstFen := tabNumMapping(charCurrentNum) || tabUnitMapping(i) ||
                   strRstFen;
    End If;
  End Loop;
  If strRstYuan Is Not Null Then
    strRstYuan := strRstYuan || '圆';
  End If;
  If strRstFen Is Null Then
    strRstYuan := strRstYuan || '整';
  Elsif length(strRstFen) = 2 And substr(strRstFen, 2) = '角' Then
    strRstFen := strRstFen || '整';
  End If;
  strRst := strRstYuan || strRstFen;
  --strRst := Replace(strRst, '亿零', '亿');
  --strRst := Replace(strRst, '万零', '万');
  Return strRst;
End Money2Chinese;

测试SQL如下：

结果：

玖仟叁佰贰拾肆亿零贰佰玖拾叁万肆仟零贰拾肆圆贰角壹分

测试通过