切换到宽版
  • 2525阅读
  • 7回复

[程序设计]【备案分享】vb编程经验记录 [复制链接]

上一主题 下一主题
离线阿果
 
发帖
10089
财富
62987
威望
2083
交易币
62
只看楼主 倒序阅读 使用道具 0楼 发表于: 2008-08-25 | 石油求职招聘就上: 阿果石油英才网
— 本帖被 阿果 从 石油中级认证 移动到本区(2009-01-06) —
在创建群英会之前,在这里发个帖子记录自己的编程经验

2008-8-25
   DoEvents ,这个可以实习在vb程序运行时,界面不被“冻住”,但听说一旦程序复杂,则可能出现意想不到的错误。建议采用多线程。
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
离线阿果
发帖
10089
财富
62987
威望
2083
交易币
62
只看该作者 1楼 发表于: 2008-10-02 | 石油求职招聘就上: 阿果石油英才网
字符串替换函数
————————————————————
  1. Function ReplaceString(MyString As String, ToFind As String, ReplaceWith As String) As String
  2.   Dim Spot As Long, NewSpot As Long, LeftString As String
  3.     Dim RightString As String, NewString As String
  4.     Spot& = InStr(LCase(MyString$), LCase(ToFind))
  5.     NewSpot& = Spot&
  6.     Do
  7.         If NewSpot& > 0& Then
  8.             LeftString$ = Left(MyString$, NewSpot& - 1)
  9.             If Spot& + Len(ToFind$) <= Len(MyString$) Then
  10.                 RightString$ = Right(MyString$, Len(MyString$) - NewSpot& - Len(ToFind$) + 1)
  11.             Else
  12.                 RightString = ""
  13.             End If
  14.             NewString$ = LeftString$ & ReplaceWith$ & RightString$
  15.             MyString$ = NewString$
  16.         Else
  17.             NewString$ = MyString$
  18.         End If
  19.         Spot& = NewSpot& + Len(ReplaceWith$)
  20.         If Spot& > 0 Then
  21.             NewSpot& = InStr(Spot&, LCase(MyString$), LCase(ToFind$))
  22.         End If
  23.     Loop Until NewSpot& < 1
  24.     ReplaceString$ = NewString$
  25. End Function


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
离线阿果
发帖
10089
财富
62987
威望
2083
交易币
62
只看该作者 2楼 发表于: 2008-10-02 | 石油求职招聘就上: 阿果石油英才网
vb 控制flashget下载文件
——————————————————————————————
  1. 用vb控制网络蚂蚁网际快车下载文件2008-01-04 03:52著名的多线程下载软件网络蚂蚁(NetAnts)、网际快车(FlashGet,又名JetCar),想必是每位CFan必备的装备,大家挖掘出的用法也是花样百出。其实,这两个软件有一个共同的特点:它们都提供了COM接口,你可以在VB程序中对其控制, 利用它们自动下载文件。例如,FlashGet的伴侣软件FlashCheck,可以接收指定邮箱的电子邮件头信息,并根据电子邮件主题中的命令,启动FlashGet 自动下载软件。在看完本文后,你也不难做出类似FlashCheck这样的软件。
  2. 一、原理篇
  3. 网络蚂蚁和网际快车都包含了基于COM标准的控件对象,提供了可以控制该程序的接口。这两个程序分别在各自的对象中提供两个同名函数,A d d U r l 和AddUrlList。这两个函数的作用是添加待下载文件的链接。其中,AddUrl 添加一个链接,AddUrlList 则添加一个链接列表,可以包含多个链接。
  4. NetAnts 中AddUrl、AddUrlList 的声明分别如下:
  5. Sub AddUrl(bstrUrl As String, bstrInfo As String,bstrReferer As String)Sub AddUrlList(pList)FlashGet中AddUrl、AddUrlList的声明分别如下:
  6. Sub AddUrl(pUrl As String, pInfo As String,pReferer As String)Sub AddUrlList(pList)
  7. 可以看到,网络蚂蚁和网际快车对这两个函数的声明基本上一致。AddUrl的三个参数的作用分别是: 待下载文件的链接、对文件的描述信息、引用该链接的页面的链接(这究竟是什么意思呢?举个例子,index.htm页面中包含了file.zip文件的链接,如果要下载file.zip,那么index.htm就是引用了file.zip文件链接的页面)。AddUrlList 的参数pList 是一个一维数组, 该数组必须是可变类型(Variant),不能是字符串类型。该数组在VB中从0 开始,长度为n*2+1,可以指定n个待下载文件,其中pList[0]包含的是引用链接列表的页面的链接,pList[n*2-1]包含的是第n个文件的链接,pList[n*2]包含的是第n 个文件的描述信息。
  8. 在VB 中,需要首先引用网络蚂蚁和网际快车对象,然后可以在程序中调用上述函数,并赋以正确的参数值。《电脑爱好者》的网站栏目“ 期刊上网”([url]http://www.cfan.net.cn/qikan/index.htm[/url]),其中列有每期的内容简介,本文使用VB 编程,以控制网络蚂蚁、网际快车下载《电脑爱好者》网站上的“期刊上网”主页和2001 年第1 期到第13 期内容简介为例,介绍如何使用上述对象、函数。
  9. 二、程序篇
  10. 在VB 中新建一个工程,选择“工程”菜单的“引用”,并在对话框中找到AntAPI 1.0 Type Library(网络蚂蚁)和jccatch 1.0 Type Library(网际快车)。Form1 的设计如图1 所示,包括两个单选按钮optNetAnts、optJetCar,两个按钮AddUrl、AddAllUrls。根据需要,可以适当调整界面,没有其他需要特别定制的属性。
  11. 下面在Form1 中添加全局变量、常量、函数、事件处理过程等,源代码如下:
  12. Option Explicit
  13. Dim objNetAntsApi, objJetCarCatch As Object
  14. ' 网络蚂蚁、网际快车对象
  15. Dim objUsedObject As Object ' 实际使用的对象
  16. ( 蚂蚁、快车其中之一)
  17. Dim arrParams() ' 成批下载任务数组,必须是
  18. Variant 类型
  19. Dim I As Integer '计数器
  20. '单任务下载
  21. Const tstUrl = "http://www.cfan.net.cn/qikan/
  22. index.htm" '待下载任务的URL
  23. Const tstInfo = "《电脑爱好者》期刊上网" '
  24. 下载任务的注释信息
  25. Const tstRefUrl = "http://www.cfan.net.cn/"
  26. '对所下载任务引用的页面
  27. '成批下载
  28. Const RefUrl = "http://www.cfan.net.cn/
  29. qikan/index.htm" ' 引用URL列表的页面
  30. Const PreUrl = "http://www.cfan.net.cn/
  31. qikan/daodu/cfan01" 'URL前缀
  32. Const iMonth = 13 ' 成批下载《CFan》内容简
  33. 介的期次
  34. Private Sub InitIt()
  35. On Error Resume Next
  36. If optNetAnts.Value = True Then
  37. ' 创建NetAnts 的对象,并判断是否已经安装
  38. Set objNetAntsApi = CreateObject("NetAnts.
  39. API")
  40. If Err <> 0 Then
  41. MsgBox ("NetAnts Not Exist!")
  42. Else
  43. Set objUsedObject = objNetAntsApi
  44. End If
  45. End If
  46. If optJetCar = True Then
  47. ' 创建JetCar 的对象,并判断是否已经安装
  48. Set objJetCarCatch = CreateObject("JetCar.
  49. Netscape")
  50. If Err <> 0 Then
  51. MsgBox ("FlashGet(JetCar) Not Exist!")
  52. Else
  53. Set objUsedObject = objJetCarCatch
  54. End If
  55. End If
  56. End Sub
  57. Private Sub AddAllUrls_Click()
  58. InitIt
  59. ReDim arrParams(0 To iMonth * 2)
  60. ' 以下生成URL 列表数组内容
  61. arrParams(0) = RefUrl
  62. For I = 1 To iMonth
  63. arrParams(I * 2 - 1) = PreUrl & Format(I,
  64. "00") & ".htm"
  65. arrParams(I * 2) = "《电脑爱好者》2001 年
  66. 第" & I & " 期内容简介"
  67. Next I
  68. ' 调用添加URL 列表函数
  69. objUsedObject.AddUrlList arrParams
  70. End Sub
  71. Private Sub AddUrl_Click()
  72. InitIt
  73. ' 调用添加URL 函数
  74. Call objUsedObject.AddUrl(tstUrl, tstInfo,
  75. tstRefUrl)
  76. End Sub
  77. 三、测试篇
  78. 保存并编译工程,现在你可以选择点击NetAnts 或FlashGet(JetCar)单选按钮以选择使用哪一个下载软件。现以选择NetAnts 为例,如果你单击“添加下载任务”按钮,该程序将会自动启动网络蚂蚁或者调用已经运行的网络蚂蚁,并且出现“添加任务”对话框,该对话框中的“URL”内容为“[url]http://www.cfan.net.cn/qikan/index.htm[/url]”,“注释”文本框为“《电脑爱好者》期刊上网”;如果你单击“成批添加下载任务”。同样,程序将运行网络蚂蚁,出现“添加多个任务”对话框,如图2 所示。你可以在其中选择全部文件链接,并单击“确定”按钮下载。
  79. 至此,在VB 中控制网络蚂蚁和网际快车已经完成,将其添加到你的程序中,那将多酷呀!程序在Windows 98/2000+VB6.0以及NetAnts 1.23(中文版)、FlashGet0.95(中文版)环境下调试通过。


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
离线阿果
发帖
10089
财富
62987
威望
2083
交易币
62
只看该作者 3楼 发表于: 2008-10-02 | 石油求职招聘就上: 阿果石油英才网
Time 返回系统时钟的当前时间。  
Date 返回系统时钟的当前日期。  
Now 返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。  
Hour(Time) 返回指定时间的小时部分(0到23)。  
Minute(Time) 返回指定时间的分钟部分(0到59)。  
Second(Time) 返回指定时间的秒部分(0到59)。  
Day(Date) 返回月份中的日期数(1到31)。  
Month(Date) 返回日期中的月份(1到12)。  
Year(Date) 返回日期中的年度。  
Weekday(Date) 返回日期中代表一周中的星期几。  

Abs(n) 返回n的绝对值。  
Atn(n) 返回n的反正切值,以弧度为单位。  
Cos(n) 返回n的余弦值,以弧度为单位。  
Exp(n) 返回e的n次方。  
Rnd(n) 产生0到1之间的一个随机数。  
Sgn(n) n小于0时返回-1,n等于0时返回0,n大于0时返回1。  
Sin(n) 返回n的正弦值,以弧度为单位。  
Sqr(n) 返回n的平方根。  
Str(n) 把数值值转换成字符串。  
Tan(n) 返回n的正切值,以弧度为单位。  
Val(n) 把字符串转换为数值值。  
Int(n) 返回数字的整数部分。8.4-->9  
Fix(n) 返回数字的整数部分。8.4-->8


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
离线阿果
发帖
10089
财富
62987
威望
2083
交易币
62
只看该作者 4楼 发表于: 2008-10-02 | 石油求职招聘就上: 阿果石油英才网
数据类型转换函数:

转换函数 将表达式转换成  
CBool Boolean  
CByte Byte  
CCur Currency '只在VB7.0以下有效  
CDate Date  
CDbl Double  
CInt Integer  
CLng Long  
CSng Single  
CStr String  
CVar Variant ‘只在VB7.0以下有效  
CVErr Error '只在VB7.0以下有效  


若想了解Visual Basic正在使用哪种变量类型,可使用 VarType 函数。


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
离线阿果
发帖
10089
财富
62987
威望
2083
交易币
62
只看该作者 5楼 发表于: 2008-10-02 | 石油求职招聘就上: 阿果石油英才网
字符串处理函数

关键字 说明 示例  
Ucase 将字符串中的字母改为大写 Ucase("Kim")返回KIM  
Lcase 将字符串中的字母改为小写 Lcase("Kim")返回kim  
Len 确定字符串的长度(以字符为单位) Len("Mississ")返回7  
Right 返回字符串右部指定个数的字符 Right("Budapest",3)返回pes  
Left 返回字符串左部指定个数的字符 Left("Budapest",4)返回Buda  
Mid 从某一指定起始点开始返回字符串中指定个数的字符 Mid("Sommers", 4, 3) 返回mer  
InStr 从一个较大字符串中查找另一个字符     start% = InStr("bob","bobby")start%变量返回值1  
String 重复指定字符串中的字符,返回新的字符串 String(8, "*")返回********  
Asc 返回指定字母的ASCII代码 Asc("A")     返回65  
Chr 返回指定ASCII代码对应的字符 Chr(65) 返回A  
Xor 对两个数字执行“异或”操作,其返回值可用来对文本进行加密、解密 65 Xor 50     返回115       115 Xor 50     返回65  


注意:Right和Left在.Net中使用时前面要加命名空间Microsoft.VisualBasic;String在.Net中无效。


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
离线阿果
发帖
10089
财富
62987
威望
2083
交易币
62
只看该作者 6楼 发表于: 2008-10-02 | 石油求职招聘就上: 阿果石油英才网
(强制)类型转换函数  

每个函数都可以强制将一个表达式转换成某种特定数据类型。  

语法  
CBool(expression)  

CByte(expression)  

CCur(expression)  

CDate(expression)  

CDbl(expression)  

CDec(expression)  

CInt(expression)  

CLng(expression)  

CSng(expression)  

CStr(expression)  

CVar(expression)  

CStr(expression)  

必要的 expression 参数可以是任何字符串表达式或数值表达式。  

返回类型  
函数名称决定返回类型,如下所示:  

函数 返回类型 expression 参数范围  
CBool Boolean 任何有效的字符串或数值表达式。  
CByte Byte 0 至 255。  
CCur Currency -922,337,203,685,477.5808 至922,337,203,685,477.5807。  
CDate Date 任何有效的日期表达式。  
CDbl Double 负数从 -1.79769313486232E308 至 -4.94065645841247E-324;正数从 4.94065645841247E-324 至 1.79769313486232E308。  
CDec Decimal 零变比数值,即无小数位数值,为  
+/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值,范围则为  
+/-7.9228162514264337593543950335;最小的可能非零值是 0.0000000000000000000000000001。  
CInt Integer -32,768 至 32,767,小数部分四舍五入。  
CLng Long -2,147,483,648 至 2,147,483,647,小数部分四舍五入。  
CSng Single 负数为 -3.402823E38 至 -1.401298E-45;正数为 1.401298E-45 至 3.402823E38。  
CStr String 依据 expression 参数返回 Cstr。  
CVar Variant 若为数值,则范围与 Double 相同;若不为数值,则范围与 String 相同。  


说明  
如果传递给函数的 expression 超过转换目标数据类型的范围,将发生错误。  

通常,在编码时可以使用数据类型转换函数,来体现某些操作的结果应该表示为特定的数据类型,而不是缺省的数据类型。例如,当单精度、双精度或整数运算发生的情况下,使用 CCur 来强制执行货币运算。  

应该使用数据类型转换函数来代替 Val,以使国际版的数据转换可以从一种数据类型转换为另一种。例如,当使用 Ccur 时,不同的小数点分隔符、千分位分隔符和各种货币选项,依据系统的国别设置都会被妥善识别。  

当小数部分恰好为 0.5 时,Cint 和 CLng 函数会将它转换为最接近的偶数值。例如,0.5 转换为 0、1.5 转换为 2。Cint 和 CLng 函数不同于 Fix 和 Int 函数,Fix 和 Int 函数会将小数部分截断而不是四舍五入。并且 Fix 和 Int 函数总是返回与传入的数据类型相同的值。  

使用 IsDate 函数,可判断 date 是否可以被转换为日期或时间。Cdate 可用来识别日期文字和时间文字,以及落入可接受的日期范围内的数值。当转换一个数字成为日期时,是将整数部分转换为日期,小数部分转换为从午夜起算的时间。  

CDate 依据系统上的国别设置来决定日期的格式。如果提供的格式为不可识别的日期设置,则不能正确判断年、月、日的顺序。另外,长日期格式,若包含有星期的字符串,也不能被识别。  

CVDate 函数也提供对早期 Visual Basic 版本的兼容性。CVDate 函数的语法与 CDate 函数是完全相同的,不过,CVDate 是返回一个 Variant,它的子类型是 Date,而不是实际的 Date 类型。因为现在已有真正的 Date 类型,所以 CVDate 也不再需要了。转换一个表达式成为 Date,再赋值给一个 Variant,也可以达到同样的效果。也可以使用这种技巧将其他真正的数据类型转换为对等的 Variant 子类型。  

注意 CDec 函数不能返回独立的数据类型,而总是返回一个 Variant,它的值已经被转换为 Decimal 子类型。


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
离线阿果
发帖
10089
财富
62987
威望
2083
交易币
62
只看该作者 7楼 发表于: 2008-10-02 | 石油求职招聘就上: 阿果石油英才网
Vb常用内部函数

单击下面的大标题可以返回此处:
类型转换函数&sup2;
1、 Int(x):求不大于自变量x的最大整数
2、 Fix(x):去掉一个浮点数的小数部分,保留其整数部分
3、 Hex$(x):把一个十进制数转换为十六进制数
4、 Oct$(x):把一个十进制数转换为八进制数
5、 Asc(x$):返回字符串x$中第一个字符的ASCII字符
6、 CHR$(x):把x的值转换为相应的ASCII字符
7、 Str$(x):把x的值转换为一个字符串
8、 Cint(x):把x的小数部分四舍五入,转换为整数
9、 Ccur(x):把x的值转换为货币类型值,小数部分最多保留4 位且自动四舍五入
10、 CDbl(x):把x值转换为双精度数
11、 CLng(x):把x的小数部分四舍五入转换为长整数型数
12、 CSng(x):把x值转换为单精度数
13、 Cvar(x):把x值转换为变体类型值
14、 VarPtr(var):取得变量var的指针
数学函数&sup2;
1、 Sin(x):返回自变量x的正弦值
2、 Cos(x): 返回自变量x的余弦值
3、 Tan(x): 返回自变量x的正切值
4、 Atn(x): 返回自变量x的反正切值
5、 Abs(x): 返回自变量x的绝对值
6、 Sgn(x): 返回自变量x的符号,即当x为负数时,返回-1;当x为0时,返回
          0;当x为正数时,返回1
7、 Sqr(x):返回自变量x的平方根,x必须大于或等于0
8、 Exp(x):返回以e为底,以x为指数的值,即求e的x次方


日期与时间函数&sup2;
1、 Day(Now):返回当前的日期
2、 WeekDay(Now):返回当前的星期
3、 Month(Now):返回当前的月份
4、 Year(Now):返回当前的年份
5、 Hour(Now):返回小时(0~23)
6、 Minute(Now):返回分(0~59)
7、 Second(Now):返回秒 (0~59)

随机数函数&sup2;
1、 Rnd[(x)]:产生一个0~1之间的单精度随机数
2、 Randmize[(x)]:功能同上,不过更好


字符串函数&sup2;
1、 LTrim$(字符串):去掉字符串左边的空白字符
2、 Rtrim$(字符串):去掉字符串右边的空白字符
3、 Left$(字符串,n):取字符串左部的n个字符
4、 Right$(字符串,n):取字符串右部的n个字符
5、 Mid$(字符串,p,n):从位置p开始取字符串的n个字符
6、 Len(字符串):测试字符串的长度
7、 String$(n,字符串):返回由n个字符组成的字符串
8、 Space$(n):返回n个空格
9、 InStr(字符串1,字符串2):在字符串1中查找字符串2
10、 Ucase$(字符串):把小写字母转换为大写字母
11、 Lcase$(字符串):把大写字母转换为小写字母


窗体输入输出函数&sup2;
1、 Print(字符串):在窗体输出字符串,可以用”&”对变量进行连接后输出
2、 Tab(n):把光标移到该行的n开始的位置
3、 Spc(n):跳过n个空格
4、 Cls:清除当前窗体内的显示内容
5、 Move 左上角x,左上角y,宽度,高度:移动窗体或控件
6、 InputBox(prompt,…):跳出一个数据输入窗口,返回值为该窗口的输入值
7、 MsgBox(msg,[type]…):跳出一个提示窗口

文件操作函数&sup2;
1、 Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度]
功能:为文件的输入输出分配缓冲区,并确定缓冲区所使用的存取方式
说明:
1) 方式:指定文件的输入输出方式,可选,默认是Random,可以是以下值
a、 Output:指定顺序输出方式,将覆盖原有内容
b、 Input:指定顺序输入方式
c、 Append:指定顺序输出方式,在文件未尾追加内容
d、 Random:指定随机存取方式,也是默认方式,在Random方式时,如果没有Access子句,则在执行Open语句时,VB将按下列顺序打开文件:读/写、只读、只写
e、 指定二进制文件。在这种方式下,可以用Get和Put语句对文件中任何字节位置的信息进行读写。在Binary方式中,如果没有Access子句,则打开文件的类型与Random方式相同
2)、存取类型:放在关键字Access之后,用来指定访问文件的类型。可以是下列类型之一
a、 Read:打开只读文件
b、 Write:打开只写文件
c、 Read Write:打开读写文件。这种类型只对随机文件、二进制文件及用Append方式打开的文件有效
3)、锁定:该子句只在多用户或多进和环境中使用,用来限制其他用户或其他进程对打开进行读写操作。锁定类型包括:
a、 默认:如不指定锁定类型,则本进程可以多次打开文件进行读写;在文件打开期间,其他进程不能对该文件执行读写操作
b、 Lock Shared:任何机器上的任何进程都可以对该文件进行读写操作
c、 Lock Read:不允许其他进程读该 文件。只在没有其他Read存取类型的进程访问该文件时,才允许这种锁定。
d、 Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时,才允许这种锁定
e、 Lock Read Write:不允许其他进程读写这个文件
如果不使用lock子句,则默认为Lock Read write
4)、文件号:由用户自行指定一个由1~511之间的整数,只要该文件号未被使用就合法;打开文件后,可以用该文件号进行读写等操作
5)、记录长度:是一个整型表达式。当选择该参量时,为随机存取文件设置记录长度。对于用随机访问方式打开的文件,该值是记录长度;对于顺序文件,该值是缓冲字符数。”记录长度”不能超过32767字节。对于二进制文件,将忽略Len子句
举例:Open “price.dat” for Output as #1
Open “C:\abc.dat” for radom as #1 len=256

