📄 11975.html
字号:
<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 14, 1999 at 15:13:26:<p>
设备 : 中文版 vb6 (专业版)，配合中文版 Win98。<p>随机档存取，配合下面的程式，当我执行之后，在 Text Box 分别输入 1，3，2，3。<br>(数字是record 的位置)，得出的答案如下：<br>输入 1 得出的答案 1234567890 (正常)<br>输入 3 得出的答案 你好吗 890 (错误，后面出现 890)<br>输入 2 得出的答案 abcdefghij (正常)<br>输入 3 得出的答案 你好吗 hij (错误，后面出现 hij)<p>有谁可以告诉我到底为什么会有这种情形及应该如何解决？(当读取记录(内含中文<br>)，为什么会留有上一张记录的资料)。首要条件是要配合 Type ..End Type 及 Random<br>File。<p>曾经有网友教我利用 len , lenb , strconv , istrlen , 这些指令我已经学会了，但是□没有<br>帮助，因为它在读取随机档时，已经包含那些错误在内，例如 : (...890 及 ...hij) 。但是,<br>我查看 vb6_temp.txt , 它又很正常显示。<p>曾经有网友教我取消 name as string * 10 , 改用 name as string , 如果在 type 里面有很多<br>项目 ，又应该如何设定？<br>谢谢<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>kill "c:\vb6_temp.txt"<br>end Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11975-->
<!--top: 12008--><li><a href="12008.html">多加一行程式即可解决</a> <b>小吴</b> <i>08:28:35 4/15/99</i>
(<!--responses: 12008-->0)
<ul><!--insert: 12008-->
</ul><!--end: 12008-->
</ul><!--end: 11975-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -