SQLの窓

2020年11月15日


JScript / VBScript : 新しい Excel の Book を作成する

サンプルは、.xlsx で保存しています

イントラネットのWEBページで利用されるテクニックの基本的な部分です。イントラネットの場合は、フォーマットを事前に作成しておくので、Excel ブックの作成を行う事は稀ですが、簡単な運用に使う場合は新規にブックが必要になると思います

※ 複数回実行すると上書きされます

昔から、Excel.Application の扱いはけっこう厄介で、実行する毎に Quit しておくとトラブルを最低限に抑える事ができます。しかし、操作方法のルールとリカバリ方法をマニュアル化しておく事が最も重要になります( トラブル時は、非表示のままメモリに残るので、タスクマネージャからタスクの終了をする必要があります )


Jscript
// ****************************
// 初期処理
// ****************************
var App = new ActiveXObject( "Excel.Application" );
var WshShell = new ActiveXObject("WScript.Shell");

App.DisplayAlerts = false;
//App.Visible = true;

// ****************************
// ブック追加
// ****************************
App.Workbooks.Add();

// ****************************
// 追加したブックを取得
// ****************************
var Book = App.Workbooks( App.Workbooks.Count  );

// ****************************
// 現状、ブックにはシート一つ
// という前提で処理していますが
// 必要であれば、Book.Worksheets.Count
// で現在のシートの数を取得できます
// ****************************
var Worksheet = Book.Worksheets( 1 );
Worksheet.Activate();

// ****************************
// Add では 第二引数に指定した
// オブジェクトのシートの直後に、
// 新しいシートを追加します。
// ****************************
Book.Worksheets.Add(null,Worksheet);

// ****************************
// シート名設定
// ****************************
Book.Sheets(1).Name = "新しい情報";
Book.Sheets(2).Name = "予備情報";

// ****************************
// 参照
// 最後の 1 は、使用するフィルター
// の番号です
// ****************************
var FilePath = App.GetSaveAsFilename(null,"Excel ファイル (*.xlsx), *.xlsx", 1);
if ( FilePath == false ) {
	WshShell.Popup( "Excel ファイルの保存選択がキャンセルされました" );
	App.Quit();
	App = null;
	WScript.Quit();
}

// ****************************
// 保存
// 拡張子を .xls で保存するには
// Call ExcelBook.SaveAs( BookPath, 56 ) とします
// ****************************
try {
    Book.SaveAs( FilePath )
    
} catch (error) {
	WshShell.Popup( "ERROR : " + error.description );
}

// ****************************
// Excel をアプリケーションとして終了
// ****************************
App.Quit();

// ****************************
// Excel を VBScript から開放
// ****************************
App = null;

// ****************************
// ファイルの最後
// ****************************



VBScript
' ****************************
' Excel オブジェクト作成
' ****************************
Set App = CreateObject("Excel.Application")

' ****************************
' 警告を出さないようにする
' ****************************
App.DisplayAlerts = False

' ****************************
' ブック追加
' ****************************
App.Workbooks.Add()

' ****************************
' 追加したブックを取得
' ****************************
Set Book = App.Workbooks( App.Workbooks.Count )

' ****************************
' 現状、ブックにはシート一つ
' という前提で処理していますが
' 必要であれば、Book.Worksheets.Count
' で現在のシートの数を取得できます
' ****************************
Set Worksheet = Book.Worksheets( 1 )
Worksheet.Activate()

' ****************************
' Add では 第二引数に指定した
' オブジェクトのシートの直後に、
' 新しいシートを追加します。
' ****************************
Call Book.Worksheets.Add(,Worksheet)

' ****************************
' シート名設定
' ****************************
Book.Sheets(1).Name = "新しい情報"
Book.Sheets(2).Name = "予備情報"

' ****************************
' 参照
' 最後の 1 は、使用するフィルター
' の番号です
' ****************************
FilePath = App.GetSaveAsFilename(,"Excel ファイル (*.xlsx), *.xlsx", 1)
if FilePath = "False" Then
	MsgBox "Excel ファイルの保存選択がキャンセルされました"
	Wscript.Quit()
End If

' ****************************
' 保存
' 拡張子を .xls で保存するには
' Call ExcelBook.SaveAs( BookPath, 56 ) とします
' ****************************
on error resume next
Book.SaveAs( FilePath )
if Err.Number <> 0 then
	MsgBox( "ERROR : " & Err.Description )
