数据提取

Question

vb数据

Answer 1

r = Val(Mid(strLine, p + Len("圆心角: ANG=")))

Answer 2

我这里可以。输出了 116.6。Option ExplicitPrivate Sub Command1_Click()
Dim tmp As Double    Call Get_Coordinate2("     圆心角: ANG=116.600", tmp)
    Debug.Print tmp
End SubPrivate Sub Get_Coordinate2(ByVal strLine As String, ByRef r As Double)
Dim p As Integer
    p = InStr(strLine, "圆心角: ANG=")
    If p Then
        r = Val(Mid(strLine, p + Len("圆心角: ANG=")))
    End If
End Sub

Answer 3

of123  说的是可以出结果的你看下你的 "圆心角: ANG=" 这个字符串写错了，跟textbox中的是否一致

Answer 4

楼上指出错误了，谢谢!
特别感谢off123，每次都很耐心的帮忙。谢谢