すかぽん

関空夏祭り2010

すかぽん — Fri, 27 Aug 2010 23:43:16 +0900

明日は関空夏祭り2010です。

紀州逸品堂として関空夏祭り2010の逸品縁日に出店します。

当日はアンケートにご協力いただいた方に、
国際味覚審査機構で3つ星を取得した「生梅ジャム」と、
同2つ星を取得した梅シロップ付け「梅ドボン」をプレゼントします。

販売予定の商品は次の通りです。

・2010年モンドセレクションで最高金賞を取得した梅シロップ。
・2010年モンドセレクションで最高金賞を取得した梅シロップで作った梅ジュース。
・今話題の梅エキス。
・とってもおいしい梅干( 梅かつお、はちみつ梅 )
・熊野牛カレー ( 熊野牛がごろっと )
・カキ氷（梅シロップもあるよ）
・いろんな味のこんにゃく（食べるとこんにゃくのイメージが変わるよ。）
・和歌山ラーメン
・その他いろいろ

なかなか素敵なラインナップでしょ。

イイ！と思ったら拍手をお願いします↓

龍神ごおら祭りに向けてサイネージ(電子看板)を準備中

すかぽん — Wed, 18 Aug 2010 18:38:50 +0900

ごぉら祭りに向けてサイネージを準備中です。

弊社(有限会社ハニリイト)と株式会社SPで共同開発したサイネージシステム HSP-01 に、特製スタンドと32インチ液晶を組み合わせました。

(左上のタバコはサイズ比較用)

32インチはデカイぜ。

イイ！と思ったら拍手をお願いします↓

龍神ごおら祭

すかぽん — Thu, 12 Aug 2010 11:23:50 +0900

龍神ごおら祭に、うちの会社で運営している紀州逸品堂も参加させていただく事になりました。

龍神ごぉら祭
日時：8月22日(日) 10:00 ～ 15:00
場所：宮代キャンプ場 ( 和歌山県田辺市龍神村宮代 )
主なイベント
・鮎のつかみ取り＆鮎の塩焼き (先着200名参加費1000円)
・ごぉらレース
・大ビンゴゲーム
・川の生態教室
・グランドゴルフ
・布ぞうりつくり (参加費1000円)
・新聞紙で動物をつくろう (参加費200円)
・飲食コーナー・特産品みやげ物販売コーナー等多数

「ごぉら」というのは龍神の言葉で河童の事だそうです。
同じ田辺市でも、私の住んでいる秋津は龍神からだいぶ離れているので、「ごぉら」という言い方は初めて知りました。

イイ！と思ったら拍手をお願いします↓

SQLをVBで扱う。(2)

すかぽん — Thu, 12 Aug 2010 08:49:55 +0900

前回の記事:SQLをVBで扱う。(1)

ここまでで、VB上ではただの文字列として処理されていたSQLが、
関数という形で意味を持つものになりました。
しかしまだ不完全です。数式がただの文字列のままです。

そこで数式クラスを作成し、オペレータオーバーロードを使用することにより、
VBでの数式をSQLの数式に変換します。論より証拠でコードを示します。

上記コードを実行すると

a + b

が出力されます。つまり、"a + b" と言うコードから "a + b"と言う文字列が生成された訳です。

ただ、このままではいちいち New したりと使い勝手が良くありません。
そこで、暗黙の型変換を使用して記述をしやすくします。

Class Expr
  Dim s As String = ""

  Public Sub New(ByVal s As String)
   Me.s = s
  End Sub

  Public Shared Operator +(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("{0} + {1}", a.s, b.s))
  End Operator

  Public Shared Widening Operator CType(ByVal s As String) As Expr
   Return New Expr(s)
  End Operator

  Public Shared Widening Operator CType(ByVal s As Integer) As Expr
   Return New Expr(s.ToString)
  End Operator

  Public Shared Widening Operator CType(ByVal e As Expr) As String
   Return e.s
  End Operator
End Class

Dim a as New Expr("a")
Debug.Print(a + "b") '← ここ！！

String及びIntegerはExprオブジェクトに自動で変換される様になりました。
また、Exprオブジェクトは自動で文字列に変換される様になりました。
結果、より素直な記述が可能になりました。

Exprクラスが出来たことにより、VBでの数式から「数式の文字列」を生成する事が出来るようになりました。