end if
on error goto 0

' ****************************
' Excel をアプリケーションとして終了
' ****************************
App.Quit()

' ****************************
' Excel を VBScript から開放
' ****************************
Set App = Nothing

' ****************************
' オブジェクト変数を初期化
' ( 初期化しないとオブジェクト扱いされる )
' ****************************
App = Empty


MsgBox( "処理が終了しました" )

Microsoft ドキュメント

Application.GetSaveAsFilename メソッド (Excel)

Application.GetOpenFilename メソッド (Excel)

Worksheets.Add メソッド (Excel)

Workbook.SaveAs メソッド (Excel)

可能列挙型 (Excel) / SaveAs メソッド で使用する定数


関連する記事

VBScript : 既存の Excel を PDF に変換する ( Excel 2007以降 )





タグ:VBScript EXCEL
posted by lightbox at 2020-11-15 17:32 | WSH JScript | このブログの読者になる | 更新情報をチェックする

2020年11月14日


IE11 を アプリケーションのプラットホームとして使う為の3つの設定

この設定を行うと、インターネットにあるページからでも、Windows のディスクやリソースに直接アクセスが可能になります( ActiveX を使用します )。よく利用されるのは、Excel へのアクセスですが、 ローカルネットワークのデータベースにもアクセスが可能です。




✅ インターネット上の任意のサイトを信頼して追加します

※ ここでは localhost です。インターネット上は 自分のサイト業務上のサイト になります

✅ ActiveX の使用を許可します( この設定で多くの処理が可能になります )

✅ 以下は ADO でのデーターベースアクセスに必要です

✅ クリップボードからの貼り付けができるのは IE11 のみです。

通常でもクリップボードへのコピーは可能で、他のブラウザでもクリップボードへのコピーは可能です。 18年前より IE を使用して、イントラネットの IIS のページ上に表示されたデータを Excel に転送して印刷に使うという処理を今も続けています。Excel でフォーマットを作っておくと、イレギュラーが発生しても Excel を直接変更すれば対応可能です。 大量な単独データが印刷が必要な場合はさすがに PDF( TCPDF ) を使用していますが、単票なら Excel に勝るものはありません。 IIS のタイムアウトを避けるような処理であれば、ADO で直接データーベースにアクセスして様々なデータをローカルに出力できます。 また、Excel のデータを複数セルでコピーして、IE11 の入力フィールドに貼り付けたり直接初期データを登録する事も可能になります。 さらにこれらのページ処理は、HTML だけで完結できる場合は拡張子を .hta として使う事もできます( 最初から HTA 目的で作成するのならば、IE11 の設定は必要ありませんが、HTA のデフォルトを最新にしておく為の META 要素が必要になります。 )
<meta http-equiv="x-ua-compatible" content="ie=edge">
❎ 注意事項として、IE11 のデフォルト状態では、VBSCript は利用できないので、VBScript が必要な場合は META 要素で IE10 以下を設定する必要があります。
<meta http-equiv="X-UA-Compatible" content="IE=8">

関連する記事

IE11 で VBScript のクラスを使用して Excel(Excel.Application) の処理を検証 HTML Application : JavaScript で新しい Excel の Book を作成する

IE11 上でコマンドプロントを模したページ

コマンドプロンプト on IE11( サイトを信頼して設定した場合 )

関連する記事

HTA / ADO / Jscript : Access( .accdb .mdb ) の読み込みと表示
タグ:HTA IE
posted by lightbox at 2020-11-14 08:23 | IE | このブログの読者になる | 更新情報をチェックする

2020年11月12日


HTA / ADO / Jscript : Access( .accdb .mdb ) の読み込みと表示

データベースは Access です。こちらからダウンロードしてください。ダウンロードして解凍した .accdb または .mdb へのパスは以下のようにしてソースコード上で固定で設定しています
 var db_path = "C:\\temp\\hanbaic.accdb";
ドライバが無い場合はこちらからダウンロードして AccessDatabaseEngine.exe を実行します ※ HTA は 32ビットです この HTA を localhost の IE11 で実行する事ができます。その場合は、IE11 の設定が必要です。その方法はこちらをご覧ください。 ※ IE11 で動かす最も大きな目的は、開発者ツールでデバッグができるからです。
<!DOCTYPE html>
<html>
<head>
<!-- edge : 主に hta 用 / VBScript を混在する場合は IE11 で IE10 ) -->
<meta http-equiv="x-ua-compatible" content="ie=edge">

