2013-03-04 62 views
-2

我有一个8mb文件,其中包含一些记录。 我想从特定的地方读取特定的记录。 我有文件中每个记录的开始和结束字节索引。从文件中读取特定字节数据

我的问题是如何使用文件对话框来选择特定的文件,并使一个函数读取文件并将特定记录存储在文本框中。

我也有关于如何在同一时间在所有textboxes.plz帮助编码读取所有记录的疑问..

我在VB.Net新的程序设计师2008年

+1

参阅http:/ /stackoverflow.com/faq#questions之前,你在这里问任何问题 – 2013-03-04 11:58:03

+1

首先尝试一些事情,后来问这里的问题...... – andy 2013-03-04 11:59:10

+0

但我是初学者在vb.net程序员。如果我选择了文件,但是如何在读取字节的函数中使用该文件名来读取记录 – user2014132 2013-03-04 12:02:25

回答

0

我找到了解决方案我自己..

首先,我需要我的文件值的指数假设产品ID = id09876543位置=印度那么id09876543 指数值是“12〜23” 那么我会在函数调用中传递12和23。

1)使一个名为“read_value”的用户定义函数以整数形式传递2参数,并将函数作为字符串,即它将以字符串格式返回值。 2)在你想要答案的特定地方调用该函数。

这样子。

1)

公共功能read_value(BYVAL STRAT作为整数,BYVAL END1作为整数)作为字符串

Dim fs As FileStream = New FileStream(f_name, FileMode.Open, FileAccess.Read) 

    Dim n As Integer = 0 
    Dim s As String = Nothing 
    Dim i As Integer = 0 
    Dim l As Long = strat 
    fs.Seek(l, SeekOrigin.Begin) 
    'Seek(strat) 
    For i = strat To end1 
     n = fs.ReadByte() 
     s = s + Convert.ToChar(n) 
    Next 
    Return s 
End Function 

2)

暗淡OFD1作为新的OpenFileDialog '点心FILE_NAME作为字符串 尝试 如果ofd1.ShowDialog = Windows.Forms.DialogResult.OK然后 f_name = ofd1.FileName

这段代码
  product_id_txt.Text = read_value(12, 23) 
      location_txt.Text = read_value(34, 50) 
      form.Show() 
     End If 
    Catch ex As Exception 
     MessageBox.Show("File Not Found") 
    End Try 

输出是 标签----->产品编号:id09876543 < ----这是我的文本框的值

做到这一点..