先に作成したSQLクラスと組み合わせて、最初のSQLを記述してみます。

  Dim estimateCusId As New Expr("見積.顧客ID")
  Dim CusId As New Expr("顧客.顧客ID")
  Dim money As New Expr("見積詳細.金額")
  Dim estimateId As New Expr("見積.見積ID")
  Dim detailId As New Expr("見積詳細.見積ID")

  q = New SQL
  q.Select("見積ID", "顧客名", money.Sum())
  q.From("見積")
  q.Join("顧客", estimateCusId = CusId)
  q.Join("見積詳細", estimateId = detailId)
  q.Where(estimateId >= 100 And money >= 0)
  q.GroupBy("見積ID", "顧客名")
  q.Having(money.Sum >= 100)

  Debug.Print(q)

元はただの文字列であったSQLが、見事にVBのコードと化しました。
と同時に、VBとSQLの両方を知っている人でも、内容を理解しづらいコードとなりました(笑)。

最後に、SQLクラスとExprクラスの全コードを掲載しておきます。

Class SQL
  Dim s As String = ""

  Public Sub New()

  End Sub

  Public Sub New(ByVal s As String)
   Me.s = s
  End Sub

  Public Function [Select](ByVal ParamArray arg() As String) As SQL
   Me.s &= " Select " & String.Join(",", arg)
   Return Me
  End Function

  Public Function From(ByVal arg As String) As SQL
   Me.s &= " From " & arg
   Return Me
  End Function

  Public Function Where(ByVal arg As String) As SQL
   Me.s &= " Where " & arg
   Return Me
  End Function

  Public Function Union(ByVal arg As String) As SQL
   Me.s &= " Union " & arg
   Return Me
  End Function

  Public Function OrderBy(ByVal arg As String) As SQL
   Me.s &= " Order By " & arg
   Return Me
  End Function

  Public Function Join(ByVal t As String, ByVal expr As String) As SQL
   Me.s &= " Join " & t & " on " & expr
   Return Me
  End Function

  Public Function GroupBy(ByVal ParamArray arg() As String) As SQL
   Me.s &= " Group By " & String.Join(",", arg)
   Return Me
  End Function

  Public Function Having(ByVal arg As String) As SQL
   Me.s &= " Having " & arg
   Return Me
  End Function

  Public Shared Widening Operator CType(ByVal a As SQL) As String
   Return a.s
  End Operator
End Class

Class Expr
  Dim s As String = ""

  Public Sub New(ByVal s As String)
   Me.s = s
  End Sub

  Public Shared Operator +(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("({0} + {1})", a.s, b.s))
  End Operator

  Public Shared Operator -(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("({0} - {1})", a.s, b.s))
  End Operator

  Public Shared Operator =(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("({0} = {1})", a.s, b.s))
  End Operator

  Public Shared Operator <>(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("({0} <> {1})", a.s, b.s))
  End Operator

  Public Shared Operator >=(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("({0} >= {1})", a.s, b.s))
  End Operator

  Public Shared Operator <=(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("({0} <= {1})", a.s, b.s))
  End Operator

  Public Shared Operator And(ByVal a As Expr, ByVal b As Expr) As Expr
   Return New Expr(String.Format("({0} and {1})", a.s, b.s))
  End Operator

  Public Function Sum() As Expr
   Return New Expr(String.Format("sum({0})", Me.s))
  End Function

  Public Shared Widening Operator CType(ByVal s As String) As Expr
   Return New Expr(s)
  End Operator

  Public Shared Widening Operator CType(ByVal s As Integer) As Expr
   Return New Expr(s.ToString)
  End Operator

  Public Shared Widening Operator CType(ByVal e As Expr) As String
   Return e.s
  End Operator
End Class

注意!!
この記事を参考にコードを書いて上司に叱られても、当方は一切関知しません。

イイ！と思ったら拍手をお願いします↓

紀州逸品堂オープン

すかぽん — Tue, 29 Jun 2010 19:11:45 +0900

以前から準備していたショッピングサイトがオープンになりました。

現在の取扱い商材は、梅干・梅エキス・梅ジャム・梅シロップなどです。

今後は取扱い商材を増やしていき、和歌山の逸品を全国に販売して行きます。

紀州逸品堂

イイ！と思ったら拍手をお願いします↓

田辺商工フェア

すかぽん — Sat, 29 May 2010 20:24:16 +0900

今日は田辺商工フェアの日です。

私の会社は出店していないのですが、株式会社SP様と共同開発したサイネージシステム(電子看板)を一部のブースで使用していただきました。まだ試作品なのですが、なかなか好評でした。

