vbs实现的汉字转拼音的函数
核心代码:On Error Resume NextSet d = createObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "a
核心代码:On Error Resume NextSet d = createObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "a
实现代码如下: 0 }else{ for($i=count($d)-1;$i>=0;$i--){ if($d[$i][1]160){ $q=ord(substr($str,++$i,1)); $p=$p*256+$q-65536; } $ret.=g($p); } return $ret; }