VBScript
ã¯ããã« VBScriptã§ãã¡ã¤ã«ãã¹ãæ±ãããã°ã©ã ã«ããã¦ããã¡ã¤ã«ãã¹ä¸ã«åè§ã¹ãã¼ã¹ãå«ã¾ãã¦ããã¨ããã¹ã®æååãéä¸ã§åãã¦ãã¾ããæå³ããåä½ããã¦ãããªããã¨ãããã¾ãã ãã¡ã¤ã«ãã¹ä¸ã«åè§ã¹ãã¼ã¹ãããå ´å ãã¡ã¤ã«ãã¹ä¸ã«åè§â¦
ã¯ããã« åã¯ãä¼ç¤¾ã«å ¥ç¤¾ãã¦ãã4å¹´ãããã®éãActive Server Pages(æè¿ã§ã¯ãã¬ã¬ã·ã¼ASPãã¯ã©ã·ãã¯ASPã¨å¼ã°ãã)ã使ã£ãã¢ããªã±ã¼ã·ã§ã³ã®éçºããã¦ãã¾ããã æ¨å¹´ãActive Server Pagesï¼ã¬ã¬ã·ã¼aspï¼éçºã§å¦ãã ãã¨(1) - 大人ã«ãªã£ããâ¦
ã¯ããã« ãã©ã«ãããã¡ã¤ã«ãåé¤ããããã°ã©ã ããã¹ãããéã«ãåé¤ã§ããªãã±ã¼ã¹(ç°å¸¸ç³»)ã®ãã¹ãããã¾ãããããã®ãã¹ãã¯ãæ¯åã¢ã¯ã»ã¹æ¨©ã夿´ãããããã¨ã«æ»ãããããã®ãçµæ§é¢åã ã£ãããã¾ãã ç°¡åã«ç°å¸¸ç³»ã®ãã¹ããããã«ã¯ãã¢ã¯â¦
ã¯ããã« VBScriptããODBCã·ã¹ãã ãã¼ã¿ã½ã¼ã¹çµç±ã§PostgreSQL8.4ãæä½ãã¦ã¿ã¾ãããååã¾ã§ã®ã¨ã³ããªã¯ããã¡ãã åå¿è åãPostgreSQL8.4ã®pgAdmin3ã§ãã¼ã¿ãã¼ã¹ã使ãã ODBCã·ã¹ãã ãã¼ã¿ã½ã¼ã¹ã§PostgreSQL8.4ã«æ¥ç¶ãã(On Windows XP) Pâ¦
ã¯ããã« VBScriptã§ãPHPã®htmlspecialcharsã¡ã½ãã(ç¹æ®æåã HTML ã¨ã³ãã£ãã£ã«å¤æãã)ãå®è£ ãã¦ã¿ã¾ããã Function htmlspecialchars(Byref string, Byref quote_style) Dim tmp tmp = string tmp = Replace(tmp, "&", "&") tmp = Replace(tâ¦
ã¯ããã« ãã®ã¨ã³ããªã§ã¯ãVBScriptã§ä¸æ¹åããã·ã¥é¢æ°ã使ã£ã¦ãããã·ã¥å¤ãçæããæ¹æ³ã«ã¤ãã¦æ¸ãã¦ãã¾ãã çµè« VBScriptã«ã¯SHA1ãMD5ã¨ãã£ãã¢ã«ã´ãªãºã ãç¨ãã¦ããã·ã¥å¤ãçæãã颿°ãããã¾ããã ãã®ãããããã·ã¥å¤ã®çæãå¿ è¦ãªâ¦
ã¯ããã« VBScriptã«ã¯ãJavaScriptã§ããã¨ããã®array.sort()ã®ãããªæ¨æºã®ã½ã¼ã(ä¸¦ã³æ¿ã)颿°ãããã¾ããããã®ããã大æµã¯ã½ã¼ã颿°ãèªä½ãããã¨ã«ãªãã®ã§ãããADODB.Recordsetãªãã¸ã§ã¯ãã使ãã¨ãç°¡åã«ã½ã¼ããå®ç¾ã§ãã¾ãã ADODB.Recoâ¦
以åãMsxml2.DOMDocumentã使ã£ã¦VBScriptã§XMLãã¡ã¤ã«ãèªã¿è¾¼ã - 大人ã«ãªã£ããèºå¼å¸ ã¨ããã¨ã³ããªãæ¸ãã¾ããããã®ã¨ããMsxml2.DOMDocumentã®loadã¡ã½ããã®ã¨ã©ã¼å¦çã以ä¸ã®ããã«æ¸ãã¦ãã¾ããããããã§ã¯ãã¾ãã¨ã©ã¼å¦çãã§ããªããã¨â¦
ã¯ããã« VBScriptã§XMLãã¡ã¤ã«ãæ±ãã«ã¯ãMsxml2.DOMDocumentãªãã¸ã§ã¯ãã使ãã¾ãããã®Msxml2.DOMDocumentãªãã¸ã§ã¯ãå©ç¨ããã¨ãXMLãã¡ã¤ã«ã®ãã¼ã¹(è§£æ)ãã¨ã¦ã楽ã«ã§ããããã§ãã ï¼ ITï¼Windows TIPS -- Tipsï¼WSHããXMLãã¡ã¤ã«ã®è¨å®æ â¦
VBScriptãJScriptã§ä½æããå ±éæ©è½ãä»ã®è¨èªããå©ç¨ããããã®ä»çµã¿ã¨ãã¦Windows Script Component(Windows ã¹ã¯ãªãã ã³ã³ãã¼ãã³ã)ã¨ãããã®ãããã¾ãã WindowsRã¹ã¯ãªãã ã³ã³ãã¼ãã³ãã使ç¨ããã¨ãã¹ã¯ãªããå ã«ããã¯ãã«ã§åå©ç¨å¯â¦
ã¯ããã« ADODB.Streamãªãã¸ã§ã¯ãã®SaveToFileã¡ã½ããã§UTF-8å½¢å¼ã®ãã¡ã¤ã«ã使ããå ´åããã¡ã¤ã«ã®å é ã«BOM(Byte Order Mark)ãä»å ããã¦ãã¾ãã¾ãã ãã®è¨äºã§ã¯ãBOMãä»å ããã«ãUTF-8ã®ãã¡ã¤ã«ã使ããæ¹æ³ãç´¹ä»ãã¾ãã 2009.12.13追â¦
VBScriptã«ã¯ãJavaã§ããã¨ããã®Propertiesã¯ã©ã¹ããã«ãããããã£ãã¡ã¤ã«ãæ±ããªãã¸ã§ã¯ããã¡ã½ãããããã¾ããããã®ããããã¼ã¨ãå¤ãå®ç¾©ããããããã£ãã¡ã¤ã«ãæ±ãããå ´åã¯ãèªä½ããå¿ è¦ãããã¾ãã以ä¸ã®ãã¼ã¸ãåèã«ãVBScriptã§Jâ¦
VBScriptã§ãã¡ã¤ã«ãèªã¿æ¸ãããå ´åãADODB.Streamãªãã¸ã§ã¯ãã¨FileSystemObjectãªãã¸ã§ã¯ããå©ç¨ã§ãã¾ãããããã®ãªãã¸ã§ã¯ãã®ä½¿ãæ¹ã«é¢ãã¦ã¯ãã¤ã³ã¿ã¼ãããã§èª¿ã¹ãã¨ããããã®æ å ±ãè¦ã¤ãããã¨ãã§ãã¾ããããããªããã両è ã®æ§è½å·®â¦
Windows Script Component(以ä¸ãWSC)ã®ã¬ã¸ã¹ããªç»é²æã«ãé©åãªååãæå®ãã¦ãã ããããã¨ããã¨ã©ã¼ãåºãå ´åã¨ããã®ã¯ãçµè«ããè¨ãã¾ãã¨ãXMLã®ææ³ã«æ£ããå¾ã£ã¦ããªãå¯è½æ§ãããã¾ããè²ã ãã¿ã¼ã³ã¯ããã¨æãã¾ãããèªåãé¥ã£ããã¿â¦
ã¯ããã« Webç³»éè¨: ãµãã²ã¼ããã¢ãJavaScriptã§æ¤åºããæ¹æ³ã«ã¤ã³ã¹ãã¤ã¢ããã¦ããµãã²ã¼ããã¢ã®æåãæ¤åºããVBScriptã使ãã¦ã¿ã¾ããã ãµãã²ã¼ããã¢ã¨ã¯ ãµãã²ã¼ããã¢ã¨ã¯ãéç§°4ãã¤ãæåã¨å¼ã°ããç¹æ®ãªæåã表ç¾ããæ¹æ³ã®ãã¨ã§ãâ¦
ã¯ããã« VBScriptã§ãã¡ã¤ã«ãæ±ãå ´åãé常ã¯FileSystemObjectãå©ç¨ãã¾ããããããªãããFileSystemObjectã¯Shift_JISãããã¯UTF-16å½¢å¼ã§ä¿åããããã¡ã¤ã«ããæ±ãã¾ããããã®ãããVBScriptã§UTF-8ã®ãã¡ã¤ã«ãæ±ãã«ã¯ADODB.Streamãªãã¸ã§ã¯ãâ¦
VBScriptãUTF-8ã§ä¿åããå®è¡ããã¨ã¨ã©ã¼ãã§ãä»¶ã¨ããã«å¯¾ãã坾妿¹æ³
ã¯ããã« VBScriptï¼.vbsï¼ãUTF-8ã§ä¿åãã¦å®è¡ããã¨ãã³ã³ãã¤ã«ã¨ã©ã¼ã¨ãªããå®è¡ããããã¨ãã§ãã¾ããã ãã¨ãã°ã以ä¸ã®ãããªãã¡ãã»ã¼ã¸ãåºåããã ãã®vbsã¹ã¯ãªãããä½ãã¾ãã hoge.vbs Main() Sub Main() MsgBox "ã»ã" End Subãã®ãã¡â¦
ãã©ã¡ã¿ã§æå®ããããã£ã¬ã¯ããªé ä¸ã«ãããã¡ã¤ã«ã®æçµæ´æ°æ¥æããã¡ã¤ã«ãã¡ã¤ã«ãµã¤ãºããã¡ã¤ã«åããã¡ã¤ã«ãã¼ã¸ã§ã³ããªã¹ã表示ããçµæãã°ã«åºåããVBScriptãä½ã£ã¦ã¿ã¾ãããã³ãã³ãããã³ããã§ dir /s ã£ã¦å®è¡ããã®ã¨ã»ã¨ãã©åãã§â¦
ã¯ããã« ãã®ã¨ã³ããªã§ã¯ãVBScriptã§è¤æ°è¡ãä¸åº¦ã«ã³ã¡ã³ãã¢ã¦ãï¼å®è¡ããªãããã«ï¼ããæ¹æ³ãç´¹ä»ãã¾ãã VBScriptã¯è¤æ°è¡ãä¸åº¦ã«ã³ã¡ã³ãã¢ã¦ãã§ããªã VBScriptã§ã¯ãè¤æ°è¡ãä¸åº¦ã«ã³ã¡ã³ãã¢ã¦ããããã¨ãã§ãã¾ãããè¦ããã«JavaãCã§ãâ¦
VBScriptã§ã¯ã颿°å ã§ã¨ã©ã¼ãRaiseããã¨Function(颿°)ã®æ»ãå¤ãè¿ã£ã¦ãã¾ããã以ä¸ã®ã³ã¼ãã§å®é¨ãã¦ã¿ã¾ãã Hoge颿°ã§ã¯ãæ»ãå¤ãã»ããããå¾ã«ãæå³çã«ã¨ã©ã¼ãå¼ã³åºãå ã¸Raiseãã¦ãã¾ãã On Error Resume Next ' 颿°Hogeã®å¼ã³åºã dâ¦
ã¯ã©ã·ãã¯ASPã§ããã¼ã¿ãã¼ã¹ãæä½ããéã«ã¯ADODB.Recordsetã使ããã¨ãã§ããããã®ADODB.Recordsetãªãã¸ã§ã¯ãã«ã¯ããªã¼ãã³ããã¬ã³ã¼ãã»ãããã¯ãã¼ãºããããã®closeã¡ã½ããããããããã®closeãå¼ã³åºãå ´åã«ã±ã¼ã¹ã«ãã£ã¦ãã¨ã©ã¼ãããâ¦
ã¯ããã« ã¬ã¬ã·ã¼ASP(ã¯ã©ã·ãã¯ASP)ã§ãSQLãçºè¡ãã¦ãã¼ã¿ãã¼ã¹ãããã¼ã¿ãåå¾ããéã«ãçµæã¨ãã¦åå¾ããã¬ã³ã¼ãã®ä»¶æ°ãåå¾ãããå ´åãããã¾ãããã®ã¨ã³ããªã§ã¯ãADODB.Recordsetã®RecordCountã§æ£ããã¬ã³ã¼ãæ°ãåå¾ããæ¹æ³ãç´¹ä»ãã¾â¦
VBScriptã®é åã¯è²§å¼±ã§ãè¦ç´ ã®è¿½å ãä¸¦ã³æ¿ãï¼ã½ã¼ãï¼ãéè¤ã®æé¤ãªã©ãé åæä½ã®ããã®é¢æ°ãããã£ã¦ããªããç¹ã«åä»ã ã¨æãã®ã¯ãç°¡åã«è¦ç´ ã®è¿½å ãã§ããªãã¨ããã¨ãããJavaScriptã§ããarray.push()ã¿ãããªãã¨ãæ¨æºã§ã¯ã§ããªãããããâ¦
ã¬ã¬ã·ã¼ASPï¼Active Server Pagesï¼ã§ã¯ãç¬èªã¯ã©ã¹ãä½ããã¨ãã§ãã¾ãã以ä¸ã«ãVBScriptã§ã®ã¯ã©ã¹ã®ä½¿ãæ¹ãã¾ã¨ãã¦ã¿ã¾ããã ã¯ã©ã¹ã®å®ç¾© ãã¨ãã°ãnameããããã£ã¨å¯¾å¿ããã²ãã¿ã»ã»ãã¿ãæã¤ãHogeã¨ããååã®ã¯ã©ã¹ãä½ãå ´åã¯ã以ä¸ã®â¦
åãä¼ç¤¾ã«å ¥ã£ã¦3å¹´ãçµéãã¾ããããã®ãã¡2å¹´ãããã¯åãããã¸ã§ã¯ãã«æºãã£ã¦ãã¦ãã¬ã¬ã·ã¼ASPï¼ã¯ã©ã·ãã¯ASPï¼ã§ã®WEBã¢ããªã±ã¼ã·ã§ã³ã®éçºããã¦ãã¾ãã ãã®2å¹´ã§åãã¬ã¬ã·ã¼ASPã§ã®éçºã§å¦ãã ãã¨ã大äºã ã¨æããã¨ãã¾ã¨ãã¦ã¿ã¾ããâ¦
以åãæ¥åä¸ã®å®åçãªä½æ¥ãèªååãããã¨æããVBScriptã使ã£ã¦ã¡ãã£ã¨ããã¹ã¯ãªãããæ¸ãããã¨ããã£ãã使ãã.vbsãã¡ã¤ã«ãWindows Server 2008ä¸ã§å®è¡ãã¦ã¿ãã¨ãWScript.Echoã®åºåãããã¨ããæååããã³ã³ã½ã¼ã«ã§ã¯ãªããã¡ãã»ã¼ã¸â¦
ã¯ããã« VBScriptã§ãã¡ã¤ã«ã«BOM(Byte Order Mark)ãä»å ããã¦ãããã©ããã¯ããã¡ã¤ã«ãï¼ãã¤ããã¤èªã¿è¾¼ãã§ãããBOMç¹æã®ãã¤ãåãåå¨ãããã調ã¹ããã¨ã§ãå¤å®ãããã¨ãã§ãã¾ãã æ¬ã¨ã³ããªã§ã¯ããã¡ã¤ã«ã«BOMãã¤ãã¦ããããVBScriptâ¦
VBScriptã§ãã¼ã«ã«ãã¡ã¤ã«ã®èªã¿æ¸ããè¡ãå ´åã以ä¸ã®ï¼ã¤ã®ãªãã¸ã§ã¯ããå©ç¨ãããã¨ãã§ãã¾ãã FileSystemObject(ãã¡ã¤ã«ã·ã¹ãã ãªãã¸ã§ã¯ã) ADODB.Streamãªãã¸ã§ã¯ã 両è ã®éãã¯ãç°¡åã«ããã¨æ±ããæåã³ã¼ããéãã¾ããFileSystemObjeâ¦