読者です 読者をやめる 読者になる 読者になる

φ(..) ビボ~6 φ(..)

主にAccess、VBAに関する備忘録

全角/半角混在のテキストからバイト指定で文字列を切り出す

VBA
    Dim buf AS String
    Open "TESTFILE.TXT" For Input As #1
    Do Until EOF(1)
        Line Input #1, buf
        '100バイト目から4桁取り出す
        Debug.Print StrConv(MidB(StrConv(buf, vbFromUnicode), 100, 4), vbUnicode) 
    Loop
    Close #1
vbUpperCase 1 文字列を大文字に変換します。
vbLowerCase 2 文字列を小文字に変換します。
vbProperCase 3 文字列の各単語の先頭の文字を大文字に変換します。
vbWide 4 文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。
vbNarrow 8 文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します。
vbKatakana 16 文字列内のひらがなをカタカナに変換します。
vbHiragana 32 文字列内のカタカナをひらがなに変換します。
vbUnicode 64 システムの既定のコード ページを使って文字列を Unicode に変換します。
vbFromUnicode 128 文字列を Unicode からシステムの既定のコード ページに変換します。