2012-03-05から1日間の記事一覧
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 文字列を大文字に変換…
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 文字列を大文字に変換…