我在读取一个文本文件固定位置时，得到一种字符串，形状如下：
0V@2V
0uA@1MA
398.297327uA@1MA
0.974035V@2V
1000V@2V
-54.024479V@2V
0.537198V@2V

目前想光提取前面的数值，例如：

0V@2V                                   0
0uA@1MA                                 0
398.297327uA@1MA                        398.297327
0.974035V@2V            提取成==>       0.974035
1000V@2V                                1000
-54.024479V@2V                          -54.024479
0.537198V@2V                            0.537198


这种通用的字符串截取语句怎么写？

[此贴子已经被作者于2018-2-28 11:35编辑过]

一行一行的使用 val 函数就可以了。

你始终是字符串的处理都搞不清楚，一直在这样的问题上纠结……

Rem 用正则解决这个问题，首先引用Microsoft VBScript Regular Expressions 5.5
Dim exp As New RegExp
Dim strReg As String
strReg = "[0-9.-]+"
exp.Global = True
exp.Pattern = strReg
Dim mach As MatchCollection
Set mach = exp.Execute("-34234.33ffdfj")

 
MsgBox mach(0).Value

Rem  如果是取多个可以如下：

Set mach = exp.Execute("-34234.33ffdfjFJFJ3242，EWRW0.2344")
Dim i As Integer

 For i = 0 To mach.Count - 1
  MsgBox mach(i).Value

 Next

[此贴子已经被作者于2018-2-28 18:11编辑过]

你这个@后面还有一个数字，用替换比较好

Dim exp As New RegExp
Dim strReg As String
strReg = "[a-zA-Z]+@\d+\w+"
exp.Global = True
exp.Pattern = strReg
Dim mach As MatchCollection
'Set mach = exp.Execute("0uA@1MA")
Dim str As String
str = exp.Replace("23423Ad@9jjl", "")
MsgBox str

[此贴子已经被作者于2018-2-28 18:27编辑过]

判首字符如果是数字，之后使用val函数。
判断的作用：如果首字符不是数字，他也会返回0，排除这种特例。

[此贴子已经被作者于2018-3-1 15:16编辑过]

前面逐行读取就不说了
后面处理如下：
Dim a As Integer, b As String, c As String, i As Integer
a = Len(字符串)
For i = 1 To a
    b = Mid(字符串, i, 1)
    If IsNumeric(b) = True Or b = "-" Or b = "." Then
        c = c + b
    Else
        Exit For
    End If
Next
MsgBox c

[此贴子已经被作者于2018-3-1 15:41编辑过]