新しい記事を書く事で広告が消せます。
このマークは当blogの記事部分に付けられたものです。
新しい記事を書く事で広告が消せます。
このマークは当blogの記事部分に付けられたものです。
【ウェブ魚拓】後期高齢者の保険料凍結、１年未満に＝法案の今国会提出見送り−与党（時事ドットコム）
【ウェブ魚拓】「予算措置もひとつの手段」 医療費負担増凍結で厚労相（asahi.com）
法改正は行わずに予算措置で対応、社保被扶養者の保険料凍結は１年未満とのこと。
要するに政令等で新たな経過措置を定めるということなのであろう。
何となく「地域振興券」を連想してしまったのは自分だけであろうか？
幾ら財源があっても、それを実際に保険者（被保険者？）に補填する仕組みを構築しなければ意味が無い。
金の議論が先行して、準備時間やシステム面は全く度外視されている印象を受ける。
今まで散々述べているとおり、この「凍結問題」がたとえ無かったとしても、平成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日
【ウェブ魚拓】「予算措置もひとつの手段」 医療費負担増凍結で厚労相（asahi.com）
法改正は行わずに予算措置で対応、社保被扶養者の保険料凍結は１年未満とのこと。
要するに政令等で新たな経過措置を定めるということなのであろう。
何となく「地域振興券」を連想してしまったのは自分だけであろうか？
幾ら財源があっても、それを実際に保険者（被保険者？）に補填する仕組みを構築しなければ意味が無い。
金の議論が先行して、準備時間やシステム面は全く度外視されている印象を受ける。
今まで散々述べているとおり、この「凍結問題」がたとえ無かったとしても、平成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日
このマークは当blogの記事部分に付けられたものです。
COMMENTS
giulietta
#-
2007/09/28 | URL | EDIT
そのスクリプト面白いです。
笑ってる場合じゃないんですけどね。
現職公務員SE
#1tpQKjho
2007/09/29 | URL | EDIT
（ていうか、読めるんですね。凄いです^^;）
蛇足ですが、このスクリプトはそのままコピペしても通常環境では動作しません。
５号館専用ですので…
giulietta
#-
2007/10/01 | URL | EDIT
普段は「MacでAppleScript」派なので、
こういうの読むの相当苦労するほうです。
（書くのはあらゆる言語において×）
"OpenLawFile"とか"CreateLawFile"
あたりが５号館専用メソッドでしょうか？
うす
#mYQ.hasQ
2007/10/01 | URL | EDIT
もし"あぼーん"した広域連合が１箇所以上あった場合は、健康保険法等の一部を改正する法律を読み込んで、その法令に含まれる"平成20年4月1日"を"平成20年8月1日"（お好みで"平成20年10月1日"または"平成21年4月1日"）に置き換える。
それをテンポラリに吐き出して、それから読み込んだファイルと置き換える。
って流れでしょうか？
オイラもこういうのが読み書きできるようになりたいなぁとは常々。
現職公務員SE
#1tpQKjho
2007/10/02 | URL | EDIT
>"OpenLawFile"とか"CreateLawFile"
>あたりが５号館専用メソッドでしょうか？
>もし"あぼーん"した広域連合が１箇所以上あった場合は、健康保険法等の一部を改正する法律を読み込んで、その法令に含まれる"平成20年4月1日"を"平成20年8月1日"（お好みで"平成20年10月1日"または"平成21年4月1日"）に置き換える。
>それをテンポラリに吐き出して、それから読み込んだファイルと置き換える。
お二人ともご名答です。
強いて言えば、あとは「GovernmentObject」がミソですね(ｗ