<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="http://msmvps.com/utility/FeedStylesheets/rss.xsl" media="screen"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:wfw="http://wellformedweb.org/CommentAPI/"><channel><title>#region Coad's Code : Scripting</title><link>http://msmvps.com/blogs/coad/archive/tags/Scripting/default.aspx</link><description>Tags: Scripting</description><dc:language>en</dc:language><generator>CommunityServer 2008.5 SP2 (Build: 40407.4157)</generator><item><title>Favorite Web Design Links</title><link>http://msmvps.com/blogs/coad/archive/2005/04/09/favorite-web-design-links.aspx</link><pubDate>Sun, 10 Apr 2005 04:43:00 GMT</pubDate><guid isPermaLink="false">d67277c4-116b-43f1-b688-e9ef184ea916:41468</guid><dc:creator>coad</dc:creator><slash:comments>1</slash:comments><wfw:commentRss xmlns:wfw="http://wellformedweb.org/CommentAPI/">http://msmvps.com/blogs/coad/rsscomments.aspx?PostID=41468</wfw:commentRss><comments>http://msmvps.com/blogs/coad/archive/2005/04/09/favorite-web-design-links.aspx#comments</comments><description>&lt;p&gt;These are some of my core reference links that I consistently refer back to while working on the web (mostly from &lt;a href="http://msdn.microsoft.com/"&gt;MSDN&lt;/a&gt;). I also use them with &lt;i&gt;many&lt;/i&gt; other projects, but most frequently with web/html/scripting/xml apps. The main links have been listed on my IE Links toolbar for awhile and now I can replace them all with a single link here. &lt;img style="position:relative;top:2px;" src="http://coad.net/blog/images/SmileDot.gif" alt="" /&gt;&lt;/p&gt; &lt;p&gt;I&amp;#39;ll be updating this as I come across more. If you have any recommendations of reference links you use frequently, please leave a comment and I&amp;#39;ll add them.&lt;/p&gt; &lt;p&gt;&lt;a class="" title="MainReferences" name="MainReferences"&gt;&lt;/a&gt;&lt;b class="head"&gt;Main References&lt;/b&gt;&lt;br /&gt;&lt;a href="http://msdn2.microsoft.com/en-us/library/ms531207(VS.85).aspx"&gt;CSS&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms531197.aspx"&gt;Color&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms533054.aspx"&gt;DHTML&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms536473.aspx"&gt;HTA&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/1400241x.aspx"&gt;Regex&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/yek4tbz0.aspx"&gt;JScript&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/98591fh7.aspx"&gt;WSH&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms532853(VS.85).aspx"&gt;Filters&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/bstcxhf7"&gt;Script Runtime&lt;/a&gt;, &lt;a class="" href="http://msdn2.microsoft.com/en-us/library/aa299742(SQL.80).aspx"&gt;SQL&lt;/a&gt;&lt;/p&gt; &lt;p&gt;&lt;a class="" title="eXtensibleMarkupLanguage" name="eXtensibleMarkupLanguage"&gt;&lt;/a&gt;&lt;b class="head"&gt;eXtensible Markup Language&lt;/b&gt;&lt;br /&gt;&lt;a href="http://msdn2.microsoft.com/en-us/library/ms256177.aspx"&gt;XML&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms256058.aspx"&gt;XSLT&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms256086.aspx"&gt;XPath&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms764730(VS.85).aspx"&gt;DOM&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms761386.aspx"&gt;Node&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/ms535918(VS.85).aspx"&gt;DHTML&lt;/a&gt;, &lt;a href="http://msdn2.microsoft.com/en-us/library/system.xml.xmlnode.aspx"&gt;XmlNode,&lt;/a&gt;&amp;nbsp;&lt;a href="http://msdn2.microsoft.com/en-us/library/system.xml.linq.xnode.aspx"&gt;XNode&lt;/a&gt; &lt;/p&gt; &lt;p&gt;&lt;a class="" title="SecondaryLinks" name="SecondaryLinks"&gt;&lt;/a&gt;&lt;b class="head"&gt;Secondary Links&lt;/b&gt;&lt;br /&gt; &lt;ul style="margin-top:0px;"&gt; &lt;li&gt;&lt;a href="http://msdn2.microsoft.com/en-us/library/ms531385.aspx"&gt;HTML Data Binding&lt;/a&gt;  &lt;li&gt;&lt;a href="http://msdn2.microsoft.com/en-us/library/ms536496.aspx"&gt;HTML Applications (HTA) Intro&lt;/a&gt;  &lt;li&gt;&lt;a href="http://msdn2.microsoft.com/en-us/library/ms532847.aspx"&gt;Introduction to IE Filters and Transitions&lt;/a&gt;  &lt;li&gt;&lt;a href="http://www.discountasp.net/"&gt;DiscountASP.NET Web Hosting&lt;/a&gt; (my &lt;a href="http://coad.net/"&gt;coad.net&lt;/a&gt; provider)&lt;/li&gt;&lt;/ul&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;&lt;img src="http://msmvps.com/aggbug.aspx?PostID=41468" width="1" height="1"&gt;</description><category domain="http://msmvps.com/blogs/coad/archive/tags/Scripting/default.aspx">Scripting</category><category domain="http://msmvps.com/blogs/coad/archive/tags/General/default.aspx">General</category></item><item><title>Well Formatted Blog, Can't Directly Copy from MS Word</title><link>http://msmvps.com/blogs/coad/archive/2004/04/14/5032.aspx</link><pubDate>Thu, 15 Apr 2004 04:06:00 GMT</pubDate><guid isPermaLink="false">d67277c4-116b-43f1-b688-e9ef184ea916:5032</guid><dc:creator>coad</dc:creator><slash:comments>3</slash:comments><wfw:commentRss xmlns:wfw="http://wellformedweb.org/CommentAPI/">http://msmvps.com/blogs/coad/rsscomments.aspx?PostID=5032</wfw:commentRss><comments>http://msmvps.com/blogs/coad/archive/2004/04/14/5032.aspx#comments</comments><description>&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;Wow!  Well I just had to go back through all my posts and repost them all.  It seams that one can &lt;b&gt;&lt;i&gt;not&lt;/i&gt;&lt;/b&gt; directly copy and paste from a Microsoft Word document to achieve a nicely formatted blog.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;Invalid XML code is the end result causing the RSS feed to break.  This not only affects my blog’s feed, but also the main MSMVPS.org feed.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;Thanks to Miha Markic for pointing this out quickly before I had posted much more than the first 10 initial posts!!&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;a href="http://www.rthand.com/"&gt;&lt;font face="Verdana" size="2"&gt;http://www.rthand.com/&lt;/font&gt;&lt;/a&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;I’ve spent much time checking and rechecking the RSS feed and it is now verifiable XML.  Thank goodness! BUT it can’t currently be validated by the most common online RSS validator because it BOMBS (see next post)!  You can however validate it is a valid XML file with a simple XML parse like my previous post shows.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;Much thanks to Roy Osherove's blog on “Pasting nicely formatted code into your blog” which explains the correct steps to use.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;a href="http://weblogs.asp.net/rosherove/archive/2004/02/05/67957.aspx"&gt;&lt;font face="Verdana" size="2"&gt;http://weblogs.asp.net/rosherove/archive/2004/02/05/67957.aspx&lt;/font&gt;&lt;/a&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 12pt"&gt;&lt;font face="Verdana" size="2"&gt;Here are the steps from Roy’s blog that work well:&lt;/font&gt;&lt;/p&gt;
&lt;ul style="MARGIN-TOP: 0in" type="square"&gt;
&lt;li class="MsoNormal" style="MARGIN: 0in 0in 0pt; mso-list: l0 level1 lfo1; tab-stops: list .5in"&gt;&lt;font face="Verdana" size="2"&gt;Write the code in VS.NET &lt;/font&gt;&lt;/li&gt;
&lt;li class="MsoNormal" style="MARGIN: 0in 0in 0pt; mso-list: l0 level1 lfo1; tab-stops: list .5in"&gt;&lt;font face="Verdana" size="2"&gt;Paste it into a new Word document &lt;/font&gt;&lt;/li&gt;
&lt;li class="MsoNormal" style="MARGIN: 0in 0in 0pt; mso-list: l0 level1 lfo1; tab-stops: list .5in"&gt;&lt;font face="Verdana" size="2"&gt;Save the document as HTML (filtered) (or .Text will have trouble with it) &lt;/font&gt;&lt;/li&gt;
&lt;li class="MsoNormal" style="MARGIN: 0in 0in 0pt; mso-list: l0 level1 lfo1; tab-stops: list .5in"&gt;&lt;font face="Verdana" size="2"&gt;Close the doc, then re-open it without changing any text after that (this is an important step)&lt;/font&gt;&lt;/li&gt;
&lt;li class="MsoNormal" style="MARGIN: 0in 0in 0pt; mso-list: l0 level1 lfo1; tab-stops: list .5in"&gt;&lt;font face="Verdana" size="2"&gt;Copy the code from the doc into your blog post&lt;/font&gt;&lt;/li&gt;&lt;/ul&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;Word is a great way to compose the post.  I use a single celled table with a white background for the code window and set the tabs to .25”.  This allows me to just copy and paste from Visual Studio.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;Here is a VB Script that is based off of the script by Roy.  I recommend making a Blog.dot Word Template, putting this in the module, and putting a button on a toolbar to access the code.  Then base blog posts off of the template.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;table class="MsoNormalTable" style="BACKGROUND: white; BORDER-COLLAPSE: collapse; mso-padding-alt: 0in 0in 0in 0in" cellspacing="0" cellpadding="0" border="0"&gt;
&lt;tbody&gt;
&lt;tr style="mso-yfti-irow: 0; mso-yfti-firstrow: yes; mso-yfti-lastrow: yes"&gt;
&lt;td style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 5.4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: windowtext 1pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: windowtext 1pt solid; BACKGROUND-COLOR: transparent" valign="top"&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="COLOR: blue; FONT-FAMILY: 'Courier New'"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;Sub FormatCodeForBlog()&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  ActiveDocument.Save&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  ActiveDocument.SaveAs FileName:="Blog-Temp.htm", FileFormat:=wdFormatFilteredHTML, _&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    &lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  ActiveDocument.SaveAs FileName:="Blog-Temp2.htm", FileFormat:=wdFormatFilteredHTML, _&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    LockComments:=False, Password:="", AddToRecentFiles:=False, WritePassword _&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    &lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  RecentFiles(1).Open&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  Selection.WholeStory&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  Selection.Copy&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  RecentFiles(2).Open&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  &lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  Dim doc As Document&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  &lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  For Each doc In Documents&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;    If doc.Name = "Blog-Temp.htm" Or doc.Name = "Blog-Temp2.htm" Then doc.Close&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  Next doc&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  &lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;  MsgBox "Proper blog compatible XHTML has been copied to the clipboard."&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;End Sub&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="COLOR: blue; FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;The code may seam strange with the two files going on but I found that if you close the active document, the macro stops.  Since the file must be reloaded, a second file is created then the first opened.  This macro also returns you back to your original document.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt; &lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;&lt;img src="http://msmvps.com/aggbug.aspx?PostID=5032" width="1" height="1"&gt;</description><category domain="http://msmvps.com/blogs/coad/archive/tags/XML/default.aspx">XML</category><category domain="http://msmvps.com/blogs/coad/archive/tags/Scripting/default.aspx">Scripting</category><category domain="http://msmvps.com/blogs/coad/archive/tags/General/default.aspx">General</category></item><item><title>JScript XML Data Access</title><link>http://msmvps.com/blogs/coad/archive/2004/04/13/4995.aspx</link><pubDate>Wed, 14 Apr 2004 04:10:00 GMT</pubDate><guid isPermaLink="false">d67277c4-116b-43f1-b688-e9ef184ea916:4995</guid><dc:creator>coad</dc:creator><slash:comments>0</slash:comments><wfw:commentRss xmlns:wfw="http://wellformedweb.org/CommentAPI/">http://msmvps.com/blogs/coad/rsscomments.aspx?PostID=4995</wfw:commentRss><comments>http://msmvps.com/blogs/coad/archive/2004/04/13/4995.aspx#comments</comments><description>&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;“Random Vocabulary Word.js”&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;This simple JScript demonstrates just how easy it is to access data from an XML file through the Windows Scripting Host and MSHTML 4.0.  You must have “Vocabulary.xml” in the same directory when running.&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt; &lt;/p&gt;
&lt;table class="MsoNormalTable" style="BACKGROUND: white; BORDER-COLLAPSE: collapse; mso-padding-alt: 0in 0in 0in 0in" cellspacing="0" cellpadding="0" border="0"&gt;
&lt;tbody&gt;
&lt;tr style="mso-yfti-irow: 0; mso-yfti-firstrow: yes; mso-yfti-lastrow: yes"&gt;
&lt;td style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 5.4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: windowtext 1pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: windowtext 1pt solid; BACKGROUND-COLOR: transparent" valign="top"&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font face="Verdana" size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="COLOR: green; FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;// Created by Noah Coad, coad.net/noah, 4/13/04&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="COLOR: green; FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font size="2"&gt;&lt;span style="COLOR: purple; FONT-FAMILY: 'Courier New'"&gt;xmlFile&lt;/span&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt; = "Vocabulary.xml";&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font size="2"&gt;&lt;span style="COLOR: blue; FONT-FAMILY: 'Courier New'"&gt;var&lt;/span&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt; &lt;span style="COLOR: purple"&gt;xml&lt;/span&gt; = &lt;span style="COLOR: blue"&gt;new&lt;/span&gt; &lt;span style="COLOR: purple"&gt;ActiveXObject&lt;/span&gt;("MSXML2.DOMDocument.4.0");&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font size="2"&gt;&lt;span style="COLOR: purple; FONT-FAMILY: 'Courier New'"&gt;xml&lt;/span&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;.&lt;span style="COLOR: purple"&gt;validateOnParse&lt;/span&gt; = &lt;span style="COLOR: blue"&gt;false&lt;/span&gt;;&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font size="2"&gt;&lt;span style="COLOR: purple; FONT-FAMILY: 'Courier New'"&gt;xml&lt;/span&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;.&lt;span style="COLOR: purple"&gt;async&lt;/span&gt; = &lt;span style="COLOR: blue"&gt;false&lt;/span&gt;;&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font size="2"&gt;&lt;span style="COLOR: purple; FONT-FAMILY: 'Courier New'"&gt;xml&lt;/span&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;.&lt;span style="COLOR: purple"&gt;load&lt;/span&gt;(&lt;span style="COLOR: purple"&gt;xmlFile&lt;/span&gt;);&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;font size="2"&gt;&lt;span style="COLOR: blue; FONT-FAMILY: 'Courier New'"&gt;if&lt;/span&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt; (&lt;span style="COLOR: purple"&gt;xml&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;parseError&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;errorCode&lt;/span&gt; != 0)&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: purple"&gt;WScript&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;Echo&lt;/span&gt;("XML Parse Error : " + &lt;span style="COLOR: purple"&gt;xml&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;parseError&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;reason&lt;/span&gt;);&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="COLOR: blue; FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;else&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;{&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: blue"&gt;var&lt;/span&gt; &lt;span style="COLOR: purple"&gt;root&lt;/span&gt; = &lt;span style="COLOR: purple"&gt;xml&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;documentElement&lt;/span&gt;;&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: blue"&gt;var&lt;/span&gt; &lt;span style="COLOR: purple"&gt;oNodeList&lt;/span&gt; = &lt;span style="COLOR: purple"&gt;root&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;childNodes&lt;/span&gt;;&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: green"&gt;// Select a random word&lt;/span&gt;&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: blue"&gt;var&lt;/span&gt; &lt;span style="COLOR: purple"&gt;rnd&lt;/span&gt; = &lt;span style="COLOR: purple"&gt;Math&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;floor&lt;/span&gt;(&lt;span style="COLOR: purple"&gt;Math&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;random&lt;/span&gt;() * &lt;span style="COLOR: purple"&gt;oNodeList&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;length&lt;/span&gt;);&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: green"&gt;// Create a message&lt;/span&gt;&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: blue"&gt;var&lt;/span&gt; &lt;span style="COLOR: purple"&gt;msg&lt;/span&gt; = &lt;span style="COLOR: purple"&gt;oNodeList&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;item&lt;/span&gt;(&lt;span style="COLOR: purple"&gt;rnd&lt;/span&gt;).&lt;span style="COLOR: purple"&gt;selectSingleNode&lt;/span&gt;("Word").&lt;span style="COLOR: purple"&gt;text&lt;/span&gt;;&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: purple"&gt;msg&lt;/span&gt; += "\n" + &lt;span style="COLOR: purple"&gt;oNodeList&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;item&lt;/span&gt;(&lt;span style="COLOR: purple"&gt;rnd&lt;/span&gt;).&lt;span style="COLOR: purple"&gt;selectSingleNode&lt;/span&gt;("Desc").&lt;span style="COLOR: purple"&gt;text&lt;/span&gt;;&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;&lt;/font&gt;&lt;/span&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: green"&gt;// Display the message&lt;/span&gt;&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;   &lt;span style="COLOR: purple"&gt;WScript&lt;/span&gt;.&lt;span style="COLOR: purple"&gt;Echo&lt;/span&gt;(&lt;span style="COLOR: purple"&gt;msg&lt;/span&gt;);&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="FONT-FAMILY: 'Courier New'"&gt;&lt;font size="2"&gt;}&lt;/font&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt;&lt;span style="COLOR: blue; FONT-FAMILY: 'Courier New'"&gt;&lt;/span&gt; &lt;/p&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt; &lt;/p&gt;
&lt;p class="MsoNormal" style="MARGIN: 0in 0in 0pt"&gt; &lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;&lt;img src="http://msmvps.com/aggbug.aspx?PostID=4995" width="1" height="1"&gt;</description><category domain="http://msmvps.com/blogs/coad/archive/tags/XML/default.aspx">XML</category><category domain="http://msmvps.com/blogs/coad/archive/tags/Scripting/default.aspx">Scripting</category></item></channel></rss>