DOMを利用ã—ã¦XMLデータã¸ã‚¢ã‚¯ã‚»ã‚¹
Dim objDOM, rtResult Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.load("Sample.xml") If rtResult Then procDispDatas objDOM.childNodes Else MsgBox "XMLオブジェクトã®ä½œæˆã«å¤±æ•—ã—ã¾ã—ãŸã€‚" End If Set objDOM = Nothing Sub procDispDatas(objNode) Dim obj For Each obj In objNode If obj.nodeType = 3 and obj.parentNode.nodeName = "title" Then MsgBox obj.parentNode.nodeName & " : " & obj.nodeVal
VBScript Tips
[VBScript Tips] â—基本プãƒã‚°ãƒ©ãƒ ・文å—列を画é¢ã«å‡ºåŠ›ã™ã‚‹ ・起動時ã®å¼•æ•°ã‚’å–å¾—ã™ã‚‹ ・起動時ã®å¼•æ•°ã‚’å–å¾—ã™ã‚‹ï¼ˆã‚ªãƒ—ション指定ã‚ã‚Šï¼ãªã—） ・ãƒãƒ¼ã‚¸ãƒ§ãƒ³ç•ªå·ã‚’å–å¾—ã™ã‚‹ ・コマンドåã®å–å¾—ã¨å¼·åˆ¶çµ‚了 ・起動スクリプトåã‚’å–å¾—ã™ã‚‹ ・標準入出力を使用ã™ã‚‹ï¼ˆç°¡æ˜“é›»å“） ・処ç†ã‚’一時åœæ¢ã™ã‚‹ ・数値ã®æ•´æ•°éƒ¨åˆ†ã‚’å–å¾—ã™ã‚‹ ・数値を丸ã‚る（四æ¨äº”入） ・数値ã®åˆ‡ã‚Šæ¨ã¦ ・数値ã®åˆ‡ã‚Šä¸Šã’ ・８進数ã¨ï¼‘６進数ã«å¤‰æ›ã™ã‚‹ ・Ｎ進数ã«å¤‰æ›ã™ã‚‹ ・１〜１ï¼ã®ä¹±æ•°ã‚’発生ã•ã›ã‚‹ ・絶対値を計算ã™ã‚‹ ・πã®å€¤ã‚’計算ã™ã‚‹ ・余弦，æ£å¼¦ï¼Œæ£æŽ¥ã‚’計算ã™ã‚‹ ・指数関数を使ã£ã¦ã¿ã‚‹ ・文å—をコードã«å¤‰æ›ã™ã‚‹ ・コードを文å—ã«å¤‰æ›ã™ã‚‹ ・文å—列ã®é•·ã•ã‚’å–å¾—ã™ã‚‹ï¼ˆUNICODE） ・文å—列ã®é•·ã•ã‚’å–å¾—ã™ã‚‹ï¼ˆASCII） ・文å—列ã®ä¸€éƒ¨åˆ†ã‚’å–å¾—ã™ã‚‹ï¼ˆUNICODE） ・文å—列ã®ä¸€éƒ¨åˆ†ã‚’å–å¾—ã™ã‚‹ï¼ˆASCII） ・文å—列
サービス終了ã®ãŠçŸ¥ã‚‰ã›
サービス終了ã®ãŠçŸ¥ã‚‰ã› ã„ã¤ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“スをã”利用ã„ãŸã ãèª ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ãŠå®¢æ§˜ãŒã‚¢ã‚¯ã‚»ã‚¹ã•ã‚ŒãŸã‚µãƒ¼ãƒ“スã¯æœ¬æ—¥ã¾ã§ã«ã‚µãƒ¼ãƒ“スを終了ã„ãŸã—ã¾ã—ãŸã€‚ 今後ã¨ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“スをã”愛顧ãã ã•ã„ã¾ã™ã‚ˆã†ã€ã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚
On Error Resume Nextã®æ£ã—ã„使ã„æ–¹ - Windows Script Programming
よãã€On Error Resume Nextã‚’å…ˆé ã«ç½®ã„ãŸã‚¹ã‚¯ãƒªãƒ—トを見ã‹ã‘ã¾ã™ãŒã€ ã¾ã‚‹ã§ã€Option Explicitをスクリプトã®å…ˆé ã«ç½®ãよã†ãªæ„Ÿè¦šã§ã€ 「é©å½“ã«ã‚¨ãƒ©ãƒ¼ã‚’リカãƒã‚‹ã‚ªãƒ—ションã€ã®ã‚ˆã†ãªèª¤è§£ãŒã‚ã‚‹ã®ã§ã¯ãªã„ã§ã—ょã†ã‹ã€‚ On Error Resume Nextã®æ„味ã¯ã€è¨€ã‚ã°ã€ 「エラーãŒã‚ã£ã¦ã‚‚無視ã—ã¦ã€ã©ã†ãªã£ã¦ã‚‚ã„ã„ã‹ã‚‰æš´èµ°ã—ã‚ã€ã§ã™ã‹ã‚‰ã€ ãã‚“ãªã€è‡ªæš´è‡ªæ£„ã«èµ°ã‚‰ãªãã¦ã‚‚ã€ã¨æ€ã£ã¦ã—ã¾ã„ã¾ã™ã€‚ ã§ã¯ã€ã©ã†æ›¸ãã®ãŒæ¸…ãã€æ£ã—ãã€å®‰å…¨ã‹ã€ã¨ã„ã†ã¨ã€ 例ãˆã°ã€ãƒªãƒãƒ¼ãƒ 〠Set fo=fso.GetFile(filename) fo.Name=newName ã¯ã€åŒã˜åå‰ãŒã‚ã‚‹ã¨ã‚¨ãƒ©ãƒ¼ã«ãªã‚Šã¾ã™ã€‚ ãã“ã§ã€ã¾ãšã€ Set fo=fso.GetFile(filename) Sub Rename(fo,newName) On Error Resume Next fo.N
VBScript - CSV ファイルをèªã¿è¾¼ã‚€ CsvReader クラス
低å¦æ´ã® IT エンジニア兼管ç†è·ã§ã™ã€‚ãšã£ã¨ãƒªãƒ¢ãƒ¼ãƒˆãƒ¯ãƒ¼ã‚¯ä¸ã€‚ 駆ã‘出ã—ã¯ãƒ–ラックä¼æ¥ã§ä½Žå¹´åŽã§ã—ãŸãŒã€è»¢è·ã‚’ç¹°ã‚Šè¿”ã—ã¦å¹´åŽã¯ 5 å€ä»¥ä¸Šã«ãªã‚Šã¾ã—ãŸã€‚ å¹´åŽã¯ã“れ以上増ãˆã¦ã‚‚幸ã›æŒ‡æ•°ã¯å¢—ãˆã¾ã›ã‚“ã®ã§ã€è¶£å‘³ã®æ™‚間を増やã™ãŸã‚早期ã®åŠãƒªã‚¿ã‚¤ã‚¢ã‚’考ãˆã¦ã„ã¾ã™ã€‚ 最高ã®é…å¶è€…ã€å¯æ„›ã„娘ã€ãƒãƒ³ã‚µãƒ ãªæ¯åã¨å¹¸ã›ãªæ—¥ã€…ã‚’é€ã£ã¦ã„ã¾ã™ã€‚ æ¯åã®å°†æ¥ã®å¤¢ã¯ã‚²ãƒ¼ãƒ 実æ³è€…らã—ã„。ãŒã‚“ã°ã‚Œãƒ¼^^。 CSV ファイルをèªã¿ãŸã‹ã£ãŸã®ã§ã€ä½•ã¨ãªã作ã£ã¦ã¿ã¾ã—ãŸã€‚ VBScript - CsvReader クラス '/** CsvReader クラス */ Option Explicit Class CsvReader ' プãƒãƒ‘ティ変数 Private m_FilePath 'As String Private m_HasHeader 'As Boolean Private m_IgnoreError 'As B
第5回　WshShellオブジェクトã®è©³ç´°ï¼ˆ1）
FCã®ã‚ˆã†ãªã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ãƒ»ãƒ„ールを実行ã™ã‚‹å ´åˆã«ã¯ã€Execメソッドを利用ã™ã‚‹æ–¹æ³•ã‚‚ã‚る。Execメソッドもã€ãƒ‘ラメータã¨ã—ã¦å®Ÿè¡Œã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ を指定ã™ã‚‹ç‚¹ã§ã¯Runメソッドã¨é•ã„ã¯ãªã„。ã—ã‹ã—å‰è¿°ã—ãŸã¨ãŠã‚Šã€Execメソッドを利用ã™ã‚Œã°ã€çµ‚了コードã®å–å¾—ã ã‘ã§ãªãã€æ¨™æº–入出力を通ã—ã¦ã‚³ãƒžãƒ³ãƒ‰ã«ã‚ªãƒ—ションを与ãˆãŸã‚Šã€ã‚³ãƒžãƒ³ãƒ‰å®Ÿè¡Œã®çµæžœã‚’å–å¾—ã—ãŸã‚Šã§ãるよã†ã«ãªã‚‹ã€‚ ã¾ãŸExecメソッドã¯ã€æˆ»ã‚Šå€¤ã¨ã—ã¦WshScriptExecオブジェクトを返ã™ã€‚å‰è¿°ã—ãŸã‚¯ãƒ©ã‚¹æ§‹æˆå›³ã‹ã‚‰åˆ†ã‹ã‚‹ã¨ãŠã‚Šã€WshScriptExecオブジェクトã«ã¯Statusã€StdInã€StdOutã€StdErrã€ExitCodeã€ProcessIDã®6ã¤ã®ãƒ—ãƒãƒ‘ティãŒã‚る。
windowsã§ã‚‚terminalã®openãŒä½¿ã„ãŸã„ - rochefort's blog
macã®terminal㧠[open] コマンドãŒä¾¿åˆ©ã§ã‚ˆã使ã†ã‚“ã ã‘ã© windowsã§ã‚‚使ã„ãŸã„ã®ã§vbsã§æ›¸ã„ã¦ã¿ãŸã€‚ (terminalã‹ã‚‰ãƒ•ã‚¡ã‚¤ãƒ³ãƒ€ãƒ¼ã‚’é–‹ã) Option Explicit Dim WShell, oExec Set WShell = WScript.CreateObject("WScript.Shell") Dim openPath Dim numArgs, argPath numArgs = WScript.Arguments.Count '[.][./]ã¯å¼•æ•°ç„¡ã—ã¨ä¸€ç·’（カレントパス） if numArgs > 0 then argPath = Replace(WScript.Arguments.Unnamed.Item(0), "/", "\") if argPath = "." or argPath = ".\" then openPath = WS
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
RTA in Japan Winter 2024 ã«è¡Œã£ãŸã‚‰é ãŒãƒªãƒ•ãƒ¬ãƒƒã‚·ãƒ¥ã§ããŸ ä¼šå ´ã«ç€ãã¨ã§ã‹ã„スクリーンã«Twitchã§è¦‹ã‚‹é…ä¿¡ç”»é¢ãŒæ˜ ã£ã¦ã„ã¦ã€RTA in JAPANを見ã«æ¥ãŸã‚“ã ãªã¨ã„ã†æ„Ÿè¦šãŒç¢ºã‹ãªã‚‚ã®ã«ãªã£ãŸã€‚ 空ã„ã¦ã„ã‚‹å¸ã«åº§ã£ã¦ã‚²ãƒ¼ãƒ を見ã¦ã„ã‚‹ã¨ã€å½“ãŸã‚Šå‰ã ãŒã¨ã«ã‹ã高速ã§ã‚²ãƒ¼ãƒ ãŒé€²ã‚“ã§è¡Œã。ã“ã®æ—¥ã¯ãƒã‚±ãƒƒãƒˆãƒ¢ãƒ³ã‚¹ã‚¿ãƒ¼ãƒ”ã‚«ãƒãƒ¥ã‚¦ …
WSHを始ã‚ã‚ˆã† ï¼ ï¼ IT
連載目次 ã‚ãŸã—ãŸã¡ã¯ã‚³ãƒ³ãƒ”ュータã®å¥´éš·ã˜ã‚ƒãªã„ï¼ Windows PCを使ã£ã¦ã„ã¦ã€ã‚ã‚‹ã„ã¯Windowsサーãƒã‚’管ç†ã—ã¦ã„ã¦ã€ã€Œä½•ã§äººé–“様ãŒã€ã“ã‚“ãªã“ã¾ã”ã¾ã¨ã—ãŸä½œæ¥ã‚’ç¹°ã‚Šè¿”ã—ã€ä½•åº¦ã‚‚何度もやらãªã„ã¨ã„ã‘ãªã„ã®ï¼Ÿã€ã¨æ€ã†ã“ã¨ã¯ãªã„ã ã‚ã†ã‹ã€‚例ãˆã°ã“ã†ã„ã†ä½œæ¥ã¯ã©ã†ã ã‚ã†ã€‚ 「My Documentsフォルダ内ã«ã‚ã‚‹2005å¹´ã«ä½œæˆã•ã‚ŒãŸãƒ•ã‚¡ã‚¤ãƒ«ã®ã†ã¡ã€æœ€è¿‘1カ月更新ã—ã¦ãªã„テã‚スト・ファイルã®ä¸èº«ã‚’確èªã—ãŸã„ã®ã§ã€ãれらã®ãƒ•ã‚¡ã‚¤ãƒ«ã®1行目を抜ã出ã—ã¦1ã¤ã®ãƒ†ã‚スト・ファイルã«ã™ã‚‹ã€ ã“れを手作æ¥ã§ã‚„ã‚ã†ã¨æ€ã†ã¨å¤§å¤‰ã 。ã¾ãšã‚¨ã‚¯ã‚¹ãƒ—ãƒãƒ¼ãƒ©ã§My Documentsã‚’é–‹ãã€è©³ç´°è¡¨ç¤ºãƒ¢ãƒ¼ãƒ‰ã«ã—ã€ä½œæˆæ—¥æ™‚ã¨æ›´æ–°æ—¥æ™‚ã‚’ã«ã‚‰ã‚ã£ã“ã—ãªãŒã‚‰è©²å½“ã™ã‚‹ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é¸ã³ã€ãƒ¡ãƒ¢å¸³ã§é–‹ã„ã¦1行目をコピーã—ã€ã‚‚ã†1ã¤ãƒ¡ãƒ¢å¸³ã‚’ç«‹ã¡ä¸Šã’ã¦ãれを貼り付ã‘……ã€ã¨ã„ã†æ“作を複数ã®ãƒ•ã‚¡ã‚¤ãƒ«ã§ç¹°ã‚Šè¿”ã™ã€‚フォルダãŒéšŽå±¤åŒ–ã•ã‚Œã¦
1
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
VBScript/CSVã®èªã¿å–ã‚Š - らããŒã帳
VBScript ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ«
{{#tags}}- {{label}}
{{/tags}}