ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
Directory コマンド
日時: 2007/09/08 11:15
名前: lightbox



拡張子:
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\cmd]
@="コマンドプロンプト"

[HKEY_CLASSES_ROOT\Directory\shell\cmd\command]
@="cmd.exe /k \"cd %L\""
メンテナンス

かな/ローマ字入力を切り替える ( No.1 )
日時: 2007/09/08 11:31
名前: lightbox


日時: 2007/09/08 11:31
名前: lightbox
拡張子:
漢字入力可能な状態で、ALT+カタカナ・ひらがな
http://support.microsoft.com/kb/415068/ja
このアーティクルの参照用URLをクリップボードにコピー メンテナンス
フォームチェックサンプル ( No.2 )
日時: 2009/02/21 20:14
名前: lightbox
文字列オブジェクト

拡張子:
<SCRIPT language="javascript" type="text/javascript">

// *********************************************************
// フォームのチェック
// *********************************************************
function CheckData() {

	var str = document.getElementsByName("title")[0].value;
	var obj = document.getElementsByName("title")[0];

	if ( Trim(str) == "" ) {
		alert( "タイトルを入力して下さい  " );
		return false;
	}

	if ( str.indexOf( '@' ) != -1 ) {
		alert( "正しい文字を入力して下さい  " );
		obj.focus();
		obj.select();
		return false;
	}

	return true;
}

function Trim( strValue ) {

	// 以下[]内の空白に見えるのは漢字スペース
	var regL = /^[ \s]+/;
	var regR = /[ \s]+$/;

	strValue = strValue.replace(regL,"");
	strValue = strValue.replace(regR,"");

	return strValue;

}
このアーティクルの参照用URLをクリップボードにコピー メンテナンス
MySQL バッチエクスポート ( No.3 )
日時: 2007/09/08 11:59
名前: lightbox
拡張子:
mysql -u root -D lightbox --password= < exp_01.sql
  exp_01.sql
拡張子:
select * 
	from `郵便番号マスタ`
	into outfile 'c:\\tmp\\郵便番号マスタ.csv'
	fields terminated by ','
	lines terminated by '\r\n'
;
このアーティクルの参照用URLをクリップボードにコピー メンテナンス
PHP の出力を JavaScript として埋め込む ( No.4 )
日時: 2007/09/16 15:25
名前: lightbox
JavaScript タグの src 属性は、他サイトにアクセス可能なので、
HTML から単純にデータを埋め込む事が可能です。

※ 方法としてもうすこし複雑にしたのが Ajaxですが、Ajax では他サイトのデータを取得できません。


  PHP 側
拡張子:
<?
header( "Content-Type: text/javascript; Charset=shift_jis" );
header( "Expires: Wed, 31 May 2000 14:59:58 GMT" );

$ver = phpversion();
print "document.write( '$ver' );";

?>
  HTML 側
拡張子:
<TABLE cellspacing="1" style='background-color:white' cellpadding="5">
<TR>
	<TD></TD>
	<TD>SAKURA</TD>
	<TD>Lacoocan</TD>
	<TD>ABC オロチ</TD>
	<TD>旧 land</TD>
	<TD>新 land</TD>
	<TD>jmj</TD>
</TR>
<TR>
	<TD>PHP</TD>
	<TD>

<SCRIPT language="javascript" type="text/javascript" src="http://winofsql.jp/ver.php"> </SCRIPT>
</TD> <TD> <SCRIPT language="javascript" type="text/javascript" src="http://lightbox.on.coocan.jp/ver.php"> </SCRIPT> </TD> <TD>4.4.1</TD> <TD>4.4.2</TD> <TD>5.2.3</TD> <TD>4.3.9</TD> </TR> <TR> <TD>php.ini</TD> <TD>○</TD> <TD>×</TD> <TD>×</TD> <TD>×</TD> <TD>○</TD> <TD>×<br>.htaccess可</TD> </TR> </TABLE>
  以下は 非同期の Ajax です。自サイトの PHP を呼び出しています
拡張子:
<?
header( "Content-Type: text/javascript; Charset=shift_jis" );
header( "Expires: Wed, 31 May 2000 14:59:58 GMT" );

if ( $_GET['target'] == 'lacoocan' ) {
	print phpversion() . " です";
}

?>
拡張子:
<SCRIPT 
	language="javascript"
	type="text/javascript">

function getVer(target) {
     var a = new Ajax.Request(   
         "get_ver.php",   
        {   
            method: "get",
            asynchronous: true,
            encoding : "SHIFT_JIS",
            parameters: { "target" : target },
            onSuccess: function(request) {
            },
            onComplete: function(request) {
                $("lacoocan").innerHTML = request.responseText;
            },
            onFailure: function(request) {
                alert('読み込みに失敗しました');
            }
        }
    );
}