<meta charset="utf-8">

<title>utf-8 ADO 問合せ処理</title>

<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/4.4.1/css/bootstrap.css">

<script>
// ***********************
// カンマ編集
// ***********************
String.prototype.number_format = 
function (prefix) {
	var num = this.valueOf();
	prefix = prefix || '';
	num += '';
	var splitStr = num.split('.');
	var splitLeft = splitStr[0];
	var splitRight = splitStr.length > 1 ? '.' + splitStr[1] : '';
	var regx = /(\d+)(\d{3})/;
	while (regx.test(splitLeft)) {
		splitLeft = splitLeft.replace(regx, '$1' + ',' + '$2');
	}
	return prefix + splitLeft + splitRight;
}
// ***********************
// カンマ編集削除
// ***********************
String.prototype.remove_number_format = 
function () {
	var num = this.valueOf();
	return num.replace(/([^0-9\.\-])/g, '');
}

// ********************************************************
// ADO オブジェクト
// 3 : クライアント側カーソル
// https://docs.microsoft.com/ja-jp/sql/ado/reference/ado-api/cursorlocationenum
// ********************************************************
var cn = new ActiveXObject( "ADODB.Connection" );
cn.CursorLocation = 3;
var rs = new ActiveXObject( "ADODB.Recordset" );

// ***********************
// このパスを変更
// ***********************
var db_path = "C:\\temp\\hanbaic.accdb";
// ***********************

// ********************************************************
// https://www.microsoft.com/ja-jp/download/details.aspx?id=13255 ( ドライバ )
// 接続文字列 : ODBC用
// https://docs.microsoft.com/ja-jp/dotnet/api/system.data.odbc.odbcconnection.connectionstring
// ********************************************************
var connection_string = "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" + db_path + ";";

// ***********************
// エラー制御
// ***********************
var error_flg = false;

// ***********************
// 実行 SQL
// ***********************
var query = "select * from 社員マスタ";

