»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > Á¤º¸Ã³¸®±â»ç ½Ç±â
Á¦ ¸ñ Àμö°ª2 ¾î¶»°Ô ³Ö¾î¿ä?
±Û¾´ÀÌ  ±è¿¬³²ÀÛ¼ºÀÏ 2005-04-26Á¶È¸¼ö 328
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

¾Æ·¡ Áú¹® ´ÙÀ½°ú °°ÀÌ ¿Ã·È´Âµ¥



''''5''''·±Å¸ÀÓ ¿À·ù°¡ ¹ß»ýÇÏ¿´½À´Ï´Ù.



ÇÁ·Î½ÃÀú È£Ãâ ¶Ç´Â Àμö°¡ À߸øµÇ¾ú½À´Ï´Ù.



 ¾î¶²ºÐÀÌ Àμö°ªÀ» ³ÖÀ¸¶ó°í ÇϽôõ¶ó±¸¿ä.



¾Æ·¡ ÄÚµùÀÌ µû¶óÇѰǵ¥ ¾îµð¿¡ ³Ö¾î¿ä??



¾Æ..Á¤¸» ÇÏ·çÁ¾ÀÏ Á¦ÀÚ¸® ¹ÌÄ¡°Ú¾î¿ä. Á» µµ¿ÍÁÖ¼¼¿ä¤Ð.¤Ì



¾Æ·¡ Áú¹®¿¡ º¸´Ï ¸îºÐÀÌ Àμö°ª2 µð¹ö±× »ý±ä´Ù°í Áú¹®¿Ã¸®¼Ì´øµ¥



´Ù ´äº¯ÀÌ ¾ø³×¿ä.Àúµµ °°Àº ¹®Á¦Àΰ۰Àºµ¥ ½Ç¼öÁ» Àâ¾ÆÁÖ¼¼¿ä.



 



 



 



Option Explicit



Sub main()



''''Çʼö º¯¼ö ¼±¾ð
Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant



''''ÇÙ½É º¯¼ö ¼±¾ð
Dim ´Ü°¡, ÀÌÀÍÆ÷ÀÎÆ®, °Å·¡Æ÷ÀÎÆ®, ÃÖ´ë°ª As Variant




''''Àμöó¸®
Àμö1 = Val(Left(Command, InStr(Command, " ")))
Àμö2 = Val(Mid(Command, InStr(Command, " ")))



''''ÀÔ·Â ÆÄÀÏ Ã³¸®
Open "c:\c_it\data\abc0001.txt" For Input As #1
   
   For i = 1 To Àμö2
        Line Input #1, ¹öÆÛ
        If i >= Àμö1 Then
        
       
           ''''º¯¼öÀúÀå
            ´Ü°¡ = Val(Mid(¹öÆÛ, 12, 3))
            ÀÌÀÍÆ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 20, 3))
            °Å·¡Æ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 27, 3))
       
            ''''ÃÖ´ë°ª±¸Çϱâ
            If ´Ü°¡ >= 50 Then
           
                If ÃÖ´ë°ª < ÀÌÀÍÆ÷ÀÎÆ® + °Å·¡Æ÷ÀÎÆ® Then
                   ÃÖ´ë°ª = ÀÌÀÍÆ÷ÀÎÆ® + °Å·¡Æ÷ÀÎÆ®
                  
                End If
               
            End If
       
        End If
       
    Next i
   
  
       
       
Close #1



''''Ãâ·ÂÆÄÀÏó¸®
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, Àμö1, Àμö2, ÃÖ´ë°ª
Close #2



End Sub

´ñ±Û¾²±â :
ÀÌÀü±Û Àμö°ª2 ¾î¶»°Ô ³Ö¾î¿ä?
´ÙÀ½±Û ¹®Á¦°¡ ¾È Ç®·Á¿©..¤Ð.¤Ð
°í°´Áö¿ø¼¾ÅÍ

02-556-3650

ÆòÀÏ 9:00~18:00

ÀÏ¿äÀÏ °øÈÞÀÏ ÈÞ¹«

°èÁ¹øÈ£¾È³»

³óÇùÀºÇà 724-01-173541

±¹¹ÎÀºÇà 633601-04-044665

¿¹±ÝÁÖ (ÁÖ)Á¶ÀºÄ·ÇÁ

»óÈ£¸í : (ÁÖ)Á¶ÀºÄ·ÇÁ ¤Ó ´ëÇ¥ÀÌ»ç : ÀÌÀ¯¶ô ¤Ó ´ë±¸±¤¿ª½Ã ºÏ±¸ ´ëÇзÎ80 °æºÏ´ëÇб³ ITÀ¶ÇÕ»ê¾÷ºôµù 11Ãþ
»ç¾÷ÀÚ¹øÈ£ : 504-81-62507 ¤Ó º»»ç : 053-954-0030 ¤Ó ±â¼úÁö¿ø : 070-7019-1144 ¤Ó ÆÑ½º : 050-7711-2200 ¤Ó 
¿ø°ÝÆò»ý±³À°½Ã¼³13È£ ¤Ó ÃâÆÇ»ç : 345-2005-00013 ¤Ó Åë½ÅÆÇ¸Å¾÷ : 2005-´ë±¸ºÏ±¸-00158 ¤Ó Á¤º¸º¸È£Ã¥ÀÓÀÚ : ±è⿬  
±â»çÄ£±¸´Â SSLº¸¾È¹æ½ÄÀÇ ¾Ïȣȭ±¸°£À» Àû¿ëÇÏ¿© »çÀÌÆ®¸¦ ¾ÈÀüÇÏ°Ô ÀÌ¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.
COPYRIGHT 2005 (ÁÖ)Á¶ÀºÄ·ÇÁ ALL RIGHTS RESERVED.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â