作者sgygs ()
看板Visual_Basic
標題[.NET] 請問一個讀檔的問題
時間Sun May 23 03:05:29 2010
請輸入專案類型(網站專案或者應用程式專案)： VB2008 express
小弟想寫一個程式可以讀文字檔內的數據，並放入2維陣列中以進行相關運算
文字檔的格式如下，共二個行N個欄位，二行數據間隔5個空格。
34.253 56.588
22.685 63.475
. .
. .
. .
一開始小弟先簡單試做一文字檔(test.dat)，裡面只放1個數字。
按下表單的button後進行檔案選擇並將檔案內的值
用隨機讀檔(OpenMode.random)的方式讀到變數rec.V1中，
最後再把rec.V1的值秀在表單的textbox內。
依照書上的範例修改如下，但顯現在textbox內的值一直不正確。
請各位能否幫小弟看一下，究竟是那邊有問題呢?非常謝謝!!
Public Class Form1
Structure record
Public V1 As Single
End Structure
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'開檔
Dim rec As record
OpenFile.FileName = ""
OpenFile.Filter = "資料檔 (*.dat)|*.dat"
OpenFile.ShowDialog()
'讀檔
FileOpen(1, cdlOpenFile.FileName, OpenMode.Random, OpenAccess.Read,,4)
FileGet(1, rec)
'將讀到的檔案秀在textbox中
TextBox1.Text = rec.V1
Exit Sub
End Sub
End Class
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.34.41.70
1F：→ MOONRAKER:是怎樣不正常。 05/23 04:36
2F：→ MOONRAKER:另外random access使用甚為複雜 不是表面這麼簡單 05/23 04:37
3F：→ MOONRAKER:讀取如你說明的文字檔 用streamreader卡實在 05/23 04:38
4F：→ MOONRAKER:random access是依照變數的內部格式存入檔案中 05/23 04:43
5F：→ MOONRAKER:阿拉伯數字要用random access讀取是繞遠路 05/23 04:45
6F：推 horngsh:FileOpen是不是VB6用法? 05/23 13:34
7F：→ MOONRAKER:沒印象，VB6老屁股的開檔:open <檔案> for <模式> as #k 05/23 15:50
8F：→ MOONRAKER:k是阿拉伯數字，接下來操作檔案全要指明 #k 05/23 15:51
9F：→ MOONRAKER:這個至少有25年歷史。 05/23 15:52
10F：→ jwjeng:這個從DOS時代的BASIC就這樣用了 05/23 21:30
11F：→ MOONRAKER:所以才有25年。 05/23 23:31
12F：→ williewillie:什麼叫2行 n個欄位...應該是欄是直的 列是橫的 05/25 17:11
13F：→ williewillie:2欄n列才對吧 05/25 17:14