¸¶Áö¸·°ÀÇ (2004³â11¿ù6ÀÏ ¿ÀÈĹ®Á¦) Ç®ÀÌ¿¡¼
º¯¼ö ÀúÀåÇÒ¶§ ''''''''°í°´¹øÈ£''''''''´Â º¯¼öÀúÀåÀ» ÇÏÁö ¾Ê´õ¶ó±¸¿©...
±×·¡¼ ÀúµÎ ±×·¸°Ô ÇØ¼ ¹®Á¦¸¦ Ç®¾îº¸´Ï±î °á°ú°¡ ¸Â°Ô ³ª¿À±¸¿©..
''''''''°í°´¹øÈ£''''''''¸¦ º¯¼öÀúÀå ÇÏ°í ¹®Á¦¸¦ Ç®¾îµµ °á°ú°¡ ¸Â°Ô³ª¿À±¸¿©..
±Ùµ¥ ºÐ¸íÈ÷ Çٽɺ¯¼ö¼±¾ð¿¡¼´Â ''''''''°í°´¹øÈ£''''''''¸¦ ¼±¾ðÇߴµ¥
º¯¼öÀúÀå¿¡¼´Â °í°´¹øÈ£¸¦ ÀúÀåÇØµµ Á¤È®ÇÑ´äÀ̳ª¿À°í ÀúÀåÇÏÁö ¾Ê¾Æµµ
Á¤È®ÇÑ ´äÀÌ ³ª¿À´ÂÁö ±Ã±ÝÇϱº¿ä.. ¾î°Å¶§¸Þ ÇÑÂü Çì¸Ì½À´Ï´Ù..^^
±×¸®°í µµÂøÁöÄڵ嵵 ¼±¾ðÀ» Çߴµ¥ ¿Ö º¯¼öÀúÀåÀ» ÇÏÁö ¾Ê°í
ÃÖ´ëÃÖ¼Ò±¸ÇÏ´Â ÀÚ¸®¿¡¼ ¼±¾ðÀ» ÇÏ´ÂÁö ±Ã±ÝÇÕ´Ï´Ù. ¾Ö¸ÅÇÕ´Ï´Ù
''''ÇÙ½É º¯¼ö ¼±¾ð Dim Ãâ¹ßÁöÄÚµå, ½Â°´¸¸Á·µµ, ¿ùÀÌ¿ëȽ¼ö, ¿©Çà°Å¸®, ÃÖ´ë°ª, µµÂøÁöÄÚµå, ÃÖ¼Ò°í°´¹øÈ£, °í°´¹øÈ£ As Variant ''''Àμö ó¸® Àμö1 = Val(Left(Command, InStr(Command, " "))) Àμö2 = Val(Mid(Command, InStr(Command, " "))) ''''ÀÔ·Â ÆÄÀÏ Ã³¸® Open "c:\c_it\data\Abc.txt" For Input As #1 ÃÖ´ë°ª = 0 ÃÖ¼Ò°í°´¹øÈ£ = 999999 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)) °í°´¹øÈ£ = Val(Mid(¹öÆÛ, 1, 5)) ''''µµÂøÁöÄڵ屸Çϱâ If Ãâ¹ßÁöÄÚµå = "SU" And ½Â°´¸¸Á·µµ <= 23 Then
.
.
.
|