$(function(){

	// **************************************
	// Windows を中央に移動
	// **************************************
	var target = window.location + "";

	if ( target.indexOf("file:") != -1 ) {

		try {
			var w = screen.width - 400;
			var h = screen.height - 200;
			top.resizeTo( w, h );
			top.moveTo((screen.width-w)/2, (screen.height-h)/2 );
		}
		catch( e ) {}

	}

	// **************************************
	// ADO 処理( ここから )
	// **************************************
	try {
		// ***********************
		// DB 接続
		// ***********************
		cn.open( connection_string );
	}
	catch (e) {
		error_flg = true;
		alert(e.description);
	}
	
	if ( error_flg ) {
		return;
	}

	try {
		// ***********************
		// レコードセット取得
		// ***********************
		rs.open( query, cn );
	}
	catch (e) {
		error_flg = true;
		alert(e.description);
	}

	var table_body = $("#tbl");
	var row_unit = $("<tr></tr>");

	// ***********************
	// タイトル部用、列名取得
	// ***********************
	for( loop_idx = 0; loop_idx < rs.fields.count; loop_idx++ ) {
		$("<th></th>")
			.text( rs.fields(loop_idx).name )
			.appendTo( row_unit );
	}
	row_unit.appendTo( table_body );


	// ***********************
	// 行取得ループ
	// ***********************
	while( !rs.EOF ) {

		// 行オブジェクト
		row_unit = $("<tr></tr>");
		
		// *********************************************
		// 列オブジェクトを作成して行オブジェクトに追加
		// *********************************************
		$("<td></td>")
			.text( rs.fields("社員コード").value )
			.appendTo( row_unit );

		$("<td></td>")
			.text( rs.fields("氏名").value )
			.appendTo( row_unit );

		$("<td></td>")
			.text( rs.fields("フリガナ").value )
			.appendTo( row_unit );

		$("<td></td>")
			.text( rs.fields("所属").value )
			.appendTo( row_unit );

		$("<td></td>")
			.text( rs.fields("性別").value )
			.appendTo( row_unit );
			
		date_work = new Date( rs.fields("作成日").value );
		date_string = date_work.getFullYear() + "/" + (date_work.getMonth()+1) + "/" + date_work.getDate();
		$("<td></td>")
			.text( date_string )
			.appendTo( row_unit );

		date_work = new Date( rs.fields("更新日").value );
		date_string = date_work.getFullYear() + "/" + (date_work.getMonth()+1) + "/" + date_work.getDate();
		$("<td></td>")
			.text( date_string )
			.appendTo( row_unit );


		$("<td></td>")
			.text( rs.fields("給与").value )
			.appendTo( row_unit );

		$("<td></td>")
			.text( rs.fields("手当").value )
			.appendTo( row_unit );

		$("<td></td>")
			.text( rs.fields("管理者").value )
			.appendTo( row_unit );
			
		date_work = new Date( rs.fields("生年月日").value );
		date_string = date_work.getFullYear() + "/" + (date_work.getMonth()+1) + "/" + date_work.getDate();
		$("<td></td>")
			.text( date_string )
			.appendTo( row_unit );

		// 行オブジェクトを テーブルオブジェクトに追加
		row_unit.appendTo( table_body );

		// ***********************
		// 次の行を取得
		// ***********************
		rs.MoveNext();
	}
	
	// ***********************
	// レコードセットを閉じる
	// ***********************
	rs.close();

	// ***********************
	// 接続解除
	// ***********************
	cn.close();

	// ***********************
	// オブジェクトの解放
	// ***********************
	cn = null;
	// **************************************
	// ADO 処理( ここまで )
	// **************************************


	// **************************************
	// テーブルに対する処理
	// **************************************
	$("#tbl tr").each(function(idx){

		// **************************************
		// イベント登録
		// **************************************
		$(this).on("dblclick", function(idx){

			var text = "";

			$(this).find("td").each(function(idx){
				console.log( idx + ":" + $(this).text() );

				if ( idx == 7 || idx == 8 ) {
					text += idx + ":" + ($(this).text()).remove_number_format() + " ";
				}
				else {
					text += idx + ":" + $(this).text() + " ";
				}
			});

			$("#result").text( text );

		});

		// **************************************
		// データ部分のフォーマットと右寄せ
		// **************************************
		$(this).find("td").each(function(idx){

			switch( idx ) {
				case 7:
					$(this).css({"text-align": "right" });
					$(this).text( ($(this).text()).number_format() );
					break;
				case 8:
					$(this).css({"text-align": "right" });
					$(this).text( ($(this).text()).number_format() );
					break;
			}

		});

		// **************************************
		// タイトル部分の右寄せ
		// **************************************
		$(this).find("th").each(function(idx){

			switch( idx ) {
				case 7:
					$(this).css({"text-align": "right" });
					break;
				case 8:
					$(this).css({"text-align": "right" });
					break;
			}

		});

	});
	// **************************************
	// テーブルに対する処理
	// **************************************


});

</script>

<style>
/* ****************************
1) 列のカーソルは常に矢
2) 改行コードを有効
******************************/
td,th {
	cursor: default!important;
	white-space: pre;
}

body {
	margin: 0;
	padding: 16px;
}

/* ****************************
テーブル内のデータを選択不可
( ダブルクリック対応 )
******************************/
#tbl {
	user-select: none;
	-moz-user-select: none;
	-webkit-user-select: none;
	-ms-user-select: none;
}

/* ****************************
スクロール無しの状態時の
最上部にデータ表示場所を用意
******************************/
table {
	margin-top: 36px;
}

/* ****************************
ダブルクリック時に内容を表示
するブロックの表示方法
******************************/
#result {
	font-weight: bold;	/* 太文字 */
	color: navy;	/* 文字色 */
	position: fixed;	/* 表示位置固定 */
	height: 34px;	/* ブロック高さ */
	background-color: #fff;	/* ブロック背景色 */
	padding: 5px;	/* ブロック内側余白 */
}

</style>
</head>
<body>

	<!-- ダブルクリックの結果を表示する / fixed で位置固定 -->
	<div id="result"></div>

	<table class="table table-hover">
		<!-- bootstrap 対応の為、tbody に対して処理 -->
		<tbody id="tbl">
		</tbody>
	</table>

</body>
</html>


以下は、列情報を自動取得しています
( ※ 自由な SELECT 文で表示可能です )
<!DOCTYPE html>
<html>
<head>
<!-- edge : 主に hta 用 / VBScript を混在する場合は IE11 で IE10 ) -->
<meta http-equiv="x-ua-compatible" content="ie=edge">

<meta charset="utf-8">

<title>utf-8 ADO 問合せ処理</title>

<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/4.4.1/css/bootstrap.css">

