Skip to content

Instantly share code, notes, and snippets.

View motoraku's full-sized avatar

motoraku

View GitHub Profile
@motoraku
motoraku / Text_To_Binary.js
Created December 25, 2015 13:08
テキストファイルをバイナリファイルへ変換 : Convert text file to binary file
WScript.Quit((function() {
// 入力ファイル名、出力ファイル名を受け取る
if(WScript.Arguments.length < 1) {
//WScript.Echo("args : (text file path)");
return 1;
}
// ファイル読み込み
var ins = WScript.CreateObject('ADODB.Stream');
@motoraku
motoraku / Binary_To_Text.js
Last active December 25, 2015 13:07
バイナリファイルをテキストファイルへ変換 : Convert binary file to text file
WScript.Quit((function() {
// 入力ファイル名、出力ファイル名を受け取る
if(WScript.Arguments.length < 1) {
//WScript.Echo("args : (path) (out text file path)");
WScript.Echo("args : (path) (out text file path)");
return 1;
}
// ファイル読み込み
@motoraku
motoraku / How_to_use_Code_tag.txt
Created December 25, 2015 04:37
WordPress.com でソースコードを綺麗に表示 (codeタグ利用) : Show beautiful source code using Code tag
[code language="css"]
#button {
font-weight: bold;
border: 2px solid #fff;
}
[/code]
@motoraku
motoraku / How_to_use_Gist.txt
Last active December 13, 2015 10:59
WordPress.com でソースコードを綺麗に表示 (Gist利用) : Show beautiful source code using Gist
[gist https://gist.github.com/motoraku/761fde74e6e05ff91403 /]
@motoraku
motoraku / CopyWithDateAndTime.vbs
Last active December 25, 2015 05:07
Windows 右クリックからファイルに日時を付与してコピー : Copy file with date and time
'1.オプション指定
Option Explicit
'2.変数宣言
Dim fsObj
Dim strFileName
Dim strNewFileName
Dim strParentFolderName
Dim strBaseName
Dim ext
@motoraku
motoraku / file_sheet_name_4.txt
Created December 13, 2015 10:39
エクセル関数でファイル名・シート名を表示#3 : Show file name or sheet name by Excel function #3
=RIGHT(CELL("FILENAME",$A$1),LEN(CELL("FILENAME",$A$1))-FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"]",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"]","")))))
@motoraku
motoraku / file_sheet_name_3.txt
Created December 13, 2015 10:38
エクセル関数でファイル名・シート名を表示#3 : Show file name or sheet name by Excel function #3
=MID(CELL("FILENAME",$A$1),FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))+1,FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),".",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),".",""))))-FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))-1)
@motoraku
motoraku / file_sheet_name_2.txt
Created December 13, 2015 10:37
エクセル関数でファイル名・シート名を表示#2 : Show file name or sheet name by Excel function #2
=MID(CELL("FILENAME",$A$1),FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))+1,FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"]",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"]",""))))-FIND(CHAR(9),SUBSTITUTE(CELL("FILENAME",$A$1),"[",CHAR(9),LEN(CELL("FILENAME",$A$1))-LEN(SUBSTITUTE(CELL("FILENAME",$A$1),"[",""))))-1)
@motoraku
motoraku / file_sheet_name_1.txt
Created December 13, 2015 10:30
エクセル関数でファイル名・シート名を表示#1 : Show file name or sheet name by Excel function #1
=CELL("FILENAME",$A$1)
@motoraku
motoraku / Contact Form.txt
Last active December 13, 2015 10:17
WordPress.comで連絡フォームを設置 : Setting up a contact form in WordPress.com
[contact-form]
[contact-field label="あなたの名前(Your Name)" type="name" required="true" /]
[contact-field label="あなたのEメールアドレス(Your Email)" type="email" required="true" /]
[contact-field label="質問・要望(Comment, Request)" type="textarea" required="true" /]
[/contact-form]