33°¿¡¼¿ä...ÀÔ·ÂÆÄÀÏÀ» ÀÚ·á½Ç¿¡¼ ´Ù¿î¹Þ¾Æ¼ dataÆú´õ ¾È¿¡ ÀúÀåÇ߰ŵç¿ä..?
±Ùµ¥..Á¦°¡ ÀúÀå ¹æ¹ýÀÌ À߸øµÇ¼ ±×·±Áö °è¼Ó 53·±Å¸ÀÓ ¿À·ù°¡ ¹ß»ýÇϳ׿ä..
ÆÄÀÏÀ» ãÀ»¼ö ¾ø´Ù°í Çϸé¼...¼Ò½º´Â Á¤È®ÇѰа°Àºµ¥...
Á˼ÛÇѵ¥¿ä..
ÀÚ·á½Ç¿¡¼ ÀÔ·ÂÆÄÀÏÀ» dataÆú´õ·Î ÀúÀå ½ÃŰ´Â ¹æ¹ýÁ»...¼³¸íÇØ ÁÖ¼¼¿ä..
±×¸®°í..
Á¦°¡ ½ÃÇèÀÌ Åä¿äÀÏ ¿ÀÀüÀ̶ó¼ 33° Áß±Þ±îÁö¸¸ µè°í °í±ÞÀº ³Ñ±â°í ¹Ù·Î Ư°À» µéÀ¸·Á°í Çϴµ¥..±×·¡µµ ÇÕ°ÝÇÒ ¼ö ÀÖÀ»±î¿ä??
ºü¸¥ ´äº¯ ºÎʵ右´Ï´Ù..
p.s ½±°Ô ¼³¸íÇØ Áּż...ºü¸¥½Ã°£¾È¿¡ ³ª¸§´ë·Î(?) ÀÌÇØÇÒ¼ö ÀÖ¾ú´ø°Å °°¾Æ¿ä~ ²À ÇÕ°ÝÇØ¾ß ÇÒÅÙµ¥...^^;;
Sub main() ''''Çʼö º¯¼ö ¼±¾ð Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant ''''ÇÙ½É º¯¼ö ¼±¾ð Dim ¿¹¾à½Ç±¸ºÐÄÚµå, Åõ¼÷±â°£, ´©ÀûÁ¡¼ö, ÇÒÀαݾ×, ÇÕ°è(1000), ¼÷¹Ú¿ä±Ý(1000), ¿¹¾à¹øÈ£(1000), j, Temp, Num As Variant ''''Àμö ó¸® Àμö1 = Val(Left(Command, InStr(Command, " "))) Àμö2 = Val(Mid(Command, InStr(Command, " "))) ''''ÀÔ·Â ÆÄÀÏ Ã³¸® Open "C:\c_it\data\abc0002.txt" For Input As #1 For i = 1 To Àμö2 Line Input #1, ¹öÆÛ If i >= Àμö1 Then ''''º¯¼ö ÀúÀå ¿¹¾à½Ç±¸ºÐÄÚµå = Trim(Mid(¹öÆÛ, 38, 2)) Åõ¼÷±â°£ = Val(Mid(¹öÆÛ, 15, 2)) ´©ÀûÁ¡¼ö = Val(Mid(¹öÆÛ, 40, 5)) ÇÒÀÎ±Ý¾× = Val(Mid(¹öÆÛ, 30, 4)) ''''Çհ豸Çϱâ If ¿¹¾à½Ç±¸ºÐÄÚµå = "WA" Or Åõ¼÷±â°£ <= 13 Then Num = Num + 1 ÇÕ°è(Num) = ´©ÀûÁ¡¼ö + ÇÒÀÎ±Ý¾× ¼÷¹Ú¿ä±Ý(Num) = Val(Mid(¹öÆÛ, 19, 6)) ¿¹¾à¹øÈ£(Num) = Val(Mid(¹öÆÛ, 1, 6)) 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 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, ¼÷¹Ú¿ä±Ý(4) Close #2 End Sub
Ȥ½Ã³ª Á¦°¡ À߸ø ÄÚµùÇѰɱî¿ä?^^;;
|