vb eof(1)

这里的vbCrLf是回车的ASCII码,即CHR(13) 其中的EOF(1)是判断文件结束的函数,括号中的(1)指的是1#文件,如果文件结束了,此值为真,否则为假. 而IIF是一个根据表达式的...

dim inputdata as string open "text.txt" for input as #1 '打开文件text.txt，文件号为1 do while not eof(1)'读文件，一直读到文件尾 input #1,inputdata'将...

EOF为End Of File的缩写，在操作系统中表示资料源无更多的资料可读取。DO while not EOF(1)解释：判断当eof(1)的值为true时停止do循环。使用EOF是为了避免因试...

也可以为属性常数对应的值GetAttr返回值表如下：常数---值---描述vbnormal---0---常规vbReadonly---1---只读vbHidden---2---隐藏vbSystem---...

If EOF(1) Then '文件#1已读取完毕Else '继续读取文件#1End IfLOF（Length Of File）- 文件长度，其值是文件的总长度（字节）：Print LOF(1) '显示文件#1...

eof() 函数的作用是判断是否到文件尾.例如：dim s as string open "c:\1.txt" for input as #1 do while not eof(1)line input #1,s print s loop close #1...

1 打开VB6.0，新建标准EXE工程，摆放一个TextBox、两个CommandButton控件（位置随意摆放，大小任意布局，推荐如图位置）。2 把TextBox控件的Text属性改为...

VB文本编辑器代码要代码，要代码，有实例的话最好Dim gaibian As Boolean Dim shijian As String Private Sub baocun_Click() CommonDialog1....

在你的Do循环中，并没有对打开的文件做任何读写操作，文件指针一直停留在起始位置，所以 EOF(1) 的值始终为False，所以循环无法退出，形成了死循环。

当#1号文件没有到尾部时. Do While 当#1文件没到尾部时循环, 到尾停止 Input # 1，inData Text1.Text=Text1.Text+inData Loop ...