📄 1096.html
字号:
<html> <head> <title>配合 Type, Byte Array 以及 StrConv 就可以做出来</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="blue" VLINK="#808080" ALINK="red"> <center> <h1>配合 Type, Byte Array 以及 StrConv 就可以做出来</h1> </center><HR><p>Posted by <a href="mailto:yfwu@iname.com">小吴</a> on October 14, 1997 at 18:13:49:<p>In Reply to: <a href="1081.html"><b>读取中文的随档??</b></a> posted by 吕国正 on October 13, 1997 at 01:23:39:<p>假设人名占 10 bytes, 电话占 20 bytes<p>Private Type tagRecord<br> CName(0 To 9) As Byte<br> TEL(0 To 19) As Byte<br>End Type<p>Private Sub Command1_Click ()<br> Dim uRecord As tagRecord<br> Open "C:\phone.dat" For Random As #1 Len = LenB(uRecord)<br> Get #1, 20, uRecord<br> Debug.Print StrConv(uRecord.CName, vbUnicode)<br> Debug.Print StrConv(uRecord.TEL, vbUnicode)<br> Close #1<br>End Sub<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1096--></ul><!--end: 1096--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -