从文件中读取指定的字节数，怎么做？

[BlackEagle_]

比如在C语言中
从文件fp中读取4个字节，存放在num中：
---------------------------------
FILE *fp;
int num;
fread(&num,sizeof(int),1,fp);
---------------------------------

在VB中如何实现？

[小嘉茗的爸爸]

open "路径" for input as #1
do while not eof(1)
on error resume next
input data = input(4,#1)
试试

[小嘉茗的爸爸]

使用随机文件访问


File System Object 模式不提供随机文件创建或访问方法。如果需要创建或读取随机文件，此信息将能帮助您。

随机型访问文件中的字节构成相同的一些记录，每个记录包含一个或多个字段。具有一个字段的记录对应于任一标准类型，比如整数或者定长字符串。具有多个字段的记录对应于用户定义类型。例如，下边所定义的 Worker Type 创建由三个字段组成的 19 个字节的记录。

Type Worker
LastNameAs String * 10
TitleAs String * 7
RankAs String * 2
End Type

声明变量
在应用程序打开以随机型访问的文件以前，应先声明所有用来处理该文件数据所需的变量。这包括用户定义类型的变量，它对应该文件中的记录，和标准类型的其它变量，这些变量保存为随机型访问而打开的文件与处理相关的数据

定义记录类型
在打开一个文件进行随机访问之前，应定义一个类型，该类型对应于该文件包含或将包含的记录。例如，一个雇员记录文件可定义一个称为 Person 的用户定义的数据类型，如下所述：

Type Person
ID As Integer
MonthlySalary As Currency
LastReviewDate As Long
FirstName As String * 15
LastName As String * 15
Title As String * 15
ReviewComments As String * 150
End Type

在类型定义中声明字段变量
因为随机访问文件中的所有记录都必须有相同的长度，所以固定的长度对用户定义类型中的各字符串元素通常很有用，就象以上的 Person 类型说明中所示的一样，在此作为例子，FirstName 与 LastName 都具有 15 个字符的固定长度。

如果实际字符串包含的字符数比它写入的字符串元素的固定长度少，则 Visual Basic 会用空白（字符代码 32）来填充记录中后面的空间。还有，如果字符串比字段的尺寸长，则它就会被截断。如果使用 长度可变的字符串，则任何用 Put 存储的或用 Get 检索的记录总长度都不能超过在 Open 语句的 Len 分句中所指定的记录长度。

声明其它变量
在定义与典型记录对应的类型以后，应接着声明程序需要的任何其它变量，用来处理作为随机访问而打开的文件。例如：

'记录变量。
Public Employee As Person
'跟踪当前记录。
Public Position As Long
'文件中最后那条记录的编号。
Public LastRecord As Long

打开随机访问的文件
要打开随机访问的文件，Open 语句使用以下语法：

Open pathname [For Random] As filenumber Len = reclength

因为 Random 是缺省的访问类型，所以 For Random 关键字是可选项。

表达式 Len = reclength 指定了每个记录的尺寸in bytes. Note that every string variable in Visual Basic stores a Unicode string and that you must specify the byte length of that Unicode string。如果 reclength 比写文件记录的实际长度短，则会产生一个错误。如果 reclength 比记录的实际长度长，则记录可写入，只是会浪费些磁盘空间。

可用以下代码打开文件：

Dim FileNum As Integer, RecLength As Long, Employee As Person

'计算每条记录的长度。
RecLength = LenB(Employee)
'取出下一个可用文件编号。
FileNum = FreeFile
'用 Open 语句打开新文件。
Open "MYFILE.FIL" For Random As FileNum Len = RecLength

编辑随机型访问打开的文件
如要编辑随机型访问的文件，请先把记录从文件读到程序变量，然后改变各变量的值，最后，把变量写回该文件。后面各节讨论如何编辑随机型访问打开的文件。

把记录读入变量
使用 Get 语句把记录复制到变量。例如，要把一个记录从雇员记录文件拷贝到 Employee 变量，可使用以下代码：

Get FileNum, Position, Employee

在这行代码中，FileNum 包含用于打开文件的 Open 语句的编号；Position 包含要拷贝的记录数；而 Employee 声明为用户定义类型 Person，它用来接收记录的内容。

把变量写入记录
使用 Put 语句把记录添加或者替换到随机型访问打开的文件。

替换记录
要替换记录，请使用 Put 语句，指定想要替换的记录位置，例如：

Put #FileNum, Position, Employee

这个代码将用 Employee 变量中的数据来替换由 Position 所指定的编号的记录。

添加记录
要向随机访问打开的文件的尾端添加新记录，应使用前述代码段中所示的 Put 语句。把 Position 变量的值设置为比文件中的记录数多 1。例如，要在一个包含五个记录的文件中添加一个记录，把 Position 设置为 6。

下述语句把一个记录添加到文件的末尾：

LastRecord = LastRecord + 1
Put #FileNum, LastRecord, Employee

删除记录
通过清除其字段可以删除一个记录，但是该记录仍在文件中存在。通常文件中不能有空记录，因为它们会浪费空间且会干扰顺序操作。最好把余下的记录拷贝到一个新文件，然后删除老文件。

要清除随机访问文件中删除的记录，请按照以下步骤执行：

创建一个新文件。


把有用的所有记录从原文件复制到新文件。


关闭原文件并用 Kill 语句删除它。


使用 Name 语句把新文件以原文件的名字重新命名。
详细信息 有关随机文件访问的其它信息，请参阅“Open 语句”。

[zhangzhijian]

up ing

[DooDu]

dim mystring as string*4
Open "文件路径" For Input As #1 ' 打开输入文件。
Input #1, MyString ' 将数据读入变量。
Debug.Print MyString' 在立即窗口中显示数据。
Close #1 ' 关闭文件。

[51365133]

******************
字符
Dim sStr As String
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If Len(CommonDialog1.FileName) <> 0 Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, sStr
Text1.Text = Text1.Text + sStr + vbCrLf
Loop
Close #1
End If
End Sub
**********************
2进制
*************
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Filenr = FreeFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
****************
FSO对象
******************
'vb6这样逐行读取文本
Dim sLine As String
Dim file As FILECTL.file
Set file = CreateObject("FILECTL.file")

On Error Resume Next

' 打开应用程序设置
file.Open "\appdata.txt", fsModeInput

' 检查是否发生错误
If Err.Number <> 0 Then
MsgBox "File could not be opened!", vbCritical, "Error"
Exit Sub
End If

' 在文件中循环
Do While Not file.EOF
' 逐行读取
sLine = file.LineInputString
' 检查是否发生错误
If Err.Number <> 0 Then
MsgBox "数据读取错误!", vbCritical, "Error"
Exit Sub
End If
Loop
file.Close
file=nothing

用2进制可以读出你指定的长度，我写的是没有指定读所有的，可以根据你的需要读一部分