vb直接读写文件服务器文件,vb使用open方法读写文件

vb使用open方法读写文件

vb使用open方法读写文件

(一)打开和关闭文件

1、顺序文件

打开顺序文件，我们可以使用Open语句。它的格式如下：

Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]

说明：

(1)参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录

(2)Input Output

和Append用于设置顺序文件的打开方式。其中，Input表示从打开的文件中读取数据。以这种方式打开文件时，文件必须存在，否则会产生错误。

Output表示向打开的文件中写入数据。以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开始写入。如果文件不存在，则创建一个新文

件。Append表示向打开的文件中添加数据。以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件为开始添加。如果文件不存在，则创建一个新

文件。

(3)As[#]filenumber 子句用于为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数,既可以是数字,又可以是变量.也可以省略不用.

(4)当在文件与程序之间拷贝数据时,Len=buffersize子句指定缓冲区的字符数.

例如:

Open App.Path + "\test.dat" For Output As 1

Open App.Path + "\test.dat" For Output As 1

这两句代码在当前应用程序所在目录下创建了一个名为test.dat的文本文件,分配文件号为1.

Open App.Path + "\test.dat" For Input As [#]filenumber

这条语句是从文本文件中读取数据.

Open App.Path + "\test.dat" For Append As [#]filenumber

这条语句则是像文本文件中添加数据

2、随机文件

操作随机文件之前,首先必须定义用于保存数据项的记录类型.该记录是用户自定义数据类型,他们是随机文件中存储数据的基本结构.例如:

Type Student

No As Integer

Name As String * 20

age As Integer

End Type

Dim Stud As Student ‘定义一个可以存放学生材料的变量

随机文件中,所有的数据都将保存到若干个结构为Student类型的记录中, 而从随机文件中读出的数据则可以存放到变量Stud中.

之后我们就可以打开并读写文件了.下面是打开随机文件的语法格式:

Open filename For Random as [#]filenumber Len = Reclengt

相关文档：

'创建快捷方式，兼容vista

'要把vb6stkit.DLL放到程序目录

'敖士伟 09-10-27

'只对“桌面”和“开启”有效，其它还没做

'=========开启外部同步程序定义开始

Const SYNCHRONIZE = &H100000

Const INFINITE = &HFFFF 'Wait forever

Const WAIT_OBJECT_0 = 0 'The state of the spe ......

把鼠标移到屏幕指定位置 如(111.111) 单击一下

再移到屏幕另一指定位置指定位置 如(222.222)单击一下

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Declare Function SetCursorPo ......

在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。

&n ......

ASP.Net中使用VB.Net调用存储过程并得到返回值

来源：qqread论坛 作者： 出处：巧巧读书 2006-08-03 进入讨论组

//存储过程代码

CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum 　varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS

Insert Into SMB_In ......

Put 语句

将一个变量的数据写入磁盘文件中。

Put [#]filenumber, [recnumber], varname

Get 语句

将一个已打开的磁盘文件读入一个变量之中。

Get [#]filenumber, [recnumber], varname

例如：

dim B as byte

open "File1.txt" for binary as #1

get #1, 1, B

close #1

即可将File1.txt文件� ......