Scribbling for "Scripting"

皆さんお待ちかね、かどうかは知りませんが、WordPress2.6日本語版がリリースされました。
私は新しもの好きものなので、当然ながらテストすべく、とりあえずローカルおよびレンタルサーバーのテスト環境にインストールしました。通常は大きな問題もなくすんなりアップデートできる（文字化けのような細かな問題はありましたが）Wordpressでしたが、今回は、
（１）ローカルサーバー上でパーマリンク設定がデフォルト以外使えなくなった。
※ローカルサーバー上の問題でWordPress2.6が原因によるものではありませんでした。お詫びして修正いたします。
また、レンタルサーバー上でも、
（２）アップデート後にパスワードが通らない（再発行しても）。
など、何かとトラブルが起きたので、原因が判明するまでアップデートは見送ることにしました。１の方は.htaccess関連だと思うのですが、ちょっと忙しくて原因を究明する暇がないです・・・

VB.NETで文字列中の全角文字を半角にしたい場合は、通常StrConv関数を使いますが、文字の種類を指定して変換することはできません。
カタカナだけ半角にしたくないという場合もよくありますので、そのような動作をする関数を作ってみました。

'Imports System.Text.RegularExpressions をソース先頭のImports部分に追加
'
'全角英数字を半角にする
Private Function WideAlphaNumToNarrow(ByVal inString As String) As String
  Dim r As Regex
  Dim mev As MatchEvaluator
  '半角にしたい文字を正規表現で指定
  r = New Regex("[０-９]+|[ａ-ｚ]+|[Ａ-Ｚ]+|，|．")
  mev = New MatchEvaluator(AddressOf ToNarrow)
  WideAlphaNumToNarrow = r.Replace(inString, mev)
End Function
'
'WideAlphaNumToNarrow用のデリゲートメソッド
Private Shared Function ToNarrow(ByVal m As Match) As String
  ToNarrow = StrConv(m.ToString, VbStrConv.Narrow)
End Function


この関数では全角英数字とカンマ、ピリオドのみ半角にします。
対象文字を変更したい場合は正規表現部分を適当に修正してください。
MatchEvaluatorの利用に関してはこちらを参考にさせていただきました。