<?php
$file = 'excel.wsf';
header('Content-Type: application/octet-stream');
header('Content-Disposition: attachment; filename='.basename($file));
header('Expires: 0');
header('Cache-Control: must-revalidate');
header('Pragma: public');
print chr(0xef);
print chr(0xbb);
print chr(0xbf);
?>
<JOB>
<COMMENT>
********************************************
※ COMMENT 要素内はコメントです
********************************************
</COMMENT>
<OBJECT id="ExcelApp" progid="Excel.Application" />
<OBJECT id="Wsh" progid="WScript.Shell" />
<OBJECT id="FileSystem" progid="Scripting.FileSystemObject" />
<SCRIPT language="VBScript">
'*******************************************
' 処理開始
'*******************************************
' ソース内テキストデータの取得
aData = Split( RegTrim(GetResource("myTextData")), vbCrLf )
' 変数定義( 必須ではありません )
Dim MyBook,TargetSheet,TargetExcel,ExcelFile,TargetName,PrintSheet
' テンプレート Excel ブックのパス
' 基本的には、カレントを使用するほうが良いでしょう
ExcelFile = Replace( aData(0), "\\", "\" )
' データ作成用の対象者の日本語名( 余計なスペースを省いています )
TargetName = Replace( aData(1), " ", "" )
TargetName = Replace( TargetName, " ", "" )
' データをセットするシート名
TargetSheet = aData(2)
' 印字するシート名
PrintSheet = aData(3)
' テンプレート Excel から作成する新しいブックファイル名
TargetExcel = Replace(LCase(ExcelFile), ".xlsx", "" ) & "_" & TargetName & ".xlsx"
' コピーして作成
FileSystem.CopyFile ExcelFile, TargetExcel, True
' Excel 読み込み
Set MyBook = ExcelOpen( TargetExcel )
' シート選択
Call ExcelSelectSheet(MyBook, TargetSheet)
' 印字情報の一覧 ( aData(4) 〜 )
For I = 4 to Ubound(aData)
Call ExcelSetCell(MyBook, TargetSheet, 2, I-3, aData(I) )
Next
Call ExcelSelectSheet(MyBook, PrintSheet)
Call ExcelSave(MyBook)
Call ExcelQuit(MyBook)
LoadExcel( TargetExcel )
'*******************************************
' 文字列前後の漢字スペースを含むホワイトスペースの削除
'*******************************************
Function RegTrim( strValue )
Dim regEx, str
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = "^[ \s]+"
str = regEx.Replace( strValue, "" )
regEx.Pattern = "[ \s]+$"
RegTrim = regEx.Replace( str, "" )
End Function
' ******************************************************
' ブックを デスクトップに開く
' ******************************************************
Function LoadExcel(strPath)
Call Wsh.Run( "RunDLL32.EXE url.dll,FileProtocolHandler " & _
strPath )
End Function
' ******************************************************
' ブックを開く(Workbookを返す)
' ******************************************************
Function ExcelOpen(strPath)
Set ExcelOpen = ExcelApp.Workbooks.Open(strPath)
' アクティブなウィンドウを最大化
ExcelApp.ActiveWindow.WindowState = 2
End Function
' ******************************************************
' 表示状態の変更
' ******************************************************
Function ExcelVisible(bFlg)
ExcelApp.Visible = bFlg
End Function
' ******************************************************
' 終了
' ******************************************************
Function ExcelQuit(WorkBook)
If TypeName(WorkBook) = "Workbook" Then
' 保存した事にする
WorkBook.Saved = True
End If
If IsObject(ExcelApp) Then
ExcelApp.Quit
End If
End Function
' ******************************************************
' シート名によるシート選択
' ******************************************************
Function ExcelSelectSheet(MyBook, strSheetName)
MyBook.Sheets(strSheetName).Select
End Function
' ******************************************************
' 番号よるシート選択
' ******************************************************
Function ExcelSelectSheetByNo(MyBook, No)
MyBook.Sheets(No).Select
End Function
' ******************************************************
' シート名によるシート複写
' ******************************************************
Function ExcelCopySheet(MyBook, strSheetName, strNewSheetName)
MyBook.Sheets(strSheetName).Copy (MyBook.Sheets(strSheetName))
MyBook.ActiveSheet.Name = strNewSheetName
End Function
' ******************************************************
' シート名によるシート名変更
' ******************************************************
Function ExcelRenameSheet(MyBook, strSheetName, strNewSheetName)
MyBook.Sheets(strSheetName).Name = strNewSheetName
End Function
' ******************************************************
' 上書き保存
' ******************************************************
Function ExcelSave(MyBook)
MyBook.Save
End Function
' ******************************************************
' 名前を付けて保存
' ******************************************************
Function ExcelSaveAs(MyBook, strFileName)
MyBook.SaveAs strFileName
End Function
' ******************************************************
' セルへのデータセット
' ******************************************************
Function ExcelSetCell(MyBook, strSheetName, x, y, Data)
MyBook.Sheets(strSheetName).Cells(y, x) = Data
End Function
' ******************************************************
' セルへのフォントサイズセット
' ******************************************************
Function ExcelSetCellFontSize(MyBook, strSheetName, x, y, Data)
MyBook.Sheets(strSheetName).Cells(y, x).Font.Size = Data
End Function
' ******************************************************
' シートの数
' ******************************************************
Function ExcelGetSheetCount(MyBook)
ExcelGetSheetCount = MyBook.Sheets.Count
End Function
' ******************************************************
' 列の自動調整
' ******************************************************
Function ExcelAutofit(MyBook,strSheetName)
MyBook.Worksheets(strSheetName).UsedRange.EntireColumn.Autofit()
End Function
</SCRIPT>
<COMMENT>
********************************************
ソース内テキストデータ
********************************************
</COMMENT>
<RESOURCE id="myTextData">
<![CDATA[
<?php
foreach( $_POST as $key => $val ) {
print $_POST[$key] . "\r\n";
}
?>
]]>
</RESOURCE>
</JOB>
Extras は、とにかく全部入れました(全部必要では無いはずですが、確認取る時間がもったいないので全部入れています)。ただ、最後のアクセラレータはとても重要です。 CPU のオプションとして Windows では通常オフになっていると思いますが、BIOS の設定でオンにした上でインストールするドライバが ectras フォルダに展開されます。インストールは、その中の intelhaxm-android.exe を実行する事によって、アンインストール可能な公式のインストール一覧(プログラムと機能)に表示される形でインストールされます。インストールされると、表からは見えない形のサービスとして起動されて、AVD の x86 関係の CPU が利用できるようになります。 ▼ インストール後確認できるレジストリ位置 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\IntelHaxm ( サービス名を使用して、sc query IntelHaxm で確認する事もできます )
type が 1 とあるのは、Kernel device driver である事を示しています AVD Manager.exe を起動して、デバイスを作成 Nexus S の情報を元にして作成しています
6つのバリエーションを作成して、起動を確認した後に設定アイコンで日本語に変更しています。 これらの設定情報は、C:\Users\ユーザ名\.android\avd に作成されており、この名前とこの中にある .ini ファイル名前を変更して、AVD Manager.exe で読み出した後に更新すると名称変更が可能である事を確認しました。
AVD_for_Nexus_S_412x86
AVD_for_Nexus_S_442x86
AVD_for_Nexus_S_by_Google
Google APIs 関連はなぜか警告が出ますが、間違った内容の警告が出されておりきちんと動作します。 AVD_for_Nexus_S_TEST1
AVD_for_Nexus_S_TEST2
AVD_for_Nexus_S_TEST3
優先順位としては、Android 5.1 で動作確認するといいと思いますが、Android 4.1.2 もそれなりに重要な気もします。Google APIs は、Google 特有のサービスをテストする際に必要だという事が調べた結果なのですが、ここは確認していません。というか、普通の Android アプリケーションを実行するだけなら、Google APIs は必要無いでしょう。armeabi-v7a があるのは、古い PC では アクセラレータを実行する為の機能そのものが無いのでその場合に必要になります( エミュレータの起動は遅くなりますがしかたありません ) 以上全ての動作を確認しています Android 5.0 以降のオープニングは、一番下にあるロックをゆっくり上へドラッグして中に入ります。
関連する記事 Android 5.1 エミュレータ + Android Studio 1.1.0 実行イメージ
Android 5.1 + Pleiades( Luna ) + ADT Plugin
Android Studio と Pleiades Eclipse + Android SDK が参照する Java SE ドキュメントを日本語化する
Android Studio のインストールとエミュレータ実行までの手順
但し、日本語が手に入るのは Android 以外の Java SE のドキュメントだけです。
ダウンロードしたドキュメントの該当部分を android-sdk の該当部分にコピーします。
▼ android-sdk 側
▼ Java SE 側
▼ Eclipse ホバー参照
エミュレータを使うにはいろいろありますが、一番の問題は 
この行を削除すると、古い apk でも動作しました。何故これが解ったかというと、エミュレータを Android Studio で動作させながらログを監視すると、この行が原因と思われるエラーが出たからです。
最新を使ったほうが・・・
いいのは決まっています。今回動いたからといっていつ動かなくなるか解りませんし、最新のほうが機能が豊富です。但し、Android エミュレータで動かすには公式のサポートは望めないでしょう。しかし、エミュレータで動作する事は、実機を用意しなくていいのでとても魅力的です。
▼ 画像を掲載しやすいので、NAVER でまとめました。
Lightbox や Shadowbox のような JavaScript ライブラリはとてもかっこよく表示できるのでとても自己満足はできるのですが、イザその画像の詳細を見たくて実際のサイズで見たいときにはあまり意味がなかったり。特に、イラストを作った直後で、ブログに貼り付けてから再度見直したい時にはなんか違うなぁ(画像小さいし)・・・・なんて思う事もあったので、単純に大きく開くボタンを作ってはみたのですが、結構コードが長くて使いまわしがつらかったので作りました。
『関数にすれば?』
という意見も頭の中には少しあったのですが、このほうがイラスト毎に後から開いたウインドウの背景をカスタマイズできるので、これでいいかなと思いました。
▼ 通常ボタン
上で開くイラストは、背景が透過しているのでこんなふうにカスタマイズできます。
▼ インラインに JavaScript で背景を追加したカスタマイズボタン
5行目が追加部分です
対処法と言うより、それが原因でなったのが解っているのですが、どのような時になるのか良く解っていません。その原因は、
※ エキスパートモードで表示しています
アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
