您可以使用 RegEx 轻松完成此操作。例如:
Dim input As String = "ITQPopup('100',255,'2932 NTYwNDUwMTA0MDYzMDM);3094 V0FZ','-1909432577',0,0)"
Dim pattern As String = "ITQPopup\('(.*?)',(.*?),'(.*?)','(.*?)',(.*?),(.*?)\)"
Dim m As Match = Regex.Match(input, pattern)
If m.Success Then
Dim param1 As String = m.Groups(1).Value
Dim param2 As String = m.Groups(2).Value
Dim param3 As String = m.Groups(3).Value
Dim param4 As String = m.Groups(4).Value
Dim param5 As String = m.Groups(5).Value
Dim param6 As String = m.Groups(6).Value
End If
如有必要,您可以进一步改进模式,以允许参数之间的空白等。但这是最简单的工作示例。