何か使えるところがあるかどうかわからないが、エクセルで電源の状態を知るマクロのサンプルを作ってみた。

昨日、「ダ･ヴィンチ･コード」を観た。特にレビューなどは書かないが、何かちょっと謎めいたコードでも書いてみようかという気になったので、書いておくことにする。

かなり昔(ソースの日付によると1992年)にプログラミングしたユーティリティである。懐かしいので載せる(^^;
何をするユーティリティかというと、C言語のソース上の日本語シンボルをASCIIに変換し、コンパイラに通せるように整形するユーティリティである。わかりにくいと思うので以下にサンプルを。

(test.jc)

#include <stdio.h>

int main()
{
int 変数;

for(変数=1;変数<10;変数++)
printf("%u\n", 変数);
}

上のような日本語で変数などを書いたファイルを作り、このユーティリティ(jpp)を以下のようにして使う。

jpp -o test.c test.jc

そうすると以下のようなファイルが作成される。

(test.c)

#line 1 "test.jc"
#include <stdio.h>

int main()
{
int _95cf9094;

for(_95cf9094=1;_95cf9094<10;_95cf9094++)
printf("%u\n", _95cf9094);
}

それをコンパイラに通せば、コンパイルできる。つまりこのユーティティを使用することで日本語の変数などが使えるようになるというもの。

いざWinSockでプログラミングしようとするといつも何をしたらいいのか忘れてる(^^; ということで、備忘録としてシンプルなコードサンプルを載せておくことにする。

以前、あるサイトで「フォトアルバム」なるページを作成したことがあった。一週間単位でサムネイル表示し、クリックすればポップアップで大きく表示というものである。その一週間単位でMySQLからクエリするスクリプトを載せておく。

以前(WindowsNTの頃)、OSのシャットダウンを行う必要があり、他の人に依頼してプログラミングしてもらったことがある。WindowsXPではどうだか知らないが、その頃はどうも単にExitWindows関数を呼び出すだけではダメだったようだ。

昨日に引き続き、VBAでエクセルのフォームをツールウィンドウ(タスクバーの小さな、フローティングツールバーなどによく使われるウィンドウスタイル)にできるか、プログラミングしてみた。

実際どんなときに使えるかは疑問だが、ちょっとプログラミングしてみたところエクセルのVBAでフォームを半透明にできたので、載せておくことにする。

以前の記事で、PHPによるファイルのアップロードに関するスクリプトの誤りについて載せたが、そもそもPHPによるファイルのアップロード処理に関しては、やり方が最初よくわからずちょっと苦労した覚えがあるので、ちょっとそのプログラミングについて残しておくことにする。

以前「VBA(EXCEL)でタイマー処理」という記事でエクセルVBAによるタイマー処理のプログラミングコードを載せたが、それに関連して経過時間を取得するマクロをサンプルとして並べてみた。

Internet Explorer 7 Beta 2 Preview が公開されたようだ。早速ダウンロードして試してみることにする。

見た目が大きく変わっている。
まずタブ表示だ。リンク部分を右クリックすると今までの「新しいウィンドウで開く」に加え、「新しいタブで開く」が追加されている。リンクをCtrl+クリックで新しいタブ、Shift+クリックすると新しいウィンドウで開く。両方あるのがいい。私は資料となるページを見ながら記事を書いたりするときにはAlt-TABでウィンドウを切り替えながら使うので新しいウィンドウ表示は必要なのである。タブもCtrl-TABで切り替えられるが、また元に戻るときには何度も押して一周させるかCtrl-Shift-TABで戻るかしないといけない。新しいウィンドウならAlt-TABだけ行ったり来たりできる。ちょっと話がそれたが、タブについてはこれからいろいろ使って使用感など、機会があればまたレビューすることにしよう。

以前、仕事でシステム内のプログラムがすべて正常に動作していることを確認するユーティリティプログラムの作成の担当になったことがあった。そこで思いついたのはタスクマネージャなどに表示される"(応答なし)"。それを利用すればいいのでは？と思った。
そのシステムのOSはWindows NT4.0だったのだが、当時いくら探しても該当するAPIが見当たらなかった。あきらめかけていたけど、最後にタスクマネージャがインポートしている関数を調べてみた。
で、インポートリストから IsHungAppWindow という名前を見つけた。この関数、今はAPIとして使えるようだが、当時はAPIとして仕様には載っていなかったし、ヘッダファイルにも宣言はなかった。

仕事でエクセルのVBAを使ったシステムをプログラミングしたのだが、客先がついファイルだけ閉じるつもりでタイトルバーの閉じるボタンを押してEXCELごと終了してしまい、何度か呼び出されたことがあった。
と、いうことでEXCELのタイトルバーの閉じるボタンを無効にするプログラミングコードを載せておく。

先日管理をしているサイトで新しいスタッフが入ったので、スタッフを追加する作業をしてもらっていた。そのサイトはスタッフ専用のページで追加作業等してもらえば私が作業しなくてもいいようにできているのだが、そのときは私は近くにいて作業を見守っていた。
その作業は、

1. スタッフIDを決め、データベースに追加
   
2. パスワードの決定
   
3. スタッフ基本情報の入力(誕生日、血液型など)
   
4. スタッフ紹介情報の入力(趣味、コメントなど)

の順で行うのだが、最初の作業を終えたときだった。サイトのトップページにその追加したスタッフが「本日誕生日！」と表示されてしまったのである(誕生日はまだ未入力)。慌てて誕生日を入力し、その表示は消えたのだが、ちょっと焦ってしまった。

先日テンプレートをいじり、FC2ブログランキングと人気ブログランキングのリンクをつけた。先にFC2ブログランキングを追加したのだが、さっき見たら、コンピュータ-プログラミング部門で6位。すごいや。ってか、もしかして「SHOJI's Code」ってタイトルが今巷で話題の「ダ・ヴィンチ・コード」に似ているからか？そうならこの人気もあとしばらくの命だな(^^;

以前作ったサイトで「フォトアルバム」というページがあった。ページに並んだサムネイル画像をクリックすると別ウィンドウが開いて大きな画像が表示されるというものだ。おそらく他のサイトでもよく紹介されているとは思うが、載せておくことにする。

実際に使っているPHPスクリプトを２つ載せた。フォームから入力された画像ファイルを処理するスクリプトの一部であるが、実は片方は間違っている。どこだかわかるだろうか？

(スクリプト1)
if( $_FILES['data']['tmp_name'] != "" )
{
$data = addslashes(file_get_contents($_FILES['data']['tmp_name']));
$mime = $_FILES['data']['type'];
if( $mime == "image/pjpeg" ) $mime = "image/jpeg";
if( $mime == "image/x-png" ) $mime = "image/png";

if( !ereg("image/(jpe?g|gif|png)", $mime) )
$errmsg = "対応していないファイル形式です ($mime)";
else
{
$qrystr = "PHOTO_MIMETYPE = '$mime'";
$qrystr .= ", PHOTO_DATA = '$data'";
@mysql_query("update STAFF set $qrystr where ID = $eid", $conn);
if( mysql_errno() > 0 )
$errmsg = "データベースにエラーが発生しました: " . mysql_error();
else
$errmsg = "設定しました";
}
}
else
$errmsg = "画像が指定されていません";

(スクリプト2)
if( $_FILES['image']['tmp_name'] != "" )
{
move_uploaded_file($_FILES['image']['tmp_name'], "image.dat");
$data = base64_encode(file_get_contents("image.dat"));
$mime = $_FILES['image']['type'];
if( $mime == "image/pjpeg" ) $mime = "image/jpeg";
if( $mime == "image/x-png" ) $mime = "image/png";

if( !ereg("image/(jpe?g|gif|png)", $mime) )
{
$errmsg = "画像ファイルの形式が不正です($mime)";
$data = "";
}
}

仕事でエクセルのVBAをプログラミングするとき、他のアプリとリンクさせることが多い。
だが、外部リンクしたファイルはオープン時に右のような警告を出すのが、煩わしく、スタートアップにも設定できなくなるので、私はいつもこのようにプログラミングコードを書いている。
実際のプログラミングコードはもっと数が多かったり、もっと複雑だが、載せているのはあくまでサンプル。

以前、仕事でエクセルによる帳票システムを作成した際に専用のツールバーを作成して運用したので、その部分のコードを載せておこう。
"SYS_TITLE"の定義がプログラミングコード中には出てこないが、これはシステム名を定義した定数。メッセージボックスやコマンドバー(ツールバー)の名前としても使用している。仕事で使ったコードなのでシステム名の定義部分は載せていない。