·t¶Â

§Ú¤]¬O³o¼Ë¤lª±ªº¡A¦]¬°¥¦¬O¦r¦êªºÆ[©À¡A¤£¬O°}¦CªºÆ[©À¡A©Ò¥H¥¦ÅªÀɬO´`§Çªº...

·t¶Â

Dim TextStr As New System.IO.StreamReader(FileTxt, System.Text.Encoding.Default)
Dim Ia As Long = 0
   Do While TextStr.Peek > -1
     Dim Data As String = TextStr.ReadLine
     Ia +=1
     SELECT CASE IA
        CASE  1
           Dim ¤é´Á As String = Mid(Data, 1, 8)
           Dim ®É¶¡ As String = Mid(Data, 9, 6)
        CASE ELSE
            Dim ¤é´Á As String = Mid(Data, 1, 8)
            Dim ®É¶¡ As String = Mid(Data, 9, 6)
     END SELECT
   Loop

§Úªº¥Îªk ...  §A°Ñ¦Ò¬Ý¬Ý..

·t¶Â

¥ô¤@µ§³á..
dim  XoX as long = 99    '¥ô¤@µ§

SELECT CASE IA
        CASE  XoX
           Dim ¤é´Á As String = Mid(Data, 1, 8)
           Dim ®É¶¡ As String = Mid(Data, 9, 6)
        CASE ELSE
            Dim ¤é´Á As String = Mid(Data, 1, 8)
            Dim ®É¶¡ As String = Mid(Data, 9, 6)
     END SELECT

·t¶Â

¨º§A³]©w¤@­Ó datatable §a

·t¶Â

datatable  ¬O¸ê®Æªí...  »¡¬ï¤F  ¤]¬O¤@­Ó°}¦C
dtattable  ªº¦n³B¬O  ¦³«Ü¦hªº«ü¥O...  ¯ÊÂI..¦û°O»õÊ^¸û¤j  , ¥B  txt  ¸ê®Æ¨Ã«D¬O ¼Ð·Ç¸ê®Æ®w®æ¦¡¡A»ÝÂà¸ê®Æ

txt ÀÉ®×Âন datatable ¤è¦¡¦p¤U
¥H¤U¬O¤Í¯¸´£¨Ñªº¸ê®Æ¤ù¬q

1. Dim ansFile As FileInfo
   
2.             For Each ansFile In New DirectoryInfo(answerPath).GetFiles("*.txt")
   
3.                 Dim dr As DataRow = dtAnswer.NewRow
   
4.                 dr("no") = ansFile.Name
   
5.                 dr("ans") = ReadCount(ansFile.FullName)
   
6.                 dtAnswer.Rows.Add(dr)
   
7.             Next
   
8.              
   
9.             '¾Ç¥Í¦¨ÁZ
   
10.             Dim dt As DataTable = New DataTable
    
11.             dt.Columns.Add(New DataColumn("no", Type.GetType("System.String")))   '¾Ç¸¹         
    
12.             dt.Columns.Add(New DataColumn("right", Type.GetType("System.Int32"))) 'µª¹ï
    
13.             dt.Columns.Add(New DataColumn("wrong", Type.GetType("System.Int32"))) 'µª¿ù
    
14.             dt.Columns.Add(New DataColumn("score", Type.GetType("System.Int32"))) '±o¤À

½Æ»s¥N½X

http://www.blueshop.com.tw/board/FUM20050124191756KKC/BRD200612150034214VL.html