日々徒然模糊綴

【Java/Struts】エラー→ログアウト。エラーを判定したActionでログアウト後用のメッセージを付けたい。

お久しぶりのブログ更新です。Javaにスキルチェンジなう。今回はその勉強中の覚書です。

***

前提として、このActionは、session.invalidate()するのが主な目的です。
リダイレクトは、リクエストを引き継がないし、session.invalidate()しちゃったら、引き継ぐためのメモリがなくなっちまうし、どうしようってなもんです。

ログアウトすべきエラーを各Actionでキャッチしたら、LogoutActionのインスタンスを紐づけたログアウト用のアクションに、リダイレクトするようにしています。

リダイレクト手前で、ログアウト後のページに表示したいエラーをsaveErrors(session, errors)してます。

そうすると、session.getAttribute("org.apache.struts.action.ERROR")で、そのエラーが取り出せるって寸法です。getAttributeNames属性で、それっぽいのを使っただけです。

LogoutAction.java（パッケージ名は適当）

import jp.suppa.co2;

import javax.servlet.http.*;
import org.apache.struts.action.*;

public class LogoutAction extends Action {
// メッセージID（「ログアウトしました」）
private static final String MESSAGE_ID = "message.XXX";

@Override
public ActionForward execute(ActionMapping mapping,
ActionForm form,
  HttpServletRequest request,
  HttpServletResponse response)
  throws Exception {

/*
  * 別ページでセッションに保存されたメッセージを取り出し、
  * リクエストに保存しなおす。
  */
  HttpSession session = request.getSession();
  ActionErrors errors = 　　　      (ActionErrors)session.getAttribute("org.apache.struts.action.ERROR"); 　 saveErrors(request, errors);

/*
  * セッション情報を畳む。
  */
  if (session != null) {
  session.invalidate();

}

  /*
  * 「ログアウトしました」の文言を付ける
  */
  ActionMessages massages = new ActionMessages();
  massages.add("massages.logout", new ActionMessage(MESSAGE_ID));
  saveMessages(request, massages);

  // ログアウトページへ
  return new ActionForward(mapping.getForward());
}

}

【ExcelVBA】EverNoteのテキストだけノートをテキストファイルにする。

3月ごろから、テキスト作成環境が、携帯からポメラに移行した。
エバーノートに入っているテキストをポメラに移動させたくなった。

vba上で、ACSⅱで保存できないものかと思ったのだが、StrConv掛けてももともとSfit-JISだぜとばかりに文字化けするのに、テキストストリームで書きだそうとすると、Unicodeを指定しないとエラーを吐く始末。

仕方ないので最後の仕上げは手作業になってしまったところが無念である。

↓は空白が飛んでるので、スタイル指定の部分の除去で、StrPtnにセットしている部分は該当行の内容を貼りなおしてください。
----------------------------
' エバーノートからエクスポートしたフォルダを
' CELL_TARGET_DIR
' に書き込んでから実行
' Write By m_o_co
'要）Microsoft ActiveX Data Objects
Public Sub Go_HtmlToTextCov()

'========================
' 宣　　言
'========================
' 定数
Const strTgExe As String = ".html"
Const cnvExe As String = ".txt"

' 変数
Dim strTgDir As String ' ディレクトリ
Dim strBufDir As String
Dim FSO As Object
Dim FLS As Object ' FileSystemObject.Folder.Files
Dim bufFIL As Object

Dim aTS As Object ' UTF8読み込み用インスタンス

Dim TS As Object ' TextStream
Dim RE As Object ' RegExp
Dim strBuf As String ' テキスト加工用
Dim strPtn As String ' 検索文字列

' 対象ディレクトリ
strTgDir = Range("CELL_TARGET_DIR").Value

' 正規表現準備
'□ 除去 <.*>
strPtn = "<.*>" ' 今回、正規表現は1個なので、先にセットしちゃう
Set RE = CreateObject("VBscript.RegExp")
With RE
.Pattern = strPtn ' 正規表現パターンのセット
.IgnoreCase = True '大/小文字無区別
.Global = True '全体検索
End With

' FSO準備
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FLS = FSO.GetFolder(strTgDir).Files
Set aTS = CreateObject("ADODB.Stream")

' ストリームオプション
With aTS
.Type = adTypeText ' テキスト形式
.Charset = "UTF-8" ' キャラセットを指定
.Open ' インスタンス
End With

'========================
' 開　　始
'========================
For Each bufFIL In FLS

If bufFIL.Type = "Chrome HTML Document" Then

' 対象テキストをゲット
aTS.LoadFromFile bufFIL.Path
strBuf = aTS.ReadText(adReadAll)

'■ 置換（改行） </div> → vbcrlf
strPtn = "</div>"
strBuf = Replace(strBuf, strPtn, vbCrLf)

'■ 除去 <.*>
' strPtn = "<.*>" ' セット済み
With RE
' .Pattern = strPtn ' 正規表現パターンのセット
strBuf = .Replace(strBuf, "") ' 置換
End With

