11830.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 46 行

HTML
46 行
字号 
<html>
  <head>
    <title>随机档存取的问题。(不能正确读取随机档的资料记录)</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>随机档存取的问题。(不能正确读取随机档的资料记录)</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:namcheong@hongkong.com">南昌</a> on April 09, 1999 at 22:23:14:<p>
最近我由 中文版vb6 转用 中文版 vb6 (专业版)，配合中文版 Win98，发现 Random File 存取好像有些问题，我看了很多书，也不能解决这些问题，希望各位前辈可以为我解答。<p>以下是我写的小小程式：(可以直接剪贴去vb6 执行)<br>(有一个 Text Box 及 一个 Command Button)<br>Private Type open_name<br>name As String * 10<br>End Type<p>Dim names As open_name<p>Private Sub Form_Load()<br>Dim a(3)<br>a(1) = "1234567890"<br>a(2) = "abcdefghij"<br>a(3) = "你好吗"<br>Open "c:\vb6_temp.txt" For Random Shared As #1 Len = Len(names)<br>For i = 1 To 3<br>names.name = a(i)<br>Put #1, i, names<br>Next i<br>Close #1<br>End Sub<p>Private Sub Command1_Click()<br>Open "c:\vb6_temp.txt" For Random Shared As #1 Len = Len(names)<br>Get #1, text1.text , names<br>Print trim(names.name)<br>Close #1<br>end Sub<p>当我执行之后，在 Text Box 分别输入 1，3，2，3。(数字是record 的位置)，得出的答案如下：<br>输入  1  得出的答案    1234567890	   (正常)<br>输入  3	得出的答案    你好吗    890	   (错误，后面出现 890)<br>输入  2	得出的答案    abcdefghij	   (正常)<br>输入  3	得出的答案    你好吗    hij	   (错误，后面出现 hij)<br>有谁可以告诉我到底为什么会有这种情形及应该如何解决？(当读取记录(内含中文)，为什么会留有上一张记录的资料)。首要条件是要配合 Type ..End Type  及 Random File。<br>谢谢<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11830-->
<!--top: 11897--><li><a href="11897.html">Re: 随机档存取的问题。(不能正确读取随机档的资料记录)</a> <b>a boy</b> <i>16:33:18 4/12/99</i>
(<!--responses: 11897-->0)
<ul><!--insert: 11897-->
</ul><!--end: 11897-->
<!--top: 11837--><li><a href="11837.html">Re: 随机档存取的问题。(不能正确读取随机档的资料记录)</a> <b>纪文和</b> <i>05:27:04 4/10/99</i>
(<!--responses: 11837-->4)
<ul><!--insert: 11837-->
<!--top: 11843--><li><a href="11843.html">Re: 随机档存取的问题。(已经会用 strconv 及 istrlen, 还是不行)</a> <b>南昌</b> <i>17:45:33 4/10/99</i>
(<!--responses: 11843-->3)
<ul><!--insert: 11843-->
<!--top: 11844--><li><a href="11844.html">Re: 随机档存取的问题。(已经会用 strconv 及 istrlen, 还是不行)</a> <b>南昌</b> <i>17:55:01 4/10/99</i>
(<!--responses: 11844-->2)
<ul><!--insert: 11844-->
<!--top: 11877--><li><a href="11877.html">Re: 随机档存取的问题。(已经会用 strconv 及 istrlen, 还是不行)</a> <b>Knight</b> <i>10:19:30 4/12/99</i>
(<!--responses: 11877-->1)
<ul><!--insert: 11877-->
<!--top: 11885--><li><a href="11885.html">Re: 随机档存取的问题。(已经会用 strconv 及 istrlen, 还是不行)</a> <b>Knight</b> <i>11:58:54 4/12/99</i>
(<!--responses: 11885-->0)
<ul><!--insert: 11885-->
</ul><!--end: 11885-->
</ul><!--end: 11877-->
</ul><!--end: 11844-->
</ul><!--end: 11843-->
</ul><!--end: 11837-->
</ul><!--end: 11830-->
<br><hr size=7 width=75%><p>

</body></html>

11830.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 11830.html 源码文件，采用 HTML 编程语言编写，共 46 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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