¥ý±N±z­nªº¤À¶¥¬q¨Ó§@
1.­n±Æ§Çªº¸ê®Æ©ñ¦b¨ºùØ ?
A. Array ±Æ§Çªº¸Ü½Ð¥Î Array.sort ¨Ó±Æ§Y¥i
Array ±Æ§Ç
B. DataTable Array ±Æ§Çªº¸Ü½Ð¥Î Array.sort ¨Ó±Æ§Y¥i
Array ±Æ§Ç
B. DataTable ±Æ§Çªº¸Ü¡A½Ð¥Î Dt1.select

2.Âà¥X­n ³s¸¹¥[¥Î ~ ªºµ{¦¡µ¥±z±N1. §@§¹«á¦A¨Ó

¦³ §Ú¥ÎArray.sort ±Æ§Çªº §Ú²{¦b¬O¥d¦b²Ä¤GÂI

data1() ±Æ§Ç«áªº¸ê®Æ ¥u¤ñ¹ï«á¤T½X

°Ñ¦Ò¬Ý¬Ý¡A¤£«OÃÒ¹ï¡A¦³°ÝÃD¦A¨Ó°Q½×

Sno=data1(0):Lno=Sno

for ii=1 to data1.length-1
if right(data1(ii),3)- right(LNo,3) =1 then
Lno=data1(ii)
else
if sno=lno then
print Sno & " "
else
print Sno & "~" & Lno &" "
end if
sno=data1(ii)
end if
next

§Ú²{¦bªºCODE¬O¦p¤U
Dim data1 As Array = TextBox1.Lines Array.Sort(data1) Dim sno = TextBox1.Text sno = data1(0) Dim lno = sno Dim right = TextBox2.Text For ii = 1 To data1.Length - 1 If right(data1(ii), 3) - right(lno, 3) = 1 Then lno = data1(ii) Else If sno = lno Then TextBox2.Text = sno & " " Else TextBox2.Text = sno & "~" & lno & "" End If sno = data1(ii) End If Next

If right(data1(ii), 3) - right(lno, 3) = 1 Then
¦b³o¦æ¥L¸õ¿ù»~ BC30057 Public Overloads ReadOnly Default Property Chars(index As Integer) As Char' ªº¤Þ¼Æ¤Ó¦h¡C
½Ð°Ý§Ú²{¦b¸Ó«ç»ò¸Ñ¨M
³Â·Ð¤F ¤£¦n·N«ä

ÁÙ¬ORight¤£¥NªíTextbox2 ¦]¬°§Ú§ä¤£¨ì¦³ÃöRightªº¨ç¼Æ

§ó¥¿ ¸Ñ¨M ¦ý¦³¥t¤@­Ó°ÝÃD§Ú¦A·Q¬Ý¬Ý ·Q¤£¥X¨Ó¦A°Ý±z

Right¶·§ó¥¿¬°Microsoft.VisualBasic.Right
´£¨Ñ¤U¦C»yªk¨Ñ°Ñ¦Ò¡G
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim data1() As String = TextBox1.Lines Array.Sort(data1) Dim bContinuous As Boolean = False Dim tmpB As String = data1(0) Dim strShow As String = tmpB For i As Byte = 1 To data1.Length - 1 If i < data1.Length Then Dim tmpS As Char = Microsoft.VisualBasic.Right(tmpB, 1) Dim tmpN As Char = Microsoft.VisualBasic.Right(data1(i), 1) If Asc(tmpN) - Asc(tmpS) = 1 AndAlso Microsoft.VisualBasic.Left(tmpB, 4) = Microsoft.VisualBasic.Left(data1(i), 4) Then strShow &= If(Not bContinuous, "¡ã", "") bContinuous = True Else strShow &= If(bContinuous, tmpB & vbCrLf & data1(i), vbCrLf & data1(i)) bContinuous = False End If End If tmpB = data1(i) Next If bContinuous Then strShow &= data1(data1.Length - 1) TextBox2.Text = strShow End Sub

³o¼Ë¤l¤j­P¤W¬O¸Ñ¨M¤F ¦ý¦pªG§Ú¬O£¸²Õ³s¸¹
1N008
1N009
1N010
1N011
1N012
1N013
1N014
1N015
1N016
1N017
1N018
1N019
1N020
¥L·|Åܦ¨
1N008¡ã1N009
1N010¡ã1N019
1N020
¥i¬O§Úªº¬O·QÅܦ¨
1N008~1N020
§Ú§â12¦æ§ï¦¨
If Asc(tmpN) - Asc(tmpS) = 1 or Asc(tmpN) - Asc(tmpS) = -9
³o¼ËÁÙ¬O¨S¦³§@¥Î
½Ð°Ý¦³¬Æ»ò¸Ñ¨M¿ìªk¶Ü
¤£­nÅý¥L¥u¨ú§À¼Æ

­«ÂI¤£¦b12¦æ¡A ¬O¦b10,11 right(???,3) ¤£¯à¥u¥Î right(???,1)
¨ä¥L±z­n°t¦X­×§ï

ÁÙ¬O¤£¦æªº¸Ü¡A½Ð±Nµ{¦¡PO¥X¨Ó

8Fªº»yªk­×§ï¦p¤U¡A¸Õ¸Õ¡G

Line 10: Dim tmpS As Integer=val( Microsoft.VisualBasic.Right(tmpB, 2) )
Line 11: Dim tmpN As Integer=val( Microsoft.VisualBasic.Right(data1(i), 2))
Line 12: If tmpN - tmpS = 1 AndAlso
Line 13: Microsoft.VisualBasic.Left(tmpB, 3) = Microsoft.VisualBasic.Left(data1(i), 3) Then