2005-08-01から1ヶ月間の記事一覧

gnuplotで座標を確認する

ソース .lwsファイルを指定するとNullのポイントをgnuplotで表示する die "引数がないよ" if ($#ARGV < 0); $a = $b = 0; $max = -99999999999; $min = 999999999999; open FH, ">data"; while(<>){ if (/AddNullObject/) { $a = 1; $b = 0; } elsif ($a) { …

CでExcelを読む

Excelのファイルフォーマット OLE複合ドキュメントというフォーマットの中に、BIFFと言うフォーマットが入っている。 OLE 複合ドキュメントを扱うライブラリ http://linux.softpedia.com/get/Programming/Libraries/POLE-1528.shtml OLE 複合ドキュメント資…

rubyでexcel

メソッドを確認する require 'win32ole' excel = WIN32OLE.new('EXCEL.Application') puts excel.ole_methods # エクセル本体の関数 puts excel.WorksheetFunction.ole_methods # エクセルのセルとかで使う関数 excel.quit すべてのシートのA1を表示する req…

iconvライブラリ

iconvで指定できるコード名を調べる iconv -lで確認する CPPでiconvを使う ソース もっときれいに書けそう #include<stdio.h> #include<stdlib.h> #include<string.h> #include<iconv.h> main() { // iconvを開く iconv_t it = iconv_open("UTF-16", "SHIFT_JIS"); if (it == (iconv_t)-1) { perror</iconv.h></string.h></stdlib.h></stdio.h>…

xyzzy lisp

LightWaveシーンファイルの階層構造を解析する ソース byte-compileしないと遅い (defun print-hierarchy-sub (lst level objname itemno type) (let ((clst (copy-list lst))) (dotimes (i (* level 4)) (princ " ")) (princ (format nil "*~A(~A, ~A)\n" o…

Fox-ToolKitをcygwinで

インストール手順 foxを解凍する ./configure --disable-shared make make install makefileの書き方 たくさんのオプションを指定する必要がある OPT1 = -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" \ -DPACKAGE_STRING=\"\" -DPACK…

xyzzy lisp

lightwave関連 ソース バイナリ(ライトウェーブはビッグエンディアン)からfloatにする方法が、新しく分かった。 print-f4関数あたり。 残りはサーフェースサブチャンク ;;; light wave のファイルを調べる関数群 ;;; ;;; todo: ;;; サーフェイス サブチャ…

xyzzy lisp

リージョンの文字コード変換 jisとeucの相互変換が出来ません。(関数がない) 元の文字コードの自動判別が出来ない。(関数が分からない) ソース (defun set-region-encoding (from to) "リージョンの文字コード変換(jis, euc,sjis)" (interactive "*s元の…

zyzzy-lisp

listを平坦にする ソース (defun flatten (lst) "listを平坦にする。再帰によるリストの処理" (if (null lst) nil (if (listp (car lst)) (nconc (flatten (car lst)) (flatten (cdr lst))) (cons (car lst) (flatten (cdr lst)))))) 結果 (flatten '(a (b c…

xyzzy-lisp

http://www.geocities.jp/m_hiroi/xyzzy_lisp.html リストをアトム毎に表示する ソース (defun print-list (lst) (while lst (insert (format nil "~D~%" (car lst))) (setq lst (cdr lst)))) 実行結果 (print-list '(1 2 3 4 5 6)) 1 2 3 4 5 6 nil ミニバ…

ruby逆引き

http://www.namaraii.com/rubytips/

exerb

レシピファイルの作成 ruby -r exerb/mkexr 変換したいスクリプト.rb 実行ファイル作成スクリプト require "exerb/executable" require "exerb/recipe" require "exerb/resource" ICON16 = "カナブン.ico" ICON32 = "カナブン.ico" RECIPE = "変換スクリプト…