1. ¿¹¸¦ µé¾î º¯¼öÀúÀå¿¡¼ ´Ü°¡=val(mid(¹öÆÛ,13,3))¿¡¼ ¹öÆÛ¿¡¼ ´Ü°¡¸¦ ºÒ·¯¿Í¾ß ÇÏ´Ï±î ¹öÆÛ¸¦ ¾´´Ù°í Çϼ̴µ¥, ±× ¸»¶æÀÌ Àß ÀÌÇØ°¡ ¾È°©´Ï´Ù
2.Á¦34° ȸ¿øº°¿¹¾à°ü¸®(°í±Þ) ¹®Á¦ 1¿¡¼ ¹è¿º¯¼ö ¿¹¾à¹øÈ£(num)=trim(mid(¹öÆÛ,1,7))
À̶ó°í ¾²´Âµ¥ À̰ÍÀ» º¯¼öÀúÀå¿¡ ¾²¸é ¾ÈµÇ³ª¿ä ?
¶Ç´Ù¸¥ ¹è¿º¯¼ö ÇÕ°è(num)°ú´Â ¾î¶² °ü°è°¡ Àִ°ÇÁö...
3. °Å·¡Ã³(ÃʱÞ)¹®Á¦ ǥó¸® 4¹ø¹®Á¦¸¦ Ç®¾îº¸´Ï±î ¾Æ¹«·± ¿¡·¯¾øÀÌ Àμö°ª¿¡ ´ëÇÑ ´äÀÌ ³ª¿À±äÇߴµ¥, ´äÀÌ Æ²¸³´Ï´Ù
¹«¾ùÀÌ À߸øµÈ °ÇÁö ¸ð¸£°Ú½À´Ï´Ù
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)) °Å·¡Ã³µî±Þ = Trim(Mid(¹öÆÛ, 23, 1)) ¿î¼ÛÄÚµå = Trim(Mid(¹öÆÛ, 19, 1)) ''''''''''''''''''''''''''''''''ǥó¸® Select Case ¿î¼ÛÄÚµå Case "A" ÇÒÀÎÆ÷ÀÎÆ® = 5 Case "B" ÇÒÀÎÆ÷ÀÎÆ® = 15 Case "C" ÇÒÀÎÆ÷ÀÎÆ® = 20 End Select ''''''''''''''''''''''''''''''''ÇÕ°è ±¸Çϱâ If °Å·¡Ã³µî±Þ = "B" Then ÇÕ°è = ÇÕ°è + ´Ü°¡ + ÇÒÀÎÆ÷ÀÎÆ® End If End If Next i Close #1 ''''''''''''''''''''''''''''''''Ãâ·ÂÆÄÀÏó¸® Open "c:\c_it\data\ans4.txt" For Output As #2 Print #2, Àμö1, Àμö2, ÇÕ°è Close #2 End Sub
|