📄 15651.html
字号:
<html>
<head>
<title>Re: 中文档案的转换</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 中文档案的转换</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:luo570@ms31.hinet.net">小琳</a> on July 14, 1999 at 21:24:19:<p>
In Reply to: <a href="15582.html">中文档案的转换</a> posted by scenario on July 13, 1999 at 13:37:32:<p>
: 如果我要把一文字档，中文字的部份加上 \A 的字串，<br>: 英文字则原封不动的复制，写到另一档案内，<br>: <br>: 即：<br>: a.txt<br>: 学VB找小吴<br>: <br>: b.txt<br>: \A学VB\A找\A小\A吴<br>: <br>: <br>: 要如何做，又如果我想在遇到某一字串之后，<br>: 停止在每一中文字前写入 \A ，<br>: 原封不动的复制其余的档案又如何做。<br>: <br>: <p>:::小女子看了您的问题后，就写了一个小小的程式，希望<br>能够帮您解决问题，程式如下：<p>Private Sub Command1_Click()<br> Dim temp As String, s As String<br> Dim s1() As Byte<br> Dim i As Integer, j(1) As Byte<br> Dim result As String<p><br> Open App.Path & "\a.txt" For Input As #1<br> Open App.Path & "\b.txt" For Output As #2<br> Do<br> temp = Input(1, #1)<br> s = s & temp<br> Loop While Not EOF(1)<br> s1 = StrConv(Trim(s), vbFromUnicode)<br> For i = 0 To UBound(s1) - 2<br> If s1(i) > 127 Then<br> j(0) = s1(i)<br> j(1) = s1(i + 1)<br> i = i + 1<br> result = result & "\A" & StrConv(j, vbUnicode)<br> Else<br> result = result & Chr(s1(i))<br> End If<br> Next i<br> Write #2, result<br> Close #1, #2<br>' For i = 0 To LenB(s1)<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15651-->
</ul><!--end: 15651-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -