[VBScript] 全角英数&記号を半角へ変換する
どーもボキです。

定型業務のツール支援するにも、文字バイトが統一されていないとそれすらままならない。

というか、たいていの人は文字バイトなど意識しない。
本当にわからないのだろう、言っても直らない。ツール側で吸収したほうが早い。

以下のZenToHan関数で文字サイズを半角に統一するとよい。
a0021757_09255103.png
ZenToHan関数での変換事例

SetScriptHost("cscript")

s = "yozda ( … > Z_ ̄∂ "
dprintf " 前:" & s
dprintf " 後:" & ZenToHan(s)

' ===============================================================================
' 全角→半角
Function ZenToHan(iStr)
Dim i,r

r = ""
For i = 1 To Len(iStr)
r = r & ZenToHan_func(Mid(iStr, i, 1))
Next
ZenToHan = r
end function
' 関数
Function ZenToHan_func(iStr)
Dim r
r = iStr
ZenToHan_func = r
If Asc(r) < Asc(" ") Then Exit Function
If Asc(r) > Asc("z") Then Exit Function

Select Case r
Case " " r = " "
Case "," r = ","
Case "." r = "."
Case ":" r = ":"
Case ";" r = ";"
Case "?" r = "?"
Case "!" r = "!"
Case "^" r = "^"
Case "_" r = "_"
Case "ー" r = "-"
Case "―" r = "-"
Case "‐" r = "-"
Case "/" r = "/"
Case "~" r = "~"
Case "|" r = "|"
Case "’" r = "'"
Case "”" r = """"
Case "(" r = "("
Case ")" r = ")"
Case "[" r = "["
Case "]" r = "]"
Case "{" r = "{"
Case "}" r = "}"
Case "+" r = "+"
Case "-" r = "-"
Case "=" r = "="
Case "<" r = "<"
Case ">" r = ">"
Case "′" r = "'"
Case "″" r = """"
Case "¥" r = "\"
Case "
" r = "$"
Case "
" r = "%"
Case "
" r = "#"
Case "
" r = "&"
Case "
" r = "*"
Case "
" r = "@"
Case Else
If Asc(r) >= Asc("
") Then
r = Chr(Asc(r) -Asc("
") +Asc("a"))
ElseIf Asc(r) >= Asc("
") Then
r = Chr(Asc(r) -Asc("
") +Asc("A"))
ElseIf Asc(r) >= Asc("
") Then
r = Chr(Asc(r) -Asc("
") +Asc("0"))
End If
End Select
ZenToHan_func = r
End Function
' ===============================================================================
' 実行ホストを切り替える
Sub SetScriptHost(HostName)
Dim i,s

If InStr(LCase(WSCript.FullName), LCase(HostName)) <> 0 Then Exit Sub

s = HostName & "
""" & WScript.ScriptFullName & """"
If WScript.Arguments.Count > 0 Then
For i = 0 To WScript.Arguments.Count -1
s = s &"
""" & WScript.Arguments.Item(i) & """" ' 引数
Next
End If
CreateObject("
WScript.Shell").Run s
WScript.Quit
End Sub
' -------------------------------------------------------------------------------
' デバッグ ※ここだけ抜粋してもOK
Dim objDbg
' クラス
Class TDebug
Dim FCScript

' 初期化処理
Private Sub Class_Initialize()
FCScript = InStr(LCase(WSCript.FullName), "
cscript") > 0
End Sub

' 終了処理
Private Sub Class_Terminate()
If Not FCScript Then Exit Sub

WScript.StdOut.WriteLine NOW & "
[END]"
WScript.StdIn.ReadLine
End Sub

' CScriptホストかどうか
Public Property Get CScript
CScript = FCScript
End Property

' デバッグメッセージ処理
Public Sub dprintf(v)
Dim i,s,ityp
If Not FCScript Then Exit Sub

s = v
ityp = VarType(v)
If ityp = vbBoolean Then
s = CStr(v)
ElseIf VarType(v) >= vbArray Then
s = "
"
For i = 0 to UBound(v)
s = s & "
dprintf(" &i& ")=" & v(i) & vbCRLF
Next
End If
WScript.Echo s
End Sub
End Class
' 関数
Sub dprintf(v)
If VarType(objDbg) = vbEmpty Then
Set objDbg = New TDebug
objDbg.dprintf(NOW & "
" & WScript.ScriptFullName)
End If
objDbg.dprintf(v)
End Sub



[PR]
# by yozda | 2017-08-16 22:11 | プログラミング | Trackback | Comments(0)
エコジマン
どーもボキです。

東映太秦映画村にて戦隊モノの歴史が展示されてた。
胸の「エコ」マークが良いね。さすがエコジマン。

懐かしい。デンジマン、サンバルカンまでがボキの世代だね。
a0021757_17083842.jpg
a0021757_17090117.jpg

ちなみに嫁はゴレンジャー、バトルフィーバー、デンジマン世代らしい。
ゴレンジャーは展示すらなかったな。なんでだろ。

バトルフィーバー??知らないなぁ。
このシリーズだけ、顔がついてるんですけど。
a0021757_17131878.jpg


[PR]
# by yozda | 2017-08-10 17:07 | くっだらないコト | Trackback | Comments(0)
[ブログ] Google Analyticsからのメール
どーもボキです。

Google Analyticsからメール来てた。
ブログのアスセス解析で登録してたんだったわ。忘れてた。

脱ブログ初心者程度のアスセス数はあるからだろうね。
90%はGoogle検索から飛んで来てるみたいだ。
a0021757_10203973.jpg


[PR]
# by yozda | 2017-08-10 10:16 | パソコン全般 | Trackback | Comments(0)
[3DS] ドラゴンクエスト11を購入
どーもボキです。

先週末に3DS版をゲット。よく出来てます。
a0021757_20035325.jpg

[ドラクエ9] 「あらぶる魔人の地図 Lv.99」をゲット

[PR]
# by yozda | 2017-08-06 19:59 | ゲーム | Trackback | Comments(0)
[撮影] リバーサイドフェスティバル
どーもボキです。

焼き鮎買って食べて帰ってきた。
三匹1000円。うまい。ノンアルは200円と良心的。
a0021757_18343345.jpg


a0021757_18343480.jpg

a0021757_18343538.jpg

a0021757_18343585.jpg

a0021757_18343674.jpg

a0021757_18343686.jpg


[PR]
# by yozda | 2017-07-30 18:31 | Trackback | Comments(0)
[撮影] 広島市役所 中工場 その2
どーもボキです。

研修で近くに来たので、撮影。工場内を見学したい……。
a0021757_22173674.jpg
1Fはごみ収集車両の出入り口

a0021757_22182923.jpg
2Fの展示エリア

a0021757_22191277.jpg
2F展示エリアを逆方向から

a0021757_22195586.jpg
縮尺模型

a0021757_22202980.jpg
展示エリア奥には集積場があるようだ

a0021757_22211706.jpg
テラスから見えた黒煙をあげて走るボート

[撮影] 広島市役所 中工場
[PR]
# by yozda | 2017-07-20 22:15 | カメラ | Trackback | Comments(0)
10年前のPC「inspiron530s」をWindows7化する。
どーもボキです。

XPを高速化しようと不要サービスを停止したら、
起動中にフリーズするようになってしまった。セーフモードでサービスを再起動させても改善せず。

iTunesのXPサポートも終了し、iOS 10以降のiPhoneも認識できないので、
Win7にすることにした。

ヤフオクでWin7 32bitのメディアを購入、近くの店でメインドライブ用のSSDを購入。
拡張ドライブには2TB HDDを用意しているので、SSDは一番安い120GBにした。ついでにメモリも拡張すべく2GB×2を購入。

3年前に購入したMicroSoftのHome Use Programのoffice2013もインストール。

電源投入から起動まで45秒と超快適。このマシンもまだ使えそうだ。
しかし、ここを読む限り、Win8.1以降はグラフィックドライバを認識しないみたい。
海外のネット情報をあされば何とかなるのかもしれないが、次は買い替えかな。

出費合計:13,380円
 Win7 32bit:1,980円
 SSD 120GB:5,800円
 Office 2013:1,400円
 メモリ(2GB×2):4,200円

メモリスロットは、2つと思い込んでいたが、実は4スロットだった(1GB×2での2GBだったため、2スロットは空いていた)。
2GB×1でよかった。ヤフオクなら、数100円で売っているし、ここはもったいなかったな。

a0021757_16104933.jpg


[PR]
# by yozda | 2017-07-09 15:37 | パソコン全般 | Trackback | Comments(0)
ダイソーのプチブロック、その2
どーもボキです。今こんな感じ。
a0021757_17191056.jpg


[PR]
# by yozda | 2017-06-25 17:18 | 物・モノ・もの | Trackback | Comments(0)
iPhoneの防水ケースが全然ダメ
どーもボキです。

a0021757_22333476.jpg
水入りまくり。
[PR]
# by yozda | 2017-06-22 22:32 | 物・モノ・もの | Trackback | Comments(4)
ダイソーのプチブロック
どーもボキです。

a0021757_22514750.jpg

a0021757_22514712.jpg

見かけたやつは全種類買って来た。
少しずつ作っとる。

動物系は娘と一緒に作ってる。
なかなか楽しいし、結構難しい。
[PR]
# by yozda | 2017-06-21 22:49 | 物・モノ・もの | Trackback | Comments(0)