i believe there are a few weather widgets over in the widgets forum, and if you take some time and look them over you should be able to see how they work, or do like most people do, and take one and just move the images around, and put some new text on them.

Hi RomanDA;

I am trying to get help on building a weaher 5Day that will pull the XML file and save it to a Directory like my temp dir., then there is a section of the XML file that is advertizing from Weather.com, this XML area screws up the XML file so I have to get this build to either strip the section out of the XML file then read it after the fix.

I can look at the 5Day section of one of the widgets but the XML problem is still there.

Now if the reading of the XML file will over look the Advertizing section and pull the 1st dat Now and Later then it's a go.

I just can't seem to be able to get around the section I am refering to.

Any ideas on that?

that there guy for the reply, I would like to quit using the Samurize program all together and just use DesktopX for all of my weather.

Also take a look at my next post, there is something wrong with using the Internet ActiveX control thats with DesktopX that is showing a Border on the Right and Bottom of the Web Control item. I called Microsoft and they mentioned that DesktopX needs to be changed to handle this. So I am going to leave a message for the Support team to get them to take a look at this.

Thanks

Automan

What XML file are you using? Where from? I think you should be able to parse out the unwanted info and then rewrite the file.

 This is just a quickie file parser code. It'll retrieve the unwanted section, erase it, and rewrite the file.

Just put in your file path and section tags. You might want to test this on another xml file first, before you rewrite your actual xml file...just to see if it works.

Hi sViz;

Good to see you! Long time...

OK to the code andentered the correct directy and file nam to the section you pointed at and the code is as fillows.

1.Dim xmlfile
2.xmlfile = object.Directory & "C:\Users\Automan\AppData\Local\Temp\Weather.2004\Weather.Forecast.37932.English.5.Days.xml" '--YOUR XML FILE HERE
3.'Called when the script is executed
4.Sub Object_OnScriptEnter
5. getcontent = readFile '--get xml contents
6. parsecontent = extractInfo(getcontent,"<to>","</to>"&vbcrlf) '--retrieve unwanted section
7. getcontent = replace(getcontent,parsecontent,"") '--erase unwanted section
8. writefile(getcontent)'--rewrite file
9.End Sub
10.
11.'Declare constants
12.Const ForReading = 1, ForWriting = 2, ForAppending = 8
13.'Declare the file system object
14.Dim fso, f, Msg
15.Set fso = CreateObject("Scripting.FileSystemObject")
16.Function readFile
17. 'Check if file exists
18. If fso.FileExists(xmlfile) Then
19.  Set f = fso.OpenTextfile(xmlfile, ForReading)
20.  fileinfo = f.readall
21.  f.Close
22. Else
23.  msgbox "File does not exist"
24. End If
25. readFile = fileinfo
26.End Function
27.Sub writeFile(newcontent)
28. 'Create a file and write some text
29. Set f = fso.OpenTextfile(xmlfile, ForWriting, True)
30. f.Write newcontent
31. 'Properly close file
32. f.Close
33.End Sub
34.Function extractInfo(info, startStr, endStr)
35. iStart = instr(1, info, startStr)
36. iEnd = instr(iStart, info, endStr)
37. iEnd = iEnd + Len(endStr) '--include closing tag
38. iLength = iEnd - iStart
39. info2 = mid(info, iStart, iLength)
40. extractInfo = info2
41.End Function

Now when I try to save and apply the code I get an immediate errow on line 1--->

Expected statement
Line: 1
Code:
1.Dim xmlfile

Thats it.

Question? Is there a way to get code for an XML weather formation like the picture I have and just use DESKtopX to retreve the Weather data to a directory os choice then strip the bad stuff " Advertizing ", then set where the 42x42 Weather Images are at. the layout all the fields the same as the Samurize config, and just drop Samurize altogether and have the weather running with in the DesktopX Theme I have.

Reason for using only desktopX for the Weather XML and images and info placeed into the same position as I have in the image is that I want the weather to be DesktopX run Weather altogether so that I can release this theme and get permissions and give credits, ets,

