Поиск и извлечение данных из TextBox

[wosh]

Всем привет! Искал но так и не нашел.
В TextBox содержится текст примерно такого вида: {"opt_rrp":"-499","wwx_sr":"19.8","cell_x":"01805"}
Их я получаю по средствам microsoft internet transfer control с сайта

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

Dim strURL As String
Dim strToASP As String
Dim strHeader As String
strURL = "http://192.168.1.1/goform/goform_get_cmd_process?cmd=opt_rrp%2Cwwx_sr%2Ccell_x&multi_data=0"
Inet1.Execute strURL, "GET"
Text1.Text = Inet1.GetChunk(1024, icString): Inet1.Cancel

То есть 3 значения : opt_rrp, wwx_sr, cell_x. и их показатели. названия мне не нужны, а вот их показатели, то есть цифры нужно как то извлечь.
То есть чтобы получилось так:

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

Private Sub Command1_Click()
MsgBox opt_rrp
End Sub

Private Sub Command2_Click()
MsgBox wwx_sr
End Sub

Private Sub Command3_Click()
MsgBox cell_x
End Sub

[pronto]

Какие действия вызывают затруднения?

[bon818]

Функция InStr

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

InStr([Start,]String1,String2[,Compare])
InStrB([Start,]String1,String2[,Compare])

Функция InStr(In String) служит для поиска номера символа(номера байта для InStrB), с которого начинается в заданной строке образец поиска. Поиск идет от указанной позиции слева направо. Поиск вхождения одной строки в другую весьма часто используемая операция. Нумерация символов всегда начинается с единицы

[wosh]

Какие действия вызывают затруднения?

Просто я еще профан! и не знаю как искать и извлекать в этом textbox!

[wosh]

Функция InStr

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

InStr([Start,]String1,String2[,Compare])
InStrB([Start,]String1,String2[,Compare])

Функция InStr(In String) служит для поиска номера символа(номера байта для InStrB), с которого начинается в заданной строке образец поиска. Поиск идет от указанной позиции слева направо. Поиск вхождения одной строки в другую весьма часто используемая операция. Нумерация символов всегда начинается с единицы

Не очень понимаю как это использовать!

[pronto]

InStr возвращает позицию вхождения String2 в String1. String1 = Text1.Text, String2 = """"
Для твоей строки {"opt_rrp":"-499","wwx_sr":"19.8","cell_x":"01805"}
InStr вернёт 2 (символ для поиска — двойная кавычка), если в параметр Start передать результат самой функции, то можно пройтись по всей строке:

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

InStr(1, Text1.Text, """") = 2
InStr(2+1, Text1.Text, """") = 10
InStr(10+1, Text1.Text, """") = 12
InStr(12+1, Text1.Text, """") = 17
InStr(17+1, Text1.Text, """") = 19
InStr(19+1, Text1.Text, """") = 26
InStr(26+1, Text1.Text, """") = 28
InStr(28+1, Text1.Text, """") = 33
InStr(33+1, Text1.Text, """") = 35
InStr(35+1, Text1.Text, """") = 42
InStr(42+1, Text1.Text, """") = 44
InStr(44+1, Text1.Text, """") = 50

Теперь тебе известно положение всех кавычек. Дело за Mid, чтобы вырезать нужные данные между 3-й и 4-й кавычкой, 7-й и 8-й, 11-й и 12-й...

[alibek]

1. Функция InStr("var1", "text var1 = val1") вернет 6. Это означает, что в строке "text var1 = val1" подстрока "var1" начинается с 6 позиции и с помощью функции Mid можно извлечь данные, связанные с этой подстрокой.

2. Также можно убрать фигурные скобки. Затем сделать Split по запятой, чтобы получить массив параметров. Затем перебрать в цикле элементы массива и для каждого сделать Split по двоеточию, чтобы разделить название параметра и его значение. Ну и затем убрать обрамляющие кавычки и сравнить название параметра с искомым.

3. Еще можно использовать регулярные выражения (например подключив их из рантайма VBScript). Но нужно понимание, что это такое.

[wosh]

Только проблема в том, что эти цифры могут быть разные. то есть например {"opt_rrp":"-6","wwx_sr":"4.5","cell_x":"0F80E"} то есть кавычки смещаются.
Или я чего то не доганяю. запутался уже.

[bon818]

Если нужны только значения цифр, то можно еще проще сделать _
вот готовый код

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

txt = {"opt_rrp":"-499","wwx_sr":"19.8","cell_x":"01805"}
Dim opt_rrp
Dim wwx_sr
Dim cell_x
Dim txt As String
Dim str1() As String
str1 = Split(txt, """:""")
opt_rrp = Val(str1(1))
wwx_sr = Val(str1(2))
cell_x = Val(str1(3))

[pronto]

Если cell_x в Hex, то cell_x = Val("&H" + str1(3))

[bon818]

тогда уж Left(str1(3), InStr(str1(3), """"))

[wosh]

Всем спасибо, наставления получил, дальше сам.

[Хакер]

Главное наставление: незачем пихать этот текст в TextBox вообще.

[wosh]

Главное наставление: незачем пихать этот текст в TextBox вообще.

да я уже все переобдумал и убрал его.