5922.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行
HTML
23 行
<html>
<head>
<title>Re: val细问 ....</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: val细问 ....</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by 832065 on September 23, 1998 at 11:21:49:<p>
In Reply to: <a href="5799.html">Re: val细问 ....</a> posted by AndyLin on September 19, 1998 at 10:37:38:<p>
: : dim stra as string<br>: : dim inta as integer<br>: : stra="A B C D"<br>: : inta=val(stra)<br>: : 假设A,B,C,D为四个整数值....<br>: : 我们都知道执行完上面三行的程式<br>: : 后, inta 的值为ABCD,空白键会被乎略掉,<br>: : 有没什么办法,<br>: : 可以分别读取A,B,C,D这四个数值呢???<br>: : 注意哦!A,B,C,D这四个数字的位数并不一定....<br>: : 假设A=1,B=10,C=10,D=1或者<br>: : A=150,B=2,C=20,D=123466那么,要如何撰写程式呢???<br>: : 我试过用 LEFT 这个函数写一个回圈程式,<br>: : 可是......好像没那么简单哦....试试看....<br>: : 小弟在此先行谢过了.... <p>: 以下是我写的程式,请参考看看<br>: :text1 是所要分析之字串,且并不知道其中含有几个item<p>: Dim i, j As Integer<br>: Dim vData() As String<br>: Dim Str1 As String<br>: Text1 = Trim(Text1) & " "<br>: Str1 = Text1<br>: 'get how many item<br>: For i = 1 To Len(Text1)<br>: If InStr(1, Text1, " ") <> 0 Then<br>: j = j + 1<br>: Text1 = Right(Text1, Len(Text1) - InStr(1, Text1, " "))<br>: End If<br>: Next<br>: 'put the item into vdata()<br>: ReDim vData(j)<br>: Text1 = Str1<br>: j = 0<br>: For i = 1 To Len(Text1)<br>: If InStr(1, Text1, " ") <> 0 Then<br>: vData(j) = Left(Text1, InStr(1, Text1, " ") - 1)<br>: Text1 = Right(Text1, Len(Text1) - InStr(1, Text1, " "))<br>: j = j + 1<br>: End If<br>: Next<p>嗯!这个办法有用哦!原来回圈还可以这样用....<br>谢谢你了,AndiLin<br>832065 1998/9/23<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5922-->
</ul><!--end: 5922-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?