This Desktop is aone of a kind not produces or even close to all the DesktopX themes I have seen, this is a real life desktop that have running weather radar using two or three HTML page whice I will make available, with docs.

Take a look at this screen shot and you wisee what I mean:

https://www.wincustomize.com/skins.aspx?skinid=24755&libid=13

The Today Weather at the top I can get working, if i have a script to get going on the 5Day with. I just create two objects and place the weather script to them and presto they are all done withDesktopX and not using another program.

But I do think you are very close in you code to picking out the downloaded XML file and getting rid of the AD section. That wat if Weather.com changes again it's just a matter of stripping some  more of the downloaded file again.

Thanks a Million, I willl try the code again after ya tell me what I probable did wrong on the script you wrote, just to pre check it.

Automan

You have to take out the numbers (1. 2. 3. etc) that get copied with the script. Don't know why the forums copy numbers with the script; kinda defeats the purpose.

Don't forget to change the XML tags in this line to the ones you're stripping out:

parsecontent = extractInfo(getcontent,"<to>","</to>"&vbcrlf) '--retrieve unwanted section

Here's the code again without those numbers:

Dim xmlfile
xmlfile = object.Directory & "hi.xml" '--YOUR XML FILE HERE

'Called when the script is executed
Sub Object_OnScriptEnter
 getcontent = readFile '--get xml contents
 parsecontent = extractInfo(getcontent,"<to>","</to>"&vbcrlf) '--retrieve unwanted section
 getcontent = replace(getcontent,parsecontent,"") '--erase unwanted section
 writefile(getcontent)'--rewrite file
End Sub

'Declare constants
Const ForReading = 1, ForWriting = 2, ForAppending = 8
'Declare the file system object
Dim fso, f, Msg
Set fso = CreateObject("Scripting.FileSystemObject")

Function readFile
 'Check if file exists
 If fso.FileExists(xmlfile) Then
  Set f = fso.OpenTextfile(xmlfile, ForReading)
  fileinfo = f.readall
  f.Close
 Else
  msgbox "File does not exist"
 End If
 readFile = fileinfo
End Function

Sub writeFile(newcontent)
 'Create a file and write some text
 Set f = fso.OpenTextfile(xmlfile, ForWriting, True)
 f.Write newcontent
 'Properly close file
 f.Close
End Sub

Function extractInfo(info, startStr, endStr)
 iStart = instr(1, info, startStr)
 iEnd = instr(iStart, info, endStr)
 iEnd = iEnd + Len(endStr) '--include closing tag
 iLength = iEnd - iStart
 info2 = mid(info, iStart, iLength)
 extractInfo = info2
End Function

I'm inclined to say yes. If all the information present in the screenshot above is retreived from an XML file, you should be able to strip out the info you need and apply them to text objects or image objects. But without seeing the actual XML file you're using, I can only postulate on how to do that. If you can send or point me to an example XML file like the one you're using I might be able to tailor the code.

Here is the tutorial I read to get started on making rss readers -- LINK

Hi sViz;

OK Tried the new code and get an error with DesktopX " Line 7 ) needed"?

Here is the XML file I use:

 This document is intended only for use by authorized licensees of The  

 Weather Channel. Unauthorized use is prohibited.  Copyright 1995-2009, 

 The Weather Channel Interactive, Inc.  All Rights Reserved.            

is it just me, or does the scare other people too?

Uh, yeah. I don't see this kind of xml file anywhere for public download on weather.com. Automan, are you sure you're allowed to use this?

Hithere again:

I signed up for the Weather.com XML and lave a license code and aut. code.

I pull today.XML and I pull 5 Day..

No prob folks, it is best to get a free license from them justlook on their site for tools and on the left of the list on down a ways the is the Weather.com XLM feed sign up "FREE"

This is mine with license:

<?xml version="1.0" encoding="ISO-8859-1" ?>

 This document is intended only for use by authorized licensees of The  

 Weather Channel. Unauthorized use is prohibited.  Copyright 1995-2009, 

 The Weather Channel Interactive, Inc.  All Rights Reserved.