browsea swallow

January 2011

1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31

2011/01/30 Sun

14:41:49

今更ながら
delete でのイベントハンドラ削除を知る

02:44:39

いやはやぁ
やったねぇ

00:01:18

頑張れっ！

2011/01/29 Sat

16:44:16

pocamueバグというか信じられないミス
・代表画像を送る時点でその画像は圧縮削除済み
・最終画像が手で消されてると最終フラグがスルーされる

00:15:16

すさまぢぃシモヤケになった
小学生だぁな
今の職場、足下が冷えるんだな
奥さんがオロナイィン買うてきてくれた
取説の絵がシュール

2011/01/28 Fri

22:11:32

金曜日だよ
遅くなったぁな

13:05:23

なんとまぁ無駄の無い文章なんやか

2011/01/27 Thu

19:44:58

おほほ

08:00:26

身体が乾燥に弱くなった
うぅむ

2011/01/26 Wed

23:41:21

54.5 : min
59.1 : dsr
61.5 : avg
[64.1]
67.1 : max

18:17:41

うむ
もつ鍋にするぜ
ケーキも買って帰るぜ
ぜっ

10:49:34

タイトルは件名で実コードは外部ファイルってことにすっか。
本文は自由に。検索窓が必要だぁな。

Java
ファイル選択ダイアログの表示

import java.io.File;

import javax.swing.JFileChooser;
import javax.swing.UIManager;

public class FileSecector {
	public static void main(String[] arg) {
		try {
			UIManager.setLookAndFeel(UIManager.getSystemLookAndFeelClassName());
		} catch (Exception e) {
			e.printStackTrace();
		}
		JFileChooser fileChooser = new JFileChooser();
		fileChooser.setMultiSelectionEnabled(true);
		fileChooser.setFileSelectionMode(JFileChooser.FILES_AND_DIRECTORIES);
		if (fileChooser.showOpenDialog(null) == JFileChooser.APPROVE_OPTION) {
			File[] files = fileChooser.getSelectedFiles();
			for (int i = 0; i < files.length; i++) {
				// TODO : set logic to files.
				System.out.println(files[i].getName());
			}
		}
	}
}

09:37:06

なんやか緊張の試合やったぁな

09:17:07

PGコードのちょっとしたメモを登録できるようにしたいな。
備忘録ってやつだぁな。フォーマットを考察。
どこからでもちゃっと登録するにはフォーマットあるん面倒やな・・・
LNG:VBA
TTL:ワークシート毎にCSV出力
DES:
ブックに含まれているワークシート毎にCSVを出力する。
XLSで出力の場合はコメントアウトのコードを切り替え。
COD:
Sub Macro1()
    Dim i As Long
    For i = 1 To Worksheets.Count Step 1
        Worksheets(i).Select
        Dim myBook As String
        myBook = ActiveWorkbook.FullName
        ' myBook = Left(myBook, Len(myBook) - 3) & "_" & Worksheets(i).Name & ".xls"
        myBook = Left(myBook, Len(myBook) - 3) & "_" & Worksheets(i).Name & ".csv"
        ActiveSheet.Copy
        ' ActiveWorkbook.SaveAs Filename:=myBook, FileFormat:=xlNormal
        ActiveWorkbook.SaveAs Filename:=myBook, FileFormat:=xlCSV
        ActiveWindow.Close False
    Next i
End Sub

00:35:44

むぅ
すげぇなぁ