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

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