ËÒ¡ÁÕ¤Ó¶ÒÁ ¢ÍãËéä»â¾Êµìŧ àÇ纺ÍÃì´¨Õ·Ù¨Õà¹çµ´Íµ¤ÍÁ µÑÇãËÁèá·¹¹èФÃѺ

ËÃ×͵ԴµèÍà¢éÒÁÒ·Ò§ Inbox ·Õè à¿«ºØê¤ ¼Á¤ÃѺ

˹éÒËÅÑ¡
¢èÒÇÊÒà - º·¤ÇÒÁ ·Ñé§ËÁ´
VB 6/VB.Net
ASP/ASP.Net
¨Ñº©èÒ¤ÍÁ¾ÔÇàµÍÃì
àÃÕ¹ÃÙé¼èÒ¹ Flash Movie
º·¤ÇÒÁ·ÕèÁÕ¼ÙéµÍºÅèÒÊØ´  
 RSS Feeds
 ´ÒǹìâËÅ´â»Ãá¡ÃÁ RSS Reader ä´é·Õè¹Õè ...   Download â»Ãá¡ÃÁ RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 5 6 1 6 1 4 9

7 ¸Ñ¹ÇÒ¤Á ¾.È.2549
104 Users On-Line.
Visitors - Page views
 8 9 7 3 8 9 2
1 ¡ØÁÀҾѹ¸ì ¾.È.2551

Google   
àÇçº g2gnet.com
¢¹Ò´µÑÇÍÑ¡ÉÃ:  

¡ÒÃÍèÒ¹¢éÍÁÙÅẺ Text File à¢éÒÊÙè MS FlexGrid ´éÇ MS Visual Basic 6.0

