парсинг строчки

[Invader]

после post запроса я получаю динамическую переменную string следующего вида:
"{"status":0,"id":"a13eeda883ca258930baac345fcab907-1","hypotheses":[{"utterance":"этот текст только и нужен","confidence":0.5503715}]}" без кавычек.
стал вырезать излишек - {"status":0,"id":"a13eeda883ca258930baac345fcab907-1","hypotheses":[{"utterance":"
следующим методом

Код: Выделить всё

dim s as string
s="{"status":0,"id":"a13eeda883ca258930baac345fcab907-1","hypotheses":[{"utterance":"этот текст только и нужен","confidence":0.5503715}]}"
TextBox1.Text = Microsoft.Visualbasic.Left(s, 83)

но тег "ID" различную длину вызова! Да и не нашел чем вырезать правую часть -","confidence":0.5503715}]}

была идея отыскивать ":" и ";" , а после отсеивать с лева и справа соответственно. Но процесс будет скорее долгий да ещё и не ясный.
может кто знает другой более правильный способ

[FireFenix]

1) Искать utterance":" и делать выборку до следующей кавычки
2) Regular Expressions

[Sam777e]

Код: Выделить всё

' Специально расписал подробно; можно было обойтись одной строкой . . .

Sub A()
  Dim s As String, S1 As String, Kav As String, j As Long, jStart As Long, jEnd As Long
 
  Kav = Chr$(34)

's="{"  . . . eses":[{"utterance":"этот текст только и нужен","con . . . }"
 
  j = InStr(1, s, "utterance")  ' . . ."utterance":"этот текст только и нужен" . . .
'---------------------------------------^
 
  j = InStr(j + 1, s, Kav)      ' . . ."utterance":"этот текст только и нужен" . . .
'------------------------------------------------^
 
  j = InStr(j + 1, s, Kav)      ' . . ."utterance":"этот текст только и нужен" . . .
'--------------------------------------------------^
 
  jStart = j + 1                ' . . ."utterance":"этот текст только и нужен" . . .
'                                                   ^
'---------------------------------------------------^

  j = InStr(jStart, s, Kav)     ' . . ."utterance":"этот текст только и нужен" . . .
'----------------------------------------------------------------------------^
 
  jEnd = j - 1
 
  S1 = Mid$(s, jStart, jEnd - jStart + 1)
  Debug.Print "-"; S1; "+"
 
End Sub
   



[iGrok]

А я бы лучше использовал нормальный парсер json...

[SaturnKZ]

Код: Выделить всё

TextBox1.Text = Regex.Match(s, """utterance"":""(?<utterance>[^""]*)""").Groups("utterance").Value

[Invader]

огромное спасибо Всем!
iGrok

А я бы лучше использовал нормальный парсер json...

в моих примерах по которым я веду свой проект использовалось System.Runtime.Serialization.Json пример был на C# и после трассировки на vb.net код выдал массу ошибок, я к сожалению плохо в этом понимаю...

В целом у Всех замечательные примеры и советы, ещё раз спасибо