📄 10082.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: vb一问</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: vb一问</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:harlem73@ms26.hinet.net">哈林</a> on February 11, 1999 at 23:19:58:<p>
In Reply to: <a href="10069.html">vb一问</a> posted by err on February 11, 1999 at 13:46:19:<p>
请测试以下的程式码:<br>请先在From上放置一Text Box 和两个Label<br>Dim nArr()<br>Dim i As Long<br>Dim j As Long<br>Dim k As Long<br>Dim l As Long<br>Dim sStr As String<br>Dim sVal1 As String<br>Dim sVal2 As String<br>Dim cFlag As Boolean<p>Private Sub Form_Load()<br>sStr = "1234567890,.1/;':@#$%^*()_+|[]{}" & """" & "&&"<br>Label2.Caption = sStr<br>cFlag = False<br>i = 1<br>End Sub<p>Private Sub Label1_Click()<br>If Text1.Text <> "" Then<br>   For i = 1 To Len(Text1.Text)<br>       sVal1 = Mid(Text1.Text, i, 1)<br>       For j = 1 To Len(sStr)<br>           sVal2 = Mid(sStr, j, 1)<br>           If cFlag = False Then<br>              If sVal2 = sVal1 Then<br>                 cFlag = True<br>              Else<br>                 cFlag = False<br>              End If<br>           End If<br>       Next j<br>   If cFlag = False Then<br>      ReDim Preserve nArr(k)<br>      nArr(k) = sVal1<br>      k = k + 1<br>   Else<br>      cFlag = False<br>   End If<br>   Next i<br>   sVal1 = ""<br>   For l = 0 To UBound(nArr)<br>       sVal1 = sVal1 & nArr(l)<br>       nArr(l) = ""<br>   Next l<br>   Label1.Caption = sVal1<br>End If<br>End Sub<p> <br>: 条件=若字串阵列s(i)中含1234567890,.1/;'":@#$%^&*()_+|[]{}其中任一个<br>: 叙述=自s(i)中删除以上该字元<br>: 如:"string."---->string<br>:     fat!gh  ---->fatgh<p>: 不知该如何写??<br>: thanks<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10082-->
<!--top: 10084--><li><a href="10084.html">Another solution</a> <b>wei</b> <i>04:34:13 2/12/99</i>
(<!--responses: 10084-->0)
<ul><!--insert: 10084-->
</ul><!--end: 10084-->
</ul><!--end: 10082-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -