公務員叩きに物申す!-現職公務員の妄言 システム運用保守に、後期高齢者医療制度に、公務員叩き批判に、行政改革に、福祉行政に、ITに、WEB2.0に、SNS管理に、VBに、Scriptに、情報セキュリティに、IPネットワークに、SEOに、ほんの少し家族サービスなブログ。

  • スクリプト

  • Top
TAGWORD

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


はてなブックマークに追加 はてなブックマークのコメント livedoorクリップに追加 livedoorクリップ数 niftyクリップに追加  del.icio.usに追加  Yahoo!ブックマークに登録 Yahoo!ブックマーク数 googleに追加 

自由利用マーク
このマークは当blogの記事部分に付けられたものです。
タグリスト:
 Blog管理画面に見慣れた絵柄のテンプレが追加されていたので、どこのパチモンかと思ったら、なんとご本人様だった。
 いや、驚いたのなんの。
 コゲどんぼ先生のblogによれば、ご自身でhtmlやcssをいじられているらしく、その多才さに脱帽である。

 早速テンプレをダウンロードさせていただいた。多謝である。
 テーマがテーマだけにこのブログで使う機会はなかろうが、いつか他のテーマ(例えば娘の育児日記)でブログをはじめるときに使用するかもしれない。楽しみに取っておこうと思う。

 ついでといっては何だが、テンプレートに「でじこ語」変換をつけてみた。

↓クリックでテンプレ適用画面を表示



 強制的に記事本文の語尾に「にょ」をつけてしまうという、今更感のある恐ろしい機能である。

 改造の仕方は簡単。以下の図のように、
</div><!--/■左ブロックここまで■-->
 というところがあるので、




 その直後に以下のソースをコピペし、更新すればよい。

<SCRIPT type=text/javascript>
<!--
document.getElementById('left').innerHTML=document.getElementById('left').innerHTML.split('。').join('<strong>にょ。</strong>' );
focus();
// -->
</SCRIPT>

 ちなみに上記のソース中の「にょ」を「にゅ」「ゲマ」に変えるだけで(以下略)

 なお、テンプレの改造の前に「複製」でバックアップをとっておくことを強く推奨する。

スポンサーサイト

はてなブックマークに追加 はてなブックマークのコメント livedoorクリップに追加 livedoorクリップ数 niftyクリップに追加  del.icio.usに追加  Yahoo!ブックマークに登録 Yahoo!ブックマーク数 googleに追加 

自由利用マーク
このマークは当blogの記事部分に付けられたものです。
タグリスト: FC2共有テンプレート, スクリプト, FC2ブログ, コゲどんぼ,
【ウェブ魚拓】後期高齢者の保険料凍結、1年未満に=法案の今国会提出見送り-与党(時事ドットコム)
【ウェブ魚拓】「予算措置もひとつの手段」 医療費負担増凍結で厚労相(asahi.com)

 法改正は行わずに予算措置で対応、社保被扶養者の保険料凍結は1年未満とのこと。
 要するに政令等で新たな経過措置を定めるということなのであろう。

 何となく「地域振興券」を連想してしまったのは自分だけであろうか?

 幾ら財源があっても、それを実際に保険者(被保険者?)に補填する仕組みを構築しなければ意味が無い。
 金の議論が先行して、準備時間やシステム面は全く度外視されている印象を受ける。

 今まで散々述べているとおり、この「凍結問題」がたとえ無かったとしても、平成20年4月開始はおぼつかない危機的状況だ。
 その上、今回の政府の要求を満たすためには、もう魔法でも使うしかないだろう。



Option Explicit

Const ForReading = 1
Const ForWriting = 2

Dim kouikiStatus
Dim I, J

Set kouikiStatus = Wscript.Arguments
J = 0

For I = 0 to 47       '47 + Mhlw
  IF kouikiStatus(I) = "あぼーん" then J = J + 1
Next

IF J > 0 then
  msgbox "技術的読替を行います"
  Call 政令
End if

Set kouikiStatus = Nothing

Sub 政令()

Dim myLaw, myLawpath, myPos, Mhlw, LawContents, myTemp, myTemppath, myTempname
On Error Resume Next

Set Mhlw = CreateObject("Scripting.GovernmentObject")
myPos = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
myLawpath = Mhlw.BuildPath(myPos,"健康保険法等の一部を改正する法律.law")

Set myLaw = Mhlw.OpenLawFile(myLawpath,ForReading)

If Err.Number=0 Then

  LawContents = myLaw.ReadAll

'***** お好きなのをどうぞ

  LawContents = Replace(LawContents,"平成20年4月1日","平成20年8月1日")
'   LawContents = Replace(LawContents,"平成20年4月1日","平成20年10月1日")
'   LawContents = Replace(LawContents,"平成20年4月1日","平成21年4月1日")

  myLaw.close

  myTempname = Mhlw.GetTempName
  myTemppath = Mhlw.BuildPath(myPos,myTempname)
  Mhlw.CreateLawFile myTemppath
  Set myTemp = Mhlw.OpenLawFile(myTemppath,ForWriting)

  myTemp.Write(LawContents)

  myTemp.close

  Mhlw.DeleteFile myLawpath
  Mhlw.MoveFile myTemppath,myLawpath

  Set myTemp = Nothing

Else
  msgbox "そんな法律ねーよ!"
end if

Set myLaw = Nothing
Set Mhlw = Nothing

End sub




 政令とスクリプトは何となく似ていると思った。
 それだけの話。どうでもいいや。
 
後期高齢者医療制度開始まであと187日 


はてなブックマークに追加 はてなブックマークのコメント livedoorクリップに追加 livedoorクリップ数 niftyクリップに追加  del.icio.usに追加  Yahoo!ブックマークに登録 Yahoo!ブックマーク数 googleに追加 

自由利用マーク
このマークは当blogの記事部分に付けられたものです。
タグリスト: 後期高齢者医療制度, 政省令, デスマーチ, 凍結問題, スクリプト,

ナビゲーション

特集記事

カテゴリー

ブログ内検索

RECENT ENTRYS

RECENT COMMENTS

RECENT TRACKBACKS

プロフィール

現職公務員SE Author:現職公務員SE
 シスアドでセキュアドな後期高齢者医療制度SNS管理人。
 後期高齢者医療制度の資格事務担当だったはずがひょんなことで電算担当に。

HSタグクラウド

Feed Me!

公務員叩きに物申す!-現職公務員の妄言のRSSフィード

後期高齢者医療制度開始カウントダウン





リンク

中の人

FC2カウンター


公務員サイトランキング 現職公務員サイトランキング ビジネスブログランキング 人気ブログランキング - 公務員叩きに物申す!-現職公務員の妄言

スカウター : 公務員叩きに物申す!?現職公務員の妄言 はてなブックマークカウンター
  • seo

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。