<script>
// ***********************
// カンマ編集
// ***********************
String.prototype.number_format = 
function (prefix) {
	var num = this.valueOf();
	prefix = prefix || '';
	num += '';
	var splitStr = num.split('.');
	var splitLeft = splitStr[0];
	var splitRight = splitStr.length > 1 ? '.' + splitStr[1] : '';
	var regx = /(\d+)(\d{3})/;
	while (regx.test(splitLeft)) {
		splitLeft = splitLeft.replace(regx, '$1' + ',' + '$2');
	}
	return prefix + splitLeft + splitRight;
}
// ***********************
// カンマ編集削除
// ***********************
String.prototype.remove_number_format = 
function () {
	var num = this.valueOf();
	return num.replace(/([^0-9\.\-])/g, '');
}

// ********************************************************
// ADO オブジェクト
// 3 : クライアント側カーソル
// https://docs.microsoft.com/ja-jp/sql/ado/reference/ado-api/cursorlocationenum
// ********************************************************
var cn = new ActiveXObject( "ADODB.Connection" );
cn.CursorLocation = 3;
var rs = new ActiveXObject( "ADODB.Recordset" );

// ***********************
// このパスを変更
// ***********************
var db_path = "C:\\temp\\hanbaic.accdb";
// ***********************

// ********************************************************
// https://www.microsoft.com/ja-jp/download/details.aspx?id=13255 ( ドライバ )
// 接続文字列 : ODBC用
// https://docs.microsoft.com/ja-jp/dotnet/api/system.data.odbc.odbcconnection.connectionstring
// ********************************************************
var connection_string = "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" + db_path + ";";

// ***********************
// エラー制御
// ***********************
var error_flg = false;

// ***********************
// 実行 SQL
// ***********************
var query = "select * from 得意先マスタ";

$(function(){

	// **************************************
	// Windows を中央に移動
	// **************************************
	var target = window.location + "";

	if ( target.indexOf("file:") != -1 ) {

		try {
			var w = screen.width - 400;
			var h = screen.height - 200;
			top.resizeTo( w, h );
			top.moveTo((screen.width-w)/2, (screen.height-h)/2 );
		}
		catch( e ) {}

	}

	// **************************************
	// ADO 処理( ここから )
	// **************************************
	try {
		// ***********************
		// DB 接続
		// ***********************
		cn.open( connection_string );
	}
	catch (e) {
		error_flg = true;
		alert(e.description);
	}
	
	if ( error_flg ) {
		return;
	}

	try {
		// ***********************
		// レコードセット取得
		// ***********************
		rs.open( query, cn );
	}
	catch (e) {
		error_flg = true;
		alert(e.description);
	}

	var table_body = $("#tbl");
	var row_unit = $("<tr></tr>");

	var typeArray = [];

	// ***********************
	// タイトル部用、列名取得
	// ***********************
	for( loop_idx = 0; loop_idx < rs.fields.count; loop_idx++ ) {
		$("<th></th>")
			.text( rs.fields(loop_idx).name )
			.appendTo( row_unit );
		typeArray.push( rs.fields(loop_idx).type );
	}
	row_unit.appendTo( table_body );


	// ***********************
	// 行取得ループ
	// データ型
	// https://docs.microsoft.com/ja-jp/sql/ado/reference/ado-api/datatypeenum
	// ***********************
	while( !rs.EOF ) {

		// 行オブジェクト
		row_unit = $("<tr></tr>");
		for( loop_idx = 0; loop_idx < rs.fields.count; loop_idx++ ) {
			if( typeArray[loop_idx] == 133 || typeArray[loop_idx] == 135 ) {
				var date_work = new Date( rs.fields(rs.fields(loop_idx).name).value );
				var date_string = date_work.getFullYear() + "/" + (date_work.getMonth()+1) + "/" + date_work.getDate();
				$("<td></td>")
					.text( date_string )
					.appendTo( row_unit );
			}
			else {
				$("<td></td>")
				.text( rs.fields(rs.fields(loop_idx).name).value )
				.appendTo( row_unit );
			}
		}
		row_unit.appendTo( table_body );

		// ***********************
		// 次の行を取得
		// ***********************
		rs.MoveNext();
	}
	
	// ***********************
	// レコードセットを閉じる
	// ***********************
	rs.close();

	// ***********************
	// 接続解除
	// ***********************
	cn.close();

	// ***********************
	// オブジェクトの解放
	// ***********************
	cn = null;
	// **************************************
	// ADO 処理( ここまで )
	// **************************************


	// **************************************
	// テーブルに対する処理
	// **************************************
	$("#tbl tr").each(function(idx){

		// **************************************
		// イベント登録
		// **************************************
		$(this).on("dblclick", function(idx){

			var text = "";

			$(this).find("td").each(function(idx){
				console.log( idx + ":" + $(this).text() );
				text += idx + ":" + $(this).text() + " ";
			});

			$("#result").text( text );

		});

		// **************************************
		// データ部分のフォーマットと右寄せ
		// **************************************
		$(this).find("td").each(function(idx){

			if ( typeArray[idx] == 3 ) {
				$(this).css({"text-align": "right" });
				$(this).text( ($(this).text()).number_format() );
			} 

		});

		// **************************************
		// タイトル部分の右寄せ
		// **************************************
		$(this).find("th").each(function(idx){

			if ( typeArray[idx] == 3 ) {
				$(this).css({"text-align": "right" });
			}

		});

	});
	// **************************************
	// テーブルに対する処理
	// **************************************


});

