在数据集中将其输出为 2 列可能更容易......但如果你不能,那么第二个选择是使用 VB 代码。
右键单击代码后面的空格,然后单击“报告属性”。
然后在代码部分粘贴这个:
Function SplitText(text As String, column As Int16) As String
If (column = 1) Then
Return text.Substring(0, text.Substring(0, text.IndexOf(".com") + 4).LastIndexOf(" "))
Else
Return text.Substring(text.Substring(0, text.IndexOf(".com") + 4).LastIndexOf(" ") + 1)
End If
End Function
然后在您的报告中使用此表达式作为第一列:
=Code.SplitText(Fields!text.Value,1)
这是第二个
=Code.SplitText(Fields!text.Value,2)
你有你的结果!
编辑
或者,如果您只想使用自己的电子邮件地址,请使用以下代码:
Function GetEmail(text As String) As String
Dim Result As String
Result = text.Substring(text.Substring(0, text.IndexOf(".co") + 3).LastIndexOf(" ") + 1)
Result = Result.Substring(0, Result.IndexOf(" "))
Return Result
End Function