- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 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? Нет, не слышал.
koodeer 28.01.2011 23:18 # +1
О различиях между VB и VB.NET тоже не слышал?
RaZeR 29.01.2011 16:18 # 0
Lure Of Chaos 29.01.2011 16:36 # +1