南紀みらい(株)様のブース

イルカふれあい事業の紹介に使用していただきました。

スタンドは県内の鉄工所で作っていただきました。まだ試作品ですが、他の市販品より調整幅が広くいい感じです。液晶背面にコントローラーをマウントしています。

液晶パネルは三菱製を使用しています。

システム、コンテンツ、スタンドと、液晶以外はすべて和歌山産。
ITも地産地消の時代です。

カービューティープロ田辺様のブース

ボディーコーティングの紹介に使用していただきました。

スタンドは市販品、液晶パネルはイイヤマを使用しました。

セレモニーホールなかた様のブース

プリウス霊柩車はインパクト抜群でした。

エスピーさんの名前が出てるのにハニリイトが出てない・・・。
共同開発なんだからウチの名前も出して欲しいと言ったら、
ハニリイトステッカーを貼ってもらえることになりました。

これがサイネージコントローラーです。
20cm×17cmと小型なので設置場所を選びません。
小型でもハイパワー。フルハイビジョンサイズの動画も楽にこなします。

明日もやっていますんで、ぜひ行ってみて下さい。

イイ！と思ったら拍手をお願いします↓

SQLをVBで扱う。(1)

すかぽん — Fri, 08 Jan 2010 22:56:58 +0900

SQLをVBで扱う。

VBでDBを操作していると、動的にSQLを生成する場面がたまに出てきます。
それを、効率よく行う方法を、(半分ネタで)考えてみました。

VBでSQLを扱う場合、普通は次のような感じでしょうか。

Dim s As String = ""
s &= "Select 見積ID,顧客名,sum(見積詳細.金額) "
s &= " From 見積 Join 顧客 on 見積.顧客ID=顧客.顧客ID Join 見積詳細 on 見積.見積ID=見積詳細.見積ID "
s &= " Where 見積ID>=100 and 見積詳細.金額>=0"
s &= " Group By 見積ID,顧客名 "
s &= " Having sum(見積詳細.金額)>=100"
Debug.Print(s)

ここでのSQLは、VB的にはただの文字列です。
これではいけません。ただの文字列ではなく、意味を持たせましょう。
そのために次のようなクラスを作成しました。

Select句とFrom句をSQLオブジェクトの関数にしたので、

Dim s As String = ""
s &= "Select * "
s &= " From 見積"
Debug.Print(s)

は

Dim q as New SQL
q.Select("*")
q.From("見積")
Debug.Print(q)

と書けます。どうです？これだけ見るとよさそうでしょ。

足りないSQL句を実装して最初の例を記述すると次のようになりました。
(SQLクラスの全ソースは次回に記載します。)

Dim q as New SQL
q.Select("見積ID", "顧客名", "sum(見積詳細.金額)")
q.From("見積")
q.Join("顧客", "見積.顧客ID=顧客.顧客ID")
q.Join("見積詳細", "見積.見積ID=見積詳細.見積ID")
q.Where("見積ID>=100 and 見積詳細.金額>=0")
q.GroupBy("見積ID", "顧客名")
q.Having("sum(見積詳細.金額)>=100")
Debug.Print(q)

行を分けずに書けばこんな感じです(うげ～)

Dim q as New SQL
q.Select("見積ID", "顧客名", "sum(見積詳細.金額)").From("見積").Join("顧客", "見積.顧客ID=顧客.顧客ID").Join("見積詳細", "見積.見積ID=見積詳細.見積ID").Where("見積ID>=100 and 見積詳細.金額>=0").GroupBy("見積ID", "顧客名").Having("sum(見積詳細.金額)>=100")
Debug.Print(q)

次回に続きます。

イイ！と思ったら拍手をお願いします↓

Smarty 部品定義プラグインを作ってみた

すかぽん — Thu, 03 Dec 2009 19:21:47 +0900

Smartyテンプレート内でよく使うhtmlを部品として定義して、それを再利用するプラグインを作りました。

使い方はこんな感じです

{* 部品を定義します *}
{define_part name='part1'}
    {literal}
        <div class="{$class}">{$message}</div>
    {/literal}
{/define_part}

{* 部品を使用します *}
{part name='part1' class='info' message='メッセージ１'}
{part name='part1' class='error' message='メッセージ２'}

こんな感じの出力が得られます。

<div class="info">メッセージ１</div>
<div class="error">メッセージ２</div>

define_partで部品を定義し、partでそれを使用します。

定義時に変数が展開されてしまうのを防ぐため、define_part内はliteralで括っています。
partで指定された属性は、テンプレート変数に割り当てられます。