</script>

<style>
/* ****************************
1) 列のカーソルは常に矢
2) 改行コードを有効
******************************/
td,th {
	cursor: default!important;
	white-space: pre;
}

body {
	margin: 0;
	padding: 16px;
}

/* ****************************
テーブル内のデータを選択不可
( ダブルクリック対応 )
******************************/
#tbl {
	user-select: none;
	-moz-user-select: none;
	-webkit-user-select: none;
	-ms-user-select: none;
}

/* ****************************
スクロール無しの状態時の
最上部にデータ表示場所を用意
******************************/
table {
	margin-top: 36px;
}

/* ****************************
ダブルクリック時に内容を表示
するブロックの表示方法
******************************/
#result {
	font-weight: bold;	/* 太文字 */
	color: navy;	/* 文字色 */
	position: fixed;	/* 表示位置固定 */
	height: 34px;	/* ブロック高さ */
	background-color: #fff;	/* ブロック背景色 */
	padding: 5px;	/* ブロック内側余白 */
}

</style>
</head>
<body>

	<!-- ダブルクリックの結果を表示する / fixed で位置固定 -->
	<div id="result"></div>

	<table class="table table-hover">
		<!-- bootstrap 対応の為、tbody に対して処理 -->
		<tbody id="tbl">
		</tbody>
	</table>

</body>
</html>




タグ:HTA IE
posted by lightbox at 2020-11-12 15:20 | HTA ( HTMLアプリケーション ) | このブログの読者になる | 更新情報をチェックする

2020年11月09日


JScript / VBScript : 指定したフォルダ内のフォルダ毎の使用済みサイズを読める範囲でレポートする

▼ JScript のダウンロード

▼ VBScript のダウンロード

System Volume Information は、無駄に使われてる場合が多いそうです。( 今日 5G 削除しました ) ✅ 参考ページ

show-folders-size.js

// ************************************************
// カンマ編集
// ************************************************
String.prototype.number_format = 
function (prefix) {
	var num = this.valueOf();
	prefix = prefix || '';
	num += '';
	var splitStr = num.split('.');
	var splitLeft = splitStr[0];
	var splitRight = splitStr.length > 1 ? '.' + splitStr[1] : '';
	var regx = /(\d+)(\d{3})/;
	while (regx.test(splitLeft)) {
		splitLeft = splitLeft.replace(regx, '$1' + ',' + '$2');
	}
	return prefix + splitLeft + splitRight;
}

// ************************************************
// オブジェクト
// ************************************************
var Shell = new ActiveXObject("Shell.Application");
var WshShell = new ActiveXObject("WScript.Shell");
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );

// ************************************************
// 管理者権限のコマンドプロンプトで再実行
// ************************************************
if ( WScript.Arguments.length == 0 ) {
	Shell.ShellExecute( "cmd.exe", "/c cscript.exe " + Dd(WScript.ScriptFullName) + " next" + " & pause", "", "runas", 1 );
	WScript.Quit();
}


var target = SelectDir( "対象フォルダを選択して下さい" )
if ( target == "" ) {
	WScript.Quit();
}

WScript.Echo( target )

// ************************************************
// フォルダオブジェクト取得
// ************************************************
var objFolder =  Fso.GetFolder(target)

var folderCollection = new Enumerator(objFolder.SubFolders);

