Skip to content

Instantly share code, notes, and snippets.

@xnrghzjh
xnrghzjh / O3FFocusTraversalPolicy.java
Created November 30, 2012 04:23
Swingのフォーカス制御
/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/
package focus;
import java.awt.Component;
import java.awt.Container;
import java.awt.FocusTraversalPolicy;
@xnrghzjh
xnrghzjh / EEM.vbs
Created October 30, 2012 08:09
Excelのモジュールをエクスポートしてバージョン管理するためのスクリプト
Option Explicit
' 使用上の注意
' Excelは2003以降デフォルトでVBScriptとかから中のプロジェクトを参照できなくなっているので、
' Excel自体の設定を変更して「Visual Basicプロジェクトへのアクセスを信頼する」に
' チェックを入れてから使ってください
'(「プログラミングによるVisual Basic プロジェクトへのアクセスは信頼性に欠けます」とエラーが出る) 
' 設定の変更方法はExcelのバージョンによって異なりますので、ググってください。
' エクスポートしたいExcelブックとエクスポート先のパスを記述
@xnrghzjh
xnrghzjh / M2T.vbs
Created July 24, 2012 07:37
Accessのmdbをテキスト化してバージョン管理するためのスクリプト
' エクスポートしたいmdbとエクスポート先のパスを記述
Dim src : src = "D:\\M2T\\TestDB.mdb"
Dim dst : dst = "D:\\M2T\\"
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(src) <> True Then
MsgBox src & vbCrLf & "は存在しません。", vbCritical
WScript.Quit()
@xnrghzjh
xnrghzjh / gist:2816671
Created May 28, 2012 01:25
「冷たい方程式(20) 2人目の脱落者」の文中コードをHibernateで書いてみた
Criteria criteria = session.createCriteria(EmployeeMaster.class);
criteria.add(Restrictions.eq("employeeKind", selectKind));
criteria.add(Restrictions.isNotNull("employmentEndFlag"));
criteria.addOrder(Order.asc("employeeNo"));
criteria.addOrder(Order.asc("employeeDate"));
if (dateFrom != null) criteria.add(Restrictions.ge("enableDate", dateFrom));
if (dateTo != null) criteria.add(Restrictions.lt("enableDate", dateTo));
@xnrghzjh
xnrghzjh / Sample.java
Created November 22, 2011 00:23
JasperReportsの高速化対応
String sourcePath = "./Report/sample.jrxml";
String binaryPath = "./Report/bin/sample.jasper" ;
File source = new File(sourcePath);
File binary = new File(binaryPath);
if (!binary.exists() || source.lastModified() > binary.lastModified()) {
JasperCompileManager.compileReportToFile(source.getAbsolutePath(),
binary.getAbsolutePath());
@xnrghzjh
xnrghzjh / 01 DBData.groovy
Created November 18, 2011 23:53
インタフェースとか継承とかでエラー
interface DBData {
def test()
}
@xnrghzjh
xnrghzjh / Module1.bas
Created November 14, 2011 01:38
Excelの右クリックを拡張したり
Const MENU_ENABLE_EXTENDMODE = "拡張メニューを追加"
Const MENU_DISABLE_EXTENDMODE = "拡張メニューを解除"
Const MENU_FILLGRAY = "選択範囲を灰色に"
Const MENU_FILLYELLOW = "選択範囲を黄色に"
Const MENU_FILLRED = "選択範囲を赤色に"
Const MENU_FILLCLEAR = "選択範囲の塗りつぶしを解除"
Const MENU_ADDALLLINE = "選択範囲に全て罫線"
Const MENU_CLEARLINE = "選択範囲の罫線をクリア"
@xnrghzjh
xnrghzjh / BeansValidator.java
Created October 13, 2011 00:16
Hibernate Validator を使ったバリデーション
public class BeansValidator {
private ClassValidator classValidator;
private List<String> validMessages = new ArrayList<String>();
private BeansValidator() {}
public BeansValidator(Class clazz) throws Exception{
classValidator = new ClassValidator(clazz);
@xnrghzjh
xnrghzjh / gist:1244538
Created September 27, 2011 07:30
Griffon_SwingPad Error
--- 途中から
D:\Documents and Settings\USER\.griffon\0.9.3\projects\SwingPad\plugins\
jexplose-0.2\addon/batik-util-1.7.xml
-- artifact batik#batik-util;1.7!batik-util.jar:
D:\Documents and Settings\USER\.griffon\0.9.3\projects\SwingPad\plugins\
jexplose-0.2\addon/batik-util-1.7.jar
==== griffon-riverlayout-plugin: tried
@xnrghzjh
xnrghzjh / HelloWorld.groovy
Created July 7, 2011 07:36
Groovyで色んなHelloWorld
// タイプ
"Hello World.".each() {print it; sleep(it==" "? 500:100);}
// Robot
r = { new java.awt.Robot().keyPress(it);sleep(100)}; l=[47,47,72,69,76,76,79,32,87,79,82,76,68] ;l.each(){r(it)}
// マップ withDefault()使用
m=['h':'H','w':' W','k':'ld'].withDefault{it};doWork={it.split("\\.")[1].each(){print m[it]}}; doWork('https://www.hellowork.go.jp/')