主题：表达式？

Dim s As String = "<fea=""123"" />"
Dim i As Integer = s.IndexOf("""")
Dim j As Integer = s.LastIndexOf("""")
Output.Show(s.SubString(i + 1,j - i - 1))

或者：

Dim s As String = Tables("表A").Current("第一列")

Dim i As Integer = s.IndexOf("""")
Dim j As Integer = s.LastIndexOf("""")
Output.Show(s.SubString(i + 1,j - i - 1))