スラッシュドット・ジャパン

とりあえず、表題の通り。
使い方の異なる Functionプロシージャーと Subプロシージャーの二つを作成。
詳細はコードのコメントを参照。

Function ToHankaku(ByVal src As String) As String
    '
    ' 文字列中の半角変換可能な文字を半角に変換する。
    ' ただし、半角片仮名文字(0xA1-0xCF)は全角に変換する。
    ' このとき、可能であれば半角・全角片仮名文字と直後の濁点・半濁点が合成される。
    '
    ' 2009/12/17 black-hole: 新規作成
    '
    '
    Dim re As Object
    Dim Match As Object
 
    '
    ' 正規表現オブジェクトを作成
    '
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "[｡-ﾟ]+"   ' 1文字以上の半角片仮名
    re.Global = True        ' 検索範囲はグローバル
 
    '
    ' 半角変換可能な文字を全て半角に変換
    ' 全角片仮名文字もいったん半角片仮名に変換される。
    '
    src = StrConv(src, vbNarrow)
 
    '
    ' 1文字以上の半角カナを検索し全角に変換
    ' 半角片仮名文字の直後に濁点・半濁点があればここで合成される。
    '
    For Each Match In re.Execute(src)
        src = Replace(src, Match, StrConv(Match, vbWide), , 1)
    Next
 
    ToHankaku = src  ' 返り値
 
End Function

Sub SelToHankaku()
    '
    ' 選択されたセル範囲について、文字列中の半角変換可能な文字を半角に変換する。
    ' ただし、半角片仮名文字(0xA1-0xCF)は全角に変換する。
    ' このとき、可能であれば半角・全角片仮名文字と直後の濁点・半濁点が合成される。
    '
    ' 2009/12/17 black-hole: 新規作成
    '
    '
    Dim re As Object
    Dim Cell As Range
    Dim Match As Object
    Dim Str As String
 
    '
    ' 正規表現オブジェクトを作成
    '
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "[｡-ﾟ]+"   ' 1文字以上の半角片仮名
    re.Global = True        ' 検索範囲はグローバル
 
    '
    ' 選択されたセル範囲について、以下の処理を実行
    '
    For Each Cell In Selection
 
        Str = Cell.Value
        If Str <> "" Then
 
            '
            ' 半角変換可能な文字を全て半角に変換
            ' 全角片仮名文字もいったん半角片仮名に変換される。
            '
            Str = StrConv(Str, vbNarrow)
 
            '
            ' 1文字以上の半角カナを検索し全角に変換
            ' 半角片仮名文字の直後に濁点・半濁点があればここで合成される。
            '
            For Each Match In re.Execute(Str)
                Str = Replace(Str, Match, StrConv(Match, vbWide), , 1)
            Next
            Cell.Value = Str
 
        End If
 
    Next
 
End Sub

以上

CSVファイルをExcelで開くとき、数字のみのデータは数値として
取り込まれるため、"0012"のように先頭に"0"が付いた文字列は自動的に
数値に変換され、先頭の"0"が削除されてしまう。

というわけで、いろいろ調査(中略)

(´・ω・｀)

0001,0002,0003,0004             → |     1|     2|     3|     4|
"0001","0002","0003","0004"     → |     1|     2|     3|     4|
'0001,'0002,'0003,'0004         → |'0001 |'0002 |'0003 |'0004 |

＼(＾o＾)／

="0001",="0002",="0003",="0004" → |0001  |0002  |0003  |0004  |

以上

-- 2009/12/17 追記 --

どうやらタブでもOKらしい。

\t0001,\t0002,\t0003,\t0004 → |0001  |0002  |0003  |0004  |

"\t"はタブ文字を表す。オープン後、タブ文字は削除される。

以上

とりあえず、またひさしぶりの覚え書き。

Windows XPで、HDD、および、USBメモリのドライブレターを変更するには、「コントロールパネル」→「管理ツール」→「コンピュータの管理」→「ディスクの管理」で対象ディスクを選択し、右クリックメニューの「ドライブ文字とパスの変更」で変更することができる。
しかし、SDカードの場合、「ディスクの管理」に対象ディスクが表示されないため、この方法ではドライブレターを変更することができない。

Windows XPで、SDカードのドライブレターを変更するには、以下の手順を行う。

(1)SDカードをパソコンに挿入する。

　→D:などの適当なドライブレターが割り当てられる。

(2)レジストリエディタ(regedit)を起動し、次のキーを選択する。

　HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices

　選択したキーの配下には、次のようなキーが存在する。

    \DosDevices\C:
    \DosDevices\D:
    \DosDevices\E:

(3)キーの名前の右端がドライブレター、値が対応するディスクの固有値となっているので、SDカードに対応するキーを探して、右クリックメニューの「名前の変更」でドライブレターの部分を変更する。

    例、ドライブレターを D:からS:に変更する。

        \DosDevices\D: → \DosDevices\S:

(4)SDカードをいったん取り出し、再度挿入する。

以上

とりあえず、ひさしぶりの覚え書き。

Outlook/Outlook Express/Live Mailのメールデータ／アドレス帳の保存場所を変更する。