ソース(pluginsディレクトリに入れてください。)
function.part.php

<?php
function smarty_function_part($params,&$smarty) {
    require_once $smarty->_get_plugin_filepath('function', 'eval');

    $tmpl=$smarty->get_template_vars($params['name']);

    foreach($params as $k=>$v) {
        if($k=='name') continue;
        $smarty->assign($k,$v);
    }

    return smarty_function_eval(array('var'=>$tmpl) , $smarty);
}
?>

block.define_part.php

<?php
function smarty_block_define_part($params, $content, &$smarty, &$repeat) {
    if(isset($content)) {
        $smarty->assign($params['name'],$content);
    }
}
?>

#村ブロってファイル添付出来ないのかな？

イイ！と思ったら拍手をお願いします↓

明日は舞洲でカート

すかぽん — Fri, 20 Nov 2009 19:14:33 +0900

明日は１ヶ月ぶりに休みが取れそうです。

3連休なので舞洲のレンタルカートに遊びに行く予定です。

昔(福井に住んでいた頃)はサーキットやジムカーナ場に行って、スカイラインで走ってたのですが、
田辺に帰ってきてからはめっきり走りに行かなくなりました。

その代わりとして、最近始めたのがレンタルカートです。
高速代も安くなったので、生駒や舞洲のレンタルカートに行ってます。
カートと言ってもアドベンのゴーカートなんかとは別物で、
パワーもそれなりにあり、スピードも出るので走りがいがあります。

舞洲は規定タイムをクリアすると、よりハイパワーなカートに乗れるようになるシステムなので、
明日はそれを目標に走ってきます。
前回走った時は、規定タイムまで0.8秒ぐらいだったので、今回こそは！！！

コマンドラインからCD-R/DVD-Rの制御

すかぽん — Mon, 26 Oct 2009 13:33:33 +0900

コマンドラインからCD-R/DVD-Rの制御

Windows SDK 付属の imapi2sample を使用すると
コマンドラインから DVD-R や CD-R の書き込みが出来るようになります。
今回は、imapi2sample をビルドするのに Visual Studio 2005 を使用しました。

まず、Windows SDK をダウンロードし、インストールします。
「for Windows Vista」となっていますが、Windows XP もサポートOS に含まれています。

Windows SDK for Windows Vista
http://www.microsoft.com/downloads/details.aspx?FamilyID=7614fe22-8a64-4dfb-aa0c-db53035f40a0&DisplayLang=ja

Windows SDK のインストールが完了したら、Visual Studio に統合します。
スタートメニューに「Windows SDK と Visual Studio 2005の統合」が追加されれているので、これを実行します。

imapi2sample が Windows SDK をインストールしたディレクトリの
Samples\WinBase\imapi に有るので、これを適当なディレクトリにコピーし
Visual Studio で開きます。

そのままだと進捗の表示が化けるので、次のように変更しビルドを行います。

(unidiff形式です。)

--- consoleUtil.cppThu Jan 15 17:52:48 1970
+++ consoleUtil.cppThu Jan 15 17:52:48 1970
@@ -36,20 +36,20 @@

     // NOTE: Overflow possibility exists for large numerators.

     percent = (Numerator * 100) / Denominator;

     // each block is 2%
     // ----=----1----=----2----=----3----=----4----=----5----=----6----=----7----=----8
     // ｱ.....................

     for (i=1; i<100; i+=2) {
         if (i < percent) {
-            putchar(178);
+            putchar('#');
         } else if (i == percent) {
-            putchar(177);
+            putchar('*');
         } else {
-            putchar(176);
+            putchar('-');
         }
     }
     printf(" %d%%", percent);
}
--- Erase2Event.cppThu Jan 15 17:52:48 1970
+++ Erase2Event.cppThu Jan 15 17:52:48 1970
@@ -35,27 +35,27 @@

     // NOTE: Overflow possibility exists for large numerators.

     percent = (Numerator * 100) / Denominator;

     // each block is 2%
     // ----=----1----=----2----=----3----=----4----=----5----=----6----=----7----=----8
     // ｱ.....................

     for (i=1; i<100; i+=2) {
         if (i < percent) {
-            putchar(178);
+            putchar('#');
         } else if (i == percent) {
-            putchar(177);
+            putchar('*');
         } else {
-            putchar(176);
+            putchar('-');
         }
     }
     printf(" %d%%", percent);
}

