1. VisualBasic / Говнокод #5434

    −81

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    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

    Мой старый парсер XML-погоды с Yahoo. System.Xml? Нет, не слышал.

    Запостил: RaZeR, 28 Января 2011

    Комментарии (3) RSS

    Добавить комментарий