var TargetSize = 0;
var obj;
var num;
var line;
for ( ;!folderCollection.atEnd(); folderCollection.moveNext()) {

	obj = folderCollection.item();
	
	try {
		num = Math.floor(obj.Size / 1024) / 1024;
		num = Math.floor( num * 1000 ) / 1000
		line = Lpad(("" + num).number_format()," ", 15) + " M : " + obj.Name
		WScript.Echo( line );

		// フォルダ全体の合計
		TargetSize = TargetSize + obj.Size
	}
	catch(e) {
		WScript.Echo( obj.Name + " : 処理できません");
	}

}

WScript.Echo( "" );

num = Math.floor(TargetSize / 1024) / 1024;
num = Math.floor( num * 1000 ) / 1000
line = Lpad(("" + num).number_format()," ", 15) + " M : " + "表示合計"
WScript.Echo( line );

// ************************************************
// ディレクトリ選択
// ************************************************
function SelectDir( strTitle ) {

	var obj

	obj = Shell.BrowseForFolder( 0, strTitle, 0x4B, 0 )
	if ( obj == null ) {
		return "";
	}
	if ( !obj.Self.IsFileSystem ) {
		ErrorMessage = "ファイルシステムではありません";
		return "";
	}

	return obj.Self.Path;

}

// ************************************************
// ダブルクォートで囲む
// ************************************************
function Dd( strValue ) {

	return "\"" + strValue + "\""

}

// ************************************************
// 指定数、指定文字列左側を埋める
// ※少数以下3桁の調整
// ************************************************
function Lpad( strValue, str, nLen ) {

	var i;
	var wk = "";

	for( i = 0; i < nLen; i++ ) {
		wk += str;
	}
	
	var test = strValue.split(".");
	if ( test.length == 2 ) {
		if ( test[1].length == 0 ) {
			strValue += "000"
		}
		if ( test[1].length == 1 ) {
			strValue += "00"
		}
		if ( test[1].length == 2 ) {
			strValue += "0"
		}
	}
	else {
		strValue += ".000"
	}

	return ( wk + strValue ).slice( nLen * -1 );

}


show-folders-size.vbs

' ************************************************
' 管理者権限で実行用
' ************************************************
Set Shell = CreateObject( "Shell.Application" )

' ************************************************
' 管理者権限で再実行
' ************************************************
if Wscript.Arguments.Count = 0 then
	Shell.ShellExecute "cmd.exe", "/c cscript.exe " & Dd(WScript.ScriptFullName) & " next" & " & pause", "", "runas", 1
	Wscript.Quit
end if

' ************************************************
' 除外フォルダ名を スペースで区切って並べる
' (簡易的な除外)
' ************************************************
Dim Exclude
Exclude = ".gem"
Exclude = Lcase(Exclude)

' ************************************************
' 処理用
' ************************************************
Set WshShell = CreateObject( "WScript.Shell" )
Set Fso = CreateObject( "Scripting.FileSystemObject" )

Dim target

' ************************************************
' 対象フォルダを選択
' ************************************************
target = SelectDir( "対象フォルダを選択して下さい" )
if target = "" then
	Wscript.Quit
end if

Wscript.Echo target
Wscript.Echo

' ************************************************
' フォルダオブジェクト取得
' ************************************************
Set objFolder =  Fso.GetFolder(target)

' ************************************************
' サブフォルダコレクション取得
' ************************************************
Set colSubFolder =  objFolder.SubFolders

' ************************************************
' 一覧
' ************************************************
Dim TargetSize : TargetSize = 0
For Each obj in colSubFolder

	Do While true

		if InStr(Exclude,Lcase(obj.Name)) > 0 then
			Exit Do
		end if

		on error resume next
		Wscript.Echo Lpad(FormatNumber((Fix(obj.Size / 1024) / 1024),3)," ", 15) & " M : " & obj.Name
		if Err.Number <> 0 then
			Wscript.Echo "                  ( " & obj.Name & " : 処理できません )"
		else
			TargetSize = TargetSize + obj.Size
		end if
		on error goto 0


		Exit Do
	Loop


Next

Wscript.Echo

Dim AllSize
Dim er : er = 0
on error resume next
AllSize = objFolder.Size
if Err.Number <> 0 then
	er = 1
	AllSize	= TargetSize
end if
on error goto 0


Wscript.Echo Lpad(FormatNumber((Fix(TargetSize / 1024) / 1024),3)," ", 15) & " M : " & "表示合計"

if er = 1 then
	Wscript.Echo "                  ( " & target & " のサイズは取得できませんでした )"
else
	Wscript.Echo Lpad(FormatNumber((Fix(AllSize / 1024) / 1024),3)," ", 15) & " M : " & target & " のサイズ"
end if

Dim fsize : fsize = 0
For Each file in objFolder.files
	fsize = fsize + file.size
Next
Wscript.Echo Lpad(FormatNumber((Fix((fsize) / 1024) / 1024),3)," ", 15) & " M : " & target & " 下のファイル"

Wscript.Echo

' ************************************************
' ディレクトリ選択
' ************************************************
Function SelectDir( strTitle )

	Dim obj

	Set obj = Shell.BrowseForFolder( 0, strTitle, &H4B, 0 )
	if obj is nothing then
		SelectDir = ""
		Exit Function
	end if
	if not obj.Self.IsFileSystem then
		ErrorMessage = "ファイルシステムではありません"
		SelectDir = ""
		Exit Function
	end if

	SelectDir = obj.Self.Path

End Function

' ************************************************
' ダブルクォートで囲む
' ************************************************
Function Dd( strValue )

	Dd = """" & strValue & """"

End function

' ************************************************
' 指定数、指定文字列左側を埋める
' ************************************************
Function Lpad( strValue, str, nLen )

	Lpad = Right( String(nLen,str) & strValue, nLen )

End Function






posted by lightbox at 2020-11-09 13:56 | WSH JScript | このブログの読者になる | 更新情報をチェックする

2020年11月02日


ロリポップ用ログインブックマークレット( ユーザ専用ページ・phpMyAdmin・WEBメーラ )

※ パスワード等の情報をブラウザに保存するので、自宅の PC で利用してくださいユーザ専用ページphpMyAdminWEBメーラ

ユーザ専用ページ

ドメインID は自分のアカウントです。ドメイン番号は、ロリポップで選んだ自分のドメインをコンボボックスで選択して Chrome の コンソールで以下のように入力してください
$("#domain-id").val()
※ 画像の例ですと、410 をドメイン番号と差し替えます
javascript:$("input[name='account']").val("ドメインID");$('#domain-id').val(ドメイン番号);$("input[name='passwd']").val("パスワード");jf_Login();

出来上がったコードを ブックマークバーに適当に作成したブックマークの URL に入力すると使用可能になります

phpMyAdmin

アカウント文字列は ユーザー名( DB ページでの呼び名 )です。サーバの選択は自分のサーバをコンボボックスで選択して Chrome の コンソールで以下のように入力してください
$("#select_server").val()
※ 画像の例ですと、192 をサーバー番号と差し替えます
javascript:$('#select_server').val(サーバー番号);$('#input_username').val("アカウント文字列");$('#input_password').val("パスワード");$('#input_go').click();

WEBメーラ

javascript:document.getElementsByName("mail_add")[0].value="メールアドレス";document.getElementsByName("mail_pass")[0].value="パスワード";jf_LoginMail();




posted by lightbox at 2020-11-02 10:46 | Pleiades | このブログの読者になる | 更新情報をチェックする
Seesaa の各ページの表示について
Seesaa の 記事がたまに全く表示されない場合があります。その場合は、設定> 詳細設定> ブログ設定 で 最新の情報に更新の『実行ボタン』で記事やアーカイブが最新にビルドされます。

Seesaa のページで、アーカイブとタグページは要注意です。タグページはコンテンツが全く無い状態になりますし、アーカイブページも歯抜けページはコンテンツが存在しないのにページが表示されてしまいます。

また、カテゴリページもそういう意味では完全ではありません。『カテゴリID-番号』というフォーマットで表示されるページですが、実際存在するより大きな番号でも表示されてしまいます。

※ インデックスページのみ、実際の記事数を超えたページを指定しても最後のページが表示されるようです

対処としては、このようなヘルプ的な情報を固定でページの最後に表示するようにするといいでしょう。具体的には、メインの記事コンテンツの下に『自由形式』を追加し、アーカイブとカテゴリページでのみ表示するように設定し、コンテンツを用意するといいと思います。


※ エキスパートモードで表示しています

アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります

<% if:page_name eq 'archive' -%>
アーカイブページでのみ表示される内容
<% /if %>

<% if:page_name eq 'category' -%>
カテゴリページでのみ表示される内容
<% /if %>

<% if:page_name eq 'tag' -%>
タグページでのみ表示される内容
<% /if %>
この記述は、以下の場所で使用します
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり