Парсинг - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем привет! Ребят, помогите распарсить.
как сделать перебор в цикле? 1. -33159467 4179036 1507306501 0 2. -33159467 4192429 1523651165 https:\/\/pp.userapi.com\/c7003\/v7003736\/4b79f\/NQNiFf58LOE.jpg 1 Ну и т.д

Решение задачи: «Парсинг»

textual
Листинг программы
Dim s As String = "-33159467?4179036?1507306501??0;-33159467?4192429?1523651165?https:\/\/pp.userapi.com\/c7003\/v7003736\/4b79f\/NQNiFf58LOE.jpg?1;-33159467?4192428?1523649969?https:\/\/pp.userapi.com\/c7003\/v7003736\/4b797\/nC80PsBQKXw.jpg?0;-33159467?4192426?1523648760?https:\/\/pp.userapi.com\/c7003\/v7003040\/4b105\/Qn2Sk1UOpiE.jpg?0;-33159467?4192424?1523647561?https:\/\/pp.userapi.com\/c7003\/v7003040\/4b0fd\/Xb29w0hqf-4.jpg?0;-33159467?4192423?1523646374?https:\/\/pp.userapi.com\/c7003\/v7003040\/4b0ec\/j2YHjv5_CPo.jpg?0;-33159467?4192422?1523645168?https:\/\/pp.userapi.com\/c7003\/v7003891\/4c21d\/G5UXQwQC36k.jpg?0;"
Dim ss() As String = s.Split(";"c)
Dim sb As New System.Text.StringBuilder
For i = 0 To ss.Length - 2
    sb.AppendLine((i + 1).ToString & ".")
    Dim sss() As String = ss(i).Split("?"c)
    sb.AppendLine(sss(0))
    sb.AppendLine(sss(1))
    sb.AppendLine(sss(2))
    sb.AppendLine(sss(3))
    sb.AppendLine(sss(4))
    sb.AppendLine()
Next
Dim out As String = sb.ToString
MsgBox(out)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5