Category »  VB 6/VB.Net
â´Â : Webmaster àÁ×èÍ 24/3/2551 13:13:00
(ÍèÒ¹ : 22854) 
ÇèÒ´éÇÂàÃ×èͧ¢Í§ Text File «Öè§àÃҨоºÃٻẺ¢Í§¡ÒèѴà¡çº¢éÍÁÙŪ¹Ô´¹Õé à¾×èÍãªéà»ç¹°Ò¹¢éÍÁÙÅ¢¹Ò´àÅç¡æä´éËÅÑ¡æ 3 Ẻ ¤×Í ...
  • Ẻá¡¢éÍÁÙÅáµèÅпÔÅ´ì (ËÃ×Í ªØ´) ´éÇÂà¤Ã×èͧËÁÒ àªè¹ ªèͧÇèÒ§ (Space ËÃ×Í chr(32)) , (Comma) ; (Semi-Colon) ËÃ×Í Tab àªè¹
    1001,xxxxx,1111
    1002,xxxxxxxx,2222222
    1003,xx,33
    ¢éÍÁÙÅáµèÅÐá¶Ç ¡ç¤×Í 1 ÃÒ¡Òà ËÃ×Í 1 Record ¹Ñè¹áËÅФÃѺ «Öè§Íѹ·Õè¨ÃÔ§Áѹ¨Ð¶Ù¡á¡ÍÍ¡¨Ò¡¡Ñ¹·ÕÅкÃ÷Ѵ ´éÇÂ
    Carriage Return - CR ËÃ×Í Chr(13) ã¹°Ò¹ 10 ËÃ×Í Chr(0D) ã¹°Ò¹ 16 áÅÐ
    Line Feed - LF ËÃ×Í Chr(10) ã¹°Ò¹ 10 ËÃ×Í Chr(0A) ã¹°Ò¹ 16
  • Ẻ¡Ó˹´¤ÇÒÁÂÒǢͧ¢éÍÁÙÅ·Õèá¹è¹Í¹µÒµÑÇ àªè¹
    1001|xxxxxxxx|11
    1002|xxxxx___|22
    1003|xx______|33
    ¹Ñ蹤×Í ªØ´ááÁÕ¤ÇÒÁÂÒÇ 4 ËÅÑ¡ ªØ´·Õè 2 ÁÕ¤ÇÒÁÂÒÇ 8 ËÅÑ¡ áÅÐ ªØ´·Õè 3 ÁÕ¤ÇÒÁÂÒÇ 2 ËÅÑ¡
  • Ẻ¼ÊÁ·Ñé§ 2 Ẻáá àªè¹
    1001 28-01-2008 07:15:00
    1001 28-01-2008 18:04:00
    1002 28-01-2008 07:58:00
    1002 28-01-2008 17:16:00
    ¡ç¤×͵ÑÇÍÂèÒ§·Õè¼Á¨Ð¹ÓÁÒàʹÍ㹺·¤ÇÒÁ¹Õé¹Ñè¹àͧ¤ÃѺ¾Õè¹éͧ ... ÊѧࡵÇèÒ¢éÍÁÙŪشáá 1001, 1002 Áѹà»ç¹ÃËÑʾ¹Ñ¡§Ò¹ (¤ÇÒÁÂÒÇ 4 ËÅÑ¡) ¨Ò¡¹Ñé¹Áѹá¡¢éÍÁÙÅÍÍ¡´éǪèͧÇèÒ§ (Space) ¾ÍªØ´·Õè 2 ¡ç¨Ðà»ç¹Çѹ·Õè (10 ËÅÑ¡) áÅЪش·Õè 3 ¨Ðà»ç¹àÇÅÒ (8 ËÅÑ¡) ... «Öè§·Ø¡æËÅÑ¡Áѹ¡çÁÕÃٻẺ¤ÇÒÁÂÒÇ·Õèá¹è¹Í¹µÒµÑÇÍÂÙèáÅéÇ áµè¡Ò÷Õè¤Ñè¹´éǪèͧÇèÒ§àÍÒäÇé·ÓãËéàÃÒäÁèµéͧä»àÊÕÂàÇÅҹѺ¨Ó¹Ç¹¤ÇÒÁÂÒǢͧ¢éÍÁÙÅáµèÅЪش (ËÃ×ÍáµèÅÐ Record) ä§ÅèФÃѺ ... ¾Õè¹éͧ

    µÑÇÍÂèÒ§ Text File ÊÓËÃѺ§Ò¹¹Õé ¼Áàͧ¡çàÍÒÁÒ¨Ò¡à¤Ã×èͧÊ᡹ÅÒ¹ÔéÇÁ×Í (Finger Scan) ÂÕèËéÍ˹Öè§áËÅФÃѺ ... ·Õèãªéã¹§Ò¹ Time Attendance ... «Öè§¢éÍÁÙŨÃÔ§æ·Õèä´é ÁѹäÁèãªèẺ¹Õé¹èФÃѺ ÁѹÁÕ Error à¾Õº¾ÃéÍÁÊÁºÙóìẺàÅ·Õà´ÕÂÇàªÕÂÇáËÅÐ 55555+
    Reference
    Project --> References ... --> Microsoft ActiveX Data Objects 2.8 Library

    Design Time
    ¡ÒÃÍ͡Ẻ - Design Time

    Run Time
    ÊÑè§ãËéâ»Ãá¡ÃÁ·Ó§Ò¹
    ´ÒǹìâËÅ´ Source Code ÊÓËÃѺ MS Visual Basic 6.0 - Service Pack 6
     ´ÒǹìâËÅ´ Visual Basic 6.0 SP5: Run-Time Redistribution Pack
     ´ÒǹìâËÅ´ Microsoft Data Access Object (MDAC) áÅÐ Jet 4.0 Update
    
    Private Sub cmdReadText_Click()
    Dim CountRec As Long
    Dim StrData As String
    Dim iRow, i As Long
    Dim iArr As Variant
    Dim StrTemp As String
        
    Dim Conn As ADODB.Connection
    ' ÁÒÍÕ¡áÅéǤÃѺ·èÒ¹ ... RS Promotion ... àÍÔê¡ææææ
    Dim RS As ADODB.Recordset
    
    Set Conn = New ADODB.Connection
    Set RS = New ADODB.Recordset
        
        ' ÃٻẺ¡ÒÃàª×èÍÁµèÍáËÅè§¢éÍÁÙÅ (Data Source) ¢Í§ Text File
        '
        Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & App.Path & ";" & _
               "Extended Properties=""text;HDR=NO;FMT=Delimited;"";"
        
        ' Áͧà¢éÒÁÒàËÁ×͹¡ÒÃÍèÒ¹µÒÃÒ§¢éÍÁÙÅ (Table ËÃ×Í Query) àŤÃѺ ... ¾Õè¹éͧ
        RS.Open "SELECT * FROM [Jan-2008#txt]", Conn, adOpenStatic, _
                            adLockReadOnly, adCmdText
        CountRec = RS.RecordCount
        ' ãªé§Ò¹Áѹà»ç¹·ÕèàÃÕºÃéÍÂáÅéÇ ¡ç»Ô´¡ÒÃàª×èÍÁµèÍÁѹ«èÐ
        Set RS = Nothing:    Set Conn = Nothing
        
        ' µÑ駤èÒãËé¡Ñº MS Flex Grid
        With fgData
            .Clear
            ' ¨Ó¹Ç¹ 4 ËÅÑ¡
            .Cols = 4
            ' ¡Ó˹´¨Ó¹Ç¹á¶Ç (Rows) µÒÁ¨Ó¹Ç¹ÃÒ¡ÒâéÍÁÙÅ·ÕèÁÕÍÂÙè·Ñé§ËÁ´
            ' ãËéà¾ÔèÁ¨Ó¹Ç¹á¶Ç¢Öé¹ÍÕ¡ 1 à¹×èͧ¨Ò¡ÁÕ Column Header ÍÂÙèÍÕ¡ 1 á¶ÇáÅéÇ
            .Rows = CountRec + 1
            
            .ColWidth(0) = 1200
            
            ' ¡Ó˹´¤èÒãËé¡Ñºá¶Çáá ËÃ×Í Column Header
            .TextMatrix(0, 0) = "ÅӴѺ·Õè"
            .TextMatrix(0, 1) = "ÃËÑʾ¹Ñ¡§Ò¹"
            .TextMatrix(0, 2) = "Çѹ·Õèà¢éÒ/ÍÍ¡"
            .TextMatrix(0, 3) = "àÇÅÒà¢éÒ/ÍÍ¡"
        End With
        
        ' à»Ô´¢éÍÁÙÅ Text File
        Open App.Path & "\Jan-2008.txt" For Input As #1
        
        iRow = 1    ' ãËéàÃÔèÁµé¹áÊ´§¼Å¢éÍÁÙŨҡá¶Ç·Õè 1 (á¶Çáá¹èФ×Í á¶Ç 0 ¹èФÃѺ ... ¾Õè¹éͧ)
        Do While iRow <= CountRec
            ' ÍèÒ¹¢éÍÁÙÅà¢éÒÁÒ·ÕÅкÃ÷Ѵ
            Line Input #1, StrData
    
            ' ãªé Trim à¾×è͵ѴªèͧÇèÒ§ (Space) ·Ñé§´éҹ˹éÒ áÅÐ ËÅѧ¢Í§ªØ´µÑÇÍÑ¡ÉÃÍÍ¡
            StrTemp = Trim(StrData)
            ' ᡪشµÑÇÍÑ¡ÉÃÍÍ¡¨Ò¡¡Ñ¹´éǤÓÊÑè§ Split
            ' â´Âãªéà¤Ã×èͧËÁÒªèͧÇèÒ§ (Space) 㹡ÒèѺᡪشµÑÇÍÑ¡ÉÃ
            iArr = Split(StrTemp, " ")
            
            fgData.TextMatrix(iRow, 0) = iRow
            fgData.TextMatrix(iRow, 1) = iArr(0)
            fgData.TextMatrix(iRow, 2) = iArr(1)
            fgData.TextMatrix(iRow, 3) = iArr(2)
            iRow = iRow + 1
        Loop
        
        ' »Ô´ Text File
        Close #1
    End Sub
    

  • ¨Õ ·Ù ¨Õ à¹çµ ´Íµ ¤ÍÁ - g2gNet Dot Com
    àÅ¢·ÐàºÕ¹¾Ò³ÔªÂìÍÔàÅç¡·Ã͹ԡÊì 0407314800231
    CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
    Email: [email protected] ËÃ×Í â·Ã. 08-6862-6560