⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 020401.htm

📁 提供一个VB学习教程,入门级。来源于网上
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>

<body>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="98%">
    <tr>
      <td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center"><font size="2">文件的读写</font></td>
    </tr>
    <tr>
      <td width="100%"><br>
        <font size="2">控制文本文件<br>
        <br>
        OPEN语句。打开一个用于输入或输出的文件，格式：<br>
        OPEN 路径和文件名 FOR 方式 ACCESS 读或写操作 AS #文件号<br> 
        open commondialog1.filename for input as #1<br> 
        在用OPEN语句打开文件后，若该文件在程序中使用完毕，应关闭这个文件：<br>
        CLOSE #文件号<br> 
        路径和文件名可从通用对话框获得。<br>
        FOR 方式，有以下几种：append,binary,input,output,random<br> 
        input:顺序输入模式。binary:二进制方式。<br>
        random:随机方式。output：顺序输出方式。append:追加顺序输出<br>
        ACCESS可以省略，它指明打开的文件可进行的操作，有read和write或readwrite。<br>
        #文件号是一个整数，从1到511之间。每当程序中需要用到该打开的文件时，用它的文件号就可以了，<br>
        line input#语句，格式：<br> 
        line input #已打开的顺序文件号，变量名称<br> 
        功能是从已打开的顺序文件中读取一行并将其字符串指定（复制）给一个变量。<br>
        创建文本文件（文本文件的"存盘"）：<br>
        一点知识：我们从键盘输入一行文字，可用某条程序语句把它输出到屏幕上，但一关机，再开机时，那行文字就从屏幕上消失了；如果我们在硬盘上指定一个文件，把这行文字输出到硬盘上（指定文件里），那就可在硬盘上永久保存了。<br>
        print #文件号，输出变量表<br> 
        该语句就将变量指定的文本内容输出到磁盘上文件号代表的顺序文件中。（print是输出到屏幕，print #是输出到文件，容易了吧。）<br> 
        第1步：可创建一个通用对话框的showsave对话框。<br>
        第2步：在硬盘上留出空间（缓冲区）：很简单，用OPEN语句的"FOR OUTPUT"或除INPUT模式外的任何"FOR 方式"，然后在commondialog1.showsave对话框中任一路径下打入一个本不存在的任意"文件"名，这时，就会在硬盘上"创建"一个此名字的"空文件"。<br> 
        第3步：用"print #文件号，文本内容"将指定的文本内容输出到该"空文件"。 第4步：用"close #文件号"关闭已"存盘"的文件。<br> 
        注：程序中用 #文件号 来标识一个要使用的文件，操作同一个文件时，其文件号一定要相同。<br> 
        例程1：自制简易记事本（可创建TXT与BAT文件，随意定的）：<br>
        Private Sub mnuclose_Click() --"关闭"菜单代码<br> 
        Text1.Text = ""<br> 
        End Sub<br> 
        Private Sub mnuexit_Click() --"退出"菜单代码<br> 
        End<br>
        End Sub<br> 
        Private Sub mnuopen_Click( --"打开"菜单代码<br> 
        CommonDialog1.Filter = "文本文件 (*.txt)|*.txt|批处理文件|*.bat" 类型<br> 
        CommonDialog1.ShowOpen 获得路径<br> 
        Open CommonDialog1.FileName For Input As #2 以顺序输入方式打开，定义<br> 
        在程序中文件号为2号<br>
        Do While Not EOF(2) 直到文本未尾。<br> 
        Line Input #2, lxn$ 将2号文件读取一行复制到lxn$<br> 
        alltext$ = alltext$ &amp; lxn$ &amp; Chr(13) + Chr(10) 文本累积<br> 
        Loop 下一行<br> 
        Text1.Text = alltext$ 显示到text1.text<br> 
        Close #2 关闭2号文件<br> 
        End Sub<br> 
        Private Sub mnusave_Click() --"另存为"菜单代码<br> 
        CommonDialog1.Filter = "笔记本|*.txt|批处理文件|*.bat|所有文件|*.*"<br> 
        CommonDialog1.ShowSave 确定存盘路径和文件名（文件名可以是原来不存在的）<br> 
        Open CommonDialog1.FileName For Output As #2 打开（或创建）要存盘到的 文件。并在程序中定为2号。 Print #2, Text1.Text 存盘（将文本框中内容输出到打开的文件）<br> 
        Close #2 关闭2号文件<br> 
        End Sub</font> 
        <p align="center">
        <br>
        &lt; <a href="020304.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020402.htm">下一页</a>    
        &gt;<br>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -