ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

VB6ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾍ難しｿｽｿｽｿｽﾅゑｿｽ 2005/10/25(ｿｽｿｽ) 21:43:02

VB6ｿｽﾉつゑｿｽｿｽﾄ、ｿｽｿｽｿｽﾜゑｿｽﾚゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾒで鯉ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾉつゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽdｿｽlｿｽｿｽ
VB6ｿｽｿｽgｿｽｿｽｿｽﾄ、DBｿｽｿｽｿｽｿｽlｿｽｿｽ謫ｾｿｽｿｽｿｽAEXCELｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽﾈ擾ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

DB(DB2)ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ系ｿｽｿｽUTF-8ｿｽﾅ、
DBｿｽﾆの接托ｿｽｿｽｿｽODBCｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾊ擾ｿｽﾌ難ｿｽｿｽ{ｿｽｿｽAｿｽpｿｽ齠呻ｿｽｿｽEXCELｿｽﾉて表ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAUTF-8ｿｽﾅ表ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽXｿｽyｿｽCｿｽｿｽｿｽ齦ｶｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽXｿｽyｿｽCｿｽｿｽｿｽ齦ｶｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ表ｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾂ具ｿｽ
OSｿｽFWINDOWSｿｽ@NT4.0ｿｽ@SP6
EXCELｿｽFEXCEL97ｿｽ@
VBｿｽFVB6.0ｿｽ@SP3
DBｿｽFDB27.2

ｿｽFｿｽXｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、OSｿｽﾌ鯉ｿｽｿｽｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽXｿｽyｿｽCｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽﾉ設定し
VBｿｽ動ゑｿｽｿｽｿｽｿｽﾆ、ｿｽXｿｽyｿｽCｿｽｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽｿｽﾉ標ｿｽLｿｽoｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ{ｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽBｿｽBｿｽBｿｽB

VB6ｿｽﾌ設定等ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾈ擾ｿｽ
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/10/25(ｿｽｿｽ) 23:34:27

ｿｽｿｽﾌ的ｿｽﾉ、ｿｽﾇのようｿｽﾈコｿｽ[ｿｽhｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､?
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍどの趣ｿｽｿｽ_ｿｽﾅ費ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?

> ｿｽﾊ擾ｿｽﾌ難ｿｽｿｽ{ｿｽｿｽAｿｽpｿｽ齠呻ｿｽｿｽEXCELｿｽﾉて表ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAUTF-8ｿｽﾅ表ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
> ｿｽXｿｽyｿｽCｿｽｿｽｿｽ齦ｶｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
Excel 97ｿｽｿｽｿｽﾌは、Unicodeｿｽｿｽｿｽｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽcｿｽB

Excel 97 VBA ｿｽﾅ会ｿｽｿｽLｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽvｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽB
Sheet1.Range("A1").value = "Perd" & ChrW(&HF3) & "n" 


> VBｿｽ動ゑｿｽｿｽｿｽｿｽﾆ、ｿｽXｿｽyｿｽCｿｽｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽｿｽﾉ標ｿｽLｿｽoｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
> ｿｽｿｽｿｽ{ｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽBｿｽBｿｽBｿｽB
VB6 ｿｽﾌ標ｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾍ、Unicode ｿｽｿｽｿｽｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ChrW(&HF3) ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾂ能ｿｽﾈのは、ｿｽ齦費ｿｽｿｽ ActiveX ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ (DataGrid ｿｽﾈゑｿｽ) ｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

VB6ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾍ難しｿｽｿｽｿｽﾅゑｿｽ 2005/10/26(ｿｽｿｽ) 02:04:56

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾔ信ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

>ｿｽｿｽﾌ的ｿｽﾉ、ｿｽﾇのようｿｽﾈコｿｽ[ｿｽhｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､?
ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽAS-JISｿｽﾉなゑｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

>ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍどの趣ｿｽｿｽ_ｿｽﾅ費ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?
ｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽEｿｽEｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽﾍ、ｿｽﾈ会ｿｽｿｽﾌ通ゑｿｽﾅゑｿｽｿｽB
***************
Dim oRec As rdoResultset   ''ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽDBｿｽfｿｽ[ｿｽ^ｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽZｿｽbｿｽg
Dim sBuf As String         ''ｿｽfｿｽ[ｿｽ^ｿｽiｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ
Dim oExcelWorkbook      As Excel.Workbook
Dim oExcelCopySheet     As Excel.Worksheet 

ｿｽE
ｿｽESQLｿｽｿｽｿｽ発行ｿｽｿｽｿｽADBｿｽfｿｽ[ｿｽ^ｿｽｿｽ謫ｾ
ｿｽE
buf = CStr(oRec(1).Value)
ｿｽE
ｿｽEEXCELｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽOPEN
ｿｽE
Set oExcelCopySheet = oExcelWorkbook.Sheets("AA")
oExcelCopySheet.Range("A1").Value = buf
ｿｽE
ｿｽEEXCELｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ保托ｿｽ
ｿｽE
***************
ｿｽfｿｽoｿｽbｿｽNｿｽｿｽｿｽsｿｽｿｽｿｽｿｽbufｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽAoRec(1).Valueｿｽﾌ値ｿｽﾌスｿｽyｿｽCｿｽｿｽｿｽｿｽAｿｽNｿｽZｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾌで・ｿｽEｿｽE

ｿｽｿｽｿｽﾔ信ｿｽｿｽeｿｽｿｽChrW()ｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾌ関撰ｿｽｿｽﾉつゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽLｿｽ¥ｿｽ[ｿｽXｿｽｿｽeｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/10/26(ｿｽｿｽ) 02:37:28

>> ｿｽｿｽﾌ的ｿｽﾉ、ｿｽﾇのようｿｽﾈコｿｽ[ｿｽhｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､?
> ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽAS-JISｿｽﾉなゑｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅはなゑｿｽｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ意厄ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBm(_ _)m

> ｿｽfｿｽoｿｽbｿｽNｿｽｿｽｿｽsｿｽｿｽｿｽｿｽbufｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽA
ｿｽ{ｿｽｿｽ buf ｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍ、ｿｽｿｽﾌ的ｿｽﾉはどのようｿｽﾈデｿｽ[ｿｽ^ｿｽﾅ、
ｿｽｿｽｿｽﾛゑｿｽ buf ｿｽﾌ難ｿｽeｿｽﾍ、ｿｽﾇのようｿｽﾈデｿｽ[ｿｽ^ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?

> ｿｽｿｽｿｽﾔ信ｿｽｿｽeｿｽｿｽChrW()ｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽﾋ。
VB6ｿｽﾌソｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽ Shift_JIS ｿｽxｿｽ[ｿｽXｿｽﾈので、UnicodeｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽｿｽﾟ、ChrWｿｽﾖ撰ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ChrWｿｽﾖ撰ｿｽｿｽﾍ、Unicode(UCS-2/UTF-16) ｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾜゑｿｽｿｽB
Chrｿｽﾖ撰ｿｽｿｽﾍ、Shift_JIS ｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽlｿｽﾉ、0ｿｽ`255ｿｽﾌコｿｽ[ｿｽhｿｽｿｽけ趣ｿｽｿｽ ChrBｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽtｿｽﾉ、ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾉ変奇ｿｽｿｽｿｽｿｽ驍ｽｿｽﾟの、AscW, Asc, AscBｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB


> oRec(1).Valueｿｽﾌ値ｿｽﾌスｿｽyｿｽCｿｽｿｽｿｽｿｽAｿｽNｿｽZｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾌで・ｿｽEｿｽE
ｿｽｿｽｿｽｿｽAValue ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽﾎ、
VB ｿｽｿｽｿｽﾅは対擾ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽX ｿｽﾜゑｿｽｿｽｿｽ OS ｿｽﾂ具ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾝ抵ｿｽﾌ厄ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾌで、ｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂでの費ｿｽｿｽeｿｽ超ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾆ。

VB6ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾍ難しｿｽｿｽｿｽﾅゑｿｽ 2005/10/26(ｿｽｿｽ) 02:56:49

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾑゑｿｽｿｽﾑのゑｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

>ｿｽ{ｿｽｿｽ buf ｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍ、ｿｽｿｽﾌ的ｿｽﾉはどのようｿｽﾈデｿｽ[ｿｽ^ｿｽﾅ、
>ｿｽｿｽｿｽﾛゑｿｽ buf ｿｽﾌ難ｿｽeｿｽﾍ、ｿｽﾇのようｿｽﾈデｿｽ[ｿｽ^ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?

BárbaraEspaña(UTF-8)ｿｽﾆゑｿｽｿｽｿｽｿｽlｿｽｿｽｿｽEｿｽ¥BｿｽeｿｽBrbaraEspaｿｽeｿｽAa(S-JIS)ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

>ｿｽｿｽｿｽｿｽAValue ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽﾎ、
>VB ｿｽｿｽｿｽﾅは対擾ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽX ｿｽﾜゑｿｽｿｽｿｽ OS ｿｽﾂ具ｿｽｿｽｿｽｿｽｿｽ
>ｿｽﾝ抵ｿｽﾌ厄ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾌで、ｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂでの費ｿｽｿｽeｿｽ超ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾆ。

ｿｽｿｽﾍりそｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ可能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、UTF-8ｿｽ`ｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽｿｽ謫ｾｿｽｿｽｿｽAEXCELｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽ鼾
*************
    'ｿｽｿｽｿｽﾝ年ｿｽｿｽｿｽﾌｿｽｿｽOｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽOPEN
    Open sLogFile1 For Input As #iFileNum
    
    'ｿｽｿｽｿｽﾝ年ｿｽｿｽｿｽﾌｿｽｿｽOｿｽｿｽeｿｽoｿｽｿｽ
    Input #iFileNum, sdata
    
    'ｿｽｿｽｿｽﾝ年ｿｽｿｽｿｽﾌｿｽｿｽOｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽCLOSE
    Close #iFileNum

Set oExcelCopySheet = oExcelWorkbook.Sheets("AA")
oExcelCopySheet.Range("A1").Value = sdata

***************

ｿｽﾅ可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾑゑｿｽｿｽﾑ、ｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌほど、ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/10/26(ｿｽｿｽ) 05:06:17

ｿｽﾜゑｿｽｿｽｿｽOｿｽｿｽﾆゑｿｽｿｽﾄ、ｿｽｿｽｿｽ{ｿｽｿｽﾂ具ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾄは、
ｿｽuVB6 ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ^ｿｽｿｽ UTF-16 ｿｽﾅ保趣ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽ_ｿｽﾆ、
ｿｽuVB6 ｿｽﾅの包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾍは、ｿｽｿｽ{ｿｽIｿｽｿｽ Shift_JIS ｿｽﾅ行ｿｽｿｽｿｽｿｽv
ｿｽﾆゑｿｽｿｽｿｽｿｽ_ｿｽｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB(UTF-8 ｿｽﾍ暦ｿｽｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ)

----

> BárbaraEspaña(UTF-8)ｿｽﾆゑｿｽｿｽｿｽｿｽlｿｽｿｽ
ｿｽｿｽｿｽｿｽﾍ、UTF-8ｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾎ、
ｿｽ@42 C3 A1 72 62 61 72 61 45 73 70 61 C3 B1 61
ｿｽﾆゑｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽしｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ?

ｿｽﾆゑｿｽｿｽｿｽﾎ、VB ｿｽIｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾎ、
ｿｽ@buf = "B" & ChrW(&HE1) & "rbaraEspa" & ChrW(&HF1) & "a"
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽﾋ。ｿｽ@


> ｿｽEｿｽ¥BｿｽeｿｽBrbaraEspaｿｽeｿｽAa(S-JIS)ｿｽｿｽ
> ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽ¥ｿｽｿｽｿｽﾄゑｿｽAｿｽｿｽdｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽﾌで。(^_^;)
ｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽA
ｿｽ@Dim B() As Byte
ｿｽ@B = buf
ｿｽﾈどゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB

# ｿｽcｿｽcｿｽﾅゑｿｽAｿｽfｿｽ[ｿｽ^ｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍ、
# ｿｽ@42 C3 A1 72 62 61 72 61 45 73 70 61 C3 B1 61
# ｿｽﾅはなゑｿｽｿｽA
# ｿｽ@EF BB BF 42 C3 A1 72 62 61 72 61 45 73 70 61 C3 B1 61
# ｿｽﾌようｿｽﾅゑｿｽｿｽﾋ。DBｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾉは、BOM ｿｽｿｽﾜめてゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?


ｿｽﾆゑｿｽｿｽｿｽﾅ、ｿｽｿｽﾙゑｿｽ
> ｿｽEｿｽ¥BｿｽeｿｽBrbaraEspaｿｽeｿｽAa(S-JIS)ｿｽｿｽ
ｿｽﾌようｿｽﾉ「S-JISｿｽvｿｽﾈのゑｿｽｿｽﾆ仰ゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽﾌ場合ｿｽAｿｽﾇの趣ｿｽｿｽ_ｿｽｿｽ S-JIS ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾌゑｿｽｿｽｿｽAｿｽｿｽｿｽﾉ重ｿｽvｿｽﾈ点ｿｽﾆなゑｿｽﾜゑｿｽｿｽB


ｿｽ痰ｦｿｽﾎ、UTF-8 ｿｽﾌ『ｿｽｿｽｿｽxｿｽﾍ、ｿｽuE3 81 82ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。
ｿｽﾅ、ｿｽuE3 81 82ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽﾍ、UTF-16 ｿｽﾆゑｿｽｿｽﾄ会ｿｽﾟゑｿｽｿｽｿｽｿｽ
ｿｽwｿｽb*ｿｽxｿｽﾅゑｿｽｿｽｿｽAShift_JIS ｿｽﾆゑｿｽｿｽﾄ会ｿｽﾟゑｿｽｿｽｿｽﾆ『ｿｽ*ｿｽxｿｽﾆなゑｿｽﾜゑｿｽｿｽB
(ｿｽｿｽLｿｽｿｽ * ｿｽﾍ、ｿｽoｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ)


ｿｽｿｽｿｽｿｽADB(UTF-8)ｿｽｿｽ ｿｽﾉ『ｿｽｿｽｿｽxｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽVB6ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽけ趣ｿｽｿｽ謔､ｿｽﾈ場合ｿｽAｿｽｿｽｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾏ奇ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾎ、
ｿｽ@UTF-8ｿｽwｿｽｿｽｿｽxE3 81 82ｿｽ@ｿｽ@ｿｽｿｽｿｽ@ｿｽ@UTF-16ｿｽwｿｽｿｽｿｽx42 30
ｿｽﾌようｿｽﾉ変会ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、VB ｿｽｿｽｿｽﾉは、
ｿｽ@buf = ChrB(&H42) & ChrB(&H30)  'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ buf = ChrW(&H3042)
ｿｽﾆゑｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽｿｽ骼厄ｿｽﾉなゑｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾌ鯉ｿｽA(Print ｿｽｿｽｿｽｿｽ)ｿｽoｿｽﾍゑｿｽｿｽｿｽﾛに、UTF-16 ｿｽｿｽ Shift_JIS ｿｽﾏ奇ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ行ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽﾈ擾ｿｽﾔとなゑｿｽﾜゑｿｽｿｽB


ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽ驍｢ｿｽﾍミｿｽhｿｽｿｽｿｽEｿｽFｿｽA)ｿｽﾌ設抵ｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽﾄ、
Shift_JIS ｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽﾉ行ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽｿｽｿｽﾊとゑｿｽｿｽｿｽ
ｿｽ@buf = "ｿｽ*"ｿｽ@ｿｽ@'buf = ChrB(&H3A) & chrB(&H7e) & ChrB(??)
ｿｽﾈ擾ｿｽﾔで渡ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾈ状況ゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍゑｿｽﾍゑｿｽ
VB ｿｽｿｽｿｽﾅは趣ｿｽﾌ施ｿｽｿｽｿｽ謔､ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅ、ｿｽfｿｽ[ｿｽ^ｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽ(ｿｽﾜゑｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)ｿｽｿｽｿｽﾟでゑｿｽｿｽB


ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽﾜゑｿｽｿｽ‾ｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽwｿｽｿｽｿｽxｿｽｿｽUTF-8ｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽｿｽAｿｽﾏ撰ｿｽ buf ｿｽﾉ厄ｿｽｿｽｿｽｿｽHｿｽﾅ格ｿｽ[ｿｽｿｽｿｽ黷ｽｿｽﾈゑｿｽA
ｿｽ@buf = ChrB(&HE3) & ChrB(&H81) & ChrB(&H82)
ｿｽﾌようｿｽﾈ擾ｿｽﾔになゑｿｽｿｽﾄゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽBｿｽiVB6 ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄは『ｿｽb*ｿｽxｿｽﾌ擾ｿｽﾔでゑｿｽｿｽﾋ）

ｿｽｿｽｿｽﾌ場合ｿｽﾍ、UTF-8 ｿｽｿｽ UTF-16 ｿｽﾏ奇ｿｽｿｽｿｽ VB6 ｿｽｿｽｿｽﾅプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽIｿｽﾉ行ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ骼厄ｿｽﾅ、
ｿｽwｿｽｿｽｿｽxｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽ正ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB



> ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、UTF-8ｿｽ`ｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽｿｽ謫ｾｿｽｿｽｿｽAEXCELｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽ鼾
> (ｿｽｿｽｿｽｿｽ)
> ｿｽﾅ可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽeｿｽLｿｽXｿｽgｿｽｿｽｿｽ[ｿｽh(For Input)ｿｽﾅは駄目でゑｿｽｿｽBｿｽgｿｽｿｽｿｽﾈゑｿｽAｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽｿｽ[ｿｽh(For Binary)ｿｽﾅゑｿｽｿｽﾋ。

Input ｿｽXｿｽeｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽg(ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽAVB6ｿｽﾌ包ｿｽｿｽｿｽｿｽ処暦ｿｽｿｽSｿｽｿｽ)ｿｽﾅは、ｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ
Shift_JIS ｿｽｿｽ UTF-16 ｿｽﾆの間での変奇ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽdｿｽlｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、
UTF-8 ｿｽfｿｽ[ｿｽ^ｿｽｿｽHｿｽﾗゑｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽjｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB


ｿｽﾅゑｿｽｿｽｿｽｿｽAUTF-8 ｿｽﾌテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、VB ｿｽWｿｽｿｽｿｽｿｽ
Open ｿｽXｿｽeｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽﾌではなゑｿｽｿｽAADODB.Stream ｿｽﾆゑｿｽｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ
ｿｽgｿｽｿｽｿｽﾄ読み搾ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB

ADODB.Streamｿｽﾉつゑｿｽｿｽﾄは、ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾉサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽTｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

VB6ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾍ難しｿｽｿｽｿｽﾅゑｿｽ 2005/10/26(ｿｽｿｽ) 19:30:47

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽAｿｽxｿｽXｿｽﾌゑｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾌほゑｿｽｿｽﾅ、
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽ驍｢ｿｽﾍミｿｽhｿｽｿｽｿｽEｿｽFｿｽA)ｿｽﾌ設抵ｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽﾄ、
>Shift_JIS ｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽﾉ行ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽｿｽｿｽﾊとゑｿｽｿｽﾄ・ｿｽEｿｽE

ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽAODBCｿｽｿｽｿｽﾌ設抵ｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽﾝ抵ｿｽｿｽｿｽｿｽ骼厄ｿｽﾅ、
>ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽﾜゑｿｽｿｽ‾ｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽwｿｽｿｽｿｽxｿｽｿｽUTF-8ｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽｿｽAｿｽﾏ撰ｿｽ buf ｿｽﾉ厄ｿｽｿｽｿｽｿｽHｿｽﾅ格ｿｽ[ｿｽｿｽｿｽ黷ｽｿｽﾈゑｿｽAｿｽEｿｽE

ｿｽﾌ擾ｿｽﾔにゑｿｽｿｽ骼厄ｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
VB6ｿｽﾉゑｿｽｿｽｿｽｿｽﾄ、
>ｿｽｿｽｿｽﾌ場合ｿｽﾍ、UTF-8 ｿｽｿｽ UTF-16 ｿｽﾏ奇ｿｽｿｽｿｽ VB6 ｿｽｿｽｿｽﾅプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽIｿｽﾉ行ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ骼厄ｿｽﾅ、
>ｿｽwｿｽｿｽｿｽxｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽ正ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/10/26(ｿｽｿｽ) 22:57:50

> >ｿｽｿｽｿｽﾌ場合ｿｽﾍ、UTF-8 ｿｽｿｽ UTF-16 ｿｽﾏ奇ｿｽｿｽｿｽ VB6 ｿｽｿｽｿｽﾅプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽIｿｽﾉ行ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ骼厄ｿｽﾅ、
> >ｿｽwｿｽｿｽｿｽxｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽ正ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
> ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽﾌ回答にて述ｿｽﾗゑｿｽｿｽwADODB.Streamｿｽxｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽﾈ単ｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾌゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽ閧ｪｿｽQｿｽlｿｽﾉなるかｿｽﾆ。

http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200401/04010054.txt

ｿｽｿｽLｿｽﾅは、JISｿｽoｿｽCｿｽiｿｽｿｽ(ｿｽoｿｽCｿｽgｿｽzｿｽｿｽ)ｿｽｿｽStringｿｽﾖの変奇ｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽlｿｽﾌ手順ｿｽ踏めば、UTF-8ｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽ VBｿｽｿｽStringｿｽﾉ変奇ｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.