Вот вариант с использованием регулярных выражений:
Dim Regex As System.Text.RegularExpressions.Regex
Dim SubjectString As String = "BOOKINGID=[""15786176"",""priyanka.b.bhardwaj@ericsson.com""]"
Dim ResultString As String = Regex.Replace(SubjectString, ".*""(\d+)"".*", "$1")
Console.WriteLine(ResultString)
Это печатает:
15786176
Используется шаблон регулярного выражения .*""(\d+)"".*
, который говорит, что соответствует числу, заключенному в двойные кавычки, которому самому предшествует и следует любой другой контент.
Обратите внимание, что API Regex.Replace
, по-видимому, применяет шаблон ко всей строке, отсюда и необходимость в том, что было использовано выше.