作者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