VB中seek函数和loc函数的问题！！！！！！

SeeK可以查询一个记录，也可以定位一个字节，这根据自己打开文件读取的方式而定。LOC总是读取字节首先看看seek的用法：本示例使用

Seek

函数返回当前文件位置。本示例假定

TestFile

是包含

Record

结构记录的文件。Visual

Basic

复制代码

Structure

Record

'

Define

user-defined

type.

Dim

ID

As

Integer

Dim

Name

As

String

End

Structure

对于以

Random

模式打开的文件，Seek

返回下一个记录号。Visual

Basic

复制代码

FileOpen(1,

"TESTFILE",

OpenMode.Random)

Do

While

Not

EOF(1)

WriteLine(1,Seek(1))

'

Write

record

number.

FileGet(1,

MyRecord,

-1)

'

Read

next

record.

Loop

FileClose(1)

对于以

Random

模式以外的模式打开的文件，Seek

返回发生下一个操作的字节位置。假定

TestFile

是包含几行文本的文件。Visual

Basic

复制代码

'

Report

character

position

at

beginning

of

each

line.

Dim

TextLine

As

String

FileOpen(1,

"TESTFILE",

OpenMode.Input)

'

Open

file

for

reading.

While

Not

EOF(1)

'

Read

next

line.

TextLine

=

LineInput(1)

'

Position

of

next

line.

MsgBox(Seek(1))

End

While

FileClose(1)

本示例使用

Seek

函数在文件内设置下一个读取或写入位置。本示例假定

People.txt

是包含

Record

结构记录的文件。Visual

Basic

复制代码

Structure

TestRecord

Dim

Name

As

String

Dim

ID

As

Integer

End

Structure

对于以

Random

模式以外的模式打开的文件，Seek

设置发生下一个操作的字节位置。假定

TestFile

是包含几行文本的文件。Visual

Basic

复制代码

Dim

someText

As

String

=

"This

is

a

test

string."

'

Open

file

for

output.

FileOpen(1,

"TESTFILE",

OpenMode.Input)

'

Move

to

the

third

character.

Seek(1,

3)

Input(1,

someText)

Console.WriteLine(someText)

FileClose(1)再来看LOC的用法：本示例使用

Loc

函数返回打开文件中的当前读/写位置。本示例假设

MyFile

是包含几行示例数据的文本文件。Visual

Basic

复制代码

Dim

location

As

Long

Dim

oneChar

As

Char

FileOpen(1,

"C:\TESTFILE.TXT",

OpenMode.Binary)

While

location

鹏仔微信 15129739599 鹏仔QQ344225443 鹏仔前端 pjxi.com 共享博客 sharedbk.com