はてなダイアリのやり方
記事を書くとき
①左上にある▼(Hatena Blogの右横)を押し「diary」を選択
②自身のアカウントから▼を押し「記事を書く」を押す。
③編集タブを「markdown」にする
記事を削除するとき
自身のアカウントから▼を押し「記事の管理」を押す。
対象記事にチェックを入れて「削除」をクリック
コンパイル自動化メモ
'' ' 関数名： cmpl ' '' Function cmpl()
Dim ObjFs '* ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ *'
Dim ObjTxt '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄ *'
Dim RgExp '* 正規表現置換ｵﾌﾞｼﾞｪｸﾄ *'
Dim McrPth '* macroﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ *'
Dim MkFlPth '* *cmpl*までの絶対ﾊﾟｽ *'
Dim LdPth '* *総合*ﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ *'
Dim LstYenPos '* ﾊﾟｽ末尾の\位置 *'
Dim YenNum '* ﾊﾟｽ内の\個数 *'
Dim RplcCnt '* *cmpl*特定ﾃｰﾌﾞﾙｶｳﾝﾀ *'
Dim UsrNm '* ﾕｰｻﾞｱｶｳﾝﾄ名 *'
Dim cmd '* ｺﾏﾝﾄﾞ *'
'************************************************************************************************'
'* Step1： 前準備 *'
'************************************************************************************************'
UsrNm = CreateObject("WScript.Network").UserName '* ﾕｰｻﾞｱｶｳﾝﾄ名取得 *'
McrPth = "C:\Users\" + UsrNm _
+ "\AppData\Roaming\sakura\macro\" '* macroﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ取得 *'
Set ObjFs = CreateObject("Scripting.FileSystemObject") '* ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ作成 *'
Set ObjTxt = ObjFs.OpenTextFile(McrPth +"*共通*.vbs") '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄ作成 *'
Set RgExp = New RegExp '* 置換ｵﾌﾞｼﾞｪｸﾄ作成 *'
ExecuteGlobal ObjTxt.ReadAll() '* *共通*.vbsをｲﾝｸﾙｰﾄﾞ *'
ObjTxt.Close '* *共通*.vbsを閉じる *'
'************************************************************************************************'
'* Step2： *cmpl*までの絶対ﾊﾟｽ取得 *'
'************************************************************************************************'
MkFlPth = GetFilename '* ｱｸﾃｨﾌﾞﾌｧｲﾙまでの絶対ﾊﾟｽ取得 *'
for RplcCnt = 0 to UBound(MKTbl) step 2 '* **cmpl**ﾊﾟｽ探索 *'
RgExp.Pattern = MKTbl(RplcCnt) '* 置換ﾊﾟﾀｰﾝｾｯﾄ *'
If RgExp.Test(MkFlPth) Then '* 置換ﾊﾟﾀｰﾝとﾏｯﾁした時 *'
MkFlPth = RgExp.Replace _
(MkFlPth, MKTbl(RplcCnt+ 1)) '* **cmpl**までの絶対ﾊﾟｽ取得 *'
Exit For '* Step2処理終了 *'
End If
next
'************************************************************************************************'
'* Step3： *cmplL*ﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ取得 *'
'************************************************************************************************'
LdPth = GetFilename '* ｱｸﾃｨﾌﾞﾌｧｲﾙまでの絶対ﾊﾟｽ取得 *'
Do '* *cmplL*ﾌｫﾙﾀﾞ発見するまでﾊﾟｽ末尾削除 *'
LstYenPos = InstrRev(LdPth, "\") '* ﾊﾟｽ末尾の\位置を取得 *'
LdPth = Left(LdPth, LstYenPos - 1) '* ﾊﾟｽ末尾削除 *'
YenNum = Len(LdPth) - Len(Replace(LdPth, "\", "")) '* ﾊﾟｽ内の\個数取得 *'
If ObjFs.FolderExists(LdPth + "\*cmplL*") = True Then '* *総合*ﾌｫﾙﾀﾞが見つかった場合 *'
LdPth = LdPth + "\*cmplL*" '* *総合*ﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ取得 *'
Exit Do '* Step3処理終了 *'
End If
If YenNum < 1 Then '* \の個数が5個未満になった場合 *'
MsgBox "*cmplL*フォルダが見つかりませんでした" '* ｴﾗｰ出力 *'
Exit Function '* 関数終了 *'
End If
Loop
'************************************************************************************************'
'* Step4： ｵﾌﾞｼﾞｪｸﾄ参照解除 *'
'************************************************************************************************'
Set ObjFs = Nothing '* ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄへの参照解除 *'
Set ObjTxt = Nothing '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄへの参照解除 *'
Set RgExp = Nothing '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄへの参照解除 *'
'************************************************************************************************'
'* Step5： ｺﾏﾝﾄﾞ実行 *'
'************************************************************************************************'
cmd = "echo make in " + MkFlPth _
+ "&cd " + MkFlPth _
+ "&ipconfig" _
+ "&" + McrPth +"mkInTskCnplt.bat" _
+ "&echo make in " + LdPth _
+ "&cd " + LdPth _
+ "&ipconfig" _
+ "&" + McrPth +"mkInLdCnplt.bat" _
+ "&exit"
Editor.ExecCommand cmd '* ｺﾏﾝﾄﾞ実行 *'
End Function
cmpl
チェック
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 関数名 ：clrBracket '
' 内容 ：括弧を階層ごとに配色 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub clrBracket()
Const LAYER_MAX As Integer = 11 ' 許容階層数(0始まりの為12階層となる) '
Dim Clr As Variant ' 階層色 '
Dim Nowlyr As Integer ' 現在の階層 '
Dim Rng As Range ' 指定ｾﾙ '
Dim Data As String ' ｾﾙ内ﾃﾞｰﾀ '
Dim Datalen As Integer ' ｾﾙ内ﾃﾞｰﾀの文字数 '
Dim Bpstk(LAYER_MAX) As Integer ' 左括弧位置記憶ｽﾀｯｸ '
Dim Stpos As Integer ' ｾﾙ内ﾃﾞｰﾀの取得開始位置 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Stage 1.準備 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Clr = Array( "&H00FFFF", "&H50B000", "&HF0B000", _
"&HC07000", "&H602000", "&HA03070", _
"&H0000C0", "&H0000FF", "&H00C0FF", _
"&H97BDC4", "&H808080", "&H404040") ' 階層毎の配色設定 '
Nowlyr = -1 ' 現在の階層初期化 '
Set Rng = Range("F7") ' 指定ｾﾙ設定 '
Data = Rng.Value ' ｾﾙ内ﾃﾞｰﾀ取得 '
Datalen = Len(Data) ' ｾﾙ内ﾃﾞｰﾀの文字数取得 '
Application.ScreenUpdating = False ' 処理速度を上げる為描画更新無効 '
Rng.Font.Bold = True ' 太字に変更 '
Rng.Font.Color = vbBlack ' 文字色を黒色に変更 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Stage 2.括弧の階層を解析 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For Stpos = 1 To Datalen ' ｾﾙ内ﾃﾞｰﾀの文字数分ループ"
Application.StatusBar = _
Stpos & "/" & Datalen & "文字目を解析しています..." ' 進捗状況表示 '
Select Case Mid(Data, Stpos, 1) ' 1文字づつ取得し解析する '
Case "(" ' 左括弧の場合 '
If Nowlyr >= LAYER_MAX Then ' 左括弧が13階層以上続いた場合AL出力 '
MsgBox "左括弧が" & LAYER_MAX + 2 & _
"回以上続いています"
Application.StatusBar = False ' 進捗状況表示終了 '
Exit Sub
End If
Nowlyr = Nowlyr + 1 ' 現在の階層を更新 '
Bpstk(Nowlyr) = Stpos ' 左括弧位置記憶ｽﾀｯｸに現在位置をｾｯﾄ '
Rng.Characters(Stpos, 1) _
.Font.Color = Clr(Nowlyr) ' 左括弧を現在の階層色に配色 '
Case ")" ' 右括弧の場合 '
If Nowlyr <= -1 Then ' 右括弧の対となる左括弧がない場合AL出力'
MsgBox "右括弧の対がありません"
Application.StatusBar = False ' 進捗状況表示終了 '
Exit Sub
End If
Rng.Characters(Stpos, 1) _
.Font.Color = Clr(Nowlyr) ' 右括弧を現在の階層色に配色 '
Nowlyr = Nowlyr - 1 ' 現在の階層を更新 '
Case Else ' 括弧以外の場合処理なし '
End Select
DoEvents ' ﾌﾘｰｽﾞ防止の為定期的にOSに制御を戻す '
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Stage 3.終了処理 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.StatusBar = False ' 進捗状況表示終了 '
End Sub
grep整形
以下を方法とする
var tasktbl = new Array("","","*"); / ﾃﾞｨﾚﾃｰﾌﾞﾙ /
// / 関数名： timDATA / / 目的： grep結果作成支援 / / 2018-02-01 / // function trimDATA() { var data; / ﾌｧｲﾙ内のﾃﾞｰﾀ / var task; / ﾃﾞｨﾚ名 / var taskcnt = 0; / ﾃﾞｨﾚ用ｶｳﾝﾀ / var movecnt = 0; / ｶｰｿﾙ移動用ｶｳﾝﾀ / var linecnt = 0; / ﾗｲﾝ用ｶｳﾝﾀ / var linemax = 0; / ﾗｲﾝ総数 /
/********************************************************************************************/
/* stage 1. 連続実行防止 */
/* 目的： ﾏｸﾛ実行後に再度実行することを防止する */
/* 方法： 『<ﾃﾞｨﾚ名>\』が行頭にある場合連続で実行したと判断しﾒｯｾｰｼﾞ出力 */
/********************************************************************************************/
Editor.GoFileTop(); /* ｶｰｿﾙをﾌｧｲﾙの先頭に移動 */
data = Editor.GetLineStr(0); /* ｶｰｿﾙがある行の文字列を取得 */
for(taskcnt = 0;
taskcnt < tasktbl.length; taskcnt++) /* ﾃﾞｨﾚ名が一致するまでﾙｰﾌﾟ */
{
task = tasktbl[taskcnt] + '\\'; /* 『<ﾃﾞｨﾚ名>\』に変更 */
if(data.indexOf(task) === 0) /* 『<ﾃﾞｨﾚ名>\』が行頭にあった場合 */
{
Editor.MessageBox("実行済です"); /* ﾒｯｾｰｼﾞ出力 */
return;
}
}
/********************************************************************************************/
/* stage 2. EOFを文字列がある最終行に移動 */
/* 目的： ﾌｧｲﾙ内の全行数を正確に把握する為 */
/* 方法： 文字列のない行にEOFがあった場合ﾊﾞｯｸｽﾍﾟｰｽで文字列がある最終行にEOFを移動させる */
/********************************************************************************************/
Editor.GoFileEnd(); /* ｶｰｿﾙを最終行に移動 */
data = Editor.GetLineStr(0); /* ｶｰｿﾙがある行の文字列を取得 */
if(data.length <= 0) /* 最終行に文字がない場合 */
{
Editor.DeleteBack(); /* ﾊﾞｯｸｽﾍﾟｰｽ */
}
/********************************************************************************************/
/* stage 3. 『[UTF8]: 』を削除 */
/* 目的： 不要な為 */
/* 方法： 『[UTF8]: 』の文字列を全削除 */
/********************************************************************************************/
Editor.ReplaceAll("\\[SJIS\\]\\: ", '', 14); /* 『[UTF8]: 』を全削除 */
/********************************************************************************************/
/* stage 4. 『\jis\』のある行を削除 */
/* 目的： 不要な為 */
/* 方法： 『\jis\』の文字列がある行を全削除 */
/********************************************************************************************/
linemax = Editor.GetLineCount(0); /* ﾗｲﾝ総数を取得 */
Editor.GoFileTop(); /* ｶｰｿﾙをﾌｧｲﾙの先頭に移動 */
for(linecnt = 0; linecnt < linemax; linecnt++) /* 全行数ﾙｰﾌﾟ */
{
data = Editor.GetLineStr(0); /* ｶｰｿﾙがある行の文字列を取得 */
if(data.indexOf("\\jis\\") != -1) /* 『\jis\』があった場合 */
{
Editor.DeleteLine(); /* ｶｰｿﾙのある行を削除 */
}
else /* 『\jis\』がない場合 */
{
Editor.Down(); /* ｶｰｿﾙを1行下へ移動 */
}
}
/********************************************************************************************/
/* stage 5. 空白間隔の縮小 */
/* 目的： 文字列の長さをに縮小させる */
/* 方法： 全ﾀﾌﾞを半角ｽﾍﾟｰｽに置換後2つ連続である半角ｽﾍﾟｰｽを存在させない */
/********************************************************************************************/
Editor.ReplaceAll("\\t", ' ', 14); /* 全ﾀﾌﾞを半角ｽﾍﾟｰｽに置換 */
Editor.SelectAll(); /* ﾌｧｲﾙ内文字列全選択 */
data = Editor.GetSelectedString(0); /* 全文字列取得 */
Editor.CancelMode(); /* 選択解除 */
while(data.indexOf(" ") != -1) /* 2つ連続で半角ｽﾍﾟｰｽがある間 */
{
Editor.ReplaceAll(" ", ' ', 14); /* 1つの半角ｽﾍﾟｰｽに置換 */
Editor.SelectAll(); /* ﾌｧｲﾙ内文字列全選択 */
data = Editor.GetSelectedString(0); /* ﾌｧｲﾙ内の全文字列取得 */
Editor.CancelMode(); /* 選択解除 */
}
/********************************************************************************************/
/* stage 6. ﾊﾟｽ縮小 */
/* 目的： ﾃﾞｨﾚ名より左にあるﾊﾟｽは不要の為削除 */
/* 方法： 1行目のﾊﾟｽにあるﾃﾞｨﾚ名までｶｰｿﾙを移動し矩形選択で最終行先頭に移動し削除 */
/********************************************************************************************/
linemax = Editor.GetLineCount(0); /* ﾗｲﾝ総数を取得 */
Editor.GoFileTop(); /* ｶｰｿﾙをﾌｧｲﾙの先頭に移動 */
data = Editor.GetLineStr(1); /* 先頭行の文字列取得 */
for(taskcnt = 0;
taskcnt < task.length; taskcnt++) /* ﾃﾞｨﾚ名が一致するまでﾙｰﾌﾟ */
{
task = '\\' + tasktbl[taskcnt] + '\\'; /* 『\<ﾃﾞｨﾚ名>\』に変更 */
if(data.indexOf(task) != -1) /* 『\<ﾃﾞｨﾚ名>\』が一致した場合 */
{
for(movecnt = 0;
movecnt <= data.indexOf(task);
movecnt++)
{
Editor.Right_Sel(); /* ｶｰｿﾙを『<ﾃﾞｨﾚ名>\』の位置まで移動 */
}
Editor.BeginBoxSelect(); /* 矩形選択ﾓｰﾄﾞ開始 */
Editor.Jump(linemax, 0); /* 最終行の先頭まで移動 */
Editor.Delete(); /* ﾃﾞｨﾚより前のﾊﾟｽ全削除 */
Editor.CancelMode(); /* 選択解除 */
break;
}
}
/********************************************************************************************/
/* stage 7. ﾊﾟｽと内容の分割 */
/* 目的： Excelに張る際にﾊﾟｽと内容のｾﾙを分ける為 */
/* 方法： 最初に発見する半角ｽﾍﾟｰｽはﾊﾟｽと内容の間にあることを利用し半角ｽﾍﾟｰｽをﾀﾌﾞに置換 */
/********************************************************************************************/
Editor.GoFileTop(); /* ｶｰｿﾙをﾌｧｲﾙの先頭に移動 */
linemax = Editor.GetLineCount(0); /* ﾗｲﾝ総数を取得 */
for(linecnt = 0; linecnt < linemax; linecnt++) /* 全行数ﾙｰﾌﾟ */
{
Editor.GoLineTop(0); /* ｶｰｿﾙを行頭に移動 */
Editor.SearchNext(' ', 18); /* 発見した半角ｽﾍﾟｰｽを選択状態へ */
Editor.InsText('\t'); /* 半角ｽﾍﾟｰｽをﾀﾌﾞに置換 */
Editor.CancelMode(); /* 選択解除 */
Editor.Down(); /* ｶｰｿﾙを1行下へ移動 */
}
/********************************************************************************************/
/* stage 8. 終了処理 */
/* 目的： ﾌｧｲﾙの先頭への移動をﾏｸﾛ終了の合図とする */
/* 方法： ｶｰｿﾙをﾌｧｲﾙの先頭に移動 */
/********************************************************************************************/
Editor.GoFileTop(); /* ｶｰｿﾙをﾌｧｲﾙの先頭に移動 */
}
trimDATA();
unixのdiff
dlname_arr=("aaa_Before" "aaa_After" "bbb_Before" "bbb_After" "aaa_diff" "bbb_diff" "diff_diff")
#ファイル数の一致確認且つ１個以上の確認
aaa_Before_flnum=`find ${dlname_arr[0]} -type f -name "*.[ch]" | wc -l`
aaa_After_flnum=`find ${dlname_arr[1]} -type f -name "*.[ch]" | wc -l`
bbb_Before_flnum=`find ${dlname_arr[2]} -type f -name "*.[ch]" | wc -l`
bbb_After_flnum=`find ${dlname_arr[3]} -type f -name "*.[ch]" | wc -l`
if test $aaa_Before_flnum -eq 0\
-a $aaa_Before_flnum -ne $aaa_After_flnum\
-a $aaa_Before_flnum -ne $bbb_Before_flnum\
-a $aaa_Before_flnum -ne $bbb_After_flnum ; then
echo "ファイル数が0個または各ディレクトリのファイル数が一致していません"
exit
fi
#ファイル名の一致確認
for cnt in `seq 1 $flnum`
do
aaa_Before_flname=`find ${dlname_arr[0]} -type f -name "*.[ch]" | cut -d'/' -f2 | head -n $cnt | tail -n 1`
aaa_After_flname=`find ${dlname_arr[1]} -type f -name "*.[ch]" | cut -d'/' -f2 | head -n $cnt | tail -n 1`
bbb_Before_flname=`find ${dlname_arr[2]} -type f -name "*.[ch]" | cut -d'/' -f2 | head -n $cnt | tail -n 1`
bbb_After_flname=`find ${dlname_arr[3]} -type f -name "*.[ch]" | cut -d'/' -f2 | head -n $cnt | tail -n 1`
if test $aaa_Before_flname != $aaa_After_flname\
-o $aaa_Before_flname != $bbb_Before_flname\
-o $aaa_Before_flname != $bbb_After_flname ; then
echo "各ディレクトリのファイル名が一致しません"
exit
fi
done
#diff関連の空ディレクトリ作成
for cnt in `seq 4 6`
do
if [ -e ${dlname_arr[$cnt]} ] ; then
rm -rf ${dlname_arr[$cnt]}
fi
mkdir ${dlname_arr[$cnt]}
done
#比較結果ファイル作成
flnum=`find ${dlname_arr[0]} -type f -name "*.[ch]" | wc -l`
for cnt in `seq 1 $flnum`
do
flname=`find ${dlname_arr[0]} -type f -name "*.[ch]" | cut -d'/' -f2 | head -n $cnt | tail -n 1`
diff ${dlname_arr[0]}"/"$flname ${dlname_arr[1]}"/"$flname > ${dlname_arr[4]}"/"$flname
diff ${dlname_arr[2]}"/"$flname ${dlname_arr[3]}"/"$flname > ${dlname_arr[5]}"/"$flname
diff ${dlname_arr[4]}"/"$flname ${dlname_arr[5]}"/"$flname > ${dlname_arr[6]}"/"$flname
done
