VB参考

Open 语句:

能够对文件输入/输出 (I/O)。

Open pathname For mode [Access access] [lockAs [#]filenumber [Len=reclength]

pathname:指定文件名,该文件名可能还包括目录、文件夹及驱动器。

mode:指定文件方式,有 AppendBinaryInputOutput、或 Random 方式。如果未指定方式,则以 Random 访问方式打开文件。

access:说明打开的文件可以进行的操作,有 ReadWrite、或 Read Write 操作。

lock:说明限定于其它进程打开的文件的操作,有 SharedLock ReadLock Write、和 Lock Read Write 操作。

filenumber:一个有效的文件号,范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。

reclength:小于或等于 32,767(字节)的一个数。对于用随机访问方式打开的文件,该值就是记录长度。对于顺序文件,该值就是缓冲字符数。

  • 对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用,并决定缓冲区所使用的访问方式。
  • 如果 pathname 指定的文件不存在,那么,在用 AppendBinaryOutput、或 Random 方式打开文件时,可以建立这一文件。
  • 如果文件已由其它进程打开,而且不允许指定的访问类型,则 Open 操作失败,而且会有错误发生。
  • 如果 mode 是 Binary 方式,则 Len 子句会被忽略掉。

重要 在 BinaryInput 和 Random 方式下可以用不同的文件号打开同一文件,而不必先将该文件关闭。在 Append 和 Output 方式下,如果要用不同的文件号打开同一文件,则必须在打开文件之前先关闭该文件。

TextStream 对象:

加快对文件的顺序访问。

方法:

Close方法:关闭一个打开的 TextStream 文件。

Read方法:从一个 TextStream 文件中读取指定数量的字符并返回得到的字符串。

ReadAll方法:读取整个的 TextStream 文件并返回得到的字符串。

ReadLine方法:从一个 TextStream 文件读取一整行(到换行符但不包括换行符)并返回得到的字符串。

Skip方法:当读一个 TextStream 文件时跳过指定数量的字符。

SkipLine方法:当读一个 TextStream 文件时跳过下一行。跳过一行是指读取并放弃一行中的所有字符,一直到并包括该行的换行符。如果读的文件没有打开,则产生一个错误。

Write方法:写一个指定的字符串到一个 TextStream 文件。指定的字符串被写入到文件中,在每个字符串之间没有插入空格或字符。使用 WriteLine 方法写入一个换行符或一个以换行符为结尾的字符串。

WriteLine方法:写入一个指定的字符串和换行符到一个 TextStream 文件中。

WriteBlankLines方法:写入指定数量的换行符到一个 TextStream 文件中。

 

Kill语句

从磁盘中删除文件。

如果使用 Kill 来删除一个已打开的文件,则会产生错误。若要删除目录,使用 RmDir 语句

 

 

Empty:Empty关键字是用作Variant子类型。它表示未初始化的变量值。

Null:Null 关键字被用作Variant子类型。它说明变量不包含有效数据

VarType:返回一个 Integer,指出变量的子类型。

Typename:返回一个 String,提供有关变量的信息。

Dir:返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。

 

 

 

 

时间表示:

Year/Month/Day/Hour/Minute/Second

Now/Date/Time/Timer

DateSerial/DateValue/DatePart/DateDiff

TimeSerial/TimeValue

 

Chr(10) -->换行符,等价于vbLf (Line Feed)\n
Chr(13) -->回车符,等价于vbCr(Carriage Return)\r
vbCrLf 换行符和回车符

windows系统每行结尾使用\n\r换行,unix系统每行结尾使用\n换行,mac系统每行结尾使用\r换行。

 

转载于:https://www.cnblogs.com/yl153/p/6784435.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
光盘使用说明 1.光盘位置说明 (1)在本书的每一章节中,如果该章节有示例或实例,在章节前的“函数名称栏”中(如图1所示)将给出示例或实例在光盘中的具体位置,根据这个实例位置,在光盘中可以找到相对应的示例或实例源程序。 Randomize函数 实用程度:★★★☆☆ 实例位置:光盘\mingrisoft\10\01 图1 (2)如果图1中的实例位置为“无”,则表示该函数在光盘中没有给出示例或者实例。 光盘中的示例或实例存放的具体路径如图2所示。 图2 2.运行环境设置 光盘中的所有程序是在Windows 2003下开发的,程序测试环境为Windows2000和WindowsXP和Windows2003。用户在Windows 98、Windows 2000、Windows2003和Windows XP下都可使用光盘中的程序。 3.源程序使用方法 如果用户要使用源程序,计算机除了满足上面要求的配置外,还需要完成如下工作。 (1)在系统上安装Visual Basic 6.0。 (2)使用本书中源程序时,请将该文件夹下的所有文件拷贝到计算机硬盘上,并去掉所有文件的只读属性。 (3)如果后台数据库为SQLServer2000,请在系统上安装SQLServer2000。并且附加相应的数据库文件,附加方法请参照下一小节。 (4)光盘中的部分示例程序只给出了程序代码,并没有演示效果,如想实现某一具体的效果,请读者独立思考完善。如在讲解部分语句时,只给出了语句的使用方法和思路,并没有给出更深一步的应用,因此无法演示其应用的效果。 4.使用数据库  Access数据库 本书中的部分实例应用到了Access数据库,数据库文件放在与程序相同的目录下,实例程序能够自动识别数据库路径,无须读者做任何配置工作。 注意:请不要随意改动Access数据库文件的路径,如果要改动,请将数据库文件与程序文件放在同一路径下,以免程序运行时,找不到数据库。  SQL Server2000数据库 本书中的少量实例还应用到了SQL Server2000数据库。使用程序时应首先在SQL Server2000的企业管理器中安装数据库,然后在使用该实例,详细说明参见示例文件夹中的使用说明书。
VB访问word书签。 '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司,天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录!", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司,天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录!", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub end
经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值