'■ 除去
' body, td {
' font-family: メイリオ;
' font-size: 10pt;
' }
strPtn = " body, td {" & vbCrLf & _
" font-family: メイリオ;" & vbCrLf & _
" font-size: 10pt;" & vbCrLf & _
" }"

strBuf = Replace(strBuf, strPtn, "")

' 書き込み
Set TS = FSO.OpenTextFile(Replace(bufFIL.Path, strTgExe, cnvExe), 2, True, -1) ' 書き込み/新規作成する/Unicode
With TS
.Write strBuf
.Close
End With

Set TS = Nothing

End If

Next

aTS.Close: Set aTS = Nothing
Set bufFIL = Nothing
Set FLS = Nothing
Set RE = Nothing

End Sub
----------------------------

【Access/VBA】データベース上の全てのテーブルの特定のフィールドの特定の値を置換

自分用。
こんなモジュールに頼らないで済む設計が出来るようになってる筈だけども。

　

【Access/VBA】データベース定義書の素材テーブルを更新する

自分用。
大した内容じゃないからまた作れるんだけど、そんなの面倒くさいじゃないのさ…。

　

【AccessVBA】ヘボンローマ字変換用パーツ

これまた自分用。確か、2003で開発。
クラスのなりしてますが、セッターとか諸々不完全で、お見せするのが恥ずかしいんですが。
後ろの方にある、ヘボン式変換のアルゴリズムを作り直すのが激しく面倒なんです…。

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "c_Chg_Hebon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
'=======================================================
'
'　　　　　　 *** c_Chg_Hebon　　***　by m_o_co
'
'=======================================================
' 渡されたテキストをヘボン式に変換するGet_Hebon_Romaと
' そのヘボン式変換用ライブラリ配列のクラス

つづき→

【ExcelVBA】ER図のパーツを作る

自分用。作成は、Office2010。

コピーするシート上にある元のシェイプグループはこんなん↓
テーブル名と、フィールド名と、それを括るものの3つで構成。

ターゲットシート（Worksheets("TgtDB")）には、ER図を作りたいテーブルの俗称とフルパスが複数入っていて、そのデータベースの中に、DBのテーブル情報をまとめたテーブル（"C1"）が個々に入っている、という設計です。

複製したシートの、2行目から、10個ずつ折り返しつつ、ずらずらとテーブルごとにシェイプグループを作ります。雛形が一行目に残りっぱなしですけど、それは後で手で削除します。

グループはなんか、オブジェクトじゃなくて状態？なのかなんなのか知らないんですけども（の、割にはObjectに入ったけど…）グループを入れたObjectと、グルーピングしたいシェイプのObjectをつかんでるだけでは、両方を選択することができないらしく…。

結局、個別にユニーク名を付けて、名前で選択→グルーピング、しか、今回手段が見つけられなかった感じです。
'--------------------------------------------------------------------------
' 　　　Write by m_o_co
'--------------------------------------------------------------------------
Option Explicit

Private Const GRP_NM As String = "Gr_TBL"
Private Const TBL_TTL As String = "R_TBL_Title"
Private Const TBL_FLM As String = "R_TBL_FRAM"
Private Const FLD_NM As String = "R_FLD_NM"

Private DB As DAO.database
Private RS As DAO.Recordset

Private WB As Workbook
Private tmpShp As Object
Private wkSht As Worksheet

Private wkTblNm As String

Private cRow As Long
Private cClm As Integer

'--------------------------------------------------------------------------
Public Sub crtErPeace()

続き→

【VBA/Access2010】ProcOfLineプロパティで永ルプった話。

やられちまったぜTANAKAさん…！

CodeModuleのプロパティ
http://officetanaka.net/excel/vba/vbe/05.htm

～あらすじ～

環境毎にフロントファイルを分けたり検証したりしているうちに、ソースのバージョン管理がメタメタになったm_o_coは、各プロシージャの行数を収集するため、VBEオブジェクトという未知の領域に踏み込んだ。そこで永久ループに、はまったのであった。

　

【Access/VBA】サブフォーム内の任意のレコードに移動する。

びゃああああ！！！解決してないぞこのスレッド！！
http://www.accessclub.jp/bbs5/0004/vba797.html

うおおお、あきらめてなるものかー！ぐぐるぐぐる

http://www.nurs.or.jp/~ppoy/access/access/acF001.html

pPoyさんありがとうpPoyさん！！！
（pPoyさんのコードや凡例はいつも超実用的で大変お世話になっております！）

やりたかったのは、特定のレコード削除後に、その削除レコードの場所から画面を大きく移動させない事。

Execute "Delete From～"する
　　　①Me.Refreshする　　→　カーソルは保持できるが、#Deleteの枠が残る
　　　②Me.Requeryする　→　リクエリーなんで、当然カーソルが先頭に戻る。

ひぎゃあああ！ヾ(:3ﾉｼ )ﾉｼ

サブフォームのステートメントからコールしたかったので、↓になりました。
Delete前に、SaveBMして、リクエリー後、MoveBMします。
'------------------------------------------------
Private BM As Variant

Private Sub SaveBM()
'=========================
'　　　移動先の保持 by m_o_co
'=========================

On Error GoTo Err_Me

