スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

絶対値を求める

VBScript

Dim tmpA
tmpA = -3
WScript.Echo Abs(tmpA)
 
数値の絶対値を求めるにはAbs関数を使用する。
上記サンプルを実行すると『3』と表示される。
 
スポンサーサイト

テーマ : プログラミング
ジャンル : コンピュータ

文字のASCIIコードを取得する

VBScript

VBScriptにおいて1バイト文字のASCIIコード を得るには次のようにする。
 
WScript.Echo Hex(Asc("A"))
 
これを実行すれば画面には『A』のASCII コードである『41』が表示される。
 

テーマ : 結婚準備
ジャンル : 結婚・家庭生活

スレッドを中断して一定時間待つ

VBScript

MsgBox "恋"
WScript.Sleep 2000
MsgBox "愛"
 
スクリプトを実行しているスレッドを中断して 一定時間待つにはSleepメソッドを使用する。
 
引数に渡した数値のミリ秒だけ処理が中断して、 そのあと後続の処理が実行される。
 
上記サンプルでは『恋』と表示した後で 2秒間経ってから『愛』と表示される。
 

テーマ : プログラミング
ジャンル : コンピュータ

自分自身を削除する

VBScript

Dim myFSO, myFile, myWSH

Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.DeleteFile(WScript.ScriptFullName)

Set myFile = myFSO.CreateTextFile(WScript.ScriptFullName)
myFile.WriteLine("MsgBox ""愛""")
myFile.Close
Set myFile = Nothing

Set myFSO = Nothing

Set myWSH = WScript.CreateObject("WScript.Shell")
myWSH.Run "WScript """ + WScript.ScriptName + """"
Set myWSH = Nothing
 
VBScriptにおいて自分自身を削除するには、自分自身のフルパスを含む WScriptオブジェクトのScriptFullNameプロパティを引数にして、 DeleteFileメソッドを呼び出してやればよい。
 
一見ロックされていて消せないように思えるかもしれないが、 普通に消せるので悩む必要はない。
 
上記サンプルでは自分自身を消した後、同じファイル名で 『MsgBox "愛"』という1行を持ったVBSファイルを作成し、 それを起動している。
よって、実行すると画面に『愛』と表示される。
 

テーマ : プログラミング
ジャンル : コンピュータ

テキストファイルを1行ずつ書き出す

VBScript

Dim myFSO, myFile

Set myFSO = CreateObject("Scripting.FileSystemObject")

Set myFile = myFSO.CreateTextFile("outdata.txt")
myFile.WriteLine("Cogito ergo sum")
myFile.Close
Set myFile = Nothing

Set myFSO = Nothing
 
VBScriptでテキストファイルを1行ずつ出力するには TextStreamオブジェクトのWriteLineメソッドを使う。
 
ファイルはFileSystemObjectオブジェクトの CreateTextFileメソッドで作成し、 書き終わったらCloseメソッドで閉じる。
 

テーマ : プログラミング
ジャンル : コンピュータ

プロフィール

みっちょ (田上 暢顕)

Author:みっちょ (田上 暢顕)
 
30年以上ひたすら毎日プログラミングを続けているエンジニアの『みっちょ』です。

ここでは開発を行う際の覚書の他、私が日頃から色々な開発を行う中で便利だと感じているツールやサービスなどを紹介しています。



連絡先
 110651321
 michyox
 4348126
 Ravijour

友達申請などWelcomeです☆
基本的に断りませんので、お気軽に申請してください♪

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。