日記
バイク・オートバイ
ＰＣ
クルマ
交通取締
ダイエット・健康
食べ歩き・うどん
映画・音楽・漫画
携帯電話版
|
 |
|
★ VisualBasic関数のラッパーDLL VBWRAP ver1.00
ASPやVBSで，
「format関数が使えない！！！」
「val関数はどこにいった！！！」
と，お嘆きの貴方へ。他にもチョイチョイと包んでみました。
・VisualBasicにはあるのにVisual Basic Scripting Editionには何故か無い関数を呼び出します。
・誰かがラッパーを作って公開しているものだと思っていたのですが，探して見つからなかったので…。
・呼び出せる機能は，以下のとおりです。
・Ｆｏｒｍａｔ関数
・Ｓｔｒｃｏｎｖ関数
・Ｖａｌ関数
・Ｍｉｄステートメント
・Ｌｉｋｅ演算子
・ＦｉｌｅＤａｔｅＴｉｍｅ関数
・ＦｉｌｅＬｅｎ関数
・ＭｏｎｔｈＤａｙｓ関数（自作。年月から当月の日数を得られます）
Ｗｉｎｄｏｗｓ２０００で動作します。
Ｗｉｎ９８，Ｍｅ，ＮＴ４．０でも動作すると思いますが未確認です。
３０日間試用できるシェアウエア形式です。登録料は￥１０００です。
振込先はダウンロードファイル内の「readme.txt」に記載しています。
まずはお使い頂きまして，お気に召しましたら，お振込みをお願い致します <(_ _)>
●ダウンロード（vbwrap100.lzh） 983KB LZH形式
動作サンプル 実際に使用した結果を出力させています。
'vbWrap オブジェクト生成
dim oVbWrap
set oVbWrap = createObject("vbWrap.vbFunction")
vbfFormat メソッド 使用例 （Format関数ラッパー）
| 式 |
結果 |
数値の桁を揃えて出力
oVbWrap.vbfFormat(second(time), "00000") |
00048 |
カンマ，小数点を揃えて出力
oVbWrap.vbfFormat(minute(time) * 100 + second(time) / 100, "#,##0.00") |
1,100.48 |
現在の年月日を揃えて出力
oVbWrap.vbfFormat(date, "yyyy/mm/dd") |
2012/05/20 |
現在時刻を和暦で出力
oVbWrap.vbfFormat(now, "gggee年mm月dd日 aaaa hh:nn:ss") |
平成24年05月20日 日曜日 18:11:48 |
現在の年月日を，月を英語で出力
oVbWrap.vbfFormat(now, "d-mmmm-yy") |
20-May-12 |
vbfStrConv メソッド 使用例 （StrConv関数ラッパー）
| 式 |
結果 |
大文字，全角に変換
oVbWrap.vbfStrConv("ｱｲｳｴｵ abc", 1 + 4) |
アイウエオ ＡＢＣ |
カタカナ→ひらがな変換
oVbWrap.vbfStrConv("ラッパー", 32) |
らっぱー |
vbfVal メソッド 使用例 （Val関数ラッパー）
| 式 |
結果 |
１６進数表記文字列を数値に変換
oVbWrap.vbfVal("&hfe") |
254 |
８進数表記文字列を数値に変換
oVbWrap.vbfVal("&o10") |
8 |
vbsMid メソッド 使用例 （Midステートメントラッパー）
| 式 |
結果 |
”abcde”の３文字目からを”xy”に置き換えます
oVbWrap.vbsMid("abcde", 3, "xy") |
abxye |
vbcLike メソッド 使用例 （Like演算子ラッパー）
| 式 |
結果 |
１文字目が”a”であるかを調べます
oVbWrap.vbcLike("abcde", "a*") |
True |
１文字目が”b”であるかを調べます
oVbWrap.vbcLike("abcde", "b*") |
False |
vbfFileDateTime メソッド 使用例 （FileDateTime関数ラッパー）
| 式 |
結果 |
自ファイルの更新日時を取得
oVbWrap.vbfFileDateTime(server.mappath("vbwrap.asp")) |
2012/02/27 0:27:29 |
トップページの更新日時を取得
oVbWrap.vbfFileDateTime(server.mappath("../index.asp")) |
2012/02/27 0:27:31 |
vbfFileLen メソッド 使用例 （FileLen関数ラッパー）
| 式 |
結果 |
自ファイルのバイト長を取得
oVbWrap.vbfFilelen(server.mappath("vbwrap.asp")) |
16920 |
トップページのバイト長を取得
oVbWrap.vbfFilelen(server.mappath("../index.asp")) |
11919 |
MonthDays メソッド 使用例 （年月から当月の日数を返します）
| 式 |
結果 |
今月の日数を取得
date & " → " & oVbWrap.MonthDays(date) |
2012/05/20 → 31 |
２００２年５月の日数を取得
oVbWrap.MonthDays("2002/5") |
31 |
|
|