2、 Close [#文件号][,#文件号]……:关闭文件
3、 Seek #文件号,位置:文件指针跳到指定位置,以字节为单位。取值1~pow(2,31)-1
4、 Seek (文件号):返回当前文件指针的位置
5、 FreeFile():取得一个未使用的文件号
6、 Loc(文件号):返回指定文件的当前读写位置
7、 LOF(文件号):返回文件长度
8、 EOF(文件号):用来测试文件是否结束,结束返回true
9、 Print #文件号,变量1,变量2,…变量n:按顺序将各变量的值写入顺序文件
如果是print #文件号,则写入空行
10、 Write #文件号,表达式表…:作用同 Print
11、 Input #文件号,变量表….:读顺序文件,进行与Print相反的操作
12、 Line Input #文件号,字符串变量:从顺序文件中读入一行
13、 Input$(n,#文件号):从顺序文件读出 n个字符的字符串
14、 Put #文件号,[记录号],变量:把除对象变量和数组变量外的任何变量(包括号含有单个数组元素的下标变量)的内容写入随机文件。
例如:Put #2,,filebuff
15、 Get #文件号,[记录号],变量:读随机文件,执行与put相反的操作
16、 Get|put #文件号,[位置],变量:读写二制文件,位置是指下一次读写操作的位置。
17、 Kill 文件名:删除文件
18、 FileCopy 源文件名,目标文件名:复制文件
19、 Name原文件名 as 新文件名:重命令文件


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo

网站事务咨询:QQ:1392013 | 26189883
阿果石油网为免费个人网站,为石油人提供免费的在线即时技术交流场所,拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论和行为!
如有言论或会员共享的资料涉及到您的权益,请立即通知网站管理员,本站将在第一时间给予配合处理,谢谢!