Windows XP SP3/Outlook 2003の場合

    メールデータ／アドレス帳の保存場所

        C:\Documents and Settings\\Local Settings\Application Data\
            Microsoft\Outlook\Outlook.pst

    保存場所の変更方法

    (1)OutLookを終了する。
    (2)データファイルを目的の場所に移動またはコピーする。
    (3)OutLookを起動する。
    (4)ツールメニューから「オプション」を選択する。
    (5)オプション画面でメールセットアップタブを選択し、データファイル項目の
        「データファイル」ボタンを押下する。
    (6)OutLookデータファイル画面で「追加」ボタンを押下し、移動先のデータファイルを
        選択する。
    (7)一覧から以前のデータファイルを選択し「削除」を押下する。
    (8)変更を確認後、以前のデータファイルを削除する。

Windows XP SP3/Outlook Express 6の場合

    メールデータの保存場所

        C:\Documents and Settings\\Local Settings\Application Data\
            Identities\{ランダムな文字列}\Microsoft\Outlook Express\*.dbx

    保存場所の変更方法

    (1)移動先に空のデーターフォルダを作成する。
    (2)OutLook Expressを起動する。
    (3)ツールメニューから「オプション」を選択する。
    (4)オプション画面でメンテナンスタブを選択し、「保存フォルダ」ボタンを押下する。
    (5)保存場所画面で「変更」ボタンを押下し、移動先のデータフォルダを選択する。
    (6)OutLook Expressを再起動する。
        このとき、以前のデータフォルダの内容が移動先のデーターフォルダに自動的に
        移動される。

    アドレス帳の保存場所

        C:\Documents and Settings\\Application Data\Microsoft\
            Address Book\.wab

        保存場所が記述されているレジストリキー
            HKEY_CURRENT_USER\Software\Microsoft\WAB\WAB4\Wab File Name

    保存場所の変更方法

    (1)OutLook Expressを終了する。
    (2)アドレス帳ファイルを目的の場所に移動またはコピーする。
    (3)保存場所が記述されているレジストリキーの値を新しいファイルのパスに変更する。
    (4)OutLook Expressを起動する。
    (5)変更を確認後、以前のファイルを削除する。

Windows XP SP3/Windows Live Mailの場合

    メールデータの保存場所

        C:\Documents and Settings\\Local Settings\Application Data\
            Microsoft\Windows Live Mail

        保存場所の変更方法

        (1)移動先に空のデーターフォルダを作成する。
        (2)Windows Live Mailを起動する。
        (3)ツールメニューから「オプション」を選択する。
        (4)オプション画面で詳細設定タブを選択し、「メンテナンス」ボタンを押下する。
        (5)メンテナス画面で「保存場所」ボタンを押下する。
        (6)保存場所画面で「変更」ボタンを押下し、移動先のデータフォルダを選択する。
        (7)移動先が空の場合、データが自動的にコピーされる。
        (8)変更を確認後、以前のデータフォルダを削除する。

その他共通

    添付ファイルオープン時の一時保存場所

        C:\Documents and Settings\\Local Settings\
            Temporary Internet Files\

予備のマシンに Turbolinux10 Desktop(Kernel 2.6)をインストールしたので、
さらに VMware 4.0のインストールを試みる。

用意したもの

    Turbolinux10 Desktop - Kernel 2.6.0-test5_2
        買ってきた CD-ROMからインストール

    VMware-workstation-4.0.5-6030.i386.rpm - VMware本体(4.0.5 Build 6030)
        http://www.vmware.com/download/ より入手

    vmware-any-any-update45.tar.gz - VMwareソースアップデート パッチ
        ftp://platan.vc.cvut.cz/pub/vmware/ より入手

インストール手順

    VMware最新版をインストール

        # rpm -i VMware-workstation-4.0.5-6030.i386.rpm↓

    VMwareソースアップデートパッチをインストール

        # tar xzvf vmware-any-any-update45.tar.gz↓
        # cd vmware-any-any-update45↓
        # ./runme.pl↓

    /usr/bin/vmware-config.plを修正

        # vi /usr/bin/vmware-config.pl↓

        スクリプト内の"/proc/ksyms"をすべて"/proc/kallsyms"に変更する。

    Kernelの make configを行う

        # cd /usr/src/linux↓
        # make xconfig↓

        これをやっておかないと、vmware-config.plが途中でこける。

    /usr/bin/vmware-config.plを実行

        # /usr/bin/vmware-config.pl↓

        あとは適当に設定する。

参考

    http://www.vmware.com/community/thread.jspa?threadID=803

以上

Windows 2000 の Windows Update で以下の更新を適用すると、

「推奨する更新／Microsoft Commerce Server ベースのプログラムに関する修正プログラム／JP316430: Microsoft Commerce Server ベースのプログラムのパフォーマンスが時間と共に低下する」
http://support.microsoft.com/default.aspx?scid=kb;ja;jp316430

Service Pack 2 で修正されたハズの以下の傷害が見事復活することが判明、

「JP259837:Windows NT 4.0 または Windows 2000 が実行されているコンピュータ上でサイズの大きなファイルをコピーできない」
http://support.microsoft.com/default.aspx?scid=kb;ja;JP259837

もう、アフォかヴァカかと．．．