Воспоминание мультимедия 18 02 2025 - Вот так будем парзить: Main() strCmd

Germany.ru → Группы → Дневник тяжелобольного инвалида

Воспоминание мультимедия 18.02.2025

427 просмотров Перейти к просмотру всей ветки

Сегодня, 14:15

Re: Воспоминание мультимедия 18.02.2025

uscheswoi_82 патриот

в ответ uscheswoi_82 Сегодня, 14:08

Вот так будем парзить:

Sub Main()
  Dim strCmd as String = "HOTSPOTS 10 10 100 20 0"
  Dim arrResult() as String
  Dim i as Integer 
  arrResult = Split(strCmd, " ")
  For i = LBound(arrResult, 1) To UBound(arrResult, 1)
    MsgBox arrResult(i)
  Next i
End Sub

Результат работы алгоритма:

HOTSPOTS
10
10
100
20
0

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение

Перейти на