ONLY DO WHAT ONLY YOU CAN DO

こけたら立ちなはれ 立ったら歩きなはれ

VBScript

VBScriptで固有値・固有ベクトルを求める (反復法)

n × n の正方行列 A と n次元のベクトル x について Ax = λx (ただし x ≠ 0) が成り立つとき λを固有値, x を固有ベクトルという. 最初に適当なベクトルx0から始めて xk+1 = Axk を反復すると xk は行列 A の最大固有値に対応する固有ベクトルに収束する. 固…

VBScriptで非線形方程式を解く (2分法)

非線形方程式の解法(2分法)を利用して2の平方根を求める 1. まず, 条件 を満たす点 を考えると, 関数 の解は, 区間 の中に存在する. 2. 次に, 区間 の中点 を考えると, であれば, 解は区間 の中に存在し, 同様に, であれば, 区間 の中に存在する. 3. この…

VBScriptで関数の近似(ラグランジュ補間)

をラグランジュ補間で近似するn+1個の点 (x0, y0), (x1, y1) … (xn, yn) が与えられているとき, これらすべての点を通る n次式は次のように表すことができる. この式を使って, 与えられた点以外の点の値を求める. Option Explicit 'データ点の数 - 1 Private…

さまざまな言語で四則演算と数値の出力

VBScript WScript.Echo 3 + 5 WScript.Echo 3 - 5 WScript.Echo 3 * 5 WScript.Echo 3 ^ 5 WScript.Echo 5 / 3 WScript.Echo 5 \ 3 WScript.Echo 5 Mod 3 WScript.StdOut.Write 3 * 5 & vbNewLine WScript.StdOut.WriteLine 3 * 5Z:\>cscript //nologo 0101.…

VBScript で Project Euler Problem 4

昨日の続き 4桁の回文は で、11の倍数だから、 9998979695949392919998019702960395049405930692079108900998 9604950694089310921291149016 97 94099312921591189021 96 921691209024 95 9025 94 93 92 91 Option Explicit Private loop_cnt: loop_cnt =…

VBScript で Project Euler Problem 4

左右どちらから読んでも同じ値になる数を回文数という. 2桁の数の積で表される回文数のうち, 最大のものは 9009 = 91 × 99 である. では, 3桁の数の積で表される回文数のうち最大のものを求めよ. http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&p…

VBScript で Project Euler Problem 2

フィボナッチ数列の項は前の2つの項の和である. 最初の2項を 1, 2 とすれば, 最初の10項は以下の通りである. 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ... 数列の項の値が400万を超えない範囲で, 偶数値の項の総和を求めよ. http://odz.sakura.ne.jp/projecteule…

VBScript で Project Euler Problem 1

3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…

さまざまな言語で Access オートメーション

VBScript Option Explicit Const acOutputReport = 3 Const acViewPreview = 2 Const acFormatXLS = "Microsoft Excel (*.xls)" Const acFormatRTF = "Rich Text Format (*.rtf)" Const acFormatSNP = "Snapshot Format (*.snp)" Const acFormatHTML = "HTML…

さまざまな言語で Internet Explorer オートメーション

VBScript Option Explicit 'IE起動 Dim ie: Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Toolbar = True ie.MenuBar = True ie.AddressBar = True ie.StatusBar = True 'ログオン画面 ie.Navigate "http://192.168.1.1/zzz…

フォルダ内のSQLを読んで実行結果をTAB区切りファイルに出力する

VBScript Option Explicit Private fs Private conn '結果出力 Private Sub writeResult(rs, sqlFile) '上書きか、追加書き込みか Dim mode: mode = "2" '2:ForWriting If WScript.Arguments.Count > 2 Then If WScript.Arguments(2) = "1" Then mode = "8" …

フォルダ内のSQLを読んで実行結果をExcelに出力する

VBScript Option Explicit Private fs Private conn Private excelApp Private excelBook Private excelSheet '出力シートの準備 Private Sub openSheet(iSheet, sqlFile) '必要なら、シートを追加する If iSheet > excelBook.WorkSheets.Count Then excelBo…

さまざまな言語で実行時引数を表示

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…

さまざまな言語で Excel オートメーション (まとめ)

VBScript Dim excelApp: Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF 'ブックを読み取り専用で開く Dim book: Set book = excelApp.Workbooks.Open(WScript.Arguments(…

VBScript で iTunes にインポートする

PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…

VBScript で iTunes にインポートする

PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…

VBScript で iTunes にインポートする

既にmp3形式に変換済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.LibraryPlaylist.AddF…

VBScript で iTunes にインポートする

Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF Dim iTunesApp Set iTunesApp = WScript.CreateObject("iTunes.Application") 'ブックを読…

VBScript で Excel OLE オートメーション シートの内容を取得する

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…

VBScript で Excel OLE オートメーション シート名を列挙する

Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts = False '警告メッセージをOFF 'ブックを読み取り専用で開く Dim book Set book = objExcel.Workbooks.Open(WScript.Arguments(0), False, …

VBScript で iTunes にインポートする

wav形式で保存済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.ConvertFile("c:\WAV\01 …

VBScript で iTunes のライブラリに登録されている曲の一覧を取得する

Set iTunesApp = WScript.CreateObject("iTunes.Application") For Each track In iTunesApp.LibraryPlaylist.Tracks WScript.StdOut.Write track.Artist & "," WScript.StdOut.Write track.Album & "," WScript.StdOut.Write track.tracknumber & "," WScri…