Mistři v programování na #hovnokod

Visual Basic #586

Try
            RichTextBox1.Text = int.OpenURL(adress & TextBox1.Text & units)
            tmpStr = RichTextBox1.Text.Split(">")

            Header = tmpStr(4).Split("<")

            lblHeader.Text = Header(0)
            CityName = Trim(Mid$(Header(0), 17, Len(Header(0)) - 16))

            outCName = CityName

            Codemass = tmpStr(43).Split(Chr(34))

            CodeNum = CInt(Codemass(3))


            tMass = tmpStr(43).Split(Chr(34))
            WCmass = tmpStr(17).Split(Chr(34))
            ATmass = tmpStr(18).Split(Chr(34))

            outWindC = "W: " & WCmass(3) & "o," & WCmass(5) & unSpd
            'outWCode = WCondition(CodeNum)


            outWState = tMass(1) & ","
            outTemp = tMass(5)
            outTemp = outTemp & Mid(units, 4, 1)

            outDate = tMass(7)
            outHum = ATmass(1) & "%, " & ATmass(5) & unPre
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

HovnoKod,