Forms(Parent.Name).[サブフォーム名].SetFocus
DoCmd.GoToRecord , , acPrevious
BM = Me.Bookmark
DoCmd.GoToRecord , , acNext　　　’ 後の処理で、カレントレコード前提で組んでるのが一杯あるので戻す。

No_Err:

Exit Sub
Err_Me:

Select Case Err.Number
Case 2105
' 先頭レコードだとエラーになるので。
BM = Null
Resume No_Err
End Select

End Sub

Private Sub MoveBM()
'=========================
'　　カーソル移動 by m_o_co
'=========================

If Not IsNull(BM) Then
Forms(Parent.Name).[サブフォーム名].SetFocus
Me.Bookmark = BM
End If

BM = Null

End Sub
'------------------------------------------------

まじ、ブックマーク呪わしい。ほんと…！

【cfV】オバロ軸について考えてみた。

私は元々からして、1stデッキがアモン、2ndデッキがオーバーロードです。

　オーバーロードについては、ファン心理によって作ったデッキ（2013年7月時点で、ジエンド軸）なので、自分と相性が良いかというと首を捻りつつ遊んでいた要素があったりなんだり。その後、ヌーベルバーグを組み込んで、ヌーベルと愉快な仲間たちデッキを経て、2014年2月の無限転生で、再びオーバーロード軸になりました。

　今回はその、オーバーロード[ブレイク（※以下オバロさん）&Яe-Birth（※以下オバロリさん）]軸のお話。

　そう、私は半年以上かげろう使いとして首を捻り続けていた訳なのですが。
　オバロリさんは、付加価値的に持ち得る、かげろうに似合わぬ展開力と、ボッチorハーレムのスイッチ選択の見極めがなかなかクールで、今ではキャラ愛ユニット愛に加え、プレイングでもなかなかフェイバリットです。

【現在のデッキレシピ】

【Access/VBA】備忘録）祝日マスターとそれを使ったカレンダーデータ作成

割と手が込んでて、汎用性がそれなりにあり、ソース無くなってまた組む羽目になったら面倒なので。

【参考】
【Excel Tips】成人の日や体育の日などのハッピーマンデーの日付を求めるには？
http://enterprisezine.jp/iti/detail/854
【Excel Tips】春分の日や秋分の日を求めるには？
http://enterprisezine.jp/iti/detail/865

祝日マスター
-------------------------------------------

管理No	名称	祝日区分	月	日	週	式	振替基準日
1	元旦	0	1	1			0
2	成人の日	1	1		2		0
3	建国記念の日	0	2	11			0
4	春分の日	2	3			INT(20.8431+0.242194*(★年-1980))-INT((★年-1980)/4)	0
5	昭和の日	0	4	29			0
6	憲法記念日	0	5	3			5
7	みどりの日	0	5	4			5
8	こどもの日	0	5	5			0
9	海の日	1	7		3		0
10	敬老の日	1	9		3		0
11	秋分の日	2	9			INT(23.2488+0.242194*(★年-1980))-INT((★年-1980)/4)	0
12	体育の日	1	10		2		0
13	文化の日	0	11	3			0
14	勤労感謝の日	0	11	23			0
15	天皇誕生日	0	12	23			0

-------------------------------------------

祝日計算の心臓部↓
-------------------------------------------
Select Case RS(0)!祝日区分
Case 0
wkDay = RS(0)!日
Case 1
wkWeek = Weekday(DateSerial(mYear, RS(0)!月, 0), 3)
If wkWeek = 7 Then wkWeek = 0 ' エクセルと統一する為
wkDay = (7 * RS(0)!週) - wkWeek
Case 2
wkDay = Eval(Replace(RS(0)!式, "★年", mYear))
End Select
-------------------------------------------

-------------------------------------------
Public Sub Crt_Doniti(mYear As Integer)
'================================
' 土日情報
'================================
Dim DB As DAO.Database, RS As DAO.Recordset
Dim wkDay As Integer, m As Integer, i As Long, wkWeek As Long, wkDate As Date, WeekFlg As Integer

Set DB = OpenDatabase(DB_jinji, False, False, pDB_Jinji)
Set RS = DB.OpenRecordset("Select * From お休み管理用のテーブル", dbOpenDynaset)

WeekFlg = 2 ' 最初の土曜日
For m = 1 To 12

Set_SanDay:
wkWeek = Weekday(DateSerial(mYear, m, 0), WeekFlg)

Select Case wkWeek
Case 6: wkDay = 7
Case 7: wkDay = 6
Case Else: wkDay = 6 - wkWeek
End Select

For i = wkDay To Day(DateSerial(mYear, m + 1, 0)) Step 7

wkDate = DateSerial(mYear, m, i)
wkWeek = Weekday(wkDate, 2)

RS.FindFirst "日付=#" & wkDate & "#"
If RS.NoMatch Then

RS.AddNew
' （略）
RS.Update
End If

Next

' 最初の日曜日
If WeekFlg = 2 Then
WeekFlg = 3
GoTo Set_SanDay
Else
WeekFlg = 2
End If

Next

End Sub
-------------------------------------------