擅长:python、mysql、java
<p>'获取要匹配的文本</p>
<pre><code>Dim fileText As String = "WhereEver.txt"
</code></pre>
<p>'创建一个匹配字符串,包括接受像“.23”这样的数字'</p>
<pre><code>Dim Reg As New Regex("(\d) (.+) (\d\.\d|\.\d)", RegexOptions.Multiline)
</code></pre>
<p>'获取字符串中的所有匹配项。你知道吗</p>
<pre><code>Dim regMatch As MatchCollection = Reg.Matches(fileText)
</code></pre>
<p>'遍历每个组并获得第3项,即十进制数。你知道吗</p>
<pre><code>For x = 0 To regMatch.Count - 1
DoWhatEverYouNeedToDoWithIt()
MsgBox(regMatch.Item(x).Groups.Item(3).Value)
Next
</code></pre>
<p>可以使用<code>For[...]</code>返回所需的值,从Item()1到3(1是8位数字,2是名称,3是小数)。或者整个团队都能得到。<em>我的示例代码中使用了第3项。</em></p>
<p>所有代码:<em>(测试和工作)</em></p>
<pre><code>Dim fileText As String = "WhereEver.txt"
Dim Reg As New Regex("(\d) (.+) (\d\.\d|\.\d)", RegexOptions.Multiline)
Dim regMatch As MatchCollection = Reg.Matches(fileText)
For x = 0 To regMatch.Count - 1
MsgBox(regMatch.Item(x).Groups.Item(3).Value)
Next
</code></pre>