2012-04-01から1ヶ月間の記事一覧
VBScript For Each arg In WScript.Arguments WScript.Echo arg Next For i = 0 To WScript.Arguments.Count - 1 WScript.Echo WScript.Arguments(i) Next JScript var arg = new Enumerator(WScript.Arguments); for (;!arg.atEnd(); arg.moveNext()) WScri…
VBScript Dim excelApp: Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF 'ブックを読み取り専用で開く Dim book: Set book = excelApp.Workbooks.Open(WScript.Arguments(…
PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…
PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…
既にmp3形式に変換済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.LibraryPlaylist.AddF…
with a as ( select 0 as n from dual union all select 1 from dual ) select case when mod(n, 3) = 0 and mod(n, 5) = 0 then 'FizzBuzz' when mod(n, 3) = 0 then 'Fizz' when mod(n, 5) = 0 then 'Buzz' else to_char(n) end from ( select a01.n + a02…
Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF Dim iTunesApp Set iTunesApp = WScript.CreateObject("iTunes.Application") 'ブックを読…
Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF 'ブックを読み取り専用で開く Dim book Set book = excelApp.Workbooks.Open(WScript.Argum…
