|
ｿｽｿｽVBｿｽfｿｽｿｽｿｽｿｽ(VB2-VB6)
|
ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽEｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽﾌエｿｽｿｽｿｽ[ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽﾉは・ｿｽEｿｽEｿｽH
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽuｿｽaｿｽｿｽｿｽSｿｽｿｽ 2004/04/27(ｿｽｿｽ) 15:25:53
ｿｽｿｽｿｽﾟてゑｿｽｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽaｿｽｿｽpｿｽｿｽｿｽﾄ擾ｿｽｿｽﾟてプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽRｿｽOｿｽOｿｽoｿｽCｿｽgｿｽﾌ固定長ｿｽB
ｿｽEｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽCｿｽAｿｽEｿｽgｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽB
ｿｽEｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾆ全ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽB
ｿｽﾈ擾ｿｽﾌようｿｽﾈテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽﾅ、
ｿｽuｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽRｿｽOｿｽOｿｽoｿｽCｿｽgｿｽ超ゑｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽA
ｿｽuｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽﾉ全ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽA
ｿｽuｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽﾉ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾆゑｿｽｿｽﾄ、ｿｽｿｽﾊには「ｿｽｿｽｿｽsｿｽﾌ会ｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾉｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ出ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝ、ｿｽuｿｽｿｽｿｽｿｽｿｽﾌ読み搾ｿｽｿｽﾝゑｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽvｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ髀奇ｿｽﾜではプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽLｿｽﾌようｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅ、ｿｽﾇのようｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽAｿｽｿｽｿｽfｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾉ具ｿｽｿｽkｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ構ｿｽzｿｽｿｽｿｽ@ｿｽﾉつゑｿｽｿｽﾄの回答ゑｿｽﾇなゑｿｽｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/04/27(ｿｽｿｽ) 17:27:47
>ｿｽuｿｽaｿｽｿｽpｿｽｿｽｿｽﾄ擾ｿｽｿｽﾟてプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽsｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽVB(VB.NET2003)ｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?
ｿｽｿｽｿｽｿｽﾆゑｿｽAｿｽｿｽｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽ(VB.NET2002ｿｽAVB6ｿｽAVB5ｿｽc)ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽﾌ的ｿｽﾈコｿｽ[ｿｽhｿｽﾍ趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽｿｽﾊ論ｿｽｿｽｿｽｿｽｿｽB
>ｿｽEｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾆ全ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾍ会ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBUTF-8?UTF-16?Shift_JIS?EBCDIC?
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄは包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ変奇ｿｽｿｽｿｽｿｽKｿｽvｿｽﾉなるかｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB
>ｿｽuｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽRｿｽOｿｽOｿｽoｿｽCｿｽgｿｽ超ゑｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽA
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽ300ｿｽoｿｽCｿｽgｿｽﾌ倍ｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾅ費ｿｽｿｽ閧ｳｿｽｿｽﾄは如ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽ驍｢ｿｽﾍ、ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^(ｿｽ痰ｦｿｽﾎ会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽﾆゑｿｽ)ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽA
ｿｽｿｽｿｽ黷ｼｿｽｿｽﾌ厄ｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾜでのバｿｽCｿｽgｿｽｿｽｿｽ数ゑｿｽｿｽ骼厄ｿｽﾅゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。
>ｿｽuｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽﾉ全ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽA
VB.NETｿｽﾅゑｿｽｿｽｿｽﾎ、System.Text.RegularExpressions.RegexｿｽNｿｽｿｽｿｽXｿｽｿｽgｿｽｿｽｿｽﾆ良ゑｿｽｿｽｿｽｿｽﾆ。
>ｿｽｿｽLｿｽﾌようｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅ、ｿｽﾇのようｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸ
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽPｿｽﾊで托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽAｿｽeｿｽsｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ
Ifｿｽｿｽｿｽﾅ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾄ行ｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでは。
ｿｽuｿｽaｿｽｿｽｿｽSｿｽｿｽ 2004/04/27(ｿｽｿｽ) 18:27:13
ｿｽ答の抵ｿｽｿｽAｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽVBｿｽｿｽVisualBasic6.0ｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾆ全ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌは、Shift_JISｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ変奇ｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌはまゑｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ1ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾚゑｿｽﾇみ、ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽLenｿｽﾖ撰ｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽAｿｽﾟゑｿｽlｿｽｿｽ300ｿｽoｿｽCｿｽgｿｽ超ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ擾ｿｽﾅエｿｽｿｽｿｽ[ｿｽﾆゑｿｽｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾇみ、ｿｽﾅ鯉ｿｽﾉ’ｿｽｿｽｿｽsｿｽFｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽsｿｽｿｽｿｽfｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾟゑｿｽlｿｽｿｽ300ｿｽoｿｽCｿｽgｿｽ超ゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轣幢ｿｽJｿｽｿｽｿｽｿｽｿｽﾜでは費ｿｽｿｽpｿｽHorｿｽSｿｽpｿｽHｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽ1ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾂ行ｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽAｿｽSｿｽｿｽｿｽﾇみ終ｿｽｿｽｿｽｿｽｿｽｿｽﾉ’ｿｽｿｽｿｽsｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽFｿｽGｿｽｿｽｿｽ[ｿｽfｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ際の全ｿｽpｿｽｿｽｿｽｿｽｿｽﾆ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽﾊの仕ｿｽｿｽｿｽﾌｿｽｿｽWｿｽbｿｽNｿｽｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽ答の抵ｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/04/27(ｿｽｿｽ) 19:51:16
>ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ変奇ｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
VBｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾍ、Unicode(UTF-16)ｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅは、ｿｽﾇの包ｿｽｿｽｿｽｿｽｿｽu2ｿｽoｿｽCｿｽgｿｽvｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
(Shift_JISｿｽﾍ、ｿｽｿｽｿｽpｿｽｿｽ1ｿｽoｿｽCｿｽgｿｽAｿｽSｿｽpｿｽｿｽ2ｿｽoｿｽCｿｽgｿｽﾅゑｿｽｿｽｿｽ)
ｿｽｿｽｿｽﾌ違いｿｽﾉゑｿｽｿｽAｿｽoｿｽCｿｽgｿｽPｿｽﾊの包ｿｽｿｽｿｽｿｽ操作がｿｽKｿｽvｿｽﾈ場合ｿｽﾍ、
StrConvｿｽﾖ撰ｿｽ(ｿｽｿｽvbFromUnicodeｿｽｿｽvbUnicodeｿｽ關)ｿｽｿｽgｿｽｿｽｿｽｿｽ
Unicode/Shift_JISｿｽﾏ奇ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽLenｿｽﾖ撰ｿｽｿｽﾅ包ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾅは駄目ゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
VB6ｿｽｿｽLenｿｽﾖ撰ｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾜゑｿｽｿｽBｿｽoｿｽCｿｽgｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾈので、ｿｽｿｽｿｽpｿｽﾌ「abcｿｽvｿｽｿｽAｿｽSｿｽpｿｽﾌ「ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽA
ｿｽﾇゑｿｽｿｽｿｽｿｽLenｿｽﾖ撰ｿｽｿｽﾅゑｿｽ3ｿｽｿｽｿｽﾔゑｿｽｿｽｿｽ骼厄ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽﾔゑｿｽLenBｿｽﾆゑｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽqｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、
VB6ｿｽﾅは、ｿｽｿｽｿｽﾗての包ｿｽｿｽｿｽｿｽｿｽ2ｿｽoｿｽCｿｽgｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾊとゑｿｽｿｽﾄ、
ｿｽuLenBｿｽﾌ値=Lenｿｽﾌ値*2ｿｽvｿｽﾉゑｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾈので、StrConvｿｽﾖ撰ｿｽｿｽｿｽShift_JISｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽｿｽLenBｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ驍｢ｿｽﾍ、Stringｿｽ^ｿｽｿｽgｿｽずｿｽAByteｿｽ^ｿｽzｿｽｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
OpenｿｽXｿｽeｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽgｿｽﾅｿｽｿｽｿｽｿｽ_ｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽ[ｿｽhｿｽｿｽIｿｽﾑ、Get#ｿｽXｿｽeｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽgｿｽｿｽ
ｿｽﾇみ搾ｿｽｿｽﾞようｿｽﾉゑｿｽｿｽｿｽﾎ、ｿｽﾅ定長ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽﾊ的ｿｽﾉ読み搾ｿｽｿｽﾞ趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽKｿｽｿｽｿｽAByteｿｽzｿｽｿｽｿｽStringｿｽﾉは互奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
DimsAsString,b()AsByte
s="ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ123"
b=s
ｿｽﾆゑｿｽｿｽｿｽﾎ、ｿｽzｿｽｿｽﾏ撰ｿｽbｿｽﾉ、"ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ123"ｿｽｿｽUnicodeｿｽ`ｿｽｿｽｿｽﾅ格ｿｽ[ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽtｿｽﾉ、Byteｿｽ^ｿｽﾌ難ｿｽｿｽIｿｽzｿｽｿｽｿｽAStringｿｽ^ｿｽﾏ撰ｿｽｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
#ｿｽｿｽｿｽLｿｽTｿｽCｿｽgｿｽｿｽ15ｿｽﾔゑｿｽｿｽｿｽｿｽ閧ｪｿｽQｿｽlｿｽﾉなるかｿｽｿｽB
#http://www.interq.or.jp/www-user/komurak/progtec/
>ｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽﾆ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽﾊの仕ｿｽｿｽｿｽｿｽ
ｿｽｿｽﾂゑｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾆりあｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽｿｽｿｽｿｽｿｽﾈ包ｿｽｿｽｿｽB
ｿｽｿｽ1:StrConv,Len,LenBｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾄ抵ｿｽｿｽﾗゑｿｽB
ｿｽuUnicodeｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽLenｿｽﾖ撰ｿｽｿｽﾌ戻ゑｿｽlｿｽvｿｽﾆ、
ｿｽuShift_JISｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽLenBｿｽﾖ撰ｿｽｿｽﾌ戻ゑｿｽlｿｽvｿｽｿｽ
ｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽAｿｽuｿｽｿｽｿｽﾗて費ｿｽｿｽpｿｽvｿｽﾆみなゑｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽB
ｿｽｿｽ2:Forｿｽｿｽｿｽ[ｿｽvｿｽｿｽgｿｽｿｽｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ抵ｿｽｿｽﾗゑｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ切ゑｿｽoｿｽｿｽｿｽﾉゑｿｽMidｿｽﾖ撰ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽｿｽﾉゑｿｽAscｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB
Ascｿｽﾖ撰ｿｽｿｽｿｽ0ｿｽ`255ｿｽﾌ範囲ゑｿｽｿｽﾔゑｿｽｿｽｿｽｿｽﾎ費ｿｽｿｽpｿｽAｿｽｿｽｿｽｿｽﾈ外ｿｽﾍ全ｿｽpｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽB
ｿｽuｿｽaｿｽｿｽｿｽSｿｽｿｽ 2004/05/10(ｿｽｿｽ) 12:04:41
ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽStrConvｿｽﾖ撰ｿｽｿｽｿｽShift_JISｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽｿｽLenBｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽﾆ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽﾊ包ｿｽｿｽ@ｿｽﾆゑｿｽｿｽﾄ、Forｿｽｿｽｿｽ[ｿｽvｿｽｿｽgｿｽｿｽｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ抵ｿｽｿｽﾗ、Ascｿｽﾖ撰ｿｽｿｽｿｽ0ｿｽ`255ｿｽﾌ範囲ゑｿｽｿｽﾔゑｿｽｿｽｿｽｿｽﾎ費ｿｽｿｽpｿｽAｿｽｿｽｿｽｿｽﾈ外ｿｽﾍ全ｿｽpｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽﾈ会ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽgｿｽだソｿｽ[ｿｽXｿｽｿｽﾚゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽwｿｽEｿｽﾌ包ｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
Dimi
DimMsg,Style,Title,Response
DimTextLine,temp
DimobjFileSystemAsObject
DimobjFileAsObject
DimstrFileNameAsString
DimstrTempAsString
DimlngSourceLengthAsLong'ｿｽnｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽ
DimstrResultAsString'ｿｽﾏ奇ｿｽｿｽ纒ｶｿｽｿｽｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽoｿｽbｿｽtｿｽ@
DimstrSingleAsString'ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽ黷ｽ1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌバｿｽbｿｽtｿｽ@
DimintCharCodeAsInteger'1ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽ
DimmAsLong'ｿｽｿｽｿｽ[ｿｽvｿｽJｿｽEｿｽｿｽｿｽ^
DimintLine1,intLine2,intLine3,intLine4,intLine5AsInteger'ｿｽGｿｽｿｽｿｽ[ｿｽﾌ行ｿｽｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽ
DimintColumn1,intColumn2,intColumn3,intColumn4,intColumn5AsInteger'ｿｽGｿｽｿｽｿｽ[ｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽ
DimintRecordAsInteger'ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾌ行ｿｽｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽ
i=0'ｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
m=0'ｿｽｿｽｿｽ[ｿｽvｿｽJｿｽEｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
OpenUserForm1.txtFileMei.TextForInputAs#1'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾜゑｿｽｿｽB
DoWhileNotEOF(1)'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ終ｿｽ[ｿｽﾜでｿｽｿｽ[ｿｽvｿｽｿｽJｿｽｿｽﾔゑｿｽｿｽﾜゑｿｽｿｽB
LineInput#1,TextLine'ｿｽsｿｽｿｽﾏ撰ｿｽｿｽﾉ読み搾ｿｽｿｽﾝまゑｿｽｿｽB
temp=TextLine'ｿｽsｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
Debug.PrintTextLine'ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ行ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
strTemp=StrConv(temp,vbFromUnicode)'ｿｽsｿｽSｿｽﾌ難ｿｽﾌ全ｿｽpｿｽｿｽｿｽｿｽ(2ｿｽoｿｽCｿｽg)ｿｽ半角ｿｽｿｽｿｽｿｽ(1ｿｽoｿｽCｿｽg)ｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Debug.Print"LenBｿｽﾖ撰ｿｽｿｽﾌ鯉ｿｽｿｽﾊ：";LenB(strTemp)'ｿｽsｿｽﾌバｿｽCｿｽgｿｽｿｽｿｽｿｽﾔゑｿｽｿｽB
i=i+1'ｿｽsｿｽｿｽｿｽﾉ１ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
lngSourceLength=LenB(strTemp)'ｿｽｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽｿｽ得ゑｿｽ
strResult=Space$(lngSourceLength)'ｿｽﾏ奇ｿｽｿｽ纒ｶｿｽｿｽｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽoｿｽbｿｽtｿｽ@ｿｽTｿｽCｿｽYｿｽｿｽmｿｽｿｽ
strSingle=Space$(1)'1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌバｿｽbｿｽtｿｽ@ｿｽｿｽmｿｽｿｽ
IflngSourceLength=300Then'ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽ300ｿｽoｿｽCｿｽgｿｽﾈゑｿｽEｿｽEｿｽE
Form=1TolngSourceLengthStep1'ｿｽｿｽｿｽｿｽｿｽｿｽﾌ最鯉ｿｽﾜでｿｽｿｽ[ｿｽv
Mid(strSingle,1,1)=Mid$(strTemp,m,1)'1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽ
intCharCode=Asc(strSingle)'Ascｿｽﾖ撰ｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽ得ゑｿｽ
SelectCasem
Casem>=0Andm<=51'0ｿｽ`51ｿｽJｿｽｿｽｿｽｿｽｿｽﾈ難ｿｽﾅ（ｿｽｿｽｿｽpｿｽﾌ茨ｿｽj
IfintCharCode>=0AndintCharCode<=255Then'0ｿｽ`255ｿｽﾈ難ｿｽﾌ範囲ゑｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ逕ｼｿｽp
intLine1=0
Else'0ｿｽ`255ｿｽﾈ外ｿｽﾌ範囲ゑｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽSｿｽp
intLine1=i'ｿｽGｿｽｿｽｿｽ[ｿｽﾌ行ｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
intColumn1=m'ｿｽGｿｽｿｽｿｽ[ｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
Debug.Print"ｿｽSｿｽpｿｽiｿｽｿｽｿｽpｿｽjｿｽGｿｽｿｽｿｽ[ｿｽF"&intLine1&"ｿｽs"&intColumn1&"ｿｽJｿｽｿｽｿｽｿｽ"
'ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ行ｿｽﾆカｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ"
EndIf
Casem>=52Andm<=75'52ｿｽ`75ｿｽJｿｽｿｽｿｽｿｽｿｽﾈ難ｿｽﾅ（ｿｽSｿｽpｿｽﾌ茨ｿｽj
IfintCharCode>=0AndintCharCode<=255Then
intLine2=i'ｿｽGｿｽｿｽｿｽ[ｿｽﾌ行ｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
intColumn2=m'ｿｽGｿｽｿｽｿｽ[ｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
Debug.Print"ｿｽSｿｽpｿｽiｿｽｿｽｿｽpｿｽjｿｽGｿｽｿｽｿｽ[ｿｽF"&intLine2&"ｿｽs"&intColumn2&"ｿｽJｿｽｿｽｿｽｿｽ"
'ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ行ｿｽﾆカｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ"
EndIf
Casem>=76Andm<=85'76ｿｽ`85ｿｽJｿｽｿｽｿｽｿｽｿｽﾈ難ｿｽﾅ（ｿｽｿｽｿｽpｿｽﾌ茨ｿｽj
IfintCharCode>=0AndintCharCode<=255Then
intLine3=0
Else
intLine3=i'ｿｽGｿｽｿｽｿｽ[ｿｽﾌ行ｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
intColumn3=m'ｿｽGｿｽｿｽｿｽ[ｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
Debug.Print"ｿｽSｿｽpｿｽiｿｽｿｽｿｽpｿｽjｿｽGｿｽｿｽｿｽ[ｿｽF"&intLine3&"ｿｽs"&intColumn3&"ｿｽJｿｽｿｽｿｽｿｽ"
'ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ行ｿｽﾆカｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ"
EndIf
Casem>=86Andm<=105'86ｿｽ`105ｿｽJｿｽｿｽｿｽｿｽｿｽﾈ難ｿｽﾅ（ｿｽSｿｽpｿｽﾌ茨ｿｽj
IfintCharCode>=0AndintCharCode<=255Then
intLine4=i'ｿｽGｿｽｿｽｿｽ[ｿｽﾌ行ｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
intColumn4=m'ｿｽGｿｽｿｽｿｽ[ｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
Debug.Print"ｿｽSｿｽpｿｽiｿｽｿｽｿｽpｿｽjｿｽGｿｽｿｽｿｽ[ｿｽF"&intLine4&"ｿｽs"&intColumn4&"ｿｽJｿｽｿｽｿｽｿｽ"
'ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ行ｿｽﾆカｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ"
EndIf
Casem>=106Andm<=300'106ｿｽ`300ｿｽJｿｽｿｽｿｽｿｽｿｽﾈ難ｿｽﾅ（ｿｽｿｽｿｽpｿｽﾌ茨ｿｽj
IfintCharCode>=0AndintCharCode<=255Then
intLine5=0
Else
intLine5=i'ｿｽGｿｽｿｽｿｽ[ｿｽﾌ行ｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
intColumn5=m'ｿｽGｿｽｿｽｿｽ[ｿｽﾌカｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
Debug.Print"ｿｽSｿｽpｿｽiｿｽｿｽｿｽpｿｽjｿｽGｿｽｿｽｿｽ[ｿｽF"&intLine5&"ｿｽs"&intColumn5&"ｿｽJｿｽｿｽｿｽｿｽ"
'ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ行ｿｽﾆカｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ"
EndIf
EndSelect
Nextm
Else'ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽ300ｿｽoｿｽCｿｽgｿｽﾅなゑｿｽｿｽﾈゑｿｽEｿｽEｿｽE
Debug.Print"ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽsｿｽｿｽｿｽF"&i&"ｿｽs"'ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ行ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽB
intRecord=i'ｿｽsｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉ保托ｿｽ
EndIf
Loop
ｿｽﾌゑｿｽ 2004/05/10(ｿｽｿｽ) 13:17:07
ｿｽｿｽｿｽｿｽｿｽ迴ｿｽﾔに取得ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽ
129ｿｽ`159ｿｽﾜゑｿｽｿｽｿｽ224ｿｽ`252
ｿｽﾅゑｿｽｿｽｿｽﾎ全ｿｽpｿｽｿｽｿｽｿｽｿｽﾌ１ｿｽoｿｽCｿｽgｿｽﾚでゑｿｽｿｽB
ｿｽiｿｽｿｽｿｽﾌ場合ｿｽKｿｽvｿｽﾈゑｿｽｿｽｿｽﾎ２ｿｽoｿｽCｿｽgｿｽﾚゑｿｽﾇみ費ｿｽﾎゑｿｽｿｽﾜゑｿｽｿｽj
ｿｽｿｽｿｽｿｽﾈ外ｿｽﾌ場合ｿｽﾍ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽStrConvｿｽﾅシｿｽXｿｽeｿｽｿｽｿｽﾌ奇ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽyｿｽ[ｿｽWｿｽﾉアｿｽNｿｽZｿｽXｿｽｿｽｿｽｿｽ
ｿｽ鼾ｿｽｿｽLen,Mid,AscｿｽｿｽｿｽｿｽﾈゑｿｽLenB,MidB,AscBｿｽｿｽgｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ擾ｿｽﾌ点ｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾄプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽ
DimaAsString
DimiAsInteger
a="ｿｽAｿｽCｿｽEｿｽｿｽｿｽｿｽｿｽｿｽ"
a=StrConv(a,vbFromUnicode)
Fori=1ToLenB(a)
Debug.PrintHex$(AscB(MidB$(a,i,1)))
Next
ｿｽﾌゑｿｽ 2004/05/10(ｿｽｿｽ) 13:19:16
>a="ｿｽAｿｽCｿｽEｿｽｿｽｿｽｿｽｿｽｿｽ"
ｿｽAｿｽCｿｽEｿｽﾍ費ｿｽｿｽpｿｽJｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟ撰ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽ
a="abcｿｽｿｽｿｽｿｽｿｽｿｽ"
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽuｿｽaｿｽｿｽｿｽSｿｽｿｽ 2004/05/10(ｿｽｿｽ) 19:57:32
ｿｽ答の抵ｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽwｿｽEｿｽﾌ通ゑｿｽAｿｽｿｽLｿｽﾌソｿｽ[ｿｽXｿｽﾉて、
Form=1TolngSourceLengthStep1
Mid(strSingle,1,1)=Mid$(strTemp,m,1)
intCharCode=Asc(strSingle)
ｿｽﾌとゑｿｽｿｽｿｽｿｽA
Form=1ToLenB(strTemp)
MidB(strSingle,1,1)=MidB$(strTemp,m,1)
intCharCode=AscB(strSingle)
ｿｽﾆゑｿｽｿｽﾄ、ｿｽﾜゑｿｽｿｽAintCharCodeｿｽﾌ範囲の擾ｿｽｿｽｿｽｿｽ129ｿｽ`159ｿｽﾜゑｿｽｿｽｿｽ224ｿｽ`252ｿｽﾅゑｿｽｿｽｿｽﾎ全ｿｽpｿｽｿｽｿｽｿｽｿｽﾌ１ｿｽoｿｽCｿｽgｿｽﾚ、ｿｽｿｽｿｽｿｽﾈ外ｿｽﾌ場合ｿｽﾍ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽﾄ、ｿｽGｿｽｿｽｿｽ[ｿｽﾆなゑｿｽeｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇまゑｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽ300ｿｽoｿｽCｿｽgｿｽ超ゑｿｽｿｽ驛鯉ｿｽRｿｽ[ｿｽhｿｽﾉ関ゑｿｽｿｽﾄは、
Debug.Print"ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽsｿｽｿｽｿｽF"&i&"ｿｽs"
ｿｽﾉて、ｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽpｿｽﾌ茨ｿｽﾉ全ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽAｿｽSｿｽpｿｽﾌ茨ｿｽﾉ費ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ閧ｷｿｽ驛鯉ｿｽRｿｽ[ｿｽhｿｽﾉ関ゑｿｽｿｽﾄは、ｿｽｿｽLｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽSelectCaseｿｽ¥ｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽ
Debug.Print"ｿｽSｿｽpｿｽiｿｽｿｽｿｽpｿｽjｿｽGｿｽｿｽｿｽ[ｿｽF"&intLine1&"ｿｽs"&intColumn1&"ｿｽJｿｽｿｽｿｽｿｽ"
ｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽCｿｽ‾ｿｽfｿｽBｿｽGｿｽCｿｽgｿｽ@ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽlｿｽｿｽｿｽｿｽｿｽ骭ｴｿｽｿｽｿｽﾆゑｿｽｿｽﾄは托ｿｽｿｽﾉなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾆゑｿｽAForｿｽﾖ撰ｿｽｿｽｿｽMidBｿｽﾖ撰ｿｽｿｽｿｽAscBｿｽﾖ撰ｿｽｿｽﾌ使ｿｽpｿｽｿｽｿｽ@ｿｽﾉ鯉ｿｽ閧ｪｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽPｿｽｿｽｿｽﾈ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽﾇなゑｿｽｿｽｿｽｿｽ答の抵ｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾌゑｿｽ 2004/05/10(ｿｽｿｽ) 20:41:38
ｿｽSｿｽpｿｽﾌ場合ｿｽｿｽ2ｿｽoｿｽCｿｽgｿｽｿｽｿｽJｿｽEｿｽｿｽｿｽ^ｿｽｿｽiｿｽﾟてゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽuｿｽaｿｽｿｽｿｽSｿｽｿｽ 2004/05/11(ｿｽｿｽ) 21:01:57
ｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌカｿｽEｿｽｿｽｿｽ^ｿｽｿｽﾏ撰ｿｽｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAForｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽ1ｿｽoｿｽCｿｽgｿｽｿｽｿｽﾂ、ｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽﾌチｿｽFｿｽbｿｽNｿｽｿｽsｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ範囲の擾ｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽpｿｽﾌ茨ｿｽﾉ全ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾌ場合ｿｽﾍ、ｿｽum=m+1ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌは、ｿｽﾇゑｿｽｿｽｿｽｿｽﾄでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈゑｿｽﾆなゑｿｽｿｽAｿｽｿｽLｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽForｿｽﾖ撰ｿｽｿｽﾌ抵ｿｽｿｽﾖと難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽ答の抵ｿｽｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾌゑｿｽ 2004/05/11(ｿｽｿｽ) 22:42:48
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ心ｿｽﾈとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄまゑｿｽｿｽｿｽ
SelectCasemｿｽ@ｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽm=(caseｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽlｿｽjｿｽ判定しｿｽﾜゑｿｽｿｽB
ｿｽｿｽLｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽﾆ会ｿｽｿｽLｿｽﾌようｿｽﾈ費ｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽ驍ｽｿｽﾟどゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
m=(m>=52Andm<=75)ｿｽiｿｽEｿｽﾓゑｿｽTrue=-1ｿｽｿｽFalse=0ｿｽﾉゑｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽj
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ包ｿｽｿｽ@ｿｽIｿｽﾉはイｿｽ}ｿｽCｿｽ`ｿｽﾅゑｿｽｿｽｿｽ
Ifｿｽｿｽｿｽ闔ｮThen
ｿｽiｿｽｿｽｿｽｿｽｿｽj
ElseIfｿｽ@ｿｽｿｽｿｽ闔ｮｿｽ@then
ｿｽiｿｽｿｽｿｽｿｽｿｽj
ElseIf
ｿｽiｿｽｿｽｿｽｿｽｿｽj
Endif
ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOKｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ
ｿｽﾌゑｿｽ 2004/05/11(ｿｽｿｽ) 22:45:22
ｿｽｿｽﾌ場合ｿｽｿｽｿｽｿｽ
Ifm<=51then
ｿｽiｿｽｿｽｿｽｿｽｿｽj
ElseIfm<=75
ｿｽiｿｽｿｽｿｽｿｽｿｽj
ElseIfm<=85
ｿｽE
ｿｽE
ｿｽE
EndIf
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽﾌゑｿｽ 2004/05/11(ｿｽｿｽ) 22:47:09
ｿｽｿｽﾆゑｿｽｿｽﾌ擾ｿｽﾅゑｿｽ
ElseIfｿｽﾌ鯉ｿｽｿｽThenｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽaｿｽｿｽｿｽSｿｽｿｽ 2004/05/12(ｿｽｿｽ) 20:10:01
ｿｽIｿｽmｿｽﾈアｿｽhｿｽoｿｽCｿｽXｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ黷ｽｿｽﾊゑｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽA
ｿｽSｿｽpｿｽiｿｽｿｽｿｽpｿｽjｿｽGｿｽｿｽｿｽ[ｿｽ`ｿｽFｿｽbｿｽNｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAVisualBasicｿｽﾉて不ｿｽｿｽｿｽﾈ点ｿｽ笊ｪｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽA
ｿｽzｿｽ[ｿｽｿｽｿｽyｿｽ[ｿｽWｿｽｿｽﾅ出ｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾌ趣ｿｽｿｽﾍ宜ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
