OSDN Git Service

Version 5.91
[vbslib/main.git] / _src / _vbslib manual.files / vbs_memo.files / vbs_memo_07.html
1 <?xml version="1.0" encoding="Shift_JIS"?>\r
2 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"\r
3  "http://www.w3.org/TR/html4/strict.dtd">\r
4 <!-- saved from url=(0014)about:internet --> <!-- for too much local security warning -->\r
5 <HTML lang="ja" xmlns:v="urn:schemas-microsoft-com:vml"> \r
6 <HEAD>\r
7 \r
8 <META http-equiv="Content-Type" content="text/html; charset=shift_jis"/>\r
9 <TITLE>VBS\83\81\83\82</TITLE>\r
10 \r
11 <STYLE type="text/css">\r
12 v\:line, v\:rect, v\:fill, v\:image, v\:stroke, v\:roundrect, v\:oval, v\:shape, v\:path, v\:textpath\r
13   { behavior: url(#default#VML); }\r
14 A { text-decoration:none; }\r
15 A.to_tree { color:#CCDDCC; position:absolute; margin-left:0px; font-size:8pt; }\r
16 A.to_next_page { position:absolute; margin-left:40px; font-size:8pt; }\r
17 A.to_prev_page { position:absolute; margin-left:58px; font-size:8pt; }\r
18 A:visited { color:blue }\r
19 <!-- start of insert [PATCH_OF:urlrep_tooltip] -->\r
20 DIV.tooltip { color:blue; }\r
21 DIV.tooltip textarea { display:none; margin-top:-5px; overflow:hidden; }\r
22 <!-- end of [PATCH_OF:urlrep_tooltip] -->\r
23 </STYLE>\r
24 \r
25 <SCRIPT type="text/javascript">\r
26 //<![CDATA[\r
27 \r
28 function  onLoad()\r
29 {\r
30   var  divs, i\r
31 \r
32   if ( !document.getElementsByTagName )  return;\r
33 \r
34   divs = document.getElementsByTagName( "A" );\r
35   for ( i = 0; i < divs.length; i++ ) {\r
36     if ( divs[i].className == "to_tree" ) {\r
37       divs[i].style.color = "blue";\r
38       divs[i].style.cursor = "hand";\r
39     }\r
40   }\r
41 }\r
42 \r
43 function  selectTreeElem( num )\r
44 {\r
45   var tree_url, i1, i2, fname, fname2\r
46 \r
47   if ( parent.frames.length == 0 ) {\r
48     location.href = "../vbs_memo.html?f1=vbs_memo.files/vbs_memo_tree.html&sub1=svgcats_index_p" + num +\r
49      "&f2=vbs_memo.files/vbs_memo_07.html&sub2=svgcats_vml_p" + num;\r
50   }\r
51   else {\r
52     tree_url = parent.tree.location.href;\r
53     i1 = tree_url.lastIndexOf( "/" );\r
54     i2 = tree_url.lastIndexOf( "\\" );\r
55     if ( i2 > i1 )  i1 = i2;\r
56     fname = tree_url.substring( i1 + 1 );\r
57     i1 = fname.lastIndexOf( "#" );\r
58     if ( i1 >= 0 )  fname = fname.substring( 0, i1 );\r
59     fname2 = "vbs_memo.files/vbs_memo_tree.html";\r
60     i1 = fname2.lastIndexOf( "/" );\r
61     i2 = fname2.lastIndexOf( "\\" );\r
62     if ( i2 > i1 )  i1 = i2;\r
63     fname2 = fname2.substring( i1 + 1 );\r
64     if ( fname == fname2 )\r
65       parent.tree.selectTreeElem( "svgcats_index_p" + num );\r
66     else\r
67       location.href = "../vbs_memo.html?f1=vbs_memo.files/vbs_memo_tree.html&sub1=svgcats_index_p" + num +\r
68        "&f2=vbs_memo.files/vbs_memo_07.html&sub2=svgcats_vml_p" + num;\r
69   }\r
70 }\r
71 \r
72 <!-- start of insert [PATCH_OF:urlrep_tooltip] -->\r
73 function  over( text, value, cols ){ text.style.display = "inline";\r
74   text.cols=cols; text.rows=1; text.value=value; text.focus(); text.select(); }\r
75 function  out( text ){ text.style.display = "none"; }\r
76 <!-- end of [PATCH_OF:urlrep_tooltip] -->\r
77 \r
78 //]]>\r
79 </SCRIPT>\r
80 \r
81 </HEAD>\r
82 <BODY bgcolor="#CCDDCC" onLoad="onLoad();">\r
83 \r
84 <DIV style="position:absolute; margin-left:0px; margin-top:8px; color:red; font-size:8pt;">\r
85 (for Internet Explorer)</DIV>\r
86 <v:rect style="position:absolute; margin-left:0px; margin-top:8px; width:130px; height:16px;" fillcolor="white" strokecolor="white"/>\r
87 \r
88 <PAGESET>\r
89  \r
90 <!-- page 104 --> \r
91 <PAGE>\r
92 <A id="svgcats_vml_p104" class="to_tree" style="margin-top:-11px;" onClick="selectTreeElem( '104' );">\81©</A>\r
93 <A href="#svgcats_vml_p105" class="to_next_page" style="margin-top:-11px;">\81¥</A>\r
94 <A href="vbs_memo_06.html#svgcats_vml_p103" class="to_prev_page" style="margin-top:-11px;">\81£</A>\r
95 <DIV style="position:absolute; margin-left:20px; margin-top:-16px;">\r
96 <A id="page_group_top" href="vbs_memo_06.html#page_group_bottom" style="text-decoration:none;">\81ª</A></DIV>\r
97 <v:rect style="position:absolute; margin-left:0px; margin-top:0px; width:582px; height:2006px;" fillcolor="white"/>\r
98 <DIV id="text104_1" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:24px; margin-top:17px; line-height:15px; white-space:nowrap">\r
99 <A name="OptionExplicit">\r
100 Option Explicit \95Ï\90\94\90é\8c¾\95s\97v\98_</A></DIV>\r
101 <DIV id="text104_2" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:47px; line-height:15px; white-space:nowrap">\r
102 \95Ï\90\94\82Ì\90é\8c¾\82ª\95K\97v\82È\83v\83\8d\83O\83\89\83~\83\93\83O\8c¾\8cê\82Ì\8fê\8d\87\81A\95Ï\90\94\82Ì\90é\8c¾\82ð\82µ\96Y\82ê\82Ä\8f\91\82«\92¼\82·\82±\82Æ\82ª<BR/>\r
103 \82æ\82­\82 \82è\81A\83R\83X\83g\82É\82È\82Á\82Ä\82¢\82Ü\82·\81\82³\82ç\82É\81A\94C\88Ó\8c^\82Ì\90é\8c¾\82Í\81A\88Ó\96¡\82ª\82æ\82­\95ª\82©\82ç\82È\82¢\82½\82ß\81A<BR/>\r
104 \89Â\93Ç\90«\82ð\89º\82°\82Ü\82·\81\8bt\82É\8c¾\82¦\82Î\81A\95Ï\90\94\90é\8c¾\82ª\95s\97v\82Å\82 \82ê\82Î\81A\89Â\93Ç\90«\82ð\8fã\82°\82é\82Ì\82Å\82·\81B<BR/>\r
105 \82±\82Ì\82½\82ß\82©\81A\90V\82µ\82¢\83v\83\8d\83O\83\89\83~\83\93\83O\8c¾\8cê Python \82È\82Ç\82Í\81A\83\8d\81[\83J\83\8b\95Ï\90\94\82Ì\90é\8c¾\82ð\96³\82­\82µ\82Ä\82¢\82Ü\82·\81B</DIV>\r
106 <DIV id="text104_3" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:36px; margin-top:1648px; line-height:15px; white-space:nowrap">\r
107 Option Explicit \82Ì\96³\82¢ VBScript \82Å\82Í\81A<BR/>\r
108 \81E\95Ï\90\94\90é\8c¾\82ª\95s\97v\82É\82È\82è\82Ü\82·<BR/>\r
109 \81E\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82â\83\81\83\93\83o\81[\95Ï\90\94\82É\92è\8b`\82³\82ê\82Ä\82¢\82È\82¢\96¼\91O\82ð\81A\8aÖ\90\94\82Ì\92\86\82Å\8eg\82Á\82½\8fê\8d\87\81A<BR/>\r
110 \81@\8aú\91Ò\92Ê\82è\81A\83\8d\81[\83J\83\8b\95Ï\90\94\82É\82È\82è\82Ü\82·<BR/>\r
111 \81E\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82â\83\81\83\93\83o\81[\95Ï\90\94\82É\92è\8b`\82µ\82Ä\82 \82é\96¼\91O\82ð\81A\8aÖ\90\94\82Ì\92\86\82Å\8eg\82Á\82½\8fê\8d\87\81A<BR/>\r
112 \81@\83\8d\81[\83J\83\8b\95Ï\90\94\82Ì\82Â\82à\82è\82Å\8eg\82Á\82½\82à\82Ì\82Í\81A\8eÀ\82Í\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82È\82Ì\82Å\81A\8aú\91Ò\82µ\82½\93®\8dì\82É<BR/>\r
113 \81@\82È\82è\82Ü\82¹\82ñ\81B\81i\91Î\8f\88\96@\82Í\81A\8fã\8bL\81A\95Ï\90\94\96¼\82ª\8fÕ\93Ë\82·\82é\96â\91è\82ð\8eQ\8fÆ\81j<BR/>\r
114 <BR/>\r
115 \8e\9f\82Ì\93_\82Í\81AOption Explicit \82ª\82 \82Á\82Ä\82à\82È\82­\82Ä\82à\95Ï\82í\82è\82Ü\82¹\82ñ\81B<BR/>\r
116 \81E\8aÖ\90\94\82©\82ç\8cÄ\82Ñ\8fo\82µ\8c³\82É\96ß\82Á\82½\82ç\81A\83\8d\81[\83J\83\8b\95Ï\90\94\82Í\8dí\8f\9c\82³\82ê\82Ü\82·\81B<BR/>\r
117 \81E\88ø\90\94\82Í\81A\83\8d\81[\83J\83\8b\95Ï\90\94\82É\82È\82è\82Ü\82·\81B<BR/>\r
118 \81\8cÄ\82Ñ\8fo\82µ\8c³\82Ì\83\8d\81[\83J\83\8b\95Ï\90\94\82Ì\96¼\91O\82Æ\8fÕ\93Ë\82µ\82Ä\82à\81A\8aú\91Ò\92Ê\82è\81A\95Ê\82Ì\83\81\83\82\83\8a\82Ì\95Ï\90\94\82É\82È\82è\82Ü\82·\81B<BR/>\r
119 \81\81i\82¿\82È\82Ý\82É\81Abash \82Ì\8fê\8d\87\82Í\81A\93¯\82\83\81\83\82\83\8a\82É\82È\82é\81j</DIV>\r
120 <DIV id="text104_4" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:532px; line-height:15px; white-space:nowrap">\r
121 \95Ï\90\94\96¼\82ª\8fÕ\93Ë\82·\82é\96â\91è</DIV>\r
122 <DIV id="text104_5" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:40px; margin-top:565px; line-height:15px; white-space:nowrap">\r
123 \95Ï\90\94\90é\8c¾\82ð\95s\97v\82Æ\82µ\82½\8fê\8d\87\81A\95Ï\90\94\96¼\82ª\8fÕ\93Ë\82µ\82Ä\82¢\82È\82¢\82±\82Æ\82ð\97 \95t\82¯\82é\82±\82Æ\82ª\81ADim <BR/>\r
124 \95\82ð\8eÀ\8ds\82·\82é\82Æ\82«\82©\82ç\81A\83e\83X\83g\82É\8d\87\8ai\82·\82é\82Æ\82«\82Ü\82Å\92x\82ê\82Ü\82·\81\82±\82ê\82É\82æ\82è\81A\8fÕ\93Ë\82µ\82Ä<BR/>\r
125 \82¢\82é\96â\91è\82ð\89ð\8c\88\82·\82é\82±\82Æ\82ª\81A\8f­\82µ\82¾\82¯\93ï\82µ\82­\82È\82è\82Ü\82·\81B</DIV>\r
126 <DIV id="text104_6" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:74px; margin-top:125px; line-height:15px; white-space:nowrap">\r
127 <A href="..\vbslib.files\vbslib_01.html#OptionExplicit_vbslib">\r
128 \81¨ Option Explicit \95Ï\90\94\90é\8c¾\82É\82Â\82¢\82Ä (vbslib)</A></DIV>\r
129 <DIV id="text104_7" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:125px; line-height:15px; white-space:nowrap">\r
130 \8eQ\8dl</DIV>\r
131 <DIV id="text104_8" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:77px; margin-top:1954px; line-height:15px; white-space:nowrap">\r
132 <A href="http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_200_030.html" target="_blank">\r
133 \81¨ \95Ï\90\94\90é\8c¾\82ð\8b­\90§\82µ\82È\82¢\82Æ\82¢\82¯\82È\82¢\82Ì\82©\81B (Web)</A></DIV>\r
134 <DIV id="text104_9" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:36px; margin-top:1954px; line-height:15px; white-space:nowrap">\r
135 \8eQ\8dl</DIV>\r
136 <DIV id="text104_10" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:364px; margin-top:1954px; line-height:15px; white-space:nowrap">\r
137 (cache)</DIV>\r
138 <DIV id="text104_11" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:74px; margin-top:148px; line-height:15px; white-space:nowrap">\r
139 \81¨ T_NoOptionExplicit \83t\83H\83\8b\83_</DIV>\r
140 <DIV id="text104_12" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:148px; line-height:15px; white-space:nowrap">\r
141 \83e\83X\83g</DIV>\r
142 <DIV id="text104_13" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:1342px; line-height:15px; white-space:nowrap">\r
143 \83G\83\89\81[\81E\83\81\83b\83Z\81[\83W\82Ì\88á\82¢</DIV>\r
144 <v:rect style="position:absolute; margin-left:52px; margin-top:1447px; width:460px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
145 <DIV id="text104_14" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:60px; margin-top:1454px; line-height:13px; white-space:nowrap">\r
146 &lt;ERROR err_number='500' err_description='\82±\82Ì\95Ï\90\94\82Í\90é\8c¾\82³\82ê\82Ä\82¢\82Ü\82¹\82ñ\81B'/&gt;</DIV>\r
147 <DIV id="text104_15" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:39px; margin-top:1425px; line-height:15px; white-space:nowrap">\r
148 Option Explicit \82ª\82 \82é\82Æ\82«</DIV>\r
149 <v:rect style="position:absolute; margin-left:52px; margin-top:1510px; width:382px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
150 <DIV id="text104_16" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:60px; margin-top:1517px; line-height:13px; white-space:nowrap">\r
151 &lt;ERROR err_number='13' err_description='\8c^\82ª\88ê\92v\82µ\82Ü\82¹\82ñ\81B'/&gt;</DIV>\r
152 <DIV id="text104_17" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:39px; margin-top:1490px; line-height:15px; white-space:nowrap">\r
153 Option Explicit \82ª\82È\82¢\82Æ\82«</DIV>\r
154 <DIV id="text104_18" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:39px; margin-top:1372px; line-height:15px; white-space:nowrap">\r
155 \8aÖ\90\94\82Æ\82µ\82Ä\92è\8b`\82³\82ê\82Ä\82¢\82È\82¢\83V\83\93\83{\83\8b\82ð\8eg\82Á\82Ä\8aÖ\90\94\8cÄ\82Ñ\8fo\82µ\82ð\82µ\82æ\82¤\82Æ\82·\82é\82Æ\81A<BR/>\r
156 Option Explicit \82ª\82 \82é\82Æ\82«\82Æ\81A\96³\82¢\82Æ\82«\82Å\81A\83G\83\89\81[\83\81\83b\83Z\81[\83W\82ª\88Ù\82È\82è\82Ü\82·\81B</DIV>\r
157 <DIV id="text104_19" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:311px; line-height:15px; white-space:nowrap">\r
158 VBScript \82Ì Dim \82Í\81A\95Ï\90\94\96¼\82Ì\8fÕ\93Ë\82ð\91\81\8aú\82É\8c\9f\8fo\82·\82é\82±\82Æ\88È\8aO\82É\8b@\94\\82Í\82 \82è\82Ü\82¹\82ñ\81B <BR/>\r
159 \83v\83\8d\83O\83\89\83~\83\93\83O\8c¾\8cê\82É\82æ\82Á\82Ä\82Í\95Ï\90\94\82Ì\8c^\82ð\8c\88\82ß\82é\82±\82Æ\82ª\82 \82è\82Ü\82·\82ª\81AVBScript \82Í\81A<BR/>\r
160 \95Ï\90\94\82É\82Ç\82Ì\8c^\82Ì\92l\82Å\82à\93ü\82é\82½\82ß\95Ï\90\94\82Ì\8c^\82ð\8c\88\82ß\82é\8b@\94\\82Í\82 \82è\82Ü\82¹\82ñ\81B<BR/>\r
161 <BR/>\r
162 \8fÕ\93Ë\82ð\8c\9f\8fo\82·\82é\82¾\82¯\82Ì\96½\97ß\95\82Í\81A\83v\83\8d\83O\83\89\83\80\82ª\89½\82©\82ð\82·\82é\96½\97ß\95\82Å\82Í\82 \82è\82Ü\82¹\82ñ\81B<BR/>\r
163 \82±\82ê\82Í\96â\91è\82Å\82·\81\83v\83\8d\83O\83\89\83\80\82ª\89½\82ð\82µ\82æ\82¤\82Æ\82µ\82Ä\82¢\82é\82Ì\82©\82ð\97\9d\89ð\82µ\82æ\82¤\82Æ\82·\82é\82Æ\82«\82É\81A<BR/>\r
164 \8eÀ\82Í\89½\82à\82µ\82Ä\82¢\82È\82¢\83\82\83m\82É\91\98\8bö\82µ\82Ä\82à\81A\89½\82ð\82µ\82æ\82¤\82Æ\82µ\82Ä\82¢\82é\82Ì\82©\8c\9c\96½\82É\92T\82µ\82Ü\82·\81B <BR/>\r
165 \82±\82Ì\94]\82Ì\8fó\91Ô\82Å\81A\8eÀ\82Í\89½\82à\82µ\82Ä\82¢\82È\82¢\81A\82Æ\82¢\82¤\82±\82Æ\82É\8bC\82Ã\82­\82Ì\82Í\91å\95Ï\82È\82±\82Æ\82Å\82·\81B <BR/>\r
166 \91å\82«\82È\83R\83X\83g\82É\82È\82è\82Ü\82·\81\82Ü\82½\81A\89½\82à\82µ\82Ä\82¢\82È\82¢\82±\82Æ\82ð\93Ç\82Ü\82³\82ê\82é\82±\82Æ\82Í\95s\89õ\82Å\82·\81B <BR/>\r
167 <BR/>\r
168 Dim \96½\97ß\82Ì\90à\96¾\82Å\82æ\82­\82 \82é\82Ì\82ª\81A\8eg\82Á\82Ä\82¢\82é\95Ï\90\94\82ð\8b\93\82°\82Ä\82¢\82é\82Æ\82 \82è\82Ü\82·\82ª\81A\95Ê\82É <BR/>\r
169 Dim \96½\97ß\82ª\96³\82­\82Ä\82à\8eg\82Á\82Ä\82¢\82é\95Ï\90\94\82Í\95ª\82©\82è\82Ü\82·\81\95Ï\90\94\82ð\8f\89\8aú\89»\82µ\82Ä\82¢\82é\95\82Å\81A<BR/>\r
170 \82æ\82­\97\9d\89ð\82Å\82«\82Ü\82·\81B Dim \82Í\82­\82Ç\82¢\82Ì\82Å\82·\81B</DIV>\r
171 <DIV id="text104_20" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:60px; margin-top:1541px; line-height:15px; white-space:nowrap">\r
172 \82È\82º\81A\8c^\82ª\88ê\92v\82µ\82Ü\82¹\82ñ\82Æ\95\\8e¦\82³\82ê\82é\82©\82Æ\82¢\82¤\82Æ\81A\92è\8b`\82³\82ê\82Ä\82¢\82È\82¢\8aÖ\90\94\82Æ\93¯\82¶<BR/>\r
173 \96¼\91O\82Ì\90V\82µ\82¢\95Ï\90\94\82ª\8e©\93®\93I\82É\90\90¬\82³\82ê\81A\8f\89\8aú\92l\82Å\82 \82é Empty \82ª\93ü\82è\81AEmpty <BR/>\r
174 \82ð\8eg\82Á\82Ä\8aÖ\90\94\8cÄ\82Ñ\8fo\82µ\82ð\82µ\82æ\82¤\82Æ WSH \82ª\89ð\8eß\82µ\82Ä\82µ\82Ü\82¤\82©\82ç\82Å\82·\81B</DIV>\r
175 <DIV id="text104_21" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:36px; margin-top:1901px; line-height:15px; white-space:nowrap">\r
176 \89º\8bL\82Ì\83z\81[\83\80\83y\81[\83W\82Å\82Í\81ADim \82Ì\95K\97v\90«\82ð\90à\96¾\82µ\82Ä\82¢\82Ü\82·\82ª\81A\95K\97v\82Ì\8dª\8b\92\82Æ\82È\82é\8b@\94\<BR/>\r
177 \82ª\96³\82­\82Ä\82à\81A\82·\82®\82É\95Ê\82Ì\83G\83\89\81[\82Å\92m\82é\82±\82Æ\82ª\8fo\97\88\82é\82½\82ß\81A\96â\91è\82Æ\82µ\82Ä\8b\93\82°\82ç\82ê\82Ä\82¢\82é\82±\82Æ<BR/>\r
178 \82ª\90^\82Ì\96â\91è\82Ì\89ð\8c\88\82ð\8d¢\93ï\82É\82·\82é\82±\82Æ\82Í\82 \82è\82Ü\82¹\82ñ\81B</DIV>\r
179 <DIV id="text104_22" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:190px; line-height:15px; white-space:nowrap">\r
180 VBScript \82Å\81AOption Explicit \82ð\8eg\82Á\82½\8fê\8d\87\81A\82æ\82­\91\98\8bö\82·\82é\82Ì\82Í\81A\95Ï\90\94\82ð\90é\8c¾\82µ\82Ä\82¢\82È\82¢<BR/>\r
181 \82Æ\82¢\82¤\83G\83\89\81[\82Å\82·\81\82±\82Ì\83G\83\89\81[\82ð\91Î\8f\88\82·\82é\82É\82Í\81A\83f\83o\83b\83K\81[\82ð\8eg\82¤\8c`\82Å\8dÅ\8f\89\82©\82ç\82â\82è\92¼\82µ\82Ä\81A<BR/>\r
182 \8fÕ\93Ë\82µ\82Ä\82¢\82é\95Ï\90\94\82ð\92m\82Á\82Ä\81ADim \90é\8c¾\82ð\92Ç\89Á\82µ\82Ä\81A\82Ü\82½\8dÅ\8f\89\82©\82ç\82â\82è\92¼\82·\95K\97v\82ª\82 \82è\82Ü\82·\81B <BR/>\r
183 \82Â\82Ü\82è\81A\82Q\89ñ\82à\8dÄ\8bN\93®\82ª\95K\97v\82É\82È\82è\82Ü\82·\81\82±\82ê\82Í\8c\8b\8d\\82È\83R\83X\83g\82Å\82·\81\82à\82µ\81A\83f\83o\83b\83K\81[<BR/>\r
184 \82ª\96³\82¯\82ê\82Î\81A\91Î\8f\88\82Í\8dX\82É\8d¢\93ï\82É\82È\82è\82Ü\82·\81B<BR/>\r
185 Option Explicit \82ð\8eg\82Á\82Ä\82¢\82é\90l\82Í\81A\82±\82Ì\83R\83X\83g\82Ì\91å\82«\82³\82É\8bC\82Ã\82¢\82Ä\82¢\82Ü\82¹\82ñ\81B<BR/>\r
186 \81i\8e\84\82à\8bC\82Ã\82­\82Ì\82É\8e\9e\8aÔ\82ª\82©\82©\82è\82Ü\82µ\82½\81j</DIV>\r
187 <DIV id="text104_23" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:17px; margin-top:1623px; line-height:15px; white-space:nowrap">\r
188 Option Explicit \82ª\82 \82é\82Æ\82«\82Æ\82È\82¢\82Æ\82«\82Ì\88á\82¢ </DIV>\r
189 <DIV id="text104_24" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:17px; margin-top:1873px; line-height:15px; white-space:nowrap">\r
190 \82»\82Ì\91¼\82Ì\96â\91è</DIV>\r
191 <DIV id="text104_25" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:38px; margin-top:874px; line-height:15px; white-space:nowrap">\r
192 \83\8d\81[\83J\83\8b\95Ï\90\94\93¯\8em\82ª\8fÕ\93Ë\82µ\82½\8fê\8d\87\81A\8c´\88ö\82Í\81A\82»\82Ì\8aÖ\90\94\82Ì\92\86\82¾\82¯\82É\8di\82ç\82ê\82Ü\82·\81B<BR/>\r
193 \82Â\82Ü\82è\81A\8cÄ\82Ñ\8fo\82µ\82½\90æ\82Ì\8aÖ\90\94\82É\8c´\88ö\82ª\82 \82é\88ê\94Ê\93I\82È\83~\83X\82É\94ä\82×\82é\82Æ\81A\8c´\88ö\82ª\82 \82é\94Í\88Í\82ª<BR/>\r
194 \8cÀ\92è\93I\82È\82Ì\82Å\81A\91Î\8f\88\82ª\94ä\8ar\93I\8aÈ\92P\82Å\82·\81B</DIV>\r
195 <v:rect style="position:absolute; margin-left:84px; margin-top:655px; width:208px; height:85px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
196 <DIV id="text104_26" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:92px; margin-top:661px; line-height:15px; white-space:nowrap">\r
197 Sub&nbsp; MyTest()<BR/>\r
198 &nbsp; name = "MyName"<BR/>\r
199 &nbsp; name = "YourName"<BR/>\r
200 &nbsp; Assert&nbsp; FuncA( name ) = "Taro"<BR/>\r
201 End Sub</DIV>\r
202 <DIV id="text104_27" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:40px; margin-top:628px; line-height:15px; white-space:nowrap">\r
203 \82Ç\82ê\82¾\82¯\93ï\82µ\82­\82È\82é\82©\82ð\81A\8c©\82Ä\82Ý\82Ü\82µ\82å\82¤\81B</DIV>\r
204 <DIV id="text104_28" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:40px; margin-top:754px; line-height:15px; white-space:nowrap">\r
205 \82±\82ê\82Í\81Aname = "MyName" \82Å\82 \82é\82±\82Æ\82ð\8aú\91Ò\82µ\82Ä\82¢\82é\83e\83X\83g\81E\83X\83N\83\8a\83v\83g\82Å\81Aname \82ª <BR/>\r
206 "YourName" \82É\95Ï\82í\82Á\82½\82½\82ß\82É\83e\83X\83g\82É\8e¸\94s\82µ\82Ä\82¢\82Ü\82·\81\82±\82Ì\8c´\88ö\82ð\92Ç\8b\86\82·\82é\82Æ\82«\82Í\81A<BR/>\r
207 name \82Ì\92l\82ð\82Ç\82±\82Å\91ã\93ü\82µ\82Ä\82¢\82é\82©\82ð\92²\82×\82é\82±\82Æ\82É\82È\82è\82Ü\82·\81B name \82ð\8fã\95û\8cü\82É\8c\9f\8dõ\82µ\82Ä\81A<BR/>\r
208 name = "YourName" \82ª\8c©\82Â\82©\82è\81A\82»\82ê\82ð\91Î\8f\88\82·\82é\82±\82Æ\82É\82È\82è\82Ü\82·\81B<BR/>\r
209 \8eÀ\82Í\81A\82±\82ê\82Í\81A\95Ï\90\94\82ª\8fÕ\93Ë\82µ\82½\82Æ\82«\82æ\82è\82à\94­\90\95p\93x\82ª\8d\82\82¢\81A\88ê\94Ê\93I\82È\83~\83X\82É\82æ\82Á\82Ä name<BR/>\r
210 \82Ì\92l\82ª\88á\82Á\82Ä\82¢\82é\83P\81[\83X\82Æ\93¯\82\91Î\8f\88\96@\82Å\82·\81\8am\82©\82É Dim \95\82É\82æ\82Á\82Ä\8fÕ\93Ë\82ð\8c\9f\8fo\82µ\82½<BR/>\r
211 \95û\82ª\91¬\82­\8c´\88ö\82ª\93Á\92è\82Å\82«\82Ü\82·\82ª\81A\8c\9f\8fo\82µ\82È\82­\82Ä\82à\88ê\94Ê\93I\82È\91Î\8f\88\96@\82Å\8dÏ\82Þ\82í\82¯\82Å\82·\81B</DIV>\r
212 <DIV id="text104_29" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:38px; margin-top:1087px; line-height:15px; white-space:nowrap">\r
213 \95Ï\90\94\96¼\82ª\8fÕ\93Ë\82·\82é\83~\83X\82Í\81ADim \95\82Ì\8bL\8fq\82ð\96Y\82ê\82é\83~\83X\82É\94ä\82×\82é\82Æ\81A\82©\82È\82è\94­\90\95p\93x\82ª<BR/>\r
214 \92á\82¢\82Å\82·\81\8fÕ\93Ë\82·\82é\95p\93x\82ª\92á\82¢\97\9d\97R\82Í\81A\88Ó\96¡\82ª\88Ù\82È\82é\95Ï\90\94\82É\82Í\81A\92Ê\8fí\88Ù\82È\82é\96¼\91O\82ð<BR/>\r
215 \95t\82¯\82é\82©\82ç\82Å\82·\81B Dim \95\82Ì\8bL\8fq\82ð\96Y\82ê\82é\82±\82Æ\82ª\91½\82¢\97\9d\97R\82©\82Í\81ADim \82ª\89½\82©\82ð\82·\82é<BR/>\r
216 \96½\97ß\95\82Å\82Í\82È\82¢\82©\82ç\82Å\82·\81\89½\82©\82ð\82³\82¹\82é\82½\82ß\82É\8bL\8fq\82µ\82Ä\82¢\82é\82Æ\82«\82É\81A\82³\82¹\82é\82±\82Æ\82ª\91S\82Ä<BR/>\r
217 \8bL\8fq\82Å\82«\82½\82ç\81A\8a®\90¬\82Æ\8ev\82¤\82©\82ç\82Å\82·\81B<BR/>\r
218 <BR/>\r
219 \88È\8fã\82©\82ç\81A\94­\90\95p\93x\82Æ\8fC\90³\83R\83X\83g\82ð\91\8d\8d\87\82µ\82Ä\8dl\82¦\82é\82Æ\81AOption Explicit \82ð\82Â\82¯\82½\95û\82ª<BR/>\r
220 \83R\83X\83g\82ª\8d\82\82­\82È\82é\82Æ\82¢\82¤\82í\82¯\82Å\82·\81B</DIV>\r
221 <DIV id="text104_30" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:38px; margin-top:995px; line-height:15px; white-space:nowrap">\r
222 \83\8d\81[\83J\83\8b\95Ï\90\94\82Ì\82Â\82à\82è\82Å\8eg\82Á\82½\95Ï\90\94\82ª\81A\8eÀ\82Í\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82â\83\81\83\93\83o\81[\95Ï\90\94\82¾\82Á\82½\82Æ\82«\81A<BR/>\r
223 \82Â\82Ü\82è\81A\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82â\83\81\83\93\83o\81[\95Ï\90\94\82ª\83\8d\81[\83J\83\8b\95Ï\90\94\82É\8fÕ\93Ë\82µ\82½\8fê\8d\87\82Í\81A\83\8d\81[\83J\83\8b<BR/>\r
224 \95Ï\90\94\82Ì\82Â\82à\82è\82Å\83f\83o\83b\83O\82ð\8ds\82¨\82¤\82Æ\82·\82é\82½\82ß\81A\91Î\8f\88\82ª\8d¢\93ï\82Å\82µ\82å\82¤\81\82µ\82©\82µ\81A\83O\83\8d\81[\83o\83\8b<BR/>\r
225 \95Ï\90\94\82Ì\96¼\91O\82Ì\90æ\93ª\82É "g_" \82ð\95t\82¯\82é\83R\81[\83f\83B\83\93\83O\81E\83\8b\81[\83\8b\82È\82Ç\82ð\93K\97p\82·\82ê\82Î\81A\82»\82Ì\96â\91è\82Í<BR/>\r
226 \96³\82­\82È\82è\82Ü\82·\81B Python \82Å\82Í\81A\81uglobal\81\96½\97ß\82É\82æ\82Á\82Ä\96â\91è\82ð\89ñ\94ð\82µ\82Ä\82¢\82Ü\82·\81B</DIV>\r
227 <DIV id="text104_31" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#800000; margin-left:38px; margin-top:933px; line-height:15px; white-space:nowrap">\r
228 \83O\83\8d\81[\83o\83\8b\95Ï\90\94\93¯\8em\82â\83\81\83\93\83o\81[\95Ï\90\94\93¯\8em\82Ì\8fÕ\93Ë\82Í\81A\88ê\94Ê\93I\82È\83o\83O\82Ì\91Î\8f\88\82Æ\95Ï\82í\82è\82Ü\82¹\82ñ\81B <BR/>\r
229 \82Ü\82½\81AOption Explicit \82ð\8eg\82Á\82Ä\82à\81AVBS \83t\83@\83C\83\8b\82ð\83\82\83W\83\85\81[\83\8b\95Ê\82É\95ª\82¯\82Ä\82¢\82é\82Æ\81ADim \82ð<BR/>\r
230 \8eg\82Á\82Ä\82à\8fÕ\93Ë\82ð\8c\9f\8fo\82Å\82«\82Ü\82¹\82ñ\81B</DIV>\r
231 <DIV id="text104_32" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:1247px; line-height:15px; white-space:nowrap">\r
232 \8cã\82Å\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82â\8aÖ\90\94\82ª\92Ç\89Á\82³\82ê\82Ä\81A\83\8d\81[\83J\83\8b\95Ï\90\94\82Æ\8fÕ\93Ë\82µ\82½\8fê\8d\87</DIV>\r
233 <DIV id="text104_33" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:38px; margin-top:1276px; line-height:15px; white-space:nowrap">\r
234 \8cã\82Å\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82â\8aÖ\90\94\82ª\92Ç\89Á\82³\82ê\82Ä\81A\83\8d\81[\83J\83\8b\95Ï\90\94\82Æ\8fÕ\93Ë\82µ\82½\8fê\8d\87\82Í\81A<BR/>\r
235 \83\8d\81[\83J\83\8b\95Ï\90\94\82É\91Î\82µ\82Ä Dim \90é\8c¾\82·\82ê\82Î\96â\91è\82É\91Î\8f\88\82Å\82«\82Ü\82·\81B</DIV>\r
236 \r
237 <v:line from="0,0" to="582,0"/>\r
238 <v:line from="582,0" to="582,2006"/>\r
239 <v:line from="582,2006" to="0,2006"/>\r
240 <v:line from="0,2006" to="0,0"/>\r
241 \r
242 </PAGE>\r
243  \r
244 <!-- page 105 --> \r
245 <PAGE>\r
246 <A id="svgcats_vml_p105" class="to_tree" style="margin-top:2011px;" onClick="selectTreeElem( '105' );">\81©</A>\r
247 <A href="#svgcats_vml_p106" class="to_next_page" style="margin-top:2011px;">\81¥</A>\r
248 <A href="#svgcats_vml_p104" class="to_prev_page" style="margin-top:2011px;">\81£</A>\r
249 <v:rect style="position:absolute; margin-left:0px; margin-top:2022px; width:589px; height:2089px;" fillcolor="white"/>\r
250 <DIV id="text105_1" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:24px; margin-top:2039px; line-height:15px; white-space:nowrap">\r
251 <A name="name_space_contamination">\r
252 \96¼\91O\8bó\8aÔ\82Ì\89\98\90õ\82Ì\91Î\8dô</A></DIV>\r
253 <DIV id="text105_2" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:2072px; line-height:15px; white-space:nowrap">\r
254 \83O\83\8d\81[\83o\83\8b\95Ï\90\94\82ð\81A\82P\82Â\82Ì\83I\83u\83W\83F\83N\83g\82É\82Ü\82Æ\82ß\82é\82Æ\81A\83A\83v\83\8a\83P\81[\83V\83\87\83\93\82â\91g\82Ý\8d\87\82í\82¹\82é<BR/>\r
255 \83\89\83C\83u\83\89\83\8a\82ª\8eg\82¦\82é\83O\83\8d\81[\83o\83\8b\95Ï\90\94\96¼\82É\90§\8cÀ\82ª\8f­\82È\82­\82È\82è\82Ü\82·\81\8c¾\82¢\82©\82¦\82ê\82Î\81A\96¼\91O\8bó\8aÔ\82ð<BR/>\r
256 \89\98\90õ\82·\82é\82±\82Æ\82ª\8dÅ\8f¬\8cÀ\82Ì\97}\82¦\82é\82±\82Æ\82ª\82Å\82«\82Ü\82·\81B</DIV>\r
257 <v:rect style="position:absolute; margin-left:70px; margin-top:2194px; width:196px; height:85px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
258 <DIV id="text105_3" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:78px; margin-top:2200px; line-height:15px; white-space:nowrap">\r
259 Sub&nbsp; SampleFunction()<BR/>\r
260 &nbsp; &nbsp; Set g = g_VBScriptLibraryX<BR/>\r
261 &nbsp; &nbsp; g.DoFunction<BR/>\r
262 &nbsp; &nbsp; g.Variable = 1<BR/>\r
263 End Sub</DIV>\r
264 <DIV id="text105_4" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:43px; margin-top:2962px; line-height:15px; white-space:nowrap">\r
265 \8aÖ\90\94\82Ì\92è\8b`\82Í\81A\83N\83\89\83X\82Ì\92\86\82Ì\83\81\83\\83b\83h\82É\92è\8b`\82µ\82Ü\82·\81B</DIV>\r
266 <v:rect style="position:absolute; margin-left:64px; margin-top:3197px; width:370px; height:250px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
267 <DIV id="text105_5" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:72px; margin-top:3203px; line-height:15px; white-space:nowrap">\r
268 Dim&nbsp; g_VBScriptLibraryX<BR/>\r
269 Set&nbsp; g_VBScriptLibraryX = new VBScriptLibraryX_Class<BR/>\r
270 <BR/>\r
271 Class&nbsp; VBScriptLibraryX_Class<BR/>\r
272 &nbsp; &nbsp; Public&nbsp; LibraryFunction<BR/>\r
273 &nbsp; &nbsp; Public&nbsp; LibraryVariable<BR/>\r
274 <BR/>\r
275 &nbsp; &nbsp; Private Sub&nbsp; Class_Initialize()<BR/>\r
276 &nbsp; &nbsp; &nbsp; &nbsp; Set g = Me<BR/>\r
277 &nbsp; &nbsp; &nbsp; &nbsp; Set g.LibraryFunction = GetRef( "LibraryFunction" )<BR/>\r
278 &nbsp; &nbsp; End Sub<BR/>\r
279 End Class<BR/>\r
280 <BR/>\r
281 Sub&nbsp; LibraryFunction()<BR/>\r
282 &nbsp; &nbsp; '// ...<BR/>\r
283 End Sub</DIV>\r
284 <DIV id="text105_6" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:43px; margin-top:3141px; line-height:15px; white-space:nowrap">\r
285 \82·\82Å\82É\82 \82é\8aÖ\90\94\82Ì\92è\8b`\82©\82ç\81A\96¼\91O\8bó\8aÔ\82Ì\89\98\90õ\82É\91Î\8dô\82·\82é\82Ü\82Å\82Ì\88Ú\8ds\8aú\8aÔ\82Å\82Í\81A<BR/>\r
286 \8e\9f\82Ì\82æ\82¤\82É\81A\8aÖ\90\94\82Ì\8eQ\8fÆ\82ð\83\81\83\93\83o\81[\95Ï\90\94\82É\91ã\93ü\82µ\82Ü\82·\81B<BR/>\r
287 \81i\82È\82¨\81AVBScript \82Å\82Í\81A\93½\96¼\8aÖ\90\94\82ð\92è\8b`\82Å\82«\82Ü\82¹\82ñ\81B\81j</DIV>\r
288 <v:rect style="position:absolute; margin-left:64px; margin-top:2985px; width:328px; height:130px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
289 <DIV id="text105_7" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:72px; margin-top:2991px; line-height:15px; white-space:nowrap">\r
290 Dim&nbsp; g_VBScriptLibraryX<BR/>\r
291 Set&nbsp; g_VBScriptLibraryX = new VBScriptLibraryX_Class<BR/>\r
292 <BR/>\r
293 Class&nbsp; VBScriptLibraryX_Class<BR/>\r
294 &nbsp; &nbsp; Public Sub&nbsp; LibraryFunction()<BR/>\r
295 &nbsp; &nbsp; &nbsp; &nbsp; '// ...<BR/>\r
296 &nbsp; &nbsp; End Sub<BR/>\r
297 End Class</DIV>\r
298 <DIV id="text105_8" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:51px; margin-top:3500px; line-height:15px; white-space:nowrap">\r
299 VBScript \82Å\82Í\81A\83N\83\89\83X\82ð\83N\83\89\83X\82Ì\92\86\82É\93ü\82ê\82é\82±\82Æ\82ª\82Å\82«\82Ü\82¹\82ñ\81B<BR/>\r
300 \83I\83u\83W\83F\83N\83g\82ð\90\90¬\82·\82é\83\81\83\\83b\83h\81inew_&lt;\83N\83\89\83X\96¼&gt;\81j\82ð\97p\88Ó\82µ\81A\8eÀ\8dÛ\82Ì\83N\83\89\83X\96¼\82Ì\90æ\93ª\82É\81A\8cÅ\97L<BR/>\r
301 \82Ì\83\89\83C\83u\83\89\83\8a\82Ì\96¼\91O\82ð\95t\82¯\82é\82æ\82¤\82É\82µ\82Ü\82·\81B</DIV>\r
302 <v:rect style="position:absolute; margin-left:64px; margin-top:3555px; width:472px; height:250px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
303 <DIV id="text105_9" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:72px; margin-top:3561px; line-height:15px; white-space:nowrap">\r
304 Class&nbsp; VBScriptLibraryX_Class<BR/>\r
305 &nbsp; &nbsp; Public&nbsp; new_SampleClass<BR/>\r
306 <BR/>\r
307 &nbsp; &nbsp; Private Sub&nbsp; Class_Initialize()<BR/>\r
308 &nbsp; &nbsp; &nbsp; &nbsp; Set g = Me<BR/>\r
309 &nbsp; &nbsp; &nbsp; &nbsp; Set g.new_SampleClass = GetRef( "new_VBScriptLibraryX_SampleClass" )<BR/>\r
310 &nbsp; &nbsp; End Sub<BR/>\r
311 End Class<BR/>\r
312 <BR/>\r
313 Class&nbsp; VBScriptLibraryX_SampleClass<BR/>\r
314 &nbsp; &nbsp; '// ...<BR/>\r
315 End Class<BR/>\r
316 <BR/>\r
317 Function&nbsp; new_VBScriptLibraryX_SampleClass()<BR/>\r
318 &nbsp; &nbsp; Set new_VBScriptLibraryX_SampleClass = new VBScriptLibraryX_SampleClass<BR/>\r
319 End Function</DIV>\r
320 <v:rect style="position:absolute; margin-left:64px; margin-top:3857px; width:334px; height:70px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
321 <DIV id="text105_10" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:72px; margin-top:3863px; line-height:15px; white-space:nowrap">\r
322 Sub&nbsp; SampleFunction()<BR/>\r
323 &nbsp; &nbsp; Set g = g_VBScriptLibraryX<BR/>\r
324 &nbsp; &nbsp; Set object = g.new_VBScriptLibraryX_SampleClass()<BR/>\r
325 End Sub</DIV>\r
326 <DIV id="text105_11" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:51px; margin-top:3835px; line-height:15px; white-space:nowrap">\r
327 \83I\83u\83W\83F\83N\83g\82ð\90\90¬\82·\82é\82Æ\82«\82Í\81A\8e\9f\82Ì\82æ\82¤\82É\82È\82è\82Ü\82·\81B</DIV>\r
328 <v:roundrect style="position:absolute; margin-left:200px; margin-top:2036px; width:56px; height:20px;" arcsize="0.500000" fillcolor="#FFFFFF" strokecolor="#000000" strokeweight="1pt"/>\r
329 <DIV id="text105_12" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#FF0000; font-weight: bold; margin-left:208px; margin-top:2039px; line-height:15px; white-space:nowrap">\r
330 \96¢\8am\94F</DIV>\r
331 <DIV id="text105_13" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:2450px; line-height:15px; white-space:nowrap">\r
332 <A name="name_spaced_variable">\r
333 \95Ï\90\94</A></DIV>\r
334 <DIV id="text105_14" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:2934px; line-height:15px; white-space:nowrap">\r
335 <A name="name_spaced_function">\r
336 \8aÖ\90\94</A></DIV>\r
337 <DIV id="text105_15" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:3471px; line-height:15px; white-space:nowrap">\r
338 <A name="name_spaced_class">\r
339 \83N\83\89\83X</A></DIV>\r
340 <DIV id="text105_16" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:2135px; line-height:15px; white-space:nowrap">\r
341 \82±\82Ì\96â\91è\82Ì\91Î\8dô\82Í\81A\83\89\83C\83u\83\89\83\8a\8cÅ\97L\82Ì\92·\82ß\82Ì\96¼\91O\82Ì\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82ð\8eg\82¢\81A\83\89\83C\83u\83\89\83\8a\82ð<BR/>\r
342 \8eg\82¤\82Æ\82«\82Í\81A\82P\95\8e\9a\82Ì\95Ï\90\94\82É\91ã\93ü\82µ\82Ä\82©\82ç\8eg\82¢\82Ü\82·\81\82È\82¨\81A\82·\82×\82Ä\82Ì\8aÖ\90\94\82Ì\90æ\93ª\82É\81A\82±\82Ì<BR/>\r
343 \91ã\93ü\82ª\95K\97v\82É\82È\82è\82Ü\82·\81B</DIV>\r
344 <v:rect style="position:absolute; margin-left:64px; margin-top:2508px; width:328px; height:160px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
345 <DIV id="text105_17" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:72px; margin-top:2514px; line-height:15px; white-space:nowrap">\r
346 Dim&nbsp; g_VBScriptLibraryX<BR/>\r
347 Set&nbsp; g_VBScriptLibraryX = new VBScriptLibraryX_Class<BR/>\r
348 <BR/>\r
349 Class&nbsp; VBScriptLibraryX_Class<BR/>\r
350 &nbsp; &nbsp; Public&nbsp; LibraryVariable<BR/>\r
351 <BR/>\r
352 &nbsp; &nbsp; Private Sub&nbsp; Class_Initialize()<BR/>\r
353 &nbsp; &nbsp; &nbsp; &nbsp; LibraryVariable = 1<BR/>\r
354 &nbsp; &nbsp; End Sub<BR/>\r
355 End Class</DIV>\r
356 <DIV id="text105_18" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:39px; margin-top:2298px; line-height:15px; white-space:nowrap">\r
357 <A href="#name_spaced_variable">\r
358 \81¨ \95Ï\90\94</A></DIV>\r
359 <DIV id="text105_19" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:39px; margin-top:2318px; line-height:15px; white-space:nowrap">\r
360 <A href="#name_spaced_function">\r
361 \81¨ \8aÖ\90\94</A></DIV>\r
362 <DIV id="text105_20" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:39px; margin-top:2338px; line-height:15px; white-space:nowrap">\r
363 <A href="#name_spaced_class">\r
364 \81¨ \83N\83\89\83X</A></DIV>\r
365 <DIV id="text105_21" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:43px; margin-top:2480px; line-height:15px; white-space:nowrap">\r
366 \95Ï\90\94\82Í\81A\83\81\83\93\83o\81[\95Ï\90\94\82É\82µ\82Ü\82·\81B</DIV>\r
367 <DIV id="text105_22" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:3965px; line-height:15px; white-space:nowrap">\r
368 <A name="name_space_dynamic_member">\r
369 \83\81\83\93\83o\81[\95Ï\90\94\82Ì\8ag\92£</A></DIV>\r
370 <DIV id="text105_23" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:51px; margin-top:3990px; line-height:15px; white-space:nowrap">\r
371 VBScript \82Ì\83N\83\89\83X\82Í\81A\93®\93I\82É\83\81\83\93\83o\81[\95Ï\90\94\82ð\92Ç\89Á\82·\82é\82±\82Æ\82ª\82Å\82«\82Ü\82¹\82ñ\81B<BR/>\r
372 \82±\82Ì\82½\82ß\81A\83\89\83C\83u\83\89\83\8a\82ª\81A\95¡\90\94\82Ì .vbs \83t\83@\83C\83\8b\82É\95ª\82©\82ê\82Ä\82¢\82é\82Æ\81A\8aÖ\90\94\82È\82Ç\82ð\82P\82Â\82Ì<BR/>\r
373 \83N\83\89\83X\82Ì\83\81\83\\83b\83h\82É\82Ü\82Æ\82ß\82é\82±\82Æ\82ª\82Å\82«\82Ü\82¹\82ñ\81B</DIV>\r
374 <DIV id="text105_24" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:51px; margin-top:4048px; line-height:15px; white-space:nowrap">\r
375 \82P\82Â\82Ì\83t\83@\83C\83\8b\82É\8fW\82ß\82é\83X\83N\83\8a\83v\83g\82ð\93®\82©\82µ\82Ä\82©\82ç\81A\83\89\83C\83u\83\89\83\8a\82ð\93®\82©\82·\81i\8aÖ\90\94\92è\8b`\82·\82é\81j<BR/>\r
376 \82Æ\82æ\82¢\82Å\82µ\82å\82¤\81B</DIV>\r
377 <DIV id="text105_25" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:39px; margin-top:2358px; line-height:15px; white-space:nowrap">\r
378 <A href="#name_space_dynamic_member">\r
379 \81¨ \83\81\83\93\83o\81[\95Ï\90\94\82Ì\8ag\92£</A></DIV>\r
380 <DIV id="text105_26" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:63px; margin-top:2395px; line-height:15px; white-space:nowrap">\r
381 <A href="vbs_memo_13.html#get_ModuleConsts">\r
382 \81¨ get_ModuleConsts : \83N\83\89\83X\82Ì\92è\90\94 (vbsool)</A></DIV>\r
383 <DIV id="text105_27" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:2395px; line-height:15px; white-space:nowrap">\r
384 \8eQ\8dl</DIV>\r
385 <DIV id="text105_28" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:43px; margin-top:2686px; line-height:15px; white-space:nowrap">\r
386 \82·\82Å\82É\82 \82é\83O\83\8d\81[\83o\83\8b\95Ï\90\94\82Ì\92è\8b`\82©\82ç\81A\96¼\91O\8bó\8aÔ\82Ì\89\98\90õ\82É\91Î\8dô\82·\82é\82Ü\82Å\82Ì\88Ú\8ds\8aú\8aÔ\82Å\82Í\81A<BR/>\r
387 \8e\9f\82Ì\82æ\82¤\82É\81A\83v\83\8d\83p\83e\83B\82ð\8eg\82¢\82Ü\82·\81B</DIV>\r
388 <v:rect style="position:absolute; margin-left:64px; margin-top:2724px; width:460px; height:160px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
389 <DIV id="text105_29" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:72px; margin-top:2730px; line-height:15px; white-space:nowrap">\r
390 Dim&nbsp; g_VBScriptLibraryX<BR/>\r
391 Set&nbsp; g_VBScriptLibraryX = new VBScriptLibraryX_Class<BR/>\r
392 <BR/>\r
393 Class&nbsp; VBScriptLibraryX_Class<BR/>\r
394 &nbsp; &nbsp; '//[Variable]<BR/>\r
395 &nbsp; &nbsp; Public Property Let&nbsp; Variable( x ) : g_Variable = x : End Property<BR/>\r
396 &nbsp; &nbsp; Public Property Get&nbsp; Variable() : Variable = g_Variable : End Property<BR/>\r
397 End Class<BR/>\r
398 <BR/>\r
399 Dim&nbsp; g_Variable</DIV>\r
400 \r
401 <v:line from="0,2022" to="589,2022"/>\r
402 <v:line from="589,2022" to="589,4111"/>\r
403 <v:line from="589,4111" to="0,4111"/>\r
404 <v:line from="0,4111" to="0,2022"/>\r
405 \r
406 </PAGE>\r
407  \r
408 <!-- page 106 --> \r
409 <PAGE>\r
410 <A id="svgcats_vml_p106" class="to_tree" style="margin-top:4116px;" onClick="selectTreeElem( '106' );">\81©</A>\r
411 <A href="#svgcats_vml_p107" class="to_next_page" style="margin-top:4116px;">\81¥</A>\r
412 <A href="#svgcats_vml_p105" class="to_prev_page" style="margin-top:4116px;">\81£</A>\r
413 <v:rect style="position:absolute; margin-left:0px; margin-top:4127px; width:599px; height:1661px;" fillcolor="white"/>\r
414 <DIV id="text106_1" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:24px; margin-top:4144px; line-height:15px; white-space:nowrap">\r
415 <A name="redim">\r
416 \94z\97ñ\81AArray\81AReDim Preserve</A></DIV>\r
417 <DIV id="text106_2" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:22px; margin-top:5700px; line-height:15px; white-space:nowrap">\r
418 <A href="http://msdn.microsoft.com/library/ja/script56/html/vsstmDim.asp" target="_blank">\r
419 \81¨ Dim \83X\83e\81[\83g\83\81\83\93\83g (Web)</A></DIV>\r
420 <DIV id="text106_3" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:22px; margin-top:5720px; line-height:15px; white-space:nowrap">\r
421 <A href="http://msdn.microsoft.com/library/ja/script56/html/vsstmRedim.asp" target="_blank">\r
422 \81¨ ReDim \83X\83e\81[\83g\83\81\83\93\83g (Web)</A></DIV>\r
423 <v:rect style="position:absolute; margin-left:27px; margin-top:4687px; width:250px; height:310px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
424 <DIV id="text106_4" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:35px; margin-top:4693px; line-height:15px; white-space:nowrap">\r
425 Dim&nbsp; a(), b<BR/>\r
426 ReDim&nbsp; a(1), b(1)<BR/>\r
427 a(1) = "abc"<BR/>\r
428 WScript.Echo "1=" &amp; a(1)&nbsp; ' 1=abc<BR/>\r
429 ReDim Preserve&nbsp; a(2)<BR/>\r
430 WScript.Echo "0=" &amp; a(0)&nbsp; ' 0=<BR/>\r
431 WScript.Echo "1=" &amp; a(1)&nbsp; ' 1=abc<BR/>\r
432 WScript.Echo "2=" &amp; a(2)&nbsp; ' 2=<BR/>\r
433 'WScript.Echo "3=" &amp; a(3)&nbsp; ' \83G\83\89\81[<BR/>\r
434 <BR/>\r
435 Array_echo( a )<BR/>\r
436 <BR/>\r
437 Sub Array_echo( arr )<BR/>\r
438 &nbsp; Dim i<BR/>\r
439 <BR/>\r
440 &nbsp; WScript.Echo&nbsp; "UBound="&amp;UBound( arr )<BR/>\r
441 &nbsp; For Each i In arr<BR/>\r
442 &nbsp; &nbsp; WScript.Echo&nbsp; "each = " + i<BR/>\r
443 &nbsp; Next<BR/>\r
444 End Sub</DIV>\r
445 <DIV id="text106_5" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:289px; margin-top:4760px; line-height:15px; white-space:nowrap">\r
446 ReDim Preserve \82Í\81A\97v\91f\82Ì\93à\97e\82ð<BR/>\r
447 \95Û\8e\9d\82µ\82½\82Ü\82Ü\81A\97v\91f\82Ì\90\94\82ð\95Ï\82¦\82é\81B</DIV>\r
448 <DIV id="text106_6" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:289px; margin-top:4693px; line-height:15px; white-space:nowrap">\r
449 ReDim \82·\82é\82È\82ç Dim&nbsp; \82Í\95s\97v\81B () \82à\95s\97v\81B<BR/>\r
450 ReDim&nbsp; a(1) \82Å\81Aa(0)\81`a(1) \82ª\8eg\82¦\82é</DIV>\r
451 <DIV id="text106_7" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:289px; margin-top:4936px; line-height:15px; white-space:nowrap">\r
452 For Each \82ª\8eg\82¦\82é</DIV>\r
453 <v:rect style="position:absolute; margin-left:27px; margin-top:5076px; width:76px; height:130px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
454 <DIV id="text106_8" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:35px; margin-top:5082px; line-height:15px; white-space:nowrap">\r
455 1=abc<BR/>\r
456 0=<BR/>\r
457 1=abc<BR/>\r
458 2=<BR/>\r
459 UBound=2<BR/>\r
460 each =<BR/>\r
461 each = abc<BR/>\r
462 each =</DIV>\r
463 <DIV id="text106_9" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:29px; margin-top:5056px; line-height:15px; white-space:nowrap">\r
464 \8fo\97Í</DIV>\r
465 <DIV id="text106_10" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:289px; margin-top:4874px; line-height:15px; white-space:nowrap">\r
466 \94z\97ñ\82Í\88ø\90\94\82É\93n\82¹\82é</DIV>\r
467 <DIV id="text106_11" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:27px; margin-top:4616px; line-height:15px; white-space:nowrap">\r
468 Dim a() \82Æ\82·\82é\82Æ a \82Í\94z\97ñ\82É\82È\82è\82Ü\82·\82ª\81A\94z\97ñ\82É\8cÅ\92è\82³\82ê\82Ä\82µ\82Ü\82¢\82Ü\82·\81B<BR/>\r
469 Dim b : ReDim b(1) \82Æ\82µ\82Ä\82à b \82Í\94z\97ñ\82É\82È\82è\81A\8cã\82Å b \82É\94z\97ñ\88È\8aO\82ð\8ai\94[\82·\82é\82±\82Æ\82à\82Å\82«\82Ü\82·\81B<BR/>\r
470 Redim Preserve&nbsp; a(-1) \82à\82Å\82«\82Ü\82·\82ª\81AExcel \82Å\82Í a = Array() \82Æ\82·\82é\95K\97v\82ª\82 \82è\82Ü\82·\81B<BR/>\r
471 \93ñ\8e\9f\8c³\94z\97ñ\82Í Redim&nbsp; a( 2, 3 ) \82Ì\82æ\82¤\82É\83R\83\93\83}\82Å\8bæ\90Ø\82è\82Ü\82·\81B</DIV>\r
472 <DIV id="text106_12" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:35px; margin-top:4353px; line-height:15px; white-space:nowrap">\r
473 { 1, 2, 3 } \82Ì\82æ\82¤\82È\8f\89\8aú\89»\8eq\82Í\82 \82è\82Ü\82¹\82ñ\82ª\81Aa = Array( 1, 2, 3 ) \82Í\82Å\82«\82Ü\82·\81B<BR/>\r
474 \8bó\97v\91f\82ð\8ew\92è\82µ\82½\82è\81A\8aK\91w\89»\82·\82é\82±\82Æ\82à\82Å\82«\82Ü\82·\81B</DIV>\r
475 <DIV id="text106_13" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:20px; margin-top:5524px; line-height:15px; white-space:nowrap">\r
476 <A name="array_add">\r
477 \94z\97ñ\82Ì\8dÅ\8cã\82É\92Ç\89Á\82·\82é</A></DIV>\r
478 <v:rect style="position:absolute; margin-left:27px; margin-top:5563px; width:256px; height:40px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
479 <DIV id="text106_14" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:35px; margin-top:5569px; line-height:15px; white-space:nowrap">\r
480 ReDim Preserve&nbsp; arr( UBound( arr ) + 1 )<BR/>\r
481 arr( UBound( arr ) ) = 1234</DIV>\r
482 <DIV id="text106_15" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:35px; margin-top:5606px; line-height:15px; white-space:nowrap">\r
483 \94z\97ñ\82Ì\83\81\83\93\83o\95Ï\90\94\82É\91Î\82·\82é Redim \82Í\81A\83\81\83\93\83o\8aÖ\90\94\82Ì\92\86\82Å\82µ\82©\82Å\82«\82Ü\82¹\82ñ\81B</DIV>\r
484 <DIV id="text106_16" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:35px; margin-top:5007px; line-height:15px; white-space:nowrap">\r
485 \95Ô\82è\92l\82ð ReDim \82Å\94z\97ñ\82É\82·\82é\82±\82Æ\82Í\82Å\82«\82Ü\82¹\82ñ\82ª\81A\94z\97ñ\95Ï\90\94\82ð\95Ô\82è\92l\82É\91ã\93ü\82Å\82«\82Ü\82·\81B<BR/>\r
486 \88ø\90\94\82É\93n\82µ\82½\94z\97ñ\82Í\81A\8aÖ\90\94\93à\82Å ReDim \82µ\82Ä\97v\91f\90\94\82ð\95Ï\82¦\82é\82±\82Æ\82ª\82Å\82«\82Ü\82·\81B</DIV>\r
487 <DIV id="text106_17" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:22px; margin-top:5680px; line-height:15px; white-space:nowrap">\r
488 <A href="vbs_memo_12.html#new_objs">\r
489 \81¨ \83I\83u\83W\83F\83N\83g\82Ì\94z\97ñ\82ð\90\90¬\82·\82é new_ClassA_array</A></DIV>\r
490 <DIV id="text106_18" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:22px; margin-top:5740px; line-height:15px; white-space:nowrap">\r
491 <A href="http://www012.upp.so-net.ne.jp/scotchegg/VBScript/Array.htm" target="_blank">\r
492 \81¨ Deep Decryption - VBScript Tips - \94z\97ñ\8dÄ\8dl (Web)</A></DIV>\r
493 <DIV id="text106_19" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:20px; margin-top:5330px; line-height:15px; white-space:nowrap">\r
494 <A name="copy_array">\r
495 \94z\97ñ\91S\91Ì\82Ì\83R\83s\81[</A></DIV>\r
496 <v:rect style="position:absolute; margin-left:34px; margin-top:5354px; width:118px; height:55px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
497 <DIV id="text106_20" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:42px; margin-top:5360px; line-height:15px; white-space:nowrap">\r
498 Dim&nbsp; a, b<BR/>\r
499 a = Array( 1, 2 )<BR/>\r
500 b = a</DIV>\r
501 <DIV id="text106_21" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:36px; margin-top:5418px; line-height:15px; white-space:nowrap">\r
502 b = a \82Ì\82æ\82¤\82É\91ã\93ü\82·\82é\82Æ\81A\82·\82×\82Ä\82Ì\94z\97ñ\82Ì\97v\91f\82ð\83R\83s\81[\82µ\82Ü\82·\81B<BR/>\r
503\8c¾\8cê\82Ì\82æ\82¤\82È\8eQ\8fÆ\82Å\82Í\82 \82è\82Ü\82¹\82ñ\81B<BR/>\r
504 Dim&nbsp; b() \82Æ\90é\8c¾\82·\82é\82Æ\81A\83R\83s\81[\82Å\82«\82È\82­\82È\82è\82Ü\82·\81B<BR/>\r
505 \8aÖ\90\94\82Ì\95Ô\82è\92l\82É\94z\97ñ\82ð\93n\82·\82±\82Æ\82à\82Å\82«\82Ü\82·\81B</DIV>\r
506 <v:rect style="position:absolute; margin-left:27px; margin-top:4403px; width:142px; height:160px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
507 <DIV id="text106_22" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:35px; margin-top:4409px; line-height:15px; white-space:nowrap">\r
508 Dim&nbsp; a<BR/>\r
509 a = Array( 1, 2, 3 )<BR/>\r
510 <BR/>\r
511 a = Array( )<BR/>\r
512 a = Array( 1 )<BR/>\r
513 a = Array( 1, "ABC" )<BR/>\r
514 a = Array( , "ABC" )<BR/>\r
515 FuncA&nbsp; Array( _<BR/>\r
516 &nbsp; Array( 1, "ABC" ),_<BR/>\r
517 &nbsp; Array( 2, "DEF" ) )</DIV>\r
518 <DIV id="text106_23" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#FF0000; margin-left:209px; margin-top:5570px; line-height:13px; white-space:nowrap">\r
519 arr</DIV>\r
520 <DIV id="text106_24" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#FF0000; margin-left:131px; margin-top:5570px; line-height:13px; white-space:nowrap">\r
521 arr</DIV>\r
522 <DIV id="text106_25" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#FF0000; margin-left:113px; margin-top:5585px; line-height:13px; white-space:nowrap">\r
523 arr</DIV>\r
524 <DIV id="text106_26" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#FF0000; margin-left:35px; margin-top:5585px; line-height:13px; white-space:nowrap">\r
525 arr</DIV>\r
526 <DIV id="text106_27" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#FF0000; margin-left:173px; margin-top:5585px; line-height:13px; white-space:nowrap">\r
527 1234</DIV>\r
528 <DIV id="text106_28" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:190px; margin-top:4423px; line-height:15px; white-space:nowrap">\r
529 \81© Array \8aÖ\90\94\82Í\81A\94z\97ñ\82ð\95Ô\82µ\82Ü\82·\81B<BR/>\r
530 \81@\81@a(0)=1, a(1)=2, a(2)=3, UBound(a)=\97v\91f\90\94-1<BR/>\r
531 \81© \8bó\82Ì\94z\97ñ, UBound(a) = -1<BR/>\r
532 \81© \97v\91f\90\94\82ª\82P\82Â\82Ì\94z\97ñ<BR/>\r
533 \81© \90\94\92l\82Æ\95\8e\9a\97ñ\82ª\8d¬\8dÝ\82µ\82½\94z\97ñ<BR/>\r
534 \81© \8bó\97v\91f\82ð\8aÜ\82Þ\94z\97ñ\81B VarType( a(0) ) = vbError<BR/>\r
535 \81© \94z\97ñ\82ª\93ü\82Á\82Ä\82¢\82é\94z\97ñ\82ð\8aÖ\90\94 FuncA \82É\93n\82·</DIV>\r
536 <DIV id="text106_29" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:209px; margin-top:4528px; line-height:15px; white-space:nowrap">\r
537 <A name="structed_array">\r
538 \81i\8aK\91w\89»\94z\97ñ\81j</A></DIV>\r
539 <DIV id="text106_30" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:4329px; line-height:15px; white-space:nowrap">\r
540 <A name="array_func">\r
541 Array \8aÖ\90\94</A></DIV>\r
542 <DIV id="text106_31" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:20px; margin-top:4587px; line-height:15px; white-space:nowrap">\r
543 <A name="dim_redim">\r
544 Dim \82Æ ReDim</A></DIV>\r
545 <DIV id="text106_32" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:52px; margin-top:4212px; line-height:15px; white-space:nowrap">\r
546 <A href="#copy_array">\r
547 \81¨ \94z\97ñ\91S\91Ì\82Ì\83R\83s\81[</A></DIV>\r
548 <DIV id="text106_33" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:52px; margin-top:4230px; line-height:15px; white-space:nowrap">\r
549 <A href="#array_add">\r
550 \81¨ \94z\97ñ\82Ì\8dÅ\8cã\82É\92Ç\89Á\82·\82é</A></DIV>\r
551 <DIV id="text106_34" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:52px; margin-top:4176px; line-height:15px; white-space:nowrap">\r
552 <A href="#array_func">\r
553 \81¨ Array \8aÖ\90\94</A></DIV>\r
554 <DIV id="text106_35" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:52px; margin-top:4194px; line-height:15px; white-space:nowrap">\r
555 <A href="#dim_redim">\r
556 \81¨ Dim \82Æ ReDim</A></DIV>\r
557 <DIV id="text106_36" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:52px; margin-top:4248px; line-height:15px; white-space:nowrap">\r
558 <A href="#IsArray">\r
559 \81¨ \94z\97ñ\82©\82Ç\82¤\82©\82Ì\94»\92è IsArray</A></DIV>\r
560 <DIV id="text106_37" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:35px; margin-top:5235px; line-height:15px; white-space:nowrap">\r
561 \94z\97ñ\82Ì\83\81\83\93\83o\95Ï\90\94\82É\91Î\82·\82é Redim \82Í\81A\83\81\83\93\83o\8aÖ\90\94\82Ì\92\86\82Å\82µ\82©\82Å\82«\82Ü\82¹\82ñ\81B<BR/>\r
562 \83I\83u\83W\83F\83N\83g\82Ì\83\81\83\93\83o\82ð\8eQ\8fÆ\82·\82é\83s\83\8a\83I\83h\89\89\8eZ\8eq\82ð\8eg\82Á\82½\8e\9e\93_\82Å\81ARedim \82µ\82½\93à\97e\82Í<BR/>\r
563 \83\81\83\93\83o\95Ï\90\94\82É\82Í\94½\89f\82³\82ê\82Ü\82¹\82ñ\81B<BR/>\r
564 ArrayClass(vbslib) \82ð\8eg\82¦\82Î\81A\83N\83\89\83X\82Ì\8aO\82©\82ç\94z\97ñ\82Ì\97v\91f\90\94\82ð\95Ï\82¦\82é\82±\82Æ\82ª\82Å\82«\82Ü\82·\81B</DIV>\r
565 <DIV id="text106_38" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:35px; margin-top:5629px; line-height:15px; white-space:nowrap">\r
566 \8fã\8bL\82Ì\82æ\82¤\82É\81A\82P\97v\91f\82¸\82Â\91\9d\82â\82·\82Æ\81A\8f\88\97\9d\91¬\93x\82Í\82©\82È\82è\92x\82­\82È\82è\82Ü\82·\81B</DIV>\r
567 <DIV id="text106_39" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:52px; margin-top:4266px; line-height:15px; white-space:nowrap">\r
568 <A href="vbs_memo_16.html#speed_array_arg">\r
569 \81¨ \88ø\90\94\82É\94z\97ñ\82ð\93n\82·\91¬\93x</A></DIV>\r
570 <DIV id="text106_40" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:52px; margin-top:4284px; line-height:15px; white-space:nowrap">\r
571 <A href="vbs_memo_16.html#speed_array_redim">\r
572 \81¨ \94z\97ñ\97v\91f\82ð\92Ç\89Á\82·\82é\91¬\93x</A></DIV>\r
573 \r
574 <v:line from="0,4127" to="599,4127"/>\r
575 <v:line from="599,4127" to="599,5788"/>\r
576 <v:line from="599,5788" to="0,5788"/>\r
577 <v:line from="0,5788" to="0,4127"/>\r
578 \r
579 </PAGE>\r
580  \r
581 <!-- page 107 --> \r
582 <PAGE>\r
583 <A id="svgcats_vml_p107" class="to_tree" style="margin-top:5793px;" onClick="selectTreeElem( '107' );">\81©</A>\r
584 <A href="#svgcats_vml_p108" class="to_next_page" style="margin-top:5793px;">\81¥</A>\r
585 <A href="#svgcats_vml_p106" class="to_prev_page" style="margin-top:5793px;">\81£</A>\r
586 <v:rect style="position:absolute; margin-left:0px; margin-top:5804px; width:478px; height:467px;" fillcolor="white"/>\r
587 <DIV id="text107_1" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:24px; margin-top:5821px; line-height:15px; white-space:nowrap">\r
588 <A name="Split">\r
589 Split</A></DIV>\r
590 <v:rect style="position:absolute; margin-left:34px; margin-top:6005px; width:262px; height:55px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
591 <DIV id="text107_2" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:42px; margin-top:6011px; line-height:15px; white-space:nowrap">\r
592 Dim&nbsp; a, e<BR/>\r
593 a = Split( "abc, 123 ,""ABC""", "," )<BR/>\r
594 For Each e In a : echo "["+ e +"]" : Next</DIV>\r
595 <v:rect style="position:absolute; margin-left:28px; margin-top:5853px; width:418px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
596 <DIV id="text107_3" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:36px; margin-top:5860px; line-height:13px; white-space:nowrap">\r
597 Function&nbsp; Split( Str as stirng, Term as string ) as Array of string</DIV>\r
598 <DIV id="text107_4" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:36px; margin-top:5890px; line-height:15px; white-space:nowrap">\r
599 \95\8e\9a\97ñ\82ð\81A\8ew\92è\82Ì\95\8e\9a\82Å\8bæ\90Ø\82Á\82Ä\81A\94z\97ñ\82É\8ai\94[\82µ\82Ü\82·\81B</DIV>\r
600 <DIV id="text107_5" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:36px; margin-top:5916px; line-height:15px; white-space:nowrap">\r
601 \81y\88ø\90\94\81z</DIV>\r
602 <DIV id="text107_6" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:100px; margin-top:5916px; line-height:15px; white-space:nowrap">\r
603 Str</DIV>\r
604 <DIV id="text107_7" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:100px; margin-top:5935px; line-height:15px; white-space:nowrap">\r
605 Term</DIV>\r
606 <DIV id="text107_8" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:157px; margin-top:5916px; line-height:15px; white-space:nowrap">\r
607 \95ª\8a\84\82µ\82æ\82¤\82Æ\82·\82é\95\8e\9a\97ñ</DIV>\r
608 <DIV id="text107_9" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:157px; margin-top:5935px; line-height:15px; white-space:nowrap">\r
609 \8bæ\90Ø\82è\95\8e\9a</DIV>\r
610 <DIV id="text107_10" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:100px; margin-top:5954px; line-height:15px; white-space:nowrap">\r
611 \95Ô\82è\92l</DIV>\r
612 <DIV id="text107_11" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:157px; margin-top:5954px; line-height:15px; white-space:nowrap">\r
613 \95ª\8a\84\82µ\82½\95\8e\9a\97ñ\82Ì\94z\97ñ</DIV>\r
614 <DIV id="text107_12" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:8pt; color:#0000FF; margin-left:176px; margin-top:5823px; line-height:12px; white-space:nowrap">\r
615 <A href="#redim">\r
616\90e: vbs \82Ì\94z\97ñ ]</A></DIV>\r
617 <DIV id="text107_13" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:49px; margin-top:6067px; line-height:15px; white-space:nowrap">\r
618 a(0) = [abc]<BR/>\r
619 a(1) = [ 123 ]<BR/>\r
620 a(2) = ["ABC"]</DIV>\r
621 <DIV id="text107_14" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:119px; margin-top:5820px; line-height:15px; white-space:nowrap">\r
622 <A href="http://msdn.microsoft.com/ja-jp/library/cc410311.aspx" target="_blank">\r
623 (Web)</A></DIV>\r
624 <DIV id="text107_15" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:68px; margin-top:6183px; line-height:15px; white-space:nowrap">\r
625 <A href="..\vbslib.files\vbslib_44.html#MeltCSV">\r
626 \81¨ MeltCSV</A></DIV>\r
627 <DIV id="text107_16" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:6183px; line-height:15px; white-space:nowrap">\r
628 \8aÖ\98A</DIV>\r
629 <DIV id="text107_17" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:24px; margin-top:5982px; line-height:15px; white-space:nowrap">\r
630 \83T\83\93\83v\83\8b</DIV>\r
631 <v:rect style="position:absolute; margin-left:34px; margin-top:6139px; width:274px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
632 <DIV id="text107_18" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:42px; margin-top:6146px; line-height:13px; white-space:nowrap">\r
633 Split( "a,b," )&nbsp; &nbsp;'// Array( "a", "b", "" )</DIV>\r
634 <DIV id="text107_19" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:68px; margin-top:6223px; line-height:15px; white-space:nowrap">\r
635 <A href="vbs_memo_10.html#Join">\r
636 \81¨ Join</A></DIV>\r
637 <DIV id="text107_20" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:68px; margin-top:6203px; line-height:15px; white-space:nowrap">\r
638 <A href="..\vbslib.files\vbslib_34.html#get_PathNameRegularExpression">\r
639 \81¨ get_PathNameRegularExpression</A></DIV>\r
640 \r
641 <v:line from="0,5804" to="478,5804"/>\r
642 <v:line from="478,5804" to="478,6271"/>\r
643 <v:line from="478,6271" to="0,6271"/>\r
644 <v:line from="0,6271" to="0,5804"/>\r
645 \r
646 </PAGE>\r
647  \r
648 <!-- page 108 --> \r
649 <PAGE>\r
650 <A id="svgcats_vml_p108" class="to_tree" style="margin-top:6276px;" onClick="selectTreeElem( '108' );">\81©</A>\r
651 <A href="#svgcats_vml_p109" class="to_next_page" style="margin-top:6276px;">\81¥</A>\r
652 <A href="#svgcats_vml_p107" class="to_prev_page" style="margin-top:6276px;">\81£</A>\r
653 <v:rect style="position:absolute; margin-left:0px; margin-top:6287px; width:591px; height:1962px;" fillcolor="white"/>\r
654 <DIV id="text108_1" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:24px; margin-top:6304px; line-height:15px; white-space:nowrap">\r
655 <A name="byte_arr">\r
656 Byte \94z\97ñ</A></DIV>\r
657 <DIV id="text108_2" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:168px; margin-top:6352px; line-height:15px; white-space:nowrap">\r
658 <A href="vbs_memo_15.html#Read_ADODB_Stream">\r
659 Read (ADODB.Stream)</A></DIV>\r
660 <DIV id="text108_3" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:304px; margin-top:6352px; line-height:15px; white-space:nowrap">\r
661 \82·\82é\82Æ\81AByte \8c^\82Ì\94z\97ñ\82ª\95Ô\82è\82Ü\82·\81B</DIV>\r
662 <DIV id="text108_4" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6352px; line-height:15px; white-space:nowrap">\r
663 \83o\83C\83i\83\8a\81E\83X\83g\83\8a\81[\83\80\82©\82ç</DIV>\r
664 <DIV id="text108_5" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6335px; line-height:15px; white-space:nowrap">\r
665 VBScript \82É\82Í\81A\83o\83C\83i\83\8a\81iByte \8c^\94z\97ñ\81j\82ð\8dì\82é\82±\82Æ\82Í\82Å\82«\82Ü\82¹\82ñ\82ª\81AADODB \82ð\8eg\82¤\82Æ\8dì\82ê\82Ü\82·\81B</DIV>\r
666 <DIV id="text108_6" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:352px; margin-top:6386px; line-height:15px; white-space:nowrap">\r
667 <A href="vbs_memo_16.html#Write_ADODB_Stream">\r
668 Write (ADODB.Stream)</A></DIV>\r
669 <DIV id="text108_7" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6385px; line-height:15px; white-space:nowrap">\r
670 \83o\83C\83i\83\8a\81E\83f\81[\83^\82Ì\88ê\95\94\82ð\83\8a\81[\83h\82µ\82½Byte \94z\97ñ\82Í\81A\82»\82Ì\82Ü\82Ü</DIV>\r
671 <DIV id="text108_8" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:483px; margin-top:6386px; line-height:15px; white-space:nowrap">\r
672 \82·\82é\82±\82Æ\82ª</DIV>\r
673 <v:rect style="position:absolute; margin-left:44px; margin-top:7065px; width:280px; height:160px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
674 <DIV id="text108_9" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:7071px; line-height:15px; white-space:nowrap">\r
675 Dim&nbsp; binary&nbsp; '// as Byte()<BR/>\r
676 Dim&nbsp; strbin&nbsp; '// as String<BR/>\r
677 Dim&nbsp; value&nbsp; &nbsp;'// as Integer<BR/>\r
678 <BR/>\r
679 value = AscB( binary )&nbsp; '// \90æ\93ª\83o\83C\83g\82Ì\92l<BR/>\r
680 <BR/>\r
681 strbin = MidB( binary, 2, 1 )&nbsp; '// 2\83o\83C\83g\96Ú<BR/>\r
682 value = AscB( strbin )<BR/>\r
683 <BR/>\r
684 bin = binary(1)&nbsp; '// ( ) \82ð\8eg\82¤\82Æ\83G\83\89\81[</DIV>\r
685 <v:rect style="position:absolute; margin-left:44px; margin-top:6425px; width:418px; height:70px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
686 <DIV id="text108_10" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:6431px; line-height:15px; white-space:nowrap">\r
687 Dim&nbsp; rf, wf&nbsp; '// as ADODB.Stream<BR/>\r
688 rf.Position = &amp;h10<BR/>\r
689 binary = rf.Read( &amp;h28 )<BR/>\r
690 wf.Write&nbsp; binary&nbsp; &nbsp;'// rf \82Ì\83I\83t\83Z\83b\83g &amp;h10 \82©\82ç %h28\83o\83C\83g\82ð wf \82Ö</DIV>\r
691 <DIV id="text108_11" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6993px; line-height:15px; white-space:nowrap">\r
692 \83o\83C\83i\83\8a\82Ì\93à\97e\82ð\8am\94F\82·\82é\82É\82Í\81AAscB \82Æ MidB \82ð\8eg\82¢\82Ü\82·\81B AscB \8aÖ\90\94\82¾\82¯\82Å\81A\83o\83C\83i\83\8a\82Ì<BR/>\r
693 \90\94\92l\82ð\8eæ\93¾\82Å\82«\82Ü\82·\82ª\81AAscB \8aÖ\90\94\82Í\90æ\93ª\82Ì\95\8e\9a\81i\83o\83C\83g\81j\82µ\82©\90\94\92l\82É\95Ï\8a·\82µ\82È\82¢\82Ì\82Å\81A\91½\82­\82Ì<BR/>\r
694 \8fê\8d\87\82Å MidB \82à\8eg\82¤\82±\82Æ\82É\82È\82è\82Ü\82·\81\82¿\82È\82Ý\82É\81AMidB \82Ì\91ã\82í\82è\82É Byte \94z\97ñ\82Ì\94z\97ñ\94Ô\8d\86\82ð<BR/>\r
695 \8eg\82Á\82Ä\8eQ\8fÆ\82µ\82æ\82¤\82Æ\82·\82é\82Æ\83G\83\89\81[\82É\82È\82è\82Ü\82·\81B</DIV>\r
696 <DIV id="text108_12" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#FF0000; margin-left:24px; margin-top:7453px; line-height:15px; white-space:nowrap">\r
697 \82½\82¾\82µ\81AMidB \82È\82Ç\82Ì\95\8e\9a\97ñ\91\80\8dì\8aÖ\90\94\82â + \89\89\8eZ\8eq\82Å\95Ô\82³\82ê\82é\95\8e\9a\97ñ\82Í\81AByte\94z\97ñ\82Å\82Í\82È\82­ <BR/>\r
698 String \8c^\82É\82È\82é\82½\82ß\81A ADODB.Stream \82Ì Write \82É\93n\82·\82±\82Æ\82ª\82Å\82«\82Ü\82¹\82ñ\81B</DIV>\r
699 <DIV id="text108_13" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:7336px; line-height:15px; white-space:nowrap">\r
700 AscB \82â MidB \82ª\8eg\82¦\82é\82Ì\82Í\81AVBScript \82ª Byte \94z\97ñ\82ð String \8c^\81i\95\8e\9a\97ñ\81j\82É\88Ã\96Ù\93I\82É\95Ï\8a·<BR/>\r
701 \82µ\82Ä\82¢\82é\82©\82ç\82Å\82·\81\82½\82¾\82µ\81AVBScript \82Ì\92Ê\8fí\82Ì\95\8e\9a\97ñ\82Í\81AUnicode\81i2\83o\83C\83g\95\8e\9a\81j\82È\82Ì\82Å\81A<BR/>\r
702 \92Ê\8fí\81A\83o\83C\83g\92P\88Ê\82Ì\95\8e\9a\82Æ\82µ\82Ä\88µ\82¤\96\96\94ö\82ÉB\82ª\95t\82¢\82½\8aÖ\90\94\82ð\8eg\82¢\82Ü\82·\81B <BR/>\r
703 ChrB, LeftB, RightB, LenB, StrComp \8aÖ\90\94\82â\81A+ \89\89\8eZ\8eq\82È\82Ç\82ª\8eg\82¦\82Ü\82·\81B</DIV>\r
704 <v:rect style="position:absolute; margin-left:44px; margin-top:7493px; width:280px; height:70px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
705 <DIV id="text108_14" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:7499px; line-height:15px; white-space:nowrap">\r
706 Dim&nbsp; rf, wf&nbsp; '// as ADODB.Stream<BR/>\r
707 binary = rf.Read( adRealAll )<BR/>\r
708 strbin = MidB( binary, &amp;h10, &amp;h28 )<BR/>\r
709 wf.Write&nbsp; strbin&nbsp; &nbsp;'// String \8c^\82È\82Ì\82Å\83G\83\89\81[</DIV>\r
710 <DIV id="text108_15" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6400px; line-height:15px; white-space:nowrap">\r
711 \82Å\82«\82Ü\82·\81\82Â\82Ü\82è\81A\83o\83C\83i\83\8a\81E\83f\81[\83^\82Ì\88ê\95\94\82ð\92\8a\8fo\82·\82é\82±\82Æ\82ª\82Å\82«\82Ü\82·\81B</DIV>\r
712 <v:rect style="position:absolute; margin-left:44px; margin-top:7408px; width:400px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
713 <DIV id="text108_16" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:7415px; line-height:13px; white-space:nowrap">\r
714 strbin = LeftB( binary, 3 ) + ChrB( &amp;h0A ) + RightB( binary, 3 )</DIV>\r
715 <DIV id="text108_17" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:14px; margin-top:6966px; line-height:15px; white-space:nowrap">\r
716 <A name="bytevalue">\r
717 \83o\83C\83i\83\8a\82Ì\93à\97e\82ð\8am\94F\82·\82é</A></DIV>\r
718 <DIV id="text108_18" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:14px; margin-top:7311px; line-height:15px; white-space:nowrap">\r
719 <A name="binedit">\r
720 \83o\83C\83i\83\8a\82Ì\93à\97e\82ð\89Á\8dH\82·\82é \81i\95\8e\9a\97ñ\82Æ\82µ\82Ä\82Ì Byte \94z\97ñ\81j</A></DIV>\r
721 <DIV id="text108_19" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:24px; margin-top:6535px; line-height:15px; white-space:nowrap">\r
722 <A href="#bytevalue">\r
723 \81¨ \83o\83C\83i\83\8a\82Ì\93à\97e\82ð\8am\94F\82·\82é</A></DIV>\r
724 <DIV id="text108_20" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:24px; margin-top:6553px; line-height:15px; white-space:nowrap">\r
725 <A href="#binedit">\r
726 \81¨ \83o\83C\83i\83\8a\82Ì\93à\97e\82ð\89Á\8dH\82·\82é \81i\95\8e\9a\97ñ\82Æ\82µ\82Ä\82Ì Byte \94z\97ñ\81j</A></DIV>\r
727 <DIV id="text108_21" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:24px; margin-top:6517px; line-height:15px; white-space:nowrap">\r
728 <A href="#binlimit">\r
729 \81¨ Byte \94z\97ñ\82Ì\90§\8cÀ</A></DIV>\r
730 <v:rect style="position:absolute; margin-left:44px; margin-top:6852px; width:178px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
731 <DIV id="text108_22" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:6859px; line-height:13px; white-space:nowrap">\r
732 ReDim Preverve&nbsp; binary\81i10)</DIV>\r
733 <DIV id="text108_23" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6795px; line-height:15px; white-space:nowrap">\r
734 \8e\9f\82Ì\83R\81[\83h\82Í\83G\83\89\81[\82É\82È\82è\82Ü\82·\81B</DIV>\r
735 <v:rect style="position:absolute; margin-left:44px; margin-top:6819px; width:70px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
736 <DIV id="text108_24" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:6826px; line-height:13px; white-space:nowrap">\r
737 binary(0)</DIV>\r
738 <DIV id="text108_25" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6658px; line-height:15px; white-space:nowrap">\r
739 Byte \94z\97ñ\82Í\81A\94z\97ñ\82ð\8eg\82¤\8aÖ\90\94\82Ì\82¤\82¿\88ê\95\94\82Ì\8aÖ\90\94\82µ\82©\8eg\82¦\82Ü\82¹\82ñ\81\8e\9f\82Ì\8aÖ\90\94\82Í\8eg\82¦\82Ü\82·\81B</DIV>\r
740 <v:rect style="position:absolute; margin-left:44px; margin-top:6683px; width:178px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
741 <DIV id="text108_26" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:6690px; line-height:13px; white-space:nowrap">\r
742 Size = UBound( binary ) + 1</DIV>\r
743 <v:rect style="position:absolute; margin-left:44px; margin-top:6714px; width:184px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
744 <DIV id="text108_27" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:6721px; line-height:13px; white-space:nowrap">\r
745 LBound( binary )&nbsp; '// \8fí\82É 0</DIV>\r
746 <DIV id="text108_28" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:15px; margin-top:6629px; line-height:15px; white-space:nowrap">\r
747 <A name="binlimit">\r
748 Byte \94z\97ñ\82Ì\90§\8cÀ</A></DIV>\r
749 <DIV id="text108_29" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:6895px; line-height:15px; white-space:nowrap">\r
750 Byte \94z\97ñ\82Í\81A( ) \82ð\8eg\82Á\82Ä\94z\97ñ\82Ì\97v\91f\82É\83A\83N\83Z\83X\82Å\82«\82È\82¢\91ã\82í\82è\82É\81AString \8c^\82É\88Ã\96Ù\95Ï\8a·<BR/>\r
751 \82·\82é\82±\82Æ\82ª\82Å\82«\82é\82Ì\82Å\81A\95\8e\9a\97ñ\82ð\88µ\82¤\8aÖ\90\94\82ð\8eg\82¤\82±\82Æ\82ª\82Å\82«\82Ü\82·\81B\81i\8cã\8fq\81j</DIV>\r
752 <v:rect style="position:absolute; margin-left:44px; margin-top:6745px; width:286px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
753 <DIV id="text108_30" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:6752px; line-height:13px; white-space:nowrap">\r
754 VarType( binary ) = vbArray + vbByte = &amp;h2011</DIV>\r
755 <DIV id="text108_31" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:7586px; line-height:15px; white-space:nowrap">\r
756 \82Â\82Ü\82è\81AVBScript \82Å\82Í\81A\95\8e\9a\97ñ\8aÖ\90\94\82â\94z\97ñ\8b@\94\\82ð\8eg\82Á\82Ä\83o\83C\83i\83\8a\82ð\95Ò\8fW\82·\82é\82±\82Æ\82Í\82Å\82«\82Ü\82¹\82ñ\81B<BR/>\r
757 \95Ò\8fW\82·\82é\82É\82Í\81AADODB.Stream \82ð\8a\88\97p\82·\82é\82±\82Æ\82Å\81A\8aÔ\90Ú\93I\82É\95Ò\8fW\82·\82é\82±\82Æ\82ª\82Å\82«\82Ü\82·\81B<BR/>\r
758 \82È\82¨\81A\88È\89º\82É\90à\96¾\82·\82é\93à\97e\82Í\81A</DIV>\r
759 <DIV id="text108_32" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:7645px; line-height:15px; white-space:nowrap">\r
760 \82Ü\82¸\81A\83o\83C\83i\83\8a\82Ì\82·\82×\82Ä\82Ì\92l 0x00\81`0xFF \82ð Unicode \82ð\8eg\82Á\82Ä\83X\83g\83\8a\81[\83\80\82É\8dì\90¬\82µ\82Ü\82·\81B<BR/>\r
761 \82»\82Ì\8cã\81A\95K\97v\82É\89\9e\82\82Ä\81A\83o\83C\83i\83\8a\82ð\8ai\94[\82·\82é\95Ê\82Ì\83X\83g\83\8a\81[\83\80\82É</DIV>\r
762 <v:rect style="position:absolute; margin-left:45px; margin-top:7687px; width:442px; height:235px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
763 <DIV id="text108_33" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:53px; margin-top:7693px; line-height:15px; white-space:nowrap">\r
764 &nbsp; &nbsp; Dim&nbsp; i, f<BR/>\r
765 &nbsp; &nbsp; Set f = CreateObject( "ADODB.Stream" )<BR/>\r
766 &nbsp; &nbsp; f.Charset = "unicode"<BR/>\r
767 &nbsp; &nbsp; f.Open<BR/>\r
768 <BR/>\r
769 &nbsp; &nbsp; '// FE FF 00 01 02 ... FD FE FF<BR/>\r
770 &nbsp; &nbsp; For i=0 To 255 Step 2 : f.WriteText&nbsp; ChrW( i + (i+1)*&amp;h100 ) : Next<BR/>\r
771 &nbsp; &nbsp; f.Position = 0<BR/>\r
772 &nbsp; &nbsp; f.Type = Me.adTypeBinary<BR/>\r
773 <BR/>\r
774 &nbsp; &nbsp; f.Position = Values + 2<BR/>\r
775 &nbsp; &nbsp; f2.Position = ...<BR/>\r
776 &nbsp; &nbsp; f.CopyTo&nbsp; f2, 1<BR/>\r
777 <BR/>\r
778 &nbsp; &nbsp; f.Close</DIV>\r
779 <DIV id="text108_34" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:507px; margin-top:7660px; line-height:15px; white-space:nowrap">\r
780 \82µ\82Ü\82·\81B</DIV>\r
781 <DIV id="text108_35" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:360px; margin-top:7660px; line-height:15px; white-space:nowrap">\r
782 <A href="vbs_memo_16.html#CopyTo_ADODB_Stream">\r
783 CopyTo (ADODB.Stream)</A></DIV>\r
784 <DIV id="text108_36" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:308px; margin-top:7616px; line-height:15px; white-space:nowrap">\r
785 \82Ì\93à\95\94\82Å\8eg\82í\82ê\82Ä\82¢\82Ü\82·\81B</DIV>\r
786 <DIV id="text108_37" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:196px; margin-top:7616px; line-height:15px; white-space:nowrap">\r
787 <A href="..\vbslib.files\vbslib_40.html#BinaryArray">\r
788 BinaryArray (vbslib)</A></DIV>\r
789 <DIV id="text108_38" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:14px; margin-top:7952px; line-height:15px; white-space:nowrap">\r
790 <A name="BinComp">\r
791 \83o\83C\83i\83\8a\82Ì\93à\97e\82ð\94ä\8ar\82·\82é</A></DIV>\r
792 <DIV id="text108_39" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:24px; margin-top:6571px; line-height:15px; white-space:nowrap">\r
793 <A href="#BinComp">\r
794 \81¨ \83o\83C\83i\83\8a\82Ì\93à\97e\82ð\94ä\8ar\82·\82é</A></DIV>\r
795 <v:rect style="position:absolute; margin-left:45px; margin-top:8018px; width:310px; height:70px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
796 <DIV id="text108_40" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:53px; margin-top:8024px; line-height:15px; white-space:nowrap">\r
797 Dim&nbsp; f1, f2&nbsp; '// as ADODB.Stream<BR/>\r
798 bin1 = f1.Read( adRealAll )<BR/>\r
799 bin2 = f2.Read( adRealAll )<BR/>\r
800 If StrComp( bin1, bin2, 0 ) = 0 Then&nbsp; echo "same"</DIV>\r
801 <DIV id="text108_41" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:7979px; line-height:15px; white-space:nowrap">\r
802 Byte \94z\97ñ\82ð StrComp \82É\93n\82·\82±\82Æ\82Å\81A\83o\83C\83i\83\8a\94ä\8ar\82ª\82Å\82«\82Ü\82·\81B<BR/>\r
803 \95\8e\9a\97ñ\82Ì\82æ\82¤\82É\91å\8f¬\94ä\8ar\82à\82Å\82«\82Ü\82·\81B</DIV>\r
804 <DIV id="text108_42" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:44px; margin-top:7238px; line-height:15px; white-space:nowrap">\r
805 \8eQ\8dl</DIV>\r
806 <DIV id="text108_43" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:83px; margin-top:7259px; line-height:15px; white-space:nowrap">\r
807 <A href="..\vbslib.files\vbslib_41.html#ReadStruct_BinaryArray">\r
808 \81¨ ReadStruct (BinaryArray) (vbslib)</A></DIV>\r
809 <DIV id="text108_44" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:14px; margin-top:8130px; line-height:15px; white-space:nowrap">\r
810 <A name="BinZero">\r
811 \83T\83C\83Y 0 \82Ì\83o\83C\83g\94z\97ñ</A></DIV>\r
812 <DIV id="text108_45" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:8157px; line-height:15px; white-space:nowrap">\r
813 \83o\83C\83i\83\8a\81E\83X\83g\83\8a\81[\83\80\82©\82ç Read (ADODB.Stream) \82·\82é\82Æ\81AByte \8c^\82Ì\94z\97ñ\82ª\95Ô\82è\82Ü\82·\82ª\81A<BR/>\r
814 \83T\83C\83Y = 0 \82Å Read \82·\82é\82Æ\81ANull \82ª\95Ô\82è\82Ü\82·\81\83T\83C\83Y 0 \82Ì\83o\83C\83g\94z\97ñ\82Í\8eæ\93¾\82Å\82«\82Ü\82¹\82ñ\81B</DIV>\r
815 <DIV id="text108_46" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:8199px; line-height:15px; white-space:nowrap">\r
816 \82»\82µ\82Ä\81ANull \82ð Write \82·\82é\82Æ\81A\83G\83\89\81[\82É\82È\82è\82Ü\82·\81B</DIV>\r
817 <DIV id="text108_47" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:83px; margin-top:7238px; line-height:15px; white-space:nowrap">\r
818 <A href="..\vbslib.files\vbslib_40.html#new_BinaryArray">\r
819 \81¨ new_BinaryArray \82Æ GetEchoStr \82É\82æ\82é\83_\83\93\83v (vbslib)</A></DIV>\r
820 \r
821 <v:line from="0,6287" to="591,6287"/>\r
822 <v:line from="591,6287" to="591,8249"/>\r
823 <v:line from="591,8249" to="0,8249"/>\r
824 <v:line from="0,8249" to="0,6287"/>\r
825 \r
826 </PAGE>\r
827  \r
828 <!-- page 109 --> \r
829 <PAGE>\r
830 <A id="svgcats_vml_p109" class="to_tree" style="margin-top:8254px;" onClick="selectTreeElem( '109' );">\81©</A>\r
831 <A href="#svgcats_vml_p110" class="to_next_page" style="margin-top:8254px;">\81¥</A>\r
832 <A href="#svgcats_vml_p108" class="to_prev_page" style="margin-top:8254px;">\81£</A>\r
833 <v:rect style="position:absolute; margin-left:0px; margin-top:8265px; width:568px; height:1322px;" fillcolor="white"/>\r
834 <DIV id="text109_1" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:24px; margin-top:8282px; line-height:15px; white-space:nowrap">\r
835 <A name="arr_one_multi">\r
836 \92P\91Ì\82Æ\94z\97ñ\82Ì\8b¤\97p\95Ï\90\94</A></DIV>\r
837 <DIV id="text109_2" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:8319px; line-height:15px; white-space:nowrap">\r
838 VBScipt \82Í\81A\82P\82Â\82Ì\95Ï\90\94\82É\88ê\94Ê\93I\82È\95Ï\90\94\82Æ\94z\97ñ\82Ì\82Ç\82¿\82ç\82Å\82à\93ü\82ê\82é\82±\82Æ\82ª\82Å\82«\82Ü\82·\81B<BR/>\r
839 \82±\82ê\82ð\89\9e\97p\82µ\82Ä\81A\82P\82Â\82Ì\92l\82Ì\8ew\92è\82Æ\81A\95¡\90\94\82Ì\92l\82Ì\8ew\92è\82ð\81A\82P\82Â\82Ì\95Ï\90\94\82Å\91Î\89\9e\82Å\82«\82Ü\82·\81B</DIV>\r
840 <v:rect style="position:absolute; margin-left:44px; margin-top:8362px; width:214px; height:100px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
841 <DIV id="text109_3" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:8368px; line-height:15px; white-space:nowrap">\r
842 Sub&nbsp; main()<BR/>\r
843 &nbsp; Dim&nbsp; a<BR/>\r
844 &nbsp; a = 1 : FuncA&nbsp; a<BR/>\r
845 &nbsp; a = Array( 1, 2, 3 ) : FuncA&nbsp; a<BR/>\r
846 &nbsp; a = Empty : FuncA&nbsp; a<BR/>\r
847 End Sub</DIV>\r
848 <DIV id="text109_4" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:8590px; line-height:15px; white-space:nowrap">\r
849 \89º\8bL\82Ì\82æ\82¤\82É\81A\8aÖ\90\94\82Ì\8eÀ\8dÛ\82Ì\8f\88\97\9d\82ð\8ds\82¤\91O\82É\94z\97ñ\82É\93\9d\88ê\82·\82é\82Æ\81A\88È\8d~\82Ì\8f\88\97\9d\82Å\8fê\8d\87\95ª\82¯<BR/>\r
850 \82µ\82È\82­\82Ä\8dÏ\82Ý\82Ü\82·\81B</DIV>\r
851 <DIV id="text109_5" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:8892px; line-height:15px; white-space:nowrap">\r
852 FuncA_sub \82ð\82í\82´\82í\82´\8dì\82Á\82Ä\82¢\82é\97\9d\97R\82Í\81A\89º\8bL\82Ì\82æ\82¤\82É\94z\97ñ\82ð ByVal \88ø\90\94\82É\82·\82é\82Æ\81A<BR/>\r
853 \83R\83s\81[\82ª\94­\90\82µ\82Ä\92x\82­\82È\82Á\82Ä\82µ\82Ü\82¤\82Ì\82ð\94ð\82¯\82é\82½\82ß\82Å\82·\81B</DIV>\r
854 <v:rect style="position:absolute; margin-left:44px; margin-top:8929px; width:340px; height:130px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
855 <DIV id="text109_6" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:8935px; line-height:15px; white-space:nowrap">\r
856 Sub&nbsp; FuncA( ByVal Param )&nbsp; '// \83R\83s\81[\82ª\94­\90¶<BR/>\r
857 &nbsp; If not IsArray( Param ) Then&nbsp; Param = Array( Param )<BR/>\r
858 <BR/>\r
859 &nbsp; Dim&nbsp; elem<BR/>\r
860 &nbsp; For Each elem&nbsp; In Param<BR/>\r
861 &nbsp; &nbsp; WScript.Echo&nbsp; elem<BR/>\r
862 &nbsp; Next<BR/>\r
863 End Sub</DIV>\r
864 <DIV id="text109_7" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:36px; margin-top:9080px; line-height:15px; white-space:nowrap">\r
865 \81¨ ByValArrBench.zip</DIV>\r
866 <DIV id="text109_8" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:177px; margin-top:9080px; line-height:15px; white-space:nowrap">\r
867 ByVal \94z\97ñ\82Ì\83R\83s\81[\82É\82©\82©\82é\8e\9e\8aÔ\82Ì\8cv\91ª</DIV>\r
868 <v:rect style="position:absolute; margin-left:44px; margin-top:8626px; width:286px; height:250px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
869 <DIV id="text109_9" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:52px; margin-top:8632px; line-height:15px; white-space:nowrap">\r
870 Sub&nbsp; FuncA( Param )<BR/>\r
871 &nbsp; If IsArray( Param ) Then<BR/>\r
872 &nbsp; &nbsp; FuncA_sub&nbsp; Param<BR/>\r
873 &nbsp; ElseIf IsEmpty( Param ) Then<BR/>\r
874 &nbsp; &nbsp; FuncA_sub&nbsp; Array( )<BR/>\r
875 &nbsp; Else<BR/>\r
876 &nbsp; &nbsp; FuncA_sub&nbsp; Array( Param )<BR/>\r
877 &nbsp; End If<BR/>\r
878 End Sub<BR/>\r
879 <BR/>\r
880 Sub&nbsp; FuncA_sub( Param )&nbsp; '// Param \82Í\95K\82¸\94z\97ñ<BR/>\r
881 &nbsp; Dim&nbsp; elem<BR/>\r
882 &nbsp; For Each elem&nbsp; In Param<BR/>\r
883 &nbsp; &nbsp; WScript.Echo&nbsp; elem<BR/>\r
884 &nbsp; Next<BR/>\r
885 End Sub</DIV>\r
886 <DIV id="text109_10" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:16px; margin-top:8560px; line-height:15px; white-space:nowrap">\r
887 <A name="arr_one_multi_arg">\r
888 \8aÖ\90\94\82Ì\88ø\90\94\82É\81A\92P\91Ì\82Æ\94z\97ñ\82Ì\82Ç\82¿\82ç\82Å\82à\8ew\92è\82Å\82«\82é\82æ\82¤\82É\82·\82é</A></DIV>\r
889 <DIV id="text109_11" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#408080; font-weight: bold; margin-left:16px; margin-top:9122px; line-height:15px; white-space:nowrap">\r
890 <A name="arr_one_multi_prop">\r
891 \83v\83\8d\83p\83e\83B\82É\81A\92P\91Ì\82Æ\94z\97ñ\82Ì\82Ç\82¿\82ç\82Å\82à\8ai\94[\82Å\82«\82é\82æ\82¤\82É\82·\82é (ToStandard)</A></DIV>\r
892 <DIV id="text109_12" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:9149px; line-height:15px; white-space:nowrap">\r
893 \83v\83\8d\83p\83e\83B\82É\81A\88ê\94Ê\95Ï\90\94\82Æ\94z\97ñ\95Ï\90\94\82ð\90Ý\92è\82Å\82«\82é\82Æ\82«\81A\8f\88\97\9d\82ð\8ds\82¤\91O\82É\8e\9f\82Ì\83\81\83\\83b\83h\82ð<BR/>\r
894 \8cÄ\82Ñ\8fo\82·\82Æ\81A\82·\82×\82Ä\94z\97ñ\82Æ\82µ\82Ä\8f\88\97\9d\82ð\8bL\8fq\82Å\82«\82Ü\82·\81B</DIV>\r
895 <v:rect style="position:absolute; margin-left:54px; margin-top:9197px; width:262px; height:115px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
896 <DIV id="text109_13" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:62px; margin-top:9203px; line-height:15px; white-space:nowrap">\r
897 &nbsp; Public Sub&nbsp; ToStandard()<BR/>\r
898 &nbsp; &nbsp; If IsEmpty( Me.m_PropA ) Then<BR/>\r
899 &nbsp; &nbsp; &nbsp; Me.m_PropA = Array( )<BR/>\r
900 &nbsp; &nbsp; ElseIf not IsArray( Me.m_PropA ) Then<BR/>\r
901 &nbsp; &nbsp; &nbsp; Me.m_PropA = Array( Me.m_PropA )<BR/>\r
902 &nbsp; &nbsp; End If<BR/>\r
903 &nbsp; End Sub</DIV>\r
904 <DIV id="text109_14" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:24px; margin-top:9329px; line-height:15px; white-space:nowrap">\r
905 \81i\83\81\83\82\81j Property Set \82Å\8eÀ\8c»\82·\82é\95û\96@\82à\8dl\82¦\82ç\82ê\82Ü\82·\82ª\81A\94z\97ñ\82Ì\83R\83s\81[\82ª\93ü\82Á\82Ä\82µ\82Ü\82¢\82Ü\82·\81B</DIV>\r
906 <v:rect style="position:absolute; margin-left:54px; margin-top:9351px; width:238px; height:205px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
907 <DIV id="text109_15" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:62px; margin-top:9357px; line-height:15px; white-space:nowrap">\r
908 &nbsp; Private Sub&nbsp; Class_Initialize()<BR/>\r
909 &nbsp; &nbsp; Me.m_PropA = Array( )<BR/>\r
910 &nbsp; End Sub<BR/>\r
911 <BR/>\r
912 &nbsp; Public Property Set&nbsp; PropA( Value )<BR/>\r
913 &nbsp; &nbsp; If IsEmpty( Value ) Then<BR/>\r
914 &nbsp; &nbsp; &nbsp; Me.m_PropA = Array( )<BR/>\r
915 &nbsp; &nbsp; ElseIf not IsArray( Value ) Then<BR/>\r
916 &nbsp; &nbsp; &nbsp; Me.m_PropA = Array( Value )<BR/>\r
917 &nbsp; &nbsp; Else<BR/>\r
918 &nbsp; &nbsp; &nbsp; Me.m_PropA = Value<BR/>\r
919 &nbsp; &nbsp; End If<BR/>\r
920 &nbsp; End Sub</DIV>\r
921 <DIV id="text109_16" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:39px; margin-top:8482px; line-height:15px; white-space:nowrap">\r
922 <A href="#arr_one_multi_arg">\r
923 \81¨ \8aÖ\90\94\82Ì\88ø\90\94\82É\81A\92P\91Ì\82Æ\94z\97ñ\82Ì\82Ç\82¿\82ç\82Å\82à\8eó\82¯\8eæ\82ê\82é\82æ\82¤\82É\82·\82é</A></DIV>\r
924 <DIV id="text109_17" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:39px; margin-top:8502px; line-height:15px; white-space:nowrap">\r
925 <A href="#arr_one_multi_prop">\r
926 \81¨ \83v\83\8d\83p\83e\83B\82É\81A\92P\91Ì\82Æ\94z\97ñ\82Ì\82Ç\82¿\82ç\82Å\82à\8ai\94[\82Å\82«\82é\82æ\82¤\82É\82·\82é</A></DIV>\r
927 \r
928 <v:line from="0,8265" to="568,8265"/>\r
929 <v:line from="568,8265" to="568,9587"/>\r
930 <v:line from="568,9587" to="0,9587"/>\r
931 <v:line from="0,9587" to="0,8265"/>\r
932 \r
933 </PAGE>\r
934  \r
935 <!-- page 110 --> \r
936 <PAGE>\r
937 <A id="svgcats_vml_p110" class="to_tree" style="margin-top:9592px;" onClick="selectTreeElem( '110' );">\81©</A>\r
938 <A href="vbs_memo_08.html#svgcats_vml_p111" class="to_next_page" style="margin-top:9592px;">\81¥</A>\r
939 <A href="#svgcats_vml_p109" class="to_prev_page" style="margin-top:9592px;">\81£</A>\r
940 <v:rect style="position:absolute; margin-left:0px; margin-top:9603px; width:647px; height:799px;" fillcolor="white"/>\r
941 <DIV id="text110_1" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:321px; margin-top:9694px; line-height:15px; white-space:nowrap">\r
942 <A href="http://msdn.microsoft.com/ja-jp/library/cc392346.aspx" target="_blank">\r
943 (Web)</A></DIV>\r
944 <DIV id="text110_2" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:9815px; line-height:13px; white-space:nowrap">\r
945 If file Is Nothing Then</DIV>\r
946 <DIV id="text110_3" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:9849px; line-height:13px; white-space:nowrap">\r
947 If IsNull( a ) Then</DIV>\r
948 <DIV id="text110_4" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:570px; margin-top:9847px; line-height:15px; white-space:nowrap">\r
949 <A href="http://msdn.microsoft.com/library/ja/script56/html/vsfctIsNull.asp" target="_blank">\r
950 (Web)</A></DIV>\r
951 <DIV id="text110_5" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:9929px; line-height:15px; white-space:nowrap">\r
952 <A name="IsNumericSamp">\r
953 If IsNumeric( a ) Then<BR/>\r
954 If VarType( a ) = vbInteger Then</A></DIV>\r
955 <DIV id="text110_6" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:9897px; line-height:13px; white-space:nowrap">\r
956 vbString(=8)</DIV>\r
957 <DIV id="text110_7" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:9815px; line-height:13px; white-space:nowrap">\r
958 Nothing</DIV>\r
959 <DIV id="text110_8" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:9781px; line-height:13px; white-space:nowrap">\r
960 Empty</DIV>\r
961 <DIV id="text110_9" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:9781px; line-height:13px; white-space:nowrap">\r
962 If IsEmpty( file ) Then</DIV>\r
963 <DIV id="text110_10" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:9849px; line-height:13px; white-space:nowrap">\r
964 Null</DIV>\r
965 <DIV id="text110_11" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:9781px; line-height:13px; white-space:nowrap">\r
966 vbEmpty(=0)</DIV>\r
967 <DIV id="text110_12" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:301px; margin-top:9743px; line-height:15px; white-space:nowrap">\r
968 VarType</DIV>\r
969 <v:line style="position:absolute;" from="31,9764" to="607,9764" strokecolor="#000000" strokeweight="1pt"/>\r
970 <DIV id="text110_14" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:9815px; line-height:13px; white-space:nowrap">\r
971 -</DIV>\r
972 <DIV id="text110_15" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:9897px; line-height:13px; white-space:nowrap">\r
973 \95\8e\9a\97ñ</DIV>\r
974 <DIV id="text110_16" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#0000FF; margin-left:567px; margin-top:10188px; line-height:15px; white-space:nowrap">\r
975 <A href="http://msdn.microsoft.com/ja-jp/library/cc410251.aspx" target="_blank">\r
976 (Web)</A></DIV>\r
977 <v:rect style="position:absolute; margin-left:30px; margin-top:9658px; width:280px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
978 <DIV id="text110_17" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:38px; margin-top:9665px; line-height:13px; white-space:nowrap">\r
979 Function&nbsp; TypeName( s as variant ) as string</DIV>\r
980 <DIV id="text110_18" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#008000; font-weight: bold; margin-left:24px; margin-top:9625px; line-height:15px; white-space:nowrap">\r
981 <A name="typeif">\r
982 \8c^\82Ì\94»\92è (TypeName, VarType)</A></DIV>\r
983 <DIV id="text110_19" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:400px; margin-top:9743px; line-height:15px; white-space:nowrap">\r
984 \94»\92è\95\82Ì\97á</DIV>\r
985 <v:rect style="position:absolute; margin-left:30px; margin-top:9689px; width:280px; height:25px;" fillcolor="#E7E7E7" strokecolor="#000000" strokeweight="1pt"/>\r
986 <DIV id="text110_20" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:38px; margin-top:9696px; line-height:13px; white-space:nowrap">\r
987 Function&nbsp; VarType( s as variant ) as integer</DIV>\r
988 <v:line style="position:absolute;" from="110,9742" to="110,10371" strokecolor="#000000" strokeweight="1pt"/>\r
989 <DIV id="text110_22" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:201px; margin-top:9743px; line-height:15px; white-space:nowrap">\r
990 TypeName</DIV>\r
991 <DIV id="text110_23" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:566px; margin-top:9743px; line-height:15px; white-space:nowrap">\r
992 \8eQ\8dl</DIV>\r
993 <DIV id="text110_24" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:9781px; line-height:13px; white-space:nowrap">\r
994 "Empty"</DIV>\r
995 <DIV id="text110_25" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:9815px; line-height:13px; white-space:nowrap">\r
996 "Nothing"</DIV>\r
997 <DIV id="text110_26" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:9849px; line-height:13px; white-space:nowrap">\r
998 "Null"</DIV>\r
999 <DIV id="text110_27" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:9897px; line-height:13px; white-space:nowrap">\r
1000 "String"</DIV>\r
1001 <DIV id="text110_28" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10190px; line-height:13px; white-space:nowrap">\r
1002 Class Foo</DIV>\r
1003 <DIV id="text110_29" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:10190px; line-height:13px; white-space:nowrap">\r
1004 "Foo"</DIV>\r
1005 <DIV id="text110_30" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10189px; line-height:15px; white-space:nowrap">\r
1006 If IsObject( a ) Then<BR/>\r
1007 If TypeName( a ) = "Foo" Then</DIV>\r
1008 <DIV id="text110_31" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:9931px; line-height:13px; white-space:nowrap">\r
1009 "Integer"</DIV>\r
1010 <DIV id="text110_32" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:9931px; line-height:13px; white-space:nowrap">\r
1011 \90®\90\94</DIV>\r
1012 <v:line style="position:absolute;" from="34,9878" to="615,9878" strokecolor="#C0C0C0" strokeweight="1pt"/>\r
1013 <DIV id="text110_34" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10099px; line-height:15px; white-space:nowrap">\r
1014 \95\82\93®\8f¬\90\94<BR/>\r
1015 \81i\94{\90¸\93x\81j</DIV>\r
1016 <DIV id="text110_35" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:10100px; line-height:13px; white-space:nowrap">\r
1017 "Double"</DIV>\r
1018 <DIV id="text110_36" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:44px; margin-top:9743px; line-height:15px; white-space:nowrap">\r
1019 \8c^</DIV>\r
1020 <DIV id="text110_37" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:128px; margin-top:9743px; line-height:15px; white-space:nowrap">\r
1021 \92è\90\94(\97á)</DIV>\r
1022 <DIV id="text110_38" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:9781px; line-height:13px; white-space:nowrap">\r
1023 Empty</DIV>\r
1024 <DIV id="text110_39" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:9815px; line-height:13px; white-space:nowrap">\r
1025 Nothing</DIV>\r
1026 <DIV id="text110_40" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:9849px; line-height:13px; white-space:nowrap">\r
1027 Null</DIV>\r
1028 <DIV id="text110_41" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:9897px; line-height:13px; white-space:nowrap">\r
1029 "ABC"</DIV>\r
1030 <DIV id="text110_42" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:9931px; line-height:13px; white-space:nowrap">\r
1031 123</DIV>\r
1032 <DIV id="text110_43" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:10100px; line-height:13px; white-space:nowrap">\r
1033 1.2</DIV>\r
1034 <DIV id="text110_44" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:9897px; line-height:13px; white-space:nowrap">\r
1035 If VarType( a ) = vbString Then</DIV>\r
1036 <DIV id="text110_45" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10234px; line-height:13px; white-space:nowrap">\r
1037 \94z\97ñ</DIV>\r
1038 <v:line style="position:absolute;" from="34,10172" to="615,10172" strokecolor="#C0C0C0" strokeweight="1pt"/>\r
1039 <DIV id="text110_47" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:10234px; line-height:13px; white-space:nowrap">\r
1040 "Variant()"</DIV>\r
1041 <DIV id="text110_48" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:313px; margin-top:10234px; line-height:13px; white-space:nowrap">\r
1042 8024</DIV>\r
1043 <DIV id="text110_49" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10234px; line-height:13px; white-space:nowrap">\r
1044 <A name="IsArray">\r
1045 If IsArray( a ) Then</A></DIV>\r
1046 <DIV id="text110_50" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:10306px; line-height:13px; white-space:nowrap">\r
1047 vbDate(=7)</DIV>\r
1048 <DIV id="text110_51" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10306px; line-height:13px; white-space:nowrap">\r
1049 \93ú\95t</DIV>\r
1050 <DIV id="text110_52" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:10305px; line-height:15px; white-space:nowrap">\r
1051 CDate("7/4")<BR/>\r
1052 #7/4#</DIV>\r
1053 <DIV id="text110_53" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:213px; margin-top:10306px; line-height:13px; white-space:nowrap">\r
1054 "Date"</DIV>\r
1055 <DIV id="text110_54" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10306px; line-height:13px; white-space:nowrap">\r
1056 If IsDate( a ) Then</DIV>\r
1057 <DIV id="text110_55" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:10190px; line-height:13px; white-space:nowrap">\r
1058 new Foo</DIV>\r
1059 <DIV id="text110_56" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:10234px; line-height:13px; white-space:nowrap">\r
1060 Array(1,2)</DIV>\r
1061 <DIV id="text110_57" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:310px; margin-top:9849px; line-height:13px; white-space:nowrap">\r
1062 1</DIV>\r
1063 <DIV id="text110_58" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:9930px; line-height:13px; white-space:nowrap">\r
1064 vbInteger(=2)</DIV>\r
1065 <DIV id="text110_59" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:10098px; line-height:13px; white-space:nowrap">\r
1066 vbDouble(=5)</DIV>\r
1067 <DIV id="text110_60" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:10190px; line-height:13px; white-space:nowrap">\r
1068 vbObject(=9)</DIV>\r
1069 <DIV id="text110_61" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10146px; line-height:13px; white-space:nowrap">\r
1070 \98_\97\9d</DIV>\r
1071 <DIV id="text110_62" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:10146px; line-height:13px; white-space:nowrap">\r
1072 True,False</DIV>\r
1073 <DIV id="text110_63" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:297px; margin-top:10146px; line-height:13px; white-space:nowrap">\r
1074 vbBoolean(=11)</DIV>\r
1075 <DIV id="text110_64" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:10146px; line-height:13px; white-space:nowrap">\r
1076 "Boolean"</DIV>\r
1077 <DIV id="text110_65" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10097px; line-height:15px; white-space:nowrap">\r
1078 If IsNumeric( a ) Then<BR/>\r
1079 If VarType( a ) = vbDouble Then</DIV>\r
1080 <DIV id="text110_66" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:10260px; line-height:15px; white-space:nowrap">\r
1081 a=Array(,1)<BR/>\r
1082 \82Ì a(0)</DIV>\r
1083 <DIV id="text110_67" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10260px; line-height:15px; white-space:nowrap">\r
1084 \94z\97ñ\82Ì<BR/>\r
1085 \8bó\97v\91f</DIV>\r
1086 <DIV id="text110_68" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:10261px; line-height:13px; white-space:nowrap">\r
1087 "Error"</DIV>\r
1088 <DIV id="text110_69" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:10261px; line-height:13px; white-space:nowrap">\r
1089 vbError(=10)</DIV>\r
1090 <DIV id="text110_70" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10261px; line-height:13px; white-space:nowrap">\r
1091 If VarType( a(i) ) = vbError Then</DIV>\r
1092 <DIV id="text110_71" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10050px; line-height:15px; white-space:nowrap">\r
1093 \95\82\93®\8f¬\90\94<BR/>\r
1094 \81i\94{\90¸\93x\81j</DIV>\r
1095 <DIV id="text110_72" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:201px; margin-top:10051px; line-height:13px; white-space:nowrap">\r
1096 "Single"</DIV>\r
1097 <DIV id="text110_73" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:10051px; line-height:13px; white-space:nowrap">\r
1098 vbSingle(=4)</DIV>\r
1099 <DIV id="text110_74" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10050px; line-height:15px; white-space:nowrap">\r
1100 If IsNumeric( a ) Then<BR/>\r
1101 If VarType( a ) = vbSingle Then</DIV>\r
1102 <DIV id="text110_75" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:44px; margin-top:10349px; line-height:13px; white-space:nowrap">\r
1103 \8aÖ\90\94</DIV>\r
1104 <DIV id="text110_76" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:128px; margin-top:10349px; line-height:13px; white-space:nowrap">\r
1105 Sub/Function</DIV>\r
1106 <DIV id="text110_77" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:219px; margin-top:10349px; line-height:13px; white-space:nowrap">\r
1107 "Object"</DIV>\r
1108 <DIV id="text110_78" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:10349px; line-height:13px; white-space:nowrap">\r
1109 vbObject(=9)</DIV>\r
1110 <DIV id="text110_79" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10349px; line-height:13px; white-space:nowrap">\r
1111 If IsObject( a ) Then</DIV>\r
1112 <DIV id="text110_80" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:397px; margin-top:10145px; line-height:13px; white-space:nowrap">\r
1113 If VarType( a ) = vbBoolean Then</DIV>\r
1114 <DIV id="text110_81" style="position:absolute; font-family: '\82l\82\82o\83S\83V\83b\83N'; font-size:10pt; color:#000000; margin-left:359px; margin-top:9694px; line-height:15px; white-space:nowrap">\r
1115 \81© \82·\82×\82Ä\82Ì\8c^\82Ì\88ê\97\97</DIV>\r
1116 <DIV id="text110_82" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:202px; margin-top:9986px; line-height:13px; white-space:nowrap">\r
1117 "Byte"</DIV>\r
1118 <DIV id="text110_83" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:298px; margin-top:9986px; line-height:13px; white-space:nowrap">\r
1119 vbByte(=17)</DIV>\r
1120 <DIV id="text110_84" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:202px; margin-top:10010px; line-height:13px; white-space:nowrap">\r
1121 "Long"</DIV>\r
1122 <DIV id="text110_85" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#000000; margin-left:297px; margin-top:10010px; line-height:13px; white-space:nowrap">\r
1123 vbLong(=3)</DIV>\r
1124 <DIV id="text110_86" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:570px; margin-top:9986px; line-height:13px; white-space:nowrap">\r
1125 0\81`255</DIV>\r
1126 <DIV id="text110_87" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:432px; margin-top:9963px; line-height:13px; white-space:nowrap">\r
1127 -32768\81`32767, &amp;h0000\81`&amp;hFFFF</DIV>\r
1128 <DIV id="text110_88" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#408080; margin-left:468px; margin-top:10009px; text-align: right; line-height:13px; white-space:nowrap">\r
1129 -2147483648\81`2147483647<BR/>\r
1130 &amp;h10000\81`&amp;hFFFFFFFF</DIV>\r
1131 <DIV id="text110_89" style="position:absolute; font-family: '\82l\82\83S\83V\83b\83N'; font-size:9pt; color:#0000FF; margin-left:415px; margin-top:10306px; line-height:13px; white-space:nowrap">\r
1132 <A href="vbs_memo_08.html#IsDate">\r
1133 IsDate</A></DIV>\r
1134 \r
1135 <v:line from="0,9603" to="647,9603"/>\r
1136 <v:line from="647,9603" to="647,10402"/>\r
1137 <v:line from="647,10402" to="0,10402"/>\r
1138 <v:line from="0,10402" to="0,9603"/>\r
1139 \r
1140 <DIV style="position:absolute; margin-left:0px; margin-top:10402px;">\r
1141 <A id="svgcats_vml_p110" class="to_tree" onClick="selectTreeElem( '110' );">\81©</A></DIV>\r
1142 <DIV style="position:absolute; margin-left:20px; margin-top:10402px;">\r
1143 <A id="page_group_bottom" href="vbs_memo_08.html#page_group_top" style="text-decoration:none;">\81«</A></DIV>\r
1144 </PAGE>\r
1145  \r
1146 </PAGESET>\r
1147 \r
1148 <TABLE height="100%" style="position:absolute; margin-top:-9999px"><TR><TD></TD></TR></TABLE>\r
1149 \r
1150 </BODY>\r
1151 </HTML> \r
1152  \r