ブログ作成に役立つスクリプト Archive

まぁ流行のZen-Codingでも構わないんですが
Zen-Codingの場合はタグ記述→中身記入なわけで個人的にはそれがめんどくさいのであります。

そこでアイテムリストから入れ子状のulを簡単に作成してしまおうという試み。

たとえばこういう入れ子状のulを作りたいとします。

その場合以下のサンプルの用にTEXTBLOCKの中にアイテムをリスト状に記入し入れ子の階層はTABで表現します

すると、クリップボードの中に入れ子状のULタグに変換されたHTMLタグが入る寸法です。

TEXTBLOCK data
item1
item2
	item2-1
	item2-2
item3
	item3-1
	item3-2
		item3-2-1
		item3-2-2
	item3-3
item4
ENDTEXTBLOCK

//--class指定
ul_class=""   //例："navi"→class="navi"
li_class=""   //

//------ main -----
Dim popm[]="TEXTBLOCKから","クリップボードから"
p=Popupmenu(popm)
ifb p=0
   data_list=data
elseif p=1
   data_list=Getstr(0)
else
   ExitExit
endif
ind=0
tag="<ul$_ul_$><#CR>"
ul=split(data_list,"<#CR>")
for i=0 to length(ul)-1
   t=-1
   Repeat
      t=t+1
      str=Token("<#TAB>",ul[i])
   Until ul[i]=""
   tab=""
   for i=0 to t-1;tab=tab+"<#TAB>";next
   ifb t>ind
      tag=tag+tab+"<ul$_ul_$><#CR>"+tab+"<#TAB><li$_li_$>"+str+"</li><#CR>"
   elseif t=ind
      tag=tag+tab+"<#TAB><li$_li_$>"+str+"</li><#CR>"
   else
      tag=tag+tab+"<#TAB></ul><#CR>"+tab+"<#TAB><li$_li_$>"+str+"</li><#CR>"
   endif
   ind=t
next
tag=tag+"</ul>"
if !(ul_class="") then ul_class=" class=<#DBL>"+ul_class+"<#DBL>"
if !(li_class="") then li_class=" class=<#DBL>"+li_class+"<#DBL>"
tag=Chgmoj(tag,"$_ul_$",ul_class)
tag=Chgmoj(tag,"$_li_$",li_class)
Sendstr(0,tag)

サンプルスクリプト実行後の結果

<ul>
   <li>item1</li>
   <li>item2</li>
   <ul>
      <li>item2-1</li>
      <li>item2-2</li>
   </ul>
   <li>item3</li>
   <ul>
      <li>item3-1</li>
      <li>item3-2</li>
      <ul>
         <li>item3-2-1</li>
         <li>item3-2-2</li>
      </ul>
      <li>item3-3</li>
   </ul>
   <li>item4</li>
</ul>

起動時にTEXTBLOCKから作成するかクリップボードから作成するか効いて来るので情況に応じて利用してください。
ちなみにクラス指定もできるので指定してあげれば適用されます。

余談：pre内でTABを表現するのには	と書けばイイらしいですね知りませんでした。

ブログでアフィリエイトとかしてる人はテーブルタグで表組したりすると思うのですがあれって結構面倒。

という事でなんか良い方法ないかなとか思い作りました。

<--例-->

こういうテーブルが作りたいときに

1-1
1-2
1-3

2-1
2-2
2-3

3-1
3-2
3-3

こんな風にリスト書きしてやって行事に1行明けてあげて、
スクリプトを回してフォーカスを当ててあげれば自動的にテーブルタグに置き換わります。

tdのwidthとかは設定してないので適当に改変してあげるか
スクリプトの先頭でインプットボックスで質問するとか
適当に改変して使ってください。

あと5秒じゃ短いとか言う方は
until time=5の数字を大きくしてください。
※2行目～8行目のsckey(id,VK_CTRL,VK_C)までの部分と最後の行を削除して
クリップボードの中身を変換するみたいにして使ってもいいかも。（てか自分はそうしてる）

最初簡単にできるかなぁ？とか思ってたんですが
結構なやむとこもありました。（バカなだけですがｗ）

ダウンロード（ダウンロード後ファイル名の.txtを削除してください）

現在開いてるsleipnirのタブのURLをすべて取得するスクリプトです。
用途としてはリンク集とか作るのに向いてるかな？
ちなみに取得結果はクリップボードに入ります。

自分はアフィリエイト用で作りましたが
単純なスクリプトなので参考になる点は殆どないとは思いますが。

ダウンロード(txt)