📄 outline.htm
字号:
</td>
<td>
<div id=PPTP20 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0061.htm');" id=PPTL20><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>21</font></div>
</td>
<td>
<div id=PPTP21 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0062.htm');" id=PPTL21><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>22</font></div>
</td>
<td>
<div id=PPTP22 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0089.htm');" id=PPTL22>"9.3.2"</a></font></div>
<div id=PPTC22 class=CTxt style='display:none'><font size=2>
<ul>
<li>9.3.2<span style='mso-spacerun:yes'> </span>顺序文件的读写操作</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>23</font></div>
</td>
<td>
<div id=PPTP23 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0063.htm');" id=PPTL23>"例9.1"</a></font></div>
<div id=PPTC23 class=CTxt style='display:none'><font size=2>
<ul>
<li>例9.1<span style='mso-spacerun:yes'> </span><span
style='mso-spacerun:yes'> </span>Print与Write语句输出数据结果比较。</li>
<li>Private Sub Form_Click()</li>
<li>Dim Str As String, Anum As Integer</li>
<li>Open "D:\Myfile.dat" For Output As 1</li>
<li>Str = "ABCDEFG"</li>
<li>Anum = 12345</li>
<li>Print #1, Str, Anum</li>
<li>Write #1, Str, Anum</li>
<li>Close #1</li>
<li>End Sub</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>24</font></div>
</td>
<td>
<div id=PPTP24 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0090.htm');" id=PPTL24>"例9.2 编程把一个..."</a></font></div>
<div id=PPTC24 class=CTxt style='display:none'><font size=2>
<ul>
<li> 例9.2 编程把一个文本框中的内容，以文件形式存入磁盘。</li>
<li> 假定文本框的名称为Mytxt，文件名为Myfile.dat。</li>
<li>方法1：把整个文本框的内容一次性地写入文件。</li>
<li> Open "Myfile.dat" For Output As #1</li>
<li> Print #1, Mytxt.Text</li>
<li> Close #1</li>
<li>方法2：把整个文本框的内容一个字符一个字符地写入文件。</li>
<li> Open "Myfile.dat" For Output As #1</li>
<li> For i=1 To len(Mytxt.Text)</li>
<li> <span style='mso-spacerun:yes'> </span>Print
#1,Mid(Mytxt.Text,i,1);</li>
<li> Next i</li>
<li> Close #1</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>25</font></div>
</td>
<td>
<div id=PPTP25 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0064.htm');" id=PPTL25>"2"</a></font></div>
<div id=PPTC25 class=CTxt style='display:none'><font size=2>
<ul>
<li> 2. 顺序文件读操作</li>
<li><span
style='mso-spacerun:yes'>
</span>从现存文件中读入数据，应以顺序Input方式打开该文件。然后使用 Input# 语句、Line Input# 语句和Input(
)函数读入到程序变量中。</li>
<li><span style='mso-spacerun:yes'> </span>使用格式如下：</li>
<li> <span
style='mso-spacerun:yes'>
</span>INPUT #文件号,变量列表</li>
<li> 把读出的每个数据项分别存放到所对应的变量。</li>
<li> LINE INPUT #文件号,字符串变量</li>
<li> 读一行到变量中，主要用来读取文本文件。</li>
<li> INPUT$(读取字符数, #文件号)</li>
<li> 读取指定的数量的字符，作为函数的返回值。</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>26</font></div>
</td>
<td>
<div id=PPTP26 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0091.htm');" id=PPTL26>"3．与读文件操作有..."</a></font></div>
<div id=PPTC26 class=CTxt style='display:none'><font size=2>
<ul>
<li> 3．与读文件操作有关的几个函数</li>
<li>（1）Lof 函数</li>
<li><span
style='mso-spacerun:yes'>
</span>LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。</li>
<li>（2）Loc 函数</li>
<li><span
style='mso-spacerun:yes'>
</span>Loc函数将返回在一个打开文件中读写的记录号；对于二进制文件，它将返回最近读写的一个字节的位置。</li>
<li>（3）Eof 函数</li>
<li><span
style='mso-spacerun:yes'>
</span>Eof 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，Eof 函数返回TRUE(-1)，否则返回FALSE(0)。</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>27</font></div>
</td>
<td>
<div id=PPTP27 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0065.htm');" id=PPTL27>"例9.3"</a></font></div>
<div id=PPTC27 class=CTxt style='display:none'><font size=2>
<ul>
<li> 例9.3<span style='mso-spacerun:yes'> </span>编程将一文本文件的内容读到文本框</li>
<li><span
style='mso-spacerun:yes'>
</span>假定文本框名称为txtTest，文件名为MYFILE.TXT。可以通过下面三种方法来实现。</li>
<li> 方法1：一行一行读</li>
<li> txtTest.Text ＝ ""</li>
<li> Open "MYFILE.TXT" For Input As #1</li>
<li> Do While Not EOF(1)</li>
<li> Line Input #1, InputData</li>
<li> txtTest.Text ＝ txtTest.Text + InputData+vbCrLf</li>
<li> Loop</li>
<li> Close #1</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>28</font></div>
</td>
<td>
<div id=PPTP28 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0066.htm');" id=PPTL28>"方法2：一次性"</a></font></div>
<div id=PPTC28 class=CTxt style='display:none'><font size=2>
<ul>
<li><span style='mso-spacerun:yes'> </span>方法2：一次性读</li>
<li> txtTest.Text ＝ ""</li>
<li> Open "MYFILE.TXT" For Input As #1</li>
<li> txtTest.Text = Input( LOF(1),1)</li>
<li> Close #1</li>
<li> 方法3：一个个字符读</li>
<li> Dim InputData as String*1</li>
<li> txtTest.Text ＝ ""</li>
<li> Open "MYFILE.TXT" For Input As #1</li>
<li> Do While Not EOF(1)</li>
<li> Input #1, InputData</li>
<li> txtTest.Text ＝ txtTest.Text + InputData</li>
<li> Loop</li>
<li> Close #1</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>29</font></div>
</td>
<td>
<div id=PPTP29 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0067.htm');" id=PPTL29><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>30</font></div>
</td>
<td>
<div id=PPTP30 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0068.htm');" id=PPTL30>9.4<span
style='mso-spacerun:yes'> </span>随机文件(了解)</a></font></div>
<div id=PPTC30 class=CTxt style='display:none'><font size=2>
<ul>
<li>9.4.1 随机文件的打开与关闭</li>
<li>1．打开随机文件</li>
<li>打开随机文件格式为：</li>
<li>OPEN FileName FOR Random [Access <Mode>][Lock] As filenumber [Len
= reclength]</li>
<br>
<br>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>31</font></div>
</td>
<td>
<div id=PPTP31 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0092.htm');" id=PPTL31>"2．关闭随机文"</a></font></div>
<div id=PPTC31 class=CTxt style='display:none'><font size=2>
<ul>
<li>2．关闭随机文件</li>
<li><span style='mso-spacerun:yes'>
</span>随机文件的关闭与关闭顺序文件相同。</li>
<li>9.4.2 写随机文件</li>
<li> <span
style='mso-spacerun:yes'>
</span>Put<span style='mso-spacerun:yes'> </span>[#]文件号，[记录号]，变量名</li>
<li> 将一个记录变量的内容写到指定的记录位置处。</li>
<li> 忽略记录号，则表示在当前记录后的位置插入一条记录。</li>
<li>9.4.3 读随机文件</li>
<li> Get<span style='mso-spacerun:yes'> </span>[#]文件号，[记录号]，变量名</li>
<li> 忽略记录号，则读出当前记录后的那一条记录。</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>32</font></div>
</td>
<td>
<div id=PPTP32 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0072.htm');" id=PPTL32>9.5<span
style='mso-spacerun:yes'> </span>二进制文件(了解)</a></font></div>
<div id=PPTC32 class=CTxt style='display:none'><font size=2>
<ul>
<li>1. 打开文件</li>
<li> Open<span style='mso-spacerun:yes'> </span>"文件名"<span
style='mso-spacerun:yes'> </span>For Binary<span
style='mso-spacerun:yes'> </span>As<span
style='mso-spacerun:yes'> </span>#文件号</li>
<li>2. 写操作</li>
<li> Put<span style='mso-spacerun:yes'> </span>[#]文件号，[位置]，变量名</li>
<li> 写入长度等于变量长度的数据。</li>
<li>3. 读操作</li>
<li> GET<span style='mso-spacerun:yes'> </span>[#]文件号，[位置]，变量名</li>
<li> 从指定位置开始读出长度等于变量长度的数据存入变量中，数据读出后移动变量长度位置，如果忽略位置，则表示从文件指针所指的位置开始读出数据，数据读出后移动变量长度位置。</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>33</font></div>
</td>
<td>
<div id=PPTP33 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0074.htm');" id=PPTL33>9.6 常用的文件操作语句和函数</a></font></div>
<div id=PPTC33 class=CTxt style='display:none'><font size=2>
<ul>
<li><span style='mso-spacerun:yes'> </span>1. 改变当前驱动器（ChDrive
语句）</li>
<li> 格式：ChDrive<span style='mso-spacerun:yes'> </span>drive</li>
<li> 功能：改变当前系统驱动器。</li>
<ul>
<ul>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -