Парсинг - 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)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д