|
ｿｽ@ｿｽｿｽｿｽnｿｽbｿｽVｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽ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
ｿｽｿｽY 2005/08/24(ｿｽｿｽ) 11:54:44
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽｿｽYｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽB
VB.NETｿｽﾅハｿｽbｿｽVｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽ@ｿｽﾉつゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽLｿｽ[ｿｽﾍコｿｽ[ｿｽhｿｽPｿｽOｿｽｿｽ+ｿｽCｿｽﾓ４ｿｽｿｽｿｽﾅゑｿｽｿｽB
"12345678901111"
"12345678902222"
"12345678903333"
"11111111111111"
"11111111112222"
"11111111113333"
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽ[ｿｽｿｽｿｽｿｽﾂデｿｽ[ｿｽ^ｿｽｿｽｿｽRｿｽOｿｽｿｽｿｽｿｽｿｽﾈ上あｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅコｿｽ[ｿｽhｿｽPｿｽOｿｽｿｽｿｽｿｽ"1234567890"ｿｽﾌ値ｿｽｿｽｿｽｿｽﾗて抵ｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾝはハｿｽbｿｽVｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ厄ｿｽｿｽOｿｽｿｽhashTestｿｽﾆゑｿｽｿｽｿｽｿｽ鼾ｿｽA
For Each ht As DictionaryEntry In hashTest
if Mid(ht.Key, 1, 10) = "1234567890"
'ｿｽlｿｽﾌ出ｿｽｿｽ
end if
Next
ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｾｿｽﾆゑｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾎ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
Dental 2005/08/24(ｿｽｿｽ) 13:02:30
ｿｽｿｽｿｽﾌままでは、ｿｽfｿｽ[ｿｽ^ｿｽｿｽ挙ゑｿｽｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆ。
ｿｽvｿｽｿｽｿｽﾘゑｿｽｿｽﾄ、ｿｽfｿｽ[ｿｽ^ｿｽﾌ保趣ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽ?
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、10ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽHashTableｿｽｿｽﾉ、
14ｿｽｿｽｿｽｿｽｿｽｿｽHashTableｿｽｿｽKｿｽwｿｽIｿｽﾉ保趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽ"1234567890"
ｿｽ@ｿｽｿｽｿｽｿｽ"12345678901111"
ｿｽ@ｿｽｿｽｿｽｿｽ"12345678902222"
ｿｽ@ｿｽｿｽｿｽｿｽ"12345678903333"
ｿｽ@ｿｽｿｽ"1111111111"
ｿｽ@ｿｽｿｽｿｽｿｽ"11111111111111"
ｿｽ@ｿｽｿｽｿｽｿｽ"11111111112222"
ｿｽ@ｿｽｿｽｿｽｿｽ"11111111113333"
ｿｽﾌようｿｽﾈ構ｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、ｿｽuｿｽRｿｽ[ｿｽh10ｿｽｿｽｿｽvｿｽﾅの鯉ｿｽｿｽｿｽｿｽﾍ容ｿｽﾕゑｿｽｿｽﾆ。
For Each entry14 As DictionaryEntry In Hash10("1234567890")
'ｿｽlｿｽﾌ出ｿｽｿｽ
Trace.WriteLine(entry14.Value)
Next
ｿｽﾋゑｿｽ 2005/08/24(ｿｽｿｽ) 13:17:09
Hashtableｿｽﾅは厄ｿｽｿｽｿｽSortedListｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾈ。
ｿｽｿｽY 2005/08/24(ｿｽｿｽ) 13:34:25
ｿｽｿｽYｿｽﾅゑｿｽｿｽB
ｿｽｿｽDentalｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌようｿｽﾈ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ14ｿｽｿｽｿｽﾌキｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽnｿｽbｿｽVｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽHash14,
ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ10ｿｽｿｽｿｽﾌキｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽnｿｽbｿｽVｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽHash10
ｿｽﾆゑｿｽｿｽｿｽｿｽ鼾ｿｽA
hash14.add("12345678901111",'ｿｽｿｽｿｽｿｽｿｽｿｽ')
hash14.add("12345678902222",'ｿｽｿｽｿｽｿｽｿｽｿｽ')
hash14.add("12345678903333",'ｿｽｿｽｿｽｿｽｿｽｿｽ')
ｿｽﾆなゑｿｽA
hash10ｿｽｿｽ"1234567890"ｿｽｿｽLｿｽ[ｿｽﾆゑｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽhash14ｿｽﾌ値ｿｽｿｽ
ｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽﾌ場合ｿｽAHash10ｿｽｿｽhash14ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾋろさｿｽｿｽ
SortedListｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで搾ｿｽｿｽｿｽｿｽﾗてゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽQｿｽlｿｽﾉなゑｿｽﾓ鯉ｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/08/24(ｿｽｿｽ) 13:55:30
ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ hashTest("12345678901111") ｿｽｿｽｿｽAｿｽﾇのようｿｽﾈ値ｿｽｿｽﾔゑｿｽｿｽﾌゑｿｽ
ｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾆりあｿｽｿｽｿｽｿｽ ｿｽLｿｽ[ｿｽｿｽｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
Dim Hash10 As New Hashtable
Hash10.Add("1234567890", Hash14("12345678901111", "12345678902222", "12345678903333"))
Hash10.Add("1111111111", Hash14("11111111111111", "11111111112222", "11111111113333"))
For Each ht As DictionaryEntry In Hash10("1234567890")
'ｿｽlｿｽﾌ出ｿｽｿｽ
Trace.WriteLine(ht.Value)
Next
'---------------
Function Hash14(ByVal ParamArray X() As String) As Hashtable
Hash14 = New Hashtable
For Each s As String In X
Hash14.Add(s, s)
Next
End Function
ｿｽｿｽY 2005/08/24(ｿｽｿｽ) 14:21:37
ｿｽｿｽYｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽ
ｿｽざｿｽざｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Hash10.Add("1111111111", Hash14("11111111111111", "11111111112222", "11111111113333"))
ｿｽﾌとゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾏゑｿｽHash14ｿｽﾌキｿｽ[ｿｽ羅列しなゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽhash14ｿｽｿｽSｿｽｿｽｿｽﾇみ搾ｿｽｿｽだ鯉ｿｽAｿｽｿｽｿｽﾆゑｿｽｿｽｿｽHash14ｿｽﾌキｿｽ[ｿｽ謫ｪｿｽPｿｽOｿｽoｿｽCｿｽgｿｽｿｽ"1111111111"ｿｽﾌ場合ｿｽAhash10ｿｽｿｽ"1111111111"ｿｽﾌ値ｿｽﾆゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆは出ｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽかｿｽｿｽﾃらくｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
Dental 2005/08/24(ｿｽｿｽ) 19:13:03
ｿｽｿｽﾌ回答は、ｿｽuｿｽSｿｽｿｽｿｽｿｽ挙ゑｿｽｿｽﾄ探ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽ@ｿｽvｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽfｿｽ[ｿｽ^ｿｽﾌ格ｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽu10ｿｽｿｽｿｽvｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ竄ｷｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽBｿｽBｿｽﾆゑｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ?
ｿｽﾅゑｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌ格ｿｽ[ｿｽ`ｿｽｿｽｿｽﾌ抵ｿｽﾄとゑｿｽｿｽﾄ、HastTable ｿｽｿｽgｿｽｿｽｿｽﾄ階ｿｽwｿｽIｿｽｿｽ
ｿｽﾇ暦ｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜでの点ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ?
ｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾌ格ｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽﾏ更ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽﾌ話ｿｽｿｽ
ｿｽUｿｽｿｽoｿｽｿｽｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽけｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
> Hash14ｿｽﾌキｿｽ[ｿｽ羅列しなゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾍ、ｿｽu6ｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽvｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ髟費ｿｽｿｽｿｽﾈので、
ｿｽwｿｽfｿｽ[ｿｽ^ｿｽﾌ鯉ｿｽｿｽｿｽｿｽxｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは、ｿｽｿｽｿｽﾚは関係ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ。
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽwｿｽKｿｽwｿｽfｿｽ[ｿｽ^ｿｽｿｽ成ｿｽxｿｽｿｽｿｽ驍ｽｿｽﾟには、ｿｽﾅ終ｿｽIｿｽﾉゑｿｽ30ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽfｿｽ[ｿｽ^ｿｽｿｽoｿｽ^ｿｽｿｽｿｽ驍ｽｿｽﾟに、30ｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽ驍｢ｿｽﾍゑｿｽｿｽｿｽﾈ擾ｿｽ)ｿｽﾌキｿｽ[ｿｽoｿｽ^ｿｽｿｽ
ｿｽKｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽ Hash14 ｿｽﾈサｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽｿｽｿｽAｿｽﾅ擾ｿｽｿｽﾉ托ｿｽYｿｽｿｽｿｽが擾ｿｽｿｽｿｽｿｽｿｽ
> For Each ht As DictionaryEntry In hashTest
> if Mid(ht.Key, 1, 10) = "1234567890"
> 'ｿｽlｿｽﾌ出ｿｽｿｽ
> end if
> Next
ｿｽﾆゑｿｽｿｽｿｽｿｽuhashTestｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽﾅゑｿｽｿｽｿｽｿｽ?
# ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽ逑ｾｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽsｿｽｿｽｿｽﾈので、ｿｽｿｽｿｽｿｽﾈ擾ｿｽﾍどゑｿｽｿｽﾉゑｿｽB
# ｿｽu30ｿｽｿｽｿｽｿｽｿｽvｿｽﾌ鯉ｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽAｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽ Hashtableｿｽ`ｿｽｿｽｿｽﾅ渡ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽA
# ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾅ渡ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽcｿｽcｿｽｿｽｿｽ驍｢ｿｽﾍ、ｿｽｿｽｿｽｿｽ等ｿｽｿｽｿｽｿｽ
# ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾈど、ｿｽfｿｽ[ｿｽ^ｿｽﾌ受け渡ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄは、
# ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽﾘな趣ｿｽ@ｿｽｿｽｿｽﾏゑｿｽ驍ｩｿｽｿｽmｿｽｿｽﾈゑｿｽｿｽけｿｽﾅ。
> ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽhash14ｿｽｿｽSｿｽｿｽｿｽﾇみ搾ｿｽｿｽだ鯉ｿｽAｿｽｿｽｿｽﾆゑｿｽｿｽｿｽHash14ｿｽﾌキｿｽ[ｿｽ謫ｪｿｽPｿｽOｿｽoｿｽCｿｽgｿｽｿｽ
> "1111111111"ｿｽﾌ場合ｿｽAhash10ｿｽｿｽ"1111111111"ｿｽﾌ値ｿｽﾆゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆゑｿｽ
> ｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾌ意図ｿｽｿｽｿｽ謔ｭｿｽかｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽcｿｽcｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾅはなゑｿｽｿｽAｿｽoｿｽｿｽｿｽ驍ｩｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽZｿｽpｿｽIｿｽﾉは「ｿｽﾅゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽｿｽﾇね。
ｿｽﾅ終ｿｽIｿｽﾉ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛに搾ｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽYｿｽｿｽｿｽｿｽﾌ力量趣ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽ謔､ｿｽﾈ。
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽﾇ暦ｿｽｿｽｿｽｿｽ竄ｷｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟに、HashTable ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽﾌクｿｽｿｽｿｽXｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽeｿｽfｿｽ[ｿｽ^ｿｽｿｽ(ｿｽｿｽﾉ提示ゑｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ)ｿｽuｿｽKｿｽwｿｽｿｽｿｽvｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌクｿｽｿｽｿｽXｿｽﾉ、ｿｽfｿｽ[ｿｽ^ｿｽﾌ登ｿｽ^ｿｽ竚滂ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
(ｿｽKｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾈどは、ｿｽｿｽｿｽﾉサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽ示ゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ)
ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽﾉ抵ｿｽﾄゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ SortedList ｿｽｿｽgｿｽｿｽｿｽﾄみゑｿｽﾌでゑｿｽｿｽｿｽﾎ、
ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽ¥ｿｽ[ｿｽgｿｽｿｽｿｽｿｽﾄ格ｿｽ[ｿｽｿｽｿｽｿｽ骼厄ｿｽ利用ｿｽｿｽｿｽﾄ。ｿｽBｿｽBｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
=====================
Dim X As New SortedList
'--- ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽfｿｽ[ｿｽ^ ---
X.Add("1234567890", "") 'ｿｽfｿｽ[ｿｽ^ｿｽﾌ作成ｿｽｿｽｿｽﾉは、ｿｽｿｽｿｽｿｽｿｽpｿｽﾉ「10ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ
X.Add("1111111111", "") 'ｿｽｿｽｿｽｿｽAｿｽ齒擾ｿｽﾉ格ｿｽ[ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽB
X.Add("12345678901111", "ｿｽｿｽ")
X.Add("11111111112222", "ｿｽｿｽ")
X.Add("12345678903333", "ｿｽｿｽ")
X.Add("11111111111111", "ｿｽｿｽ") 'ｿｽｿｽｿｽｿｽｿｽﾍ、SortedListｿｽｿｽｿｽ
X.Add("11111111113333", "ｿｽｿｽ") 'ｿｽiｿｽ[ｿｽｿｽｿｽｿｽｿｽﾛに、ｿｽLｿｽ[ｿｽｿｽｿｽｿｽ
X.Add("12345678902222", "ｿｽｿｽ") 'ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽﾑ替ゑｿｽｿｽｿｽｿｽｿｽB
'--- ｿｽｿｽｿｽｿｽ ---
Trace.WriteLine("ｿｽ謫ｪｿｽｿｽ 1234567890 ｿｽﾌ包ｿｽ")
For Each V As String In Search(X, "1234567890")
Trace.WriteLine(V)
Next
Trace.WriteLine("ｿｽ謫ｪｿｽｿｽ 1111111111 ｿｽﾌ包ｿｽ")
For Each V As String In Search(X, "1111111111")
Trace.WriteLine(V)
Next
=====================
Private Function Search(ByVal List As SortedList, ByVal SearchWord As String) As ArrayList
'ｿｽu10ｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾌ位置ｿｽｿｽTｿｽｿｽ
Dim Position As Integer = List.IndexOfKey(SearchWord)
Search = New ArrayList
If Position >= 0 Then
'10ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ趣ｿｽｿｽﾌ位置ｿｽｿｽｿｽ迪滂ｿｽｿｽｿｽJｿｽn
For Index As Integer = Position + 1 To List.Count - 1
Dim Key As String = CStr(List.GetKey(Index))
If Key.StartsWith(SearchWord) Then
'ｿｽ謫ｪｿｽｿｽｿｽｿｽｿｽ齒擾ｿｽﾈゑｿｽAｿｽﾟゑｿｽlｿｽﾉ追会ｿｽ
Search.Add(List.GetByIndex(Index))
Else
'ｿｽ謫ｪｿｽｿｽｿｽｿｽｿｽﾙなゑｿｽﾎ、ｿｽ挙終ｿｽｿｽ
Exit For
End If
Next
End If
End Function
ｿｽﾋゑｿｽ 2005/08/24(ｿｽｿｽ) 22:11:31
SortedListｿｽﾉつゑｿｽｿｽﾄ抵ｿｽｿｽﾗゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽ[ｿｽ`ｿｽﾍデｿｽ[ｿｽ^ｿｽ[ｿｽｿｽ¥ｿｽ[ｿｽgｿｽｿｽｿｽﾄ、ｿｽQｿｽｿｽｿｽﾘ鯉ｿｽｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆ托ｿｽｿｽｿｽﾍ鯉ｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
SortedListｿｽｿｽKeyｿｽﾅソｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽKeyｿｽｿｽQｿｽｿｽｿｽﾘ鯉ｿｽｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽﾍ簡単ｿｽﾈサｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽｿｽiｿｽGｿｽｿｽｿｽ[ｿｽﾌ擾ｿｽｿｽｿｽｿｽﾈど全ｿｽﾄ省暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽAｿｽﾅ近やけｿｽﾉ突ゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで・ｿｽEｿｽj
ｿｽｿｽｿｽﾛは１ｿｽSｿｽｿｽｿｽｿｽｿｽｿｽPｿｽOｿｽｿｽｿｽｿｽｿｽﾅ２ｿｽｿｽｿｽﾘ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊは包ｿｽｿｽｿｽｿｽqｿｽbｿｽgｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾛは最擾ｿｽｿｽﾌヒｿｽbｿｽgｿｽｿｽｿｽｿｽindexｿｽｿｽﾔゑｿｽｿｽﾜゑｿｽｿｽAｿｽ]ｿｽｿｽｿｽﾄ該ｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽ[ｿｽﾌどゑｿｽｿｽﾉ暦ｿｽｿｽｿｽｿｽ驍ｩｿｽﾍ確ｿｽ閧ｵｿｽﾜゑｿｽｿｽが、
ｿｽｿｽｿｽｿｽｿｽﾅ帰ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽindexｿｽﾌ擾ｿｽﾆ会ｿｽｿｽｿｽKeyｿｽﾌ前ｿｽﾌ１ｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜで探ｿｽｿｽｿｽﾎ良ゑｿｽｿｽｿｽｿｽﾆになゑｿｽﾜゑｿｽｿｽB
(ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ省暦ｿｽ)
ｿｽｿｽｿｽｿｽｿｽﾍ搾ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽmｿｽFｿｽﾌ為、ListBoxｿｽｿｽTextBoxｿｽｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Dim MySotedList As New SortedList
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MySotedList.Add("12345678901111", "12345678901111D")
MySotedList.Add("12345678902222", "12345678902222D")
MySotedList.Add("12345678903333", "12345678901111D")
MySotedList.Add("11111111111111", "11111111111111D")
MySotedList.Add("11111111112222", "11111111112222D")
MySotedList.Add("11111111113333", "11111111113333D")
MySotedList.Add("22222222221111", "22222222221111D")
MySotedList.Add("22222222222222", "22222222222222D")
MySotedList.Add("22222222223333", "22222222223333D")
For i As Integer = 0 To MySotedList.Keys.Count - 1
ListBox1.Items.Add(MySotedList.GetKey(i))
Next
End Sub
Public Function BinarySearch(ByVal DataStart As Integer, ByVal DataEnd As Integer, ByVal Data As String) As Integer
'ｿｽPｿｽOｿｽｿｽｿｽｿｽｿｽﾌ二分木鯉ｿｽｿｽｿｽ
Dim DataIndex As Integer
While (DataStart <= DataEnd)
DataIndex = CType(DataStart + (DataEnd - DataStart) / 2, Integer)
Dim s1 As String = CType(MySotedList.GetKey(DataIndex), String).Substring(0, 10)
Dim s2 As String = Data.Substring(0, 10)
If String.Compare(s1, s2) > 0 Then
DataEnd = DataIndex - 1
ElseIf String.Compare(s1, s2) < 0 Then
DataStart = DataIndex + 1
Else
Return (DataIndex)
End If
End While
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t As Integer = BinarySearch(0, MySotedList.Keys.Count - 1, "2222222222")ｿｽ@'ｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽTｿｽ[ｿｽ`
'TextBox1.Text = CType(MySotedList.GetKey(t), String) 'Keyｿｽｿｽ¥ｿｽｿｽ
TextBox1.Text = CType(MySotedList.Item(MySotedList.GetKey(t)), String) 'ｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽｿｽ¥ｿｽｿｽ
End Sub
ｿｽﾋゑｿｽ 2005/08/25(ｿｽｿｽ) 07:36:41
ｿｽｿｽｿｽ[ｿｽI
>Dim s1 As String = CType(MySotedList.GetKey(DataIndex), String).Substring(0, 10)
>Dim s2 As String = Data.Substring(0, 10)
Dim s1, s2 As String
While
ｿｽ@ｿｽ@ ｿｽEｿｽE
s1 = CType(MySotedList.GetKey(DataIndex), String).Substring(0, 10)
s2 = Data.Substring(0, 10)
ｿｽ骭ｾｿｽｿｽWhileｿｽﾌ外ｿｽﾉ出ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBorz
ｿｽ`ｿｽｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽｿｽｿｽﾈ。ｿｽBｿｽB
ｿｽｿｽY 2005/08/25(ｿｽｿｽ) 11:29:51
ｿｽｿｽYｿｽﾅゑｿｽｿｽB
ｿｽFｿｽｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽｿｽﾆアｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Dentalｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ詳ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽﾍテｿｽLｿｽXｿｽg(TSV)ｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝまゑｿｽｿｽB
12345678901111ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
11111111111111ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
12345678902222ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
11111111112222ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
12345678903333ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
11111111113333ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾉ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽPｿｽOｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽnｿｽbｿｽVｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾈどに読み搾ｿｽｿｽﾝ、
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎキｿｽ[ｿｽﾌ先頭ｿｽPｿｽOｿｽoｿｽCｿｽgｿｽｿｽ"1234567890"ｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽﾗゑｿｽ
ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽAｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽnｿｽbｿｽVｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾆ、TSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽSｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾌは３ｿｽｿｽｿｽｿｽｿｽ轤｢
ｿｽﾅ終ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽLｿｽ[ｿｽﾌ先頭ｿｽPｿｽOｿｽoｿｽCｿｽgｿｽﾉ該ｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽ
ｿｽｿｽｿｽoｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽﾉ趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽﾔの暦ｿｽｿｽzｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽSortedListｿｽﾉ格ｿｽ[ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽQｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽEｿｽEｿｽB
ｿｽﾇゑｿｽｿｽﾉゑｿｽｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ行ｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾋゑｿｽ 2005/08/25(ｿｽｿｽ) 13:03:07
100ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾊ擾ｿｽﾍデｿｽ[ｿｽ^ｿｽ[ｿｽxｿｽ[ｿｽXｿｽﾅ擾ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽA
DosｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽFindｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄｿｽｿｽ_ｿｽCｿｽｿｽｿｽNｿｽgｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽﾉ吐ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽLｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽﾏゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、DosｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽSortｿｽｿｽｿｽﾄ配ｿｽｿｽﾉ難ｿｽｿｽｿｽA
ｿｽzｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽｿｽB
ｿｽﾋゑｿｽ 2005/08/25(ｿｽｿｽ) 13:57:00
ProcessｿｽNｿｽｿｽｿｽXｿｽｿｽgｿｽｿｽｿｽﾆフｿｽ@ｿｽCｿｽｿｽｿｽﾉｿｽｿｽ_ｿｽCｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
Dim FindString As String
Dim FileName As String
Dim myProcessStart As New System.Diagnostics.ProcessStartInfo
FileName = "c:¥test.txt" 'ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽ
FindString = "1111111111" 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
With myProcessStart
.FileName = System.Environment.GetEnvironmentVariable("ComSpec")
.RedirectStandardInput = False
.RedirectStandardOutput = True
.UseShellExecute = False
.CreateNoWindow = True 'Windowｿｽｿｽ¥ｿｽｿｽ
.Arguments = "/c type " & FileName & " | Find " & Chr(34) & FindString & Chr(34)
End With
Dim MyProcess As Process = Process.Start(myProcessStart)
FindString = MyProcess.StandardOutput.ReadToEnd 'ｿｽoｿｽｿｽRead
Console.WriteLine(FindString) 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
MyProcess.WaitForExit() 'ｿｽIｿｽｿｽ
ｿｽｿｽｿｽｿｽﾅ遅ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｲｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/08/25(ｿｽｿｽ) 14:14:03
ｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽｿｽｿｽﾊの擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ?(ｿｽｿｽﾊ更ｿｽVｿｽﾆゑｿｽ)
ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽfｿｽ[ｿｽ^ｿｽﾉ極端ｿｽﾈ偏りがｿｽｿｽｿｽｿｽﾆゑｿｽｿｽB
ｿｽｿｽｿｽﾛに、200ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽTSVｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽﾌ回答にゑｿｽｿｽｿｽｿｽｿｽ
ｿｽuｿｽKｿｽwｿｽｿｽｿｽｿｽｿｽ黷ｽHashtableｿｽvｿｽﾌ趣ｿｽ@ｿｽﾅ趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾈに趣ｿｽｿｽﾔは掛ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽcｿｽcｿｽB
PCｿｽXｿｽyｿｽbｿｽNｿｽﾆデｿｽ[ｿｽ^ｿｽﾌばゑｿｽﾂゑｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅは、
ｿｽwｿｽLｿｽ[ｿｽﾌ先頭10ｿｽoｿｽCｿｽgｿｽｿｽ"1234567890"ｿｽﾌデｿｽ[ｿｽ^ｿｽﾌ列挙』ｿｽﾍ、
0.02ｿｽbｿｽ`0.8ｿｽbｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽA200ｿｽｿｽｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽ
ｿｽKｿｽwｿｽnｿｽbｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽA12ｿｽbｿｽ`40ｿｽbｿｽｿｽｿｽxｿｽﾅ奇ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾋゑｿｽ 2005/08/25(ｿｽｿｽ) 15:15:43
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽASotedListｿｽｿｽ1,000,000ｿｽｿｽｿｽﾌのデｿｽ[ｿｽ^ｿｽ[ｿｽZｿｽbｿｽgｿｽｿｽ
ｿｽｿｽPｿｽTｿｽbｿｽAｿｽｿｽｿｽｿｽｿｽｿｽ0.5ｿｽbｿｽﾈ会ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄデｿｽoｿｽbｿｽOｿｽﾌ為に付ｿｽｿｽｿｽｿｽｿｽAListBoxｿｽﾉデｿｽ[ｿｽ^ｿｽ[ｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽH
ListBox1.Items.Add(MySotedList.GetKey(i))
ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
