6784.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<html>
  <head>
    <title>抓出Unicode的秘诀!</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>抓出Unicode的秘诀!</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:swbo1@m2.dj.net.tw">中文化软体联盟~Hank</a> on October 27, 1998 at 11:55:37:<p>
<h3><br>Dim unicode As String<br>Dim A(1 To 150000) As Byte<br>If Text1.Text <> "" And Text2.Text <> "" Then<br>Open Text1.Text For Binary As #1<br>Open Text2.Text For Output As #2<br>fil = LOF(1)<br>i = 10241<br>Do While i < fil<br>Get #1, i, A()<br>n = 1<br>unicode = ""<br>Do While n < 150000<br>aa = 0<p>aa = A(n)<br>BB = A(n + 1)<p>If BB = 0 Then<p>If aa > 31 And aa < 127 Then<br>unicode = unicode + Chr(A(n))<br>n = n + 2<br>Else<br>If unicode <> "" And LenB(unicode) > 4 And aa <= 30 Then<br>g = g + 1<br>Label3.Caption = g<p>zz = n - (Len(unicode) * 2) + i - 1<p>Print #2, unicode<br>Print #2, unicode<br>Print #2, LTrim(RTrim(zz))<br>End If<br>unicode = ""<br>n = n + 2<p>End If<p>Else<br>n = n + 1<br>unicode = ""<br>End If<br>Loop<br>i = i + 150000<br>Loop<br>Close<p>x = MsgBox("抓取完成 !")<p>Dim RetVal<p>RetVal = Shell("notepad " + Text2.Text, 1)<p>End If<br></h3>
<br>
<ul><li><a href="http://miau.hort.ntu.edu.tw/cpatch/">中文化</a></ul>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6784-->
</ul><!--end: 6784-->
<br><hr size=7 width=75%><p>

</body></html>

6784.html - 源码说明

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

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

⌨️ 快捷键说明

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