如何可以抓到檔案的最後一筆資料?

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

1^# 跳轉到 »

發表於 2011-1-5 14:29 | 顯示全部帖子

我也是這樣子玩的，因為它是字串的觀念，不是陣列的觀念，所以它讀檔是循序的...

是學程式而不是要程式，是進步的基礎

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

2^#

發表於 2011-1-5 15:20 | 顯示全部帖子

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

我的用法 ...  你參考看看..

是學程式而不是要程式，是進步的基礎

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

3^#

發表於 2011-1-5 16:29 | 顯示全部帖子

任一筆喔..
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

是學程式而不是要程式，是進步的基礎

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

4^#

發表於 2011-1-6 13:12 | 顯示全部帖子

那你設定一個 datatable 吧

是學程式而不是要程式，是進步的基礎

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

5^#

發表於 2011-1-6 17:08 | 顯示全部帖子

本帖最後由暗黑於 2011-1-6 17:10 編輯

datatable 是資料表... 說穿了也是一個陣列
dtattable 的好處是有很多的指令... 缺點..佔記億体較大 , 且 txt 資料並非是標準資料庫格式，需轉資料

txt 檔案轉成 datatable 方式如下
以下是友站提供的資料片段

Dim ansFile As FileInfo
For Each ansFile In New DirectoryInfo(answerPath).GetFiles("*.txt")
Dim dr As DataRow = dtAnswer.NewRow
dr("no") = ansFile.Name
dr("ans") = ReadCount(ansFile.FullName)
dtAnswer.Rows.Add(dr)
Next
'學生成績
Dim dt As DataTable = New DataTable
dt.Columns.Add(New DataColumn("no", Type.GetType("System.String"))) '學號
dt.Columns.Add(New DataColumn("right", Type.GetType("System.Int32"))) '答對
dt.Columns.Add(New DataColumn("wrong", Type.GetType("System.Int32"))) '答錯
dt.Columns.Add(New DataColumn("score", Type.GetType("System.Int32"))) '得分

複製代碼

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

是學程式而不是要程式，是進步的基礎