STDMETHODIMP_(VOID) CTestErase2Event::Update(IDispatch* object, LONG elapsedTime, LONG totalTime)
{
     UNREFERENCED_PARAMETER (object);

     DeleteCurrentLine2();
     UpdatePercentageDisplay2(elapsedTime, totalTime);

imapi2sample を実行するには IMAPIv2 が必要です。
Vista 以降で有れば標準で対応しているようですが、
XP の場合は別途マイクロソフトのサイトからダウンロードする必要があります。

Windows XP 用 Image Mastering API v2.0 (IMAPIv2.0) (KB932716)
http://www.microsoft.com/downloads/details.aspx?FamilyID=B5F726F1-4ACE-455D-BAD7-ABC4DD2F147B&displaylang=ja

以上で imapi2sample の用意が出来ました。

imapi2sample.exe -eject
imapi2sample.exe -inject

でトレイの開閉が出来ます。

imapi2sample.exe -erase

で CD-RW/DVD-RW の消去が出来ます。

imapi2sample.exe -write ディレクトリ

でディレクトリを書き込むことが出来ます。

twitterはじめました

すかぽん — Wed, 21 Oct 2009 08:46:25 +0900

twitterを初めてみました。

http://twitter.com/narrowband1919

twitterのブログパーツを貼ろうかと思ったんだけど、タグの制限で出来なかった。
残念。

TwitGIF(http://labs.creazy.net/twitgif/)を使ったらできた。

apacheにxdebugを入れた

すかぽん — Sat, 29 Aug 2009 09:06:14 +0900

apacheにxdebugを入れた

apache+php5.2+Zend Debuggerの環境で開発をしていたのですが、
Zend Debuggerを入れてから動作が不安定で、apacheのエラーログに
child pid 7767 exit signal Segmentation fault
というメッセージが出力されるようになったので、ZendDebuggerやめてxdebugを入れました。

ちなみに、OSはDebian4.0です。

まず、xdebugをダウンロードして展開。xdebugはhttp://www.xdebug.org/からダウンロードできます。

# cd /usr/local/src
# wget http://www.xdebug.org/files/xdebug-2.0.5.tgz
# tar xvfz xdebug-2.0.5.tgz
# cd xdebug-2.0.5

READMEにしたがってインストールを行おうとするが、手元の環境にはインストールに必要な phpize がない。
ネットで調べると php5-dev に含まれているらしい。そこで、apt-getを使用してインストール

# apt-get update
# apt-get install php5-dev

READMEにしたがって、phpize , configure , make を実行します。

# phpize
# ./configure --enable-xdebug
# make

作成された xdebug.so を適当なディレクトリにコピー。ここでは /usr/local/lib/php5/ にコピーしています。

# cp modules/xdebug.so /usr/local/lib/php5/xdebug.so

php.ini を書き換えて xdebugを有効にします。
debianの場合、/etc/php5/apache2/conf.d/ のファイルが php.ini と併せて自動で読み込まれるので、
php.iniを直接変更するのではなく、/etc/php5/apache2/conf.d/ に xdebug.ini というファイルを作成し、
そこに記述しました。

zend_extension=/usr/local/lib/php5/xdebug.so
xdebug.remote_enable=1
xdebug.remote_host=192.168.1.57

xdebug.remote_hostにはクライアントのIPを記述しておきます。192.168.1.0/24という記述の仕方ではダメでした。

apacheを再起動

# /etc/init.d/apache restart

phpinfoを表示して xdebugの記述が追加されていればインストール完了

スカイライン不調からの復活

すかぽん — Sun, 21 Dec 2008 12:37:31 +0900

今日は車のお話です。

私の車は平成2年式のスカイラインGTS-t TypeM。
もう18歳のご老体です。

自分でブーストコントローラを取り付けていて、
サーキートやジムカーナでは0.9kg/cm2かけています。

ブーストアップした直後は調子よかったんですが、
しばらくしてから、ブーストを0.9kg/cm2に設定すると3000rpm辺りで
加速がもたつくという症状が発生しだしました。
ブーストを0.8kg/cm2に落とすと症状が改善したので、
しばらくはそのままで乗っていたんですが、
そのうちに0.8kg/cm2でも同じ症状が発生。
最終的には、ノーマルブーストまで落としても症状が出るようになってしまいました。

どうした物かと頭を悩ませていたら、ある点に気がつきました。

助手席側のフォグランプが妙に汚れている！！！

運転席側と汚れ方が明らかに違っています。

助手席側フォグの後ろにはインタークーラーがあり、吸気の配管が走っています。
もしやココから吸気漏れを起こしていて、それでフォグが汚れているのでは？

しかも、ココの配管は自分で脱着したことがあります。
その時の作業ミスが原因？

とりあえず、配管をとめているバンドをすべて締めなおししてみました。
その作業していて気づいたんですが、何箇所かホースとの接合部分が
変に汚れている場所がありました。

やっぱり、ここからもれてる？

作業が終了して、とりあえず高速道路へ。
4速3000rpmでアクセルをグイっと踏み込みます。
ヒュイーンというタービンの音と共に、ブースト計は0.9kb/cm2を指します。
以前ならココで妙な失速感があったのですが、そのようなことも無くスムーズに加速を開始。

やったー、直った！！！

ということで、ホースバンドはしっかり締めましょう。

わかやまテクノ・ビジネスフェア'08

すかぽん — Mon, 15 Dec 2008 09:30:25 +0900

先週のことですが、わかやまテクノビジネスフェア'08に行ってきました。

現地に着くと、ちょうど開会式が始まるところでした。
うひょ～、ぎりぎり。
余裕をもって出発したんですけど、途中で私が車酔いしてしまったので。

車大好き人間なんですけど、人に乗せてもらうと時々酔うんです。
自分の運転ならまったく酔わないんですけどねえ。

和歌山県ベンチャー企業のブースです。
所狭しとパンフが並んでいます。

うちのも置かせてもらいました。

ついでに、このブログで開発の様子を書いている「Excelもどき」を
「HoneyBase」という名称でデモさせてもらいました。
それと、弊社で開発した「販売管理システム」と「トラフィックシェイパ」、
「P2Pファイル交換ソフトフィルタ」も展示しました。

来場者数はちょっと寂しかったですけど、県内のベンチャーさんと話しが出来たので、
意義のある一日でした。

列幅の変更機能実装

すかぽん — Wed, 03 Dec 2008 07:15:10 +0900

列幅の変更機能を実装しました。

javascriptでexcelもどきを製作中。流行の言葉で言うとAjaxですか？非同期通信もXMLも使ってないですけど。名称は HoneyTable です。

仮実装ですが、列幅が変更できるようになりました。行高の変更機能はまだです。

それと、分離していた計算機能を再度組み込みました。

動作サンプルの見積書です。
http://narrowband.hp.infoseek.co.jp/ex017/ex017-1.html
単価、数量を変更すると合計金額が自動で再計算されます。

今後の予定
・セルの範囲選択。
・列幅、行高の変更機能
・テキストのフォント変更
・テーブルの保存機能
・PDFファイルの生成
・テーブル内にテーブルを挿入できるようにする
・テーブル編集機能をグリッドライブラリ化する
・セルの座標計算の見直し

動作サンプルページ(注:無料サーバスペースに配置しているので広告が表示されます)
http://narrowband.hp.infoseek.co.jp/ex017/ex017.html

罫線機能の実装(その2)

すかぽん — Wed, 26 Nov 2008 20:51:53 +0900

引き続き罫線機能を実装中です。

javascriptでexcelもどきを製作中。流行の言葉で言うとAjaxですか？非同期通信もXMLも使ってないですけど。名称は HoneyTable です。

とりあえず罫線が引けるようになりました。
ついでにフォントサイズとテキストの配置(左寄せ、中央、右寄せ)を設定できるようにしました。

まだまだ実装しないといけない機能が残っていますが、見積書のレイアウト程度は作れるようになりました。

ということで見積書を作ってみました。
計算機能を分離したままなのでちょっといまいちかな。

今後の予定
・セルの範囲選択。
・列幅、行高の変更機能
・テキストのフォント変更
・テーブルの保存機能
・PDFファイルの生成
・テーブル内にテーブルを挿入できるようにする
・計算機能を再度組み込む
・テーブル編集機能をグリッドライブラリ化する
・セルの座標計算の見直し

動作サンプルページ(注:無料サーバスペースに配置しているので広告が表示されます)
http://narrowband.hp.infoseek.co.jp/ex016/ex016.html
ソース(zip圧縮)
http://narrowband.hp.infoseek.co.jp/ex016/ex016.zip

罫線機能の実装(その1)

すかぽん — Wed, 26 Nov 2008 07:09:52 +0900

javascriptでexcelもどきを製作中。流行の言葉で言うとAjaxですか？非同期通信もXMLも使ってないですけど。名称は HoneyTable です。

今回は罫線機能を実装中です。

う～ん、いまいち上手くいかない。

今後の予定
・セルの範囲選択。
・列幅、行高の変更機能
・テキストの右寄せ、センタリング・左寄せ機能
・テキストのフォント変更
・テーブルの保存機能
・PDFファイルの生成
・テーブル内にテーブルを挿入できるようにする
・計算機能を再度組み込む
・テーブル編集機能をグリッドライブラリ化する
・セルの座標計算の見直し

動作サンプルページ(注:無料サーバスペースに配置しているので広告が表示されます)
http://narrowband.hp.infoseek.co.jp/ex015/ex015.html

ソース(zip圧縮)
http://narrowband.hp.infoseek.co.jp/ex015/ex015.zip

行・列の削除機能

すかぽん — Mon, 24 Nov 2008 23:03:03 +0900

javascriptでexcelもどきを製作中。流行の言葉で言うとAjaxですか？非同期通信もXMLも使ってないですけど。名称は HoneyTable です。

今回は行・列の削除機能を追加しました。

tableのセルを削除するには table.rows[r].deleteCell(c) で行うことができます。
行を削除するにはtable.deleteRow(r)です。
rは行番号、cは列番号です。ただし、先の記事でも述べたように、
tableにおける行、列はrowspan、colspanにより表示上の行、列番号とは一致しません。

先ずは単純に列削除を行うメソッド deleteCol を実装します。引数は削除する列番号で、
指定されない場合カレントセルの列番号を使用します。

//列削除
HoneyTable.prototype.deleteCol=function(c){
if(c==undefined) c=this.col;

for(var r=0;r<<this.rowCount;r++) {
  this.table.rows[r].deleteCell(c);
}
}

c には現在選択されているセルの列番号が設定されるものとします。
deleteCellにより、指定された列のセルを削除しています。
この関数は rowspan,colspanによる結合に対応していません。

行結合(rowspan)に対応するには次のようにします。

//列削除
HoneyTable.prototype.deleteCol=function(c){
if(c==undefined) c=this.col;

var r=0;
while(r<this.rowCount) {
  cell=this.matrix[r][c];
  var stp=cell.rowSpan;
  this.table.rows[r].deleteCell(c);
  r+=stp;
}
}

rowspanが指定されている場合、その下のセルは存在しないためそれを飛ばしています。
これだけでは不完全です。colspan(列結合)に対応する必要があります。
そのために次のようにしました。

//列削除
HoneyTable.prototype.deleteCol=function(c){
if(c==undefined) c=this.col;

var r=0;
while(r<this.rowCount) {
  cell=this.matrix[r][c];
  var stp=cell.rowSpan;
  if(cell.colSpan>1) {
   cell.colSpan--;
  }else{
   this.table.rows[r].deleteCell(cell.x);
  }
  r+=stp;
}
}

colspanが指定されている場合、セルを削除する代わりに colspan を1減らしています。
さらに、deleteCellの引数が、列番号 c の代わりに cell.x が指定されています。
列番号 c は表示上の列番号であり、 tableオブジェクトでの列番号とは一致しません。
deleteCellはtableオブジェクトでの列番号を指定する必要あります。
cell.x には前回の修正の際に、tableオブジェクトでの列番号を保存してあります。
それを指定して deleteCell を使用しています。

次に行の削除を行います。基本的には列の削除と同じ考え方ですが一部異なります。
それは削除行のセルにrowspanが指定されていた場合です。

たとえば次のようなtableがあったとして、行1を削除する事を考えます。

単純にdeleteRowでその行を削除すると次のようになってしまいます。

A1が削除されたことにより、B2,C2,D2・・・が左に寄っています。
感覚としては次のようになって欲しいわけです

そのため、rowspan指定されたセルを削除する場合、下のセルに移してから削除する必要があります。

この辺を考慮して実装を行うと事のようになります。

HoneyTable.prototype.deleteRow=function(r){
if(r==undefined) r=this.row;

var c=0;
while(c<this.colCount) {
  var cell=this.matrix[r][c];
  var stp=cell.colSpan;
  if(cell.rowSpan>1) {
   if(cell.row == r) {
    var left=this.matrix[r+1][c-1];
    var lowerCell=this.insertCell(this.table.rows[r+1] , left.x+1);
    lowerCell.rowSpan=cell.rowSpan-1;
    lowerCell.colSpan=cell.colSpan;
    this.setInnerText(lowerCell,this.getInnerText(cell));
   }else{
    cell.rowSpan--;
   }
  }
  c+=stp;
}

this.table.deleteRow(r);
}

以上で行、列の削除が実装されました。

次回はどこを実装しましょうかねえ。

相変わらず計算機能は切り離したままです。

今後の予定
・セルの範囲選択。
・列幅、行高の変更機能
・テキストの右寄せ、センタリング・左寄せ機能
・テキストのフォント変更
・テーブルの保存機能
・PDFファイルの生成
・テーブル内にテーブルを挿入できるようにする
・計算機能を再度組み込む
・テーブル編集機能をグリッドライブラリ化する
・セルの座標計算の見直し

動作サンプルページ(注:無料サーバスペースに配置しているので広告が表示されます)
http://narrowband.hp.infoseek.co.jp/ex014/ex014.html

ソース(zip圧縮)
http://narrowband.hp.infoseek.co.jp/ex014/ex014.zip

行・列の追加、セルの結合機能追加。

すかぽん — Mon, 24 Nov 2008 16:06:51 +0900

javascriptでexcelもどきを製作中。流行の言葉で言うとAjaxですか？非同期通信もXMLも使ってないですけど。
名称は HoneyTable です。

今回は行・列の追加機能と、セルの結合機能を追加しました。

さらにエクセルに無い機能として、セル分割機能を追加しました。
レイアウトを崩さずに列を追加する事ができます。

セルを選択して、

セル分割を選択するとそのセルをだけ分割する事ができます。

内部的には、列を追加してカレントセル以外は隣と結合させています。

Excelつかってて、いつもこの機能が欲しかったんですよ。
ある程度レイアウトができた状態で、項目を増やすときに便利かなと思って。

相変わらず計算機能は切り離したままです。

今後の予定
・行、列の削除
・セルの範囲選択。
・列幅、行高の変更機能
・テキストの右寄せ、センタリング・左寄せ機能
・テキストのフォント変更
・テーブルの保存機能
・PDFファイルの生成
・テーブル内にテーブルを挿入できるようにする
・計算機能を再度組み込む
・テーブル編集機能をグリッドライブラリ化する

動作サンプルページ(注:無料サーバスペースに配置しているので広告が表示されます)
http://narrowband.hp.infoseek.co.jp/ex013/ex013.html

ソース(zip圧縮)
http://narrowband.hp.infoseek.co.jp/ex013/ex013.zip

Firefoxへの対応

すかぽん — Sat, 22 Nov 2008 17:55:37 +0900

javascriptでexcelもどきを製作中。流行の言葉で言うとAjaxですか？非同期通信もXMLも使ってないですけど。
名称は HoneyTable です。

今日はFirefoxへの対応をはかりました。

それにあたり、グリッドとしての基本機能の完成を優先させるため、
数式関係の機能を一旦切り離しました。

まず最初に修正したのは、tableのセルを取得する部分。
IEでは、2通りの書き方が出来ました。
table.rows(r).cells(c)
と
table.rows[r].cells[c]
です。Firefoxでは後者の書き方しか出来ません。
そこで、後者に統一しました。

次にセルのテキストへのアクセス方法です。IEでは

 var a = table.rows[r].cells[c].innerText; //取得

 table.rows[r].cells[c].innerText="AAA";   //設定

ですが、Firefoxでは

 var a = table.rows[r].cells[c].textContent; //取得

 table.rows[r].cells[c].textContent="AAA";   //設定

です。

この差を吸収するために、関数を作成しました。

 function getInnerText(obj) {

  if(obj.textContent == undefined) {

   return obj.innerText;

  }else{

   return obj.textContent;

  }

 }



 function setInnerText(obj,text) {

  if(obj.textContent == undefined) {

   obj.innerText=text;

  }else{

   obj.textContent=text;

  }

}

この関数を使うと次のようになります。

 var a = getInnerText(table.rows[r].cells[c]) ; //取得

 setInnerText(table.rows[r].cells[c],"AAA");   //設定

これで、ブラウザの違いを気にせずにすみます。

Firefoxへの対応はまだ完全ではありませんが、
残りの修正はまた後日。

動作サンプルページ(注:無料サーバスペースに配置しているので広告が表示されます)
http://narrowband.hp.infoseek.co.jp/ex012/ex012.html

ソース(zip圧縮)
http://narrowband.hp.infoseek.co.jp/ex012/ex012.zip

※ サンプルページのコードは、ブログに書いたコードと一部異なっています。