window.onload = function loaded_action() {
	getVer("lacoocan");
}

</SCRIPT>

</HEAD>

<BODY>
<TABLE cellspacing="1" style='background-color:white' cellpadding="5">
<TR>
	<TD></TD>
	<TD>SAKURA</TD>
	<TD>Lacoocan</TD>
	<TD>ABC オロチ</TD>
	<TD>旧 land</TD>
	<TD>新 land</TD>
	<TD>jmj</TD>
</TR>
<TR>
	<TD>PHP</TD>
	<TD>
		<SCRIPT 
			language="javascript"
			type="text/javascript"
			src="http://winofsql.jp/ver.php">
		</SCRIPT>
	</TD>
	<TD id=lacoocan>
	</TD>
	<TD>4.4.1</TD>
	<TD>4.4.2</TD>
	<TD>5.2.3</TD>
	<TD>4.3.9</TD>
</TR>
実行サンプル
このアーティクルの参照用URLをクリップボードにコピー メンテナンス
メッセージボックス内の文字列取得 ( No.5 )
日時: 2014/10/04 11:42
名前: lightbox
Windows が表示する標準のメッセージボックスに表示されている文字列は
普通に、クリップボードにコピーする事ができます

メッセージボックスに表示されている内容が
クリップボードにコピーされます
( CTRL+Insert でも可 )

↓テスト(IEとGoogle Chrome は CTRL+C できます)

このアーティクルの参照用URLをクリップボードにコピー メンテナンス
VB.NET CMDEX.EXE ( No.6 )
日時: 2013/03/09 13:34
名前: lightbox
最大化して、解像度にあわせてカラム数を大きく調整します

拡張子:
Imports System
Imports System.Diagnostics

Module MyModule

' ********************************************************
' * 実行
' ********************************************************
Sub Main(ByVal CmdArgs() As String)

	Dim startInfo As New ProcessStartInfo("cmd.exe")
	startInfo.WindowStyle = ProcessWindowStyle.Maximized

	Dim w As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
	Dim cols As String = ""

	if w >= 1024 then
		cols = "120"
	end if
	if w >= 1152 then
		cols = "135"
	end if
	if w >= 1280 then
		cols = "150"
	end if

	Dim strArg As String = "/k mode con: cols=" & cols
	Dim idx As Integer = 0

	if CmdArgs.GetUpperBound(0) <> -1 then
		strArg &= " & "
		For idx = 0 to CmdArgs.GetUpperBound(0)
			strArg &= " " & CmdArgs(idx)
		Next
	end if
	startInfo.Arguments = strArg

	Process.Start(startInfo)

End Sub

End Module
このアーティクルの参照用URLをクリップボードにコピー メンテナンス
【Oracle】 sqlplus による CSVファイル作成 ( No.7 )
日時: 2008/07/06 01:05
名前: lightbox
1) 列名リストを作成
拡張子:
郵便番号,都道府県名,市区町村名,町域名
2) エディタで ",""||','||" に置換する
拡張子:
郵便番号||','||都道府県名||','||市区町村名||','||町域名
3) 以下のようなファイルを作成    sample_01.sql
拡張子:
SET LINESIZE 32767
SET PAGESIZE 0
SET TRIMSPOOL ON
SET FEEDBACK OFF
SET TERMOUT OFF
SPOOL 郵便番号マスタ.csv
select 郵便番号||','||都道府県名||','||市区町村名||','||町域名 from 郵便番号マスタ;
SPOOL OFF
EXIT
4) sqlplus の実行
拡張子:
sqlplus LIGHTBOX/LIGHTBOX@//night/XE @sample_01
コマンドリファレンス コマンドライン
このアーティクルの参照用URLをクリップボードにコピー メンテナンス
WSH 二重起動チェック ( No.8 )
日時: 2007/10/05 17:59
名前: lightbox
同一ファイルを同時に開く事ができないので
アプリケーションが終了するまで、二つ目は実行できません。
終了するとファイルがクローズされるので、次の実行が可能です


拡張子:
Set fso = CreateObject("Scripting.FileSystemObject")

Dim LockFilePath
Const ForAppending = 8

' 書き込み権限のある絶対パス
LockFilePath = "C:\TEMP\" & WScript.ScriptName & ".lck"

on error resume next
Set MyFile = fso.OpenTextFile(LockFilePath, ForAppending, True)

if Err.Number <> 0 then
	Wscript.Echo "二重起動されました"
else
	MyFile.WriteLine Now() & vbTab & "正常起動されました"
	Wscript.Sleep 2000
end if
on error goto 0
せっかくファイルを開いているので、ログとして使用しています
このアーティクルの参照用URLをクリップボードにコピー メンテナンス