Как извлечь URL из источника HTML в vb.net

Question

Мой вопрос: у меня есть программа, которая извлекает весь исходный код указанного URL. Исходный код будет сохранен в переменной.

Часть исходного кода выглядит следующим образом:

"thumbnail_src":"https:\/\/scontent-fra3-1.blablabla.com\/t51.2885-15\/s640x640\/sh0.08\/e35\/1234567_984778981596410_1107218704_n.jpg","is_video":false, 

Код имеет довольно кучу этих URL-адресов. Я хочу, чтобы мой код искал часть "thumbnail_src":" в качестве маркера для начала процесса извлечения и прекратил извлечение в ","is_video":

Это должно быть очевидно сделано в цикле до тех пор, пока все URL-адреса не будут извлечены и не сохранены в листинге.

Как я могу это достичь?

Answer 1

В свете вашего недавнего изменения я собираюсь повторить этот ответ.

Поскольку это похоже на то, что все идет на одной строке текста, вот как бы я справился с этим.

Dim LargetxtLine as String = TheVeryLargylineofText 
Dim CommaSplit as String() = LargetxtLine.split(","c) 
Dim URLList as New List(of String) 
Dim RG as New Regex("\"":\""(.*)\""") 

For Each str as String in CommaSplit 
    If str.contains("thumbnail_src") Then 
      URLList.Add(RG.Match(str).value) 
    End If 
Next 

Это разобьет длинную строку текста в управлении части, а затем он использует регулярное выражение, чтобы добавить его в список URL-адреса (URLList)

Оттуда вы можете делать что угодно со списком (из строки).

Существует еще один способ сделать это без расщепления от 's

если вы используете этот Regex

"thumbnail_src\"":\""(.*?)\"",\""is_video" 

Складывая „?“ там превращается в жадное утверждение, означающее, что оно остановится при первом возникновении.

После этого вы можете создать URLList как этот

DIM RG as New Regex("thumbnail_src\"":\""(.*?)\"",\""is_video") 
Dim URLList as MatchCollection = RG.Matches(reallybigString) 

Это действительно личное предпочтение

Answer 2

Я пытаюсь получить, что Regexp в мой исходный код. Тот, который написал codexer, что правильно, но я получаю eerrors в visual basic net.

 Dim regex As Regex = New Regex("thumbnail_src""": """(.*)""","""is_video") 
    Dim match As Match = regex.Match(sourceString) 

    If match.Success Then 
     Console.WriteLine(match.Value) 
    End If 

Я попробовал это way..and также таким образом:

Dim regex As Regex = New Regex("thumbnail_src":"(.*)","is_video") 

Что-то не так, как я вхожу код регулярного выражения.

Вот правильный один мне нужно реализовать:

https://regex101.com/r/hK0xH8/4

thumbnail_src":"(.*)","is_video