Prog/.NET/ÇÛÎ󤫤é¥æ¥Ë¡¼¥¯¤ÊÃͤò¼è¤ê½Ð¤¹
¤ò¥Æ¥ó¥×¥ì¡¼¥È¤Ë¤·¤ÆºîÀ®
¥È¥Ã¥×
¿·µ¬
°ìÍ÷
¸¡º÷
¥Ø¥ë¥×
³«»Ï¹Ô:
#contents
*¤Ï¤¸¤á¤Ë [#i14af5ca]
ÇÛÎó¤Ç³ÊǼ¤µ¤ì¤Æ¤¤¤ëʸ»úÎ󤫤顢''¥æ¥Ë¡¼¥¯¤Êʸ»úÎó''¤À¤±...
Î㡧
{"hoge","fuga","hoge","foo","fuga","bar"}
=> {"hoge","fuga","foo","bar"}
php¤À¤È¡¢''array_unique''¤È¤¤¤¦´Ø¿ô¤¬¤¢¤ê¤Þ¤¹¤¬¡¢.NET¤Ç¤Ï...
*¥½¡¼¥¹¥³¡¼¥É [#j73d9484]
'ÇÛÎóÆâÍƤΥÀ¥ó¥×
'ref;http://www.thescripts.com/forum/thread455026.html
Private Sub DumpArray(ByVal srcArray() As String, ByVal ...
Dim iIndex As Integer
Console.WriteLine(msg)
Console.WriteLine("Length: " + S.Length.ToString)
Console.WriteLine("------------------------------------...
For iIndex = 0 To UBound(srcArray)
Console.WriteLine(srcArray(iIndex))
Next
Console.WriteLine()
End Sub
'ÇÛÎ󤫤é¥æ¥Ë¡¼¥¯¤ÊÃͤò¤È¤ê¤À¤¹
Private sub array_unique()
Dim arySrcString() As String = {"cab", "cab", "lzh", "c...
Dim aryDestString(1) As String
Dim bufString As String = ""
Dim i, j As Integer
DumpArray(arySrcString, "Contents of before")
Array.Sort(arySrcString)
For i = (arySrcString.Length - 1) To 0 Step -1
If arySrcString(i) <> bufString Then
ReDim Preserve aryDestString(j)
aryDestString(j) = arySrcString(i)
j = j + 1
End If
bufString = arySrcString(i)
Next
DumpArray(aryDestString, "Contents of after")
End Function
RIGHT:2006-05-05 (¶â) 22:14:24
----
[[Prog]]
½ªÎ»¹Ô:
#contents
*¤Ï¤¸¤á¤Ë [#i14af5ca]
ÇÛÎó¤Ç³ÊǼ¤µ¤ì¤Æ¤¤¤ëʸ»úÎ󤫤顢''¥æ¥Ë¡¼¥¯¤Êʸ»úÎó''¤À¤±...
Î㡧
{"hoge","fuga","hoge","foo","fuga","bar"}
=> {"hoge","fuga","foo","bar"}
php¤À¤È¡¢''array_unique''¤È¤¤¤¦´Ø¿ô¤¬¤¢¤ê¤Þ¤¹¤¬¡¢.NET¤Ç¤Ï...
*¥½¡¼¥¹¥³¡¼¥É [#j73d9484]
'ÇÛÎóÆâÍƤΥÀ¥ó¥×
'ref;http://www.thescripts.com/forum/thread455026.html
Private Sub DumpArray(ByVal srcArray() As String, ByVal ...
Dim iIndex As Integer
Console.WriteLine(msg)
Console.WriteLine("Length: " + S.Length.ToString)
Console.WriteLine("------------------------------------...
For iIndex = 0 To UBound(srcArray)
Console.WriteLine(srcArray(iIndex))
Next
Console.WriteLine()
End Sub
'ÇÛÎ󤫤é¥æ¥Ë¡¼¥¯¤ÊÃͤò¤È¤ê¤À¤¹
Private sub array_unique()
Dim arySrcString() As String = {"cab", "cab", "lzh", "c...
Dim aryDestString(1) As String
Dim bufString As String = ""
Dim i, j As Integer
DumpArray(arySrcString, "Contents of before")
Array.Sort(arySrcString)
For i = (arySrcString.Length - 1) To 0 Step -1
If arySrcString(i) <> bufString Then
ReDim Preserve aryDestString(j)
aryDestString(j) = arySrcString(i)
j = j + 1
End If
bufString = arySrcString(i)
Next
DumpArray(aryDestString, "Contents of after")
End Function
RIGHT:2006-05-05 (¶â) 22:14:24
----
[[Prog]]
¥Ú¡¼¥¸Ì¾: