Month: 1月 2021

VBScriptの関数定義をWEB上に置いて、Msxml2.ServerXMLHTTP で読みだして PCで使用する

 
VBScriptの関数定義をWEB上に置いて、PCで使用する の発展版です。
※ WEB 上に置くソースコードは、上記リンク先を参照して下さい。


Msxml2.ServerXMLHTTP で読み出すコードの作成方法

Msxml2.ServerXMLHTTP は昔はバグがありましたが、今はとても優秀なオブジェクトです。ただ、相手側が静的ファイルの場合は UTF-8 扱いになるはずなので、PHP 側でキャラクタセットを明示しています。( 以下のサンプルの PHP / https://toolbox.winofsql.jp/vbs/regtrim.php は SHIFT_JIS です )

REM **********************************************************
REM 正規表現のトリム
REM **********************************************************
Function RegTrim( strValue )

	Dim regEx, str

	Set regEx = New RegExp
	regEx.IgnoreCase = True
	regEx.Pattern = "^[　\s]+"
	str = regEx.Replace( strValue, "" )
	regEx.Pattern = "[　\s]+$"
	RegTrim = regEx.Replace( str, "" )

End Function

このコードを regtrim.vbs や regtrim.txt としてWEB上のどこかに置く場合は、UTF8N で保存します



ExecuteGlobal による動的な関数の登録

読みだした後、ExecuteGlobal で文字列を実行してしまうのが特徴です。Global スコープで実行されるため、最初から定義していたのと同じ事になります。

但し、この処理を行う為に読みだされるソースコード側で注意する事があります

1) コメントにシングルクォートを使わないで REM を使う
2) 条件文で = を使わないで <> の else で表現する

これらは、ExecuteGlobal が正しく VBScript の構文を解析する為に重要な準備事項になるので注意して下さい

<job>
<object id="http" progid="Msxml2.ServerXMLHTTP" /> 
<script language="VBScript">

' 関数のソースコードを読みだして、関数として定義
strResult = HTTPGet( "https://toolbox.winofsql.jp/vbs/regtrim.php" )
if not IsEmpty( strResult ) and Left( strResult, 3 ) = "REM" then
	' 関数定義の実行
	ExecuteGlobal strResult
else
	MsgBox( "処理できませんでした" )
	Wscript.Quit
end if

str = RegTrim( getResource( "mydata" ) )
MsgBox( "/" & str & "/" )

Function HTTPGet( strUrl )

	on error resume next
	Call http.Open("GET", strUrl, False )
	if Err.Number <> 0 then
		MsgBox(Err.Description)
		HTTPGet = Empty
		Exit Function
	end if
	on error goto 0

	Call http.Send()

	HTTPGet = http.responseText

End Function
</script>
<resource id="mydata">


  　　この部分のみ取り出します 　 　


</resource>
</job>
VBScript

WSF : VBScript の 関数定義を WEB 上に置いて PC で使用する

基本的には SHIFT_JIS で保存する

まず、WEB 側に置くコードですが、Content-Type を text/plain にする為に、PHP で httpヘッダーを記述します。.htaccess で記述してもかまいませんが、WEB上の好きな場所に移動しやすくする為に php で記述しておくのが一番いいと思います。

ソースのキャラクタセットは shift_jis で保存して shift_jis として httpヘッダーに出力します。こうしておくと、PC 側で ServerXMLHTTP を使って読み出して、動的に関数を定義する事も可能になります。( 動的に定義する場合は、UTF-8 でも問題ありません )


動的に定義する場合は VBScript の記述方法に注意

WEB 側に VBScript のコードを置いて動的に定義する場合の注意として重要なルールが二つあります。

1) シングルクォートのコメントを使用しない
2) 条件式の = を使用しない

何れも VBScript の構文解析の問題らしいです。



PHP で 『正規表現のトリム』の記述


<?php
header( "Content-Type: text/plain; charset=shift_jis" );
header( "Expires: Thu, 19 Nov 1981 08:52:00 GMT" );
header( "Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0" );
header( "Pragma: no-cache" );
?>
REM **********************************************************
REM 正規表現のトリム
REM **********************************************************
Function RegTrim( strValue )

	Dim regEx, str

	Set regEx = New RegExp
	regEx.IgnoreCase = True
	regEx.Pattern = "^[　\s]+"
	str = regEx.Replace( strValue, "" )
	regEx.Pattern = "[　\s]+$"
	RegTrim = regEx.Replace( str, "" )

End Function



この関数は、VBScript の正規表現を使って文字列の左右の空白文字を漢字スペースも含めて取り除くものです。

PC 側の定義は通常通りですが、script 要素の src 属性で web 上の場所を指定する事になります。拡張子を .wsf にしてWscript.exe か Cscript.exe で実行します( 通常はエクスプローラからダブルクリックです )

<job>
<script language="VBScript" src="https://toolbox.winofsql.jp/vbs/regtrim.php"></script>
<script language="VBScript">

str = RegTrim( getResource( "mydata" ) )
MsgBox( "/" & str & "/" )

</script>
<resource id="mydata">


  　　この部分のみ取り出します 　 　


</resource>
</job>




埋め込みテキストがソースコードの場合の記述方法

resource 要素では、ソースコード内にテキストデータを用意できるのでソースコードを準備しておいて、プログラムを登録したい時に使ったりします

但し、そのような場合は文の中に < があるとエラーになるので以下のように記述します

<job>
<script language="VBScript" src="https://toolbox.winofsql.jp/vbs/regtrim.php"></script>
<script language="VBScript">

str = RegTrim( getResource( "mydata" ) )
MsgBox( "/" & str & "/" )

</script>
<resource id="mydata">
<![CDATA[

  　　この部分のみ  <  取り出します 　 　

]]>
</resource>
</job>

大腸がん対策 / 日帰り内視鏡的結腸ポリープ粘膜切除術(直径2cm未満)の全貌

自分もポリープ3つ切除しました。3年たったので、再び検査を受けたら小さをのを一つまた切除しました。検査前日の下剤と当日の錠剤が変わってましたが、それ以外は同じでした。 そして来月3回目です...


検査のみでは、８，０００円の費用がかかります


検査でポリープが見つかった場合、そのまま手術を行います


その場合の費用は、手術に準じた治療なので、
２５，０００～３０，０００円かかります

また、病理検査(細胞検査)は、１臓器につき約２，６００円です

※ 保険外として使い捨てシーツ１枚２，０００円です
３割負担の場合です
※ 結局3つのポリープを切除して、２３，２２０円の請求でした
※ 薬代は別です


① 血液検査


手術前に一般的な血液検査に加えて、B型肝炎とC型肝炎の検査をします
検査の当日までに結果が出るように前もって行います


② 検査3日前～2日前


海藻、きのこ、繊維の多い野菜、種のある果実、ゴマ、ピーナッツ、こんにゃくなどは摂らない


③ 検査前日 昼食・間食・夕食


エニマクリン コロミル
大腸検査食　２食＋間食セットエニマクリン コロミル
( 江崎グリコ株式会社 )


昼と夜はレトルトパウチ食品
昼食はクリームシチュー

間食はビスケット

夕食は、かゆごはんと大根とじゃがいもの鶏そぼろあんかけ


④ 検査前日 就寝前


ラキソデート内用液0.75%
滴剤型緩下剤・大腸検査前処置用下剤
（ピコスルファートナトリウム水和物液)


⑤ 検査当日 朝６時


ガスモチン錠5mg を1錠


ガスコン錠40mg を2錠


ナウゼリン錠10 を1錠


⑥ 検査当日 朝８時


朝8時から2000㏄の水に溶かした前処置薬（下剤）を最低でも1500cc(さらに水を750cc)を1時間ほどの間に飲みます
( 味はすっぱいリンゴのような味です )


モビプレップの紹介
前回の結果、自分は腸が長いと言われ、モビプレップは全て飲み切るように言われました。それでも、少し残ってたようですがこれはどうしようもない。(視界は良好でしたし/前回よりはるかに汚れが少ない)


補足

使用方法では、『便がほぼ透明な水様便になったら』服用は終了とありますが、最初の1500cc で透明になったのでやめましたが、検査中のモニタでは結局少し便は残っていました。ですから、まだ飲む余裕があるのならば、残った薬を指示の元のみ切ってもいいかもしれません
医者にも『少し残ってるので見えにくい部分がありますが・・・』とか言われましたが、そんなの説明書からは解るはずもありません。


⑦ 検査受付


排便の回数を聞かれました。結局１２回でした。そこからすぐ着替える為に更衣室へ通され、専用待合室で待機。前の人の検査の様子が壁越しに良く聞こえました( その人にポリープは無かったようでした )


⑧ 検査開始


台の上に寝かされて、血管から鎮静剤、鎮痙剤を投入しました。その後、左を下にして横になって両足をまげてくの字になって待機すると肛門になにか塗られたかと思うと即内視鏡が挿入されました。目の前にはモニタがあり、中へ入っていく様子を自分自身も確認できます。
揺らしながら奥へ入っていきますが、腸が曲がっている部分を通過する時に少しだけ鈍い痛みを覚えますがたいしたものではありません


⑨ 手術開始


大腸の奥へ行くまでに3つのポリープが発見されたのでそのまま手術に移行します。この時の為に事前に同意書にサインしています( というかこれが目的でもありますし )。


⑩ ポリープ除去


モニタの手前からワイヤーが伸びてポリープの根っこ部分を締め付けて切り取ります。その後クリップ1～２個ほどで傷跡を留めてアームでポリープを回収していました。ポリープの一つは小さくて平坦なので、下に何かを注入して膨らましてから切り取っていました。


⑪ 撤収


内視鏡からの映像しか見えませんが、どうやらカメラは進行方向を見るようになっていて、撤収時は肛門出口に向かってモニタされます。ですから、最後に自分の肛門内からお医者さんの掌がポリープを受け取る不思議な映像を見る事ができました


⑫ 術後


完全に治るまでには約2週間かかり、4～5日間は出血がおこりやすい状態なのでできるだけ安静にしますが、3日後には仕事があるので出勤しました。( できるだけ座るようにして下さいと看護士さんに言われました )

※ 手術日は金曜がいいですね
歩いて病院まで来たので、『歩いて大丈夫ですか?』と聞いたら、『ゆっくり歩いてください』と言われました


⑬ 手術当日


食事はおかゆ。
水分は自由(但し、炭酸・コーヒーは避ける)。
飲酒・たばこは不可
安静にする事。
入浴は不可。


⑭ 二日目


食事はおかゆ
飲酒・たばこは不可
シャワーのみ可


⑮ 三日目・四日目


食事は軟飯
消化の悪い硬いものや油物、刺激物(わさび、からし、こしょう、コーヒー)は不可
飲酒・たばこは不可
できるだけ安静にして、激しい運動や遠出は控える
三日目は入浴不可
四日目には入浴可


⑯ 一週間後に検査結果


Tubular adenoma, high grade, HMO
Tubular adenoma, low grade HMX

要するに異常なし。
ポリープは、一般的に多い放置するとガンになる可能性のあるものでした。
腺腫（adenoma）
Tubular adenoma : 良性上皮性腫瘍 - 管状腺腫
▼ Wikipedia より
http://ja.wikipedia.org/wiki/%E5%A4%A7%E8%85%B8%E3%83%9D%E3%83%AA%E3%83%BC%E3%83%97

グループ1 ：　正常もしくは炎症性変化
グループ2 ：　炎症性の変化がある
グループ3 ：　腺腫性で軽度、または中等度の異型＝腺腫
グループ4 ：　腺腫性で高度の異型または癌を疑うもの＝腺腫と癌の一部
グループ5 ：　明らかな癌


⑰ たとえガンであっても


表層のものであれば、ほぼ100% に近い生存率で完治します( 術後の処置等はありません )。重要なのは、定期的に検査を受けてポリープを除去する事です。


⑱ 便潜血検査は有効な検査ですが、痔の人はどうせ出る可能性が高いので内視鏡検査すべきです


便潜血検査で全てのガンをチェックできませんし、早期発見したいならこの①～⑮に慣れるべきでしょう

前の人とドクターとの会話が特別な待合室に聞こえて来ましたが、痔による出血を根拠に受けられた方みたいで、ポリープは無かったみたいです。


専門医なら大腸の内視鏡検査を勧めるでしょう。
言うまでも無いことですが「血便のある方」が便潜血検査をするのは無意味です。便潜血検査は「血便も何も症状が無い。検診に精密検査を受ける時間は無い方」の「簡易的なスクリーニングである」と考えてください
出典 大腸がん検査、便潜血について、大腸癌、直腸癌、大腸検査、大腸ポリープ、血便、総合サイト


⑲ 事後処理


契約している保険会社に連絡して、手術費を請求する為の書類を送ってもらいましょう。お医者さんには、その書類を渡して『診断書』として記入してもらいます。( もちろん有料で3，000円ほどでした )
保険は５００００円入金されました



保険適用された場合、その際の手術費用等は差し引きされて医療費控除としては使えません


No.1120　医療費を支払ったとき（医療費控除）｜所得税｜国税庁


医療費控除の対象となる金額は、次の式で計算した金額(最高で200万円)です。

実際に支払った医療費の合計額 - 保険金などで補てんされる金額 - 10万円

保険金などで補てんされる金額
例 : 生命保険契約などで支給される入院費給付金や健康保険などで支給される高額療養費・家族療養費・出産育児一時金など

注 : 保険金などで補てんされる金額は、その給付の目的となった医療費の金額を限度として差し引きますので、引ききれない金額が生じた場合であっても他の医療費からは差し引きません。

10万円
注 : その年の総所得金額等が200万円未満の人は、総所得金額等5％の金額


Explorer.exe コマンドライン 引数(オプション)

※ /n と /e は通常意味味無いようですが、オリジナルの記述なので置いておきます

Explorer.exe [/n],[/e] [(,)/root,[object]] [/select,[object]]


/n

表示枠が 1 つの新しいウィンドウを開き，デフォルトの場所 （通常Cドライブ）を表示する．（explorer.exe /n ：フォルダツリーが付かない，explorer.exe /n,/e ：フォルダツリーが付く）．通常は，Windowsがインストールされているドライブのルートが表示され，ウィンドウが既に開いている場合は，別のウィンドウを開く．


/e

Windows エクスプローラをデフォルトの表示設定（フォルダツリーもつく）で新しいウィンドウを開く． ","に続いて，表示したいフォルダを書かなければ，標準でＣドライブが表示される．


/root,[オブジェクト] 

オブジェクトに指定した所をrootのように見せて表示する．この場合，オブジェクトのフォルダより上位のフォルダを表示しないので，そこには移れない． オブジェクトの所を半角スペースのみにすると，デスクトップがルートになる．


/select,[オブジェクト]

ウィンドウに，指定したフォルダ，ファイル，またはアプリケーションが選択された状態で表示する．

※ Microsoft からは消失しているし、ネット上で見つけたのも geocities なので消失予定なので持って来ました。
▼ 消失
support.microsoft.com/en-us/help/314853


デフォルトの表示設定で開く

Explorer /e,%USERPROFILE%



ファイルを選択して開く

Explorer /e,/select,%SystemRoot%\notepad.exe

デバイスを探す / Find My Device – Google / Android Find



デバイスを探す

https://www.google.com/android/find

URL が android find と分かりやすいので、これで Google 検索すればいいと思います。


Android でログインしているアカウントでブラウザからログインする

すぐにマップで場所が特定できて、充電状態も解ります。単に身の回りのどこかを探したい場合は『音を鳴らす』でマナーモードとは関係無く音が鳴ります。


紛失または盗難の場合は、ロックをかけます

忘れる事が無いパスワードを設定します。普段ロックをかけていなくてもこれでロックが間に合えば、登録しているアプリを通じた問題は避けれるはずです。


データを全て消去も可能

状況によってすぐに全ての安全を確保したいのであれば、データを全て削除してしまえば『廃棄』という最後の手段が使えますね。