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

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-5 12:46 | 只看該作者

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

我想取得最後一筆資料的 Record Number, 找遍了MSDN 上的有關 BOTTOM 的資訊,但是没找到,現在只好用土法鍊鋼的方法如下所示:

Dim tmp As String
Dim inx As Integer
Dim inf_sr As StreamReader = New StreamReader(inf)
      Do While inf_sr.Peek() >= 0
         inx += 1
         tmp = inf_sr.ReadLine()
      Loop
inf_sr.Close()

我要知道 inx 的值,各位大大有没有人知道更進步的方法?

樓主熱帖

V98

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

2^#

發表於 2011-1-5 14:29 | 只看該作者

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

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

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2011-1-5 14:42 | 只看該作者

那就是這樣子了,暗黑大大在 VB 的索引檔如何操作? 以前我是這樣寫的:

OPEN FILENAME FOR RANDOM AS #8 LEN = 15

CLOSE #8

V98

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

4^#

發表於 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

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

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

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2011-1-5 15:44 | 只看該作者

暗黑大大,這過程會一筆一筆的讀,如果我的檔案有1000筆,然後要隨機讀取1000筆內的任一筆資料,要如何寫?

V98

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

6^#

發表於 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

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

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

7^#

發表於 2011-1-6 09:10 | 只看該作者

暗黑兄:這樣是篩選不是直接讀取,可能的方式是,將檔案放進陣中宜直接索引指定,反正現在的記憶體都很大.

V98

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

8^#

發表於 2011-1-6 13:12 | 只看該作者

那你設定一個 datatable 吧

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

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

9^#

發表於 2011-1-6 16:24 | 只看該作者

本帖最後由 linshin1999 於 2011-1-6 16:44 編輯

可是的原始資料是".txt"檔,目前還不知道如轉換成datatable, 所以就直接放進陣列來處理, 暗黑兄如你知道可教我呼,會很感謝你?

V98

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

10^#

發表於 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

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