¼Ò½º¸¦ È®ÀÎÇϼ¼¿ä. (ÀÔ·ÂÆÄÀÏÀÌ À߸ø µÈ °æ¿ìµµ ÀÖÀ¸¹Ç·Î ÀÚ·á½Ç¿¡ ÀÖ´Â ÀÔ·ÂÆÄÀÏ·Î È®ÀÎÇØ º¸¼¼¿ä.)
Option Explicit
Sub main()
''Çʼö º¯¼ö ¼±¾ð Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant ''ÇÙ½É º¯¼ö ¼±¾ð Dim Ãâ¹ßÁöÄÚµå, ½Â°´¸¸Á·µµ, ¿ùÀÌ¿ëȽ¼ö, ¿©Çà°Å¸®, ÇÕ°è(1000), °í°´¹øÈ£(1000), j, Temp, Num As Variant ''Àμö ó¸® Àμö1 = Val(Left(Command, InStr(Command, " "))) Àμö2 = Val(Mid(Command, InStr(Command, " "))) ''ÀÔ·Â ÆÄÀÏ Ã³¸® Open "c:\c_it\data\abc1112.txt" For Input As #1 For i = 1 To Àμö2 Line Input #1, ¹öÆÛ If i >= Àμö1 Then ''º¯¼ö ÀúÀå Ãâ¹ßÁöÄÚµå = Trim(Mid(¹öÆÛ, 20, 2)) ½Â°´¸¸Á·µµ = Val(Mid(¹öÆÛ, 16, 2)) ¿ùÀÌ¿ëȽ¼ö = Val(Mid(¹öÆÛ, 32, 2)) ¿©Çà°Å¸® = Val(Mid(¹öÆÛ, 27, 5)) ''¹è¿º¯¼ö ±¸Çϱâ If Ãâ¹ßÁöÄÚµå = "SU" And ½Â°´¸¸Á·µµ <= 23 Then Num = Num + 1 ÇÕ°è(Num) = ¿ùÀÌ¿ëȽ¼ö * ¿©Çà°Å¸® °í°´¹øÈ£(Num) = Val(Mid(¹öÆÛ, 1, 5)) End If End If Next i ''Á¤·Ä(ÇÕ°è ³»¸²Â÷¼ø or (ÇÕ°è °°À½ and °í°´¹øÈ£ ¿À¸§Â÷¼ø)) For i = 1 To Num For j = i To Num If ÇÕ°è(i) < ÇÕ°è(j) Or _ (ÇÕ°è(i) = ÇÕ°è(j) And °í°´¹øÈ£(i) > °í°´¹øÈ£(j)) Then Temp = ÇÕ°è(i) ÇÕ°è(i) = ÇÕ°è(j) ÇÕ°è(j) = Temp Temp = °í°´¹øÈ£(i) °í°´¹øÈ£(i) = °í°´¹øÈ£(j) °í°´¹øÈ£(j) = Temp End If Next j Next i Close #1 ''Ãâ·Â ÆÄÀÏ Ã³¸® Open "c:\c_it\data\ans1.txt" For Output As #2 Print #2, Àμö1, Àμö2, °í°´¹øÈ£(5) Close #2 End Sub
|