JISコード 文字一覧
http://popozure.info/old/code_jis.html
シフトJISコード 文字一覧
http://popozure.info/old/code_sjis.html
JISコード・シフトJISコード 文字一覧
返信
投稿者「Develop Admin」のアーカイブ
Windowsタブレットを買ってみた (1)注文してみた
Windowsタブレットを購入しました。
ドスパラのタブレット
「Diginnos raytrektab DG-D08IWP」の中古を購入しました。
https://used.dospara.co.jp/sale/detail.php?serialno=83400000036955
スペックは、CPUは「Intel Atom x5-Z8350」、メモリは「DDR3L-RS 1600 4GB」、ストレージは「eMMC 64GB」、ディスプレイは「8インチ（1,280×800／マルチタッチ対応）」、OSは「Windows 10 Home 64bit」。
ペイントツール「CLIP STUDIO PAINT DEBUT シリアルコード」付属、スタイラスペン付属です。
替え芯2本と、芯抜きは欠品ぽいです。
※欠品表示はありませんでしたが「CLIP STUDIO PAINT DEBUT シリアルコード」も欠品でした。
ドスパラ 中古WEB販売にて11,900円＋消費税（10%）で、13,090円でした。
詳細スペック
新品のスペックはこんな感じです。
| OS | Windows 10 Home 64bit |
| CPU | Intel Atom x5-Z8350 (1.44GHz) |
| グラフィックス | Intel HD Graphics 400 |
| メモリ | DDR3L-RS 1600 4GB |
| ストレージ | eMMC 64GB |
| ディスプレイ | 8インチ 1280×800 マルチタッチ対応 |
| 通信 | IEEE 802.11ac、Bluetooth 4.0 |
| インターフェイス | Micro HDMI、Micro USB、microSD、ヘッドフォンジャック |
| カメラ | 前面：200万画素／背面：200万画素 |
| バッテリー駆動時間 | 約4時間 |
| サイズ | 214x128x10.11mm |
| 重量 | 400g |
| ソフト | CLIP STUDIO PAINT DEBUT |
| 付属品 | 筆圧感知スタイラスペン、替え芯2本、芯抜き、ACアダプタ、Micro USB-USB変換ケーブル |
| 価格 | 49,800円＋税 |
電源はUSBポートが付いているACアダプタ（5V／2A）に、付属のMicro USB-USBケーブルを使って本体のMicro USBポートに接続します。
https://pc.watch.impress.co.jp/docs/column/hothot/1057838.html
到着が楽しみ
ベッドでごろ寝しながらネット閲覧したり、軽くお絵描きなんかできるといいな。
では、この辺で。(^-^)o
[amzn-link asin=”B07MNLPC45″][amzn-link asin=”B07FDT4XMJ”][amzn-link asin=”B07MN99CKM”][amzn-link asin=”B07G4L2G7M”][amzn-link asin=”B07CHLWJKG”]
→届きました。トラブル発生です。
https://popozure.info/20191006/15288
Windows Update のお知らせ
気付いたらアイコントレイにWindows Updateのお知らせが出ていました。
マウスでポイントすると「更新プログラムをインストールするには、デバイスを再起動する必要があります。再起動する時刻を選択してください。」と出ます。
ダブルクリックして Windows Update のウィンドウを表示させました。
「KB4524147」という更新のようです。
「今すぐ再起動する」をクリックしました。
再起動に約2分かかりました。
では、この辺で。(^-^)o
カスペルスキー ライセンス切れは誤表示だった
カスペルスキー（Kaspersky）のライセンス切れは誤報でした。
ライセンス切れ！？
カスペルスキー切れたって。
まじだ！Σ(ﾟロﾟ)oﾞ
というわけで、カスペルスキーの有効期限が切れてしまったので、更新しました。
https://popozure.info/20190930/15171
ですが･･･これ、誤表示だったようです。
誤表示のお知らせ
気付いたらこんなお知らせが表示されていました。
本来、期限が近付くと、「あと〇〇日で有効期限が終了します」といったメッセージが出るはずなのに、今回は突然有効期限切れになっていたので「見逃したかな？」と思っていたのですが、そもそも誤表示だったようです。
メールも来ていた
カスペルスキーからメールも来ていました。
| 平素は弊社製品をご愛用賜り、厚く御礼申し上げます。
2019年9月30日（月）18:00頃より、ご利用中のライセンスが有効期間中にも関わらず 今回の事象により不要なライセンスを購入されたお客様には商品代金をご返金させていただきます。 ※ご購入されたライセンスを返品せずにそのままお使いいただくこともできます。 |
不要にライセンス更新してしまったら返金対応するよ、ということでした。
どうせ更新するのでこのままでいいですが、せめてちょっと割引とか何か欲しかったです。
830日残っていたので、1,925日くらいライセンスが切れません。
面倒が無くていいですね。
では、この辺で。(^-^)o
[amzn-link asin=”B07G8J28NP”][amzn-link asin=”B07N95L7PY”][amzn-link asin=”B07JZB1WJ8″][amzn-link asin=”B01MA1KESI”][amzn-link asin=”B0722VN892″]
VBAでシフトJISコードの文字列をJISコードの文字列に変換する
VBAで「シフトJISコードの文字列」を「JISコードの文字列」に変換します。
「シフトJISコードの文字列」を「JISコードの文字列」へ変換する
Microsoft ExcelのVisual Basic for Applicationsには文字コード変換の機能がありません。
今回は「シフトJISコードの文字列」を「JISコードの文字列」に変換する関数を作成してみました。
作成した関数を追加する
Microsoft Excelを起動したら、［Alt］＋［F11］を押してVBAのエディタ（VBE）を開きます。
VBAのエディタを開いたら、プロジェクト エクスプローラーで右クリック→［挿入］→［標準モジュール］を選んで標準モジュールを追加して、以下を貼り付けてください。
[vb title=”fnvSJIStoJIS.bas”]Option Explicit
‘シフトJISをJISに変換する Ver.1.2 @popozure
Function fncSJIStoJIS(ByVal Source As String) As String
Dim i As Long ‘汎用指数
Dim lngHigh As Long ‘上位バイト
Dim lngLow As Long ‘下位バイト
Dim lngCode As Long ‘コード
‘全角にする
Source = StrConv(Source, vbWide)
‘文字数分だけ処理する
For i = 1 To Len(Source)
‘シフトJISコードを取得
lngCode = Asc(Mid$(Source, i, 1))
If (lngCode < 0) Then
lngCode = lngCode + &H10000
End If
‘シフトJISコードからJIS区点コードを求める
lngHigh = lngCode \ &H100 ‘上位バイトの処理
If (lngHigh < &HE0) Then
lngHigh = lngHigh – &H81 ‘&H81-&H9F → &H00-&H1E
Else
lngHigh = lngHigh – &HC1 ‘&HE0-&HEF → &H1F-&H2E
End If
lngHigh = lngHigh * 188 ’94区×2＝188
lngLow = lngCode Mod &H100 ‘下位バイトの処理
If (lngLow < &H80) Then
lngLow = lngLow – &H40 ‘&H40-&H7E → &H00-&H3E
Else
lngLow = lngLow – &H41 ‘&H80-&HFC → &H3F-&HBB
End If
lngCode = lngHigh + lngLow ‘JIS区点コード
‘JIS区点コードからJISコードを求める
lngHigh = lngCode \ 94 ‘区の処理
lngHigh = lngHigh + &H21 ‘&H21を足す
lngLow = lngCode Mod 94 ‘点の処理
lngLow = lngLow + &H21 ‘&H21を足す
‘変換結果の文字列を作成する
fncSJIStoJIS = fncSJIStoJIS & Chr$(lngHigh) & Chr$(lngLow)
Next i
End Function[/vb]
参考にしたサイトはありません。
使い方
VBAの中から関数として呼び出します。
パラメータには変換したいJISコードの文字列を指定します。
[vb title=”test.bas”]’関数のテスト処理
Sub Main()
Dim strJIS As String
Dim strSJIS As String
strSJIS = "こんにちは初めまして。ぽぽろん＠ぽぽづれ。です。"
strJIS = fncSJIStoJIS(strSJIS)
MsgBox "変換前（SJIS）:" & vbCrLf & strSJIS & vbCrLf & vbCrLf & "変換後（JIS）:" & vbCrLf & strJIS, vbInformation
End Sub[/vb]
結果としてSJISコードの文字列が入ってきます。
参考
シフトJISコード表
https://popozure.info/old/code_sjis.html
では、この辺で。(^-^)o
VBAでJISコードの文字列をシフトJISコードの文字列に変換する
VBAで「JISコードの文字列」を「シフトJISコードの文字列」に変換します。
「JISコードの文字列」を「シフトJISコードの文字列」へ変換する
Microsoft ExcelのVisual Basic for Applicationsには文字コード変換の機能がありません。
今回は「JISコードの文字列」を「シフトJISコードの文字列」に変換する関数を作成してみました。
作成した関数を追加する
Microsoft Excelを起動したら、［Alt］＋［F11］を押してVBAのエディタ（VBE）を開きます。
VBAのエディタを開いたら、プロジェクト エクスプローラーで右クリック→［挿入］→［標準モジュール］を選んで標準モジュールを追加して、以下を貼り付けてください。
[vb title=”fnvJIStoSJIS.bas”]Option Explicit
‘JISをシフトJISに変換する Ver.1.2 @popozure
Function fncJIStoSJIS(ByVal Source As String) As String
Dim i As Long ‘汎用指数
Dim lngHigh As Long ‘上位バイト
Dim lngLow As Long ‘下位バイト
Dim lngCode As Long ‘コード
Dim lngLength As Long ‘文字数
‘半角にする
Source = StrConv(Source, vbNarrow)
‘文字数（偶数で無い場合、終了）
lngLength = Len(Source)
If (lngLength Mod 2 <> 0) Then
Exit Function
End If
‘文字数分だけ処理する
For i = 1 To lngLength Step 2
‘2バイトJISコードから句点コードを計算する
lngHigh = Asc(Mid$(Source, i, 1)) ‘上位バイトの処理
lngHigh = lngHigh – &H21 ‘&H21を引いて、JIS区点コードの区を求める
lngLow = Asc(Mid$(Source, i + 1, 1)) ‘下位バイトの処理
lngLow = lngLow – &H21 ‘&H21を引いて、JIS区点コードの点を求める
lngCode = lngHigh * 94 + lngLow ‘JIS区点コード
‘句点コードからシフトJISコードを計算する
lngHigh = Int(lngCode / 188) ‘上位バイトの処理
If (lngHigh < &H1F) Then
lngHigh = lngHigh + &H81 ‘&H00-&H1E → &H81-&H9Fにシフトする
Else ‘&HA0-&HDFは半角カナなので抜かす
lngHigh = lngHigh + &HC1 ‘&H1F-&H2E → &HE0-&HEFにシフトする
End If
lngHigh = lngHigh * &H100
lngLow = lngCode Mod 188 ‘下位バイトの処理
If (lngLow < &H3F) Then
lngLow = lngLow + &H40 ‘&H00-&H3E → &H40-&H7Eにシフトする
Else ‘&H7FはDELなので抜かす
lngLow = lngLow + &H41 ‘&H3F-&HBB → &H80-&HFCにシフトする
End If
‘変換結果の文字列を作成する
fncJIStoSJIS = fncJIStoSJIS & Chr$(lngHigh + lngLow)
Next i
End Function[/vb]
参考にしたサイトはありません。
使い方
VBAの中から関数として呼び出します。
パラメータには変換したいJISコードの文字列を指定します。
[vb title=”test.bas”]’関数のテスト処理
Sub Main()
Dim strJIS As String
Dim strSJIS As String
strJIS = "$3$s$K$A$O=i$a$^$7$F!#$]$]$m$s!w$]$]$E$l!#$G$9!#"
strSJIS = fncJIStoSJIS(strJIS)
MsgBox "変換前（JIS）:" & vbCrLf & strJIS & vbCrLf & vbCrLf & "変換後（SJIS）:" & vbCrLf & strSJIS, vbInformation
End Sub[/vb]
結果としてSJISコードの文字列が入ってきます。
参考
JISコード表
https://popozure.info/old/code_jis.html
では、この辺で。(^-^)o
クレジット請求が12万円！？Σ(ﾟロﾟ)oﾞ
高額引き落としでちょっと焦りました。
Web明細で引き落とし額を確認
2019年11月請求分が、なんと、126,745円！？Σ(ﾟロﾟ)oﾞ
ちょっと高すぎじゃない！？Σ(ﾟロﾟ)oﾞ
不正利用とかされてんじゃない！？Σ(ﾟロﾟ)oﾞ
赤裸々！Web明細！
Web明細を見てみます。(*ﾉωﾉ)
| ご利用年月日 | ご利用箇所 | ご利用額 | 支払区分 |
| 2019/7/30 | 東京電力 電気料金等 ０１年０７月分 | 11,804 | １回払 |
| 2019/7/31 | ドコモご利用料金 ８月分 | 846 | １回払 |
| 2019/8/3 | ロリポップ | 1,296 | １回払 |
| 2019/8/3 | ロリポップ | 1,296 | １回払 |
| 2019/8/3 | ロリポップ | 3,240 | １回払 |
| 2019/8/6 | ココカラファイン | 1,654 | １回払 |
| 2019/8/7 | ケンタッキ－フライドチキン 高島平 | 3,530 | １回払 |
| 2019/8/14 | ＡＭＡＺＯＮ．ＣＯ．ＪＰ | 27,800 | １回払 |
| 2019/8/15 | ｘｘｘｘ薬局 ｘｘｘ | 6,370 | １回払 |
| 2019/8/15 | ＮＨＫ受信料 １年 ８月～ ２年 ７月 | 13,990 | １回払 |
| 2019/8/16 | 池袋駅西口地下ＡＬＴＴＥ（チャージ） | 10,000 | １回払 |
| 2019/8/16 | 池袋駅西口地下ＡＬＴＴＥ（チャージ） | 5,000 | １回払 |
| 2019/8/16 | 池袋駅西口地下ＡＬＴＴＥ（チャージ） | 4,000 | １回払 |
| 2019/8/20 | ＡＭＡＺＯＮ．ＣＯ．ＪＰ | 19,900 | １回払 |
| 2019/8/24 | ＡＭＡＺＯＮ．ＣＯ．ＪＰ | 3,800 | １回払 |
| 2019/8/26 | ＮＴＴコミュニケーションズ ８月分 | 1,515 | １回払 |
| 2019/8/26 | ＮＴＴコミュニケーションズ ８月分 | 2,756 | １回払 |
| 2019/8/26 | ＮＴＴコミュニケーションズ ８月分 | 5,403 | １回払 |
| 2019/8/27 | ＡＭＡＺＯＮ．ＣＯ．ＪＰ | 2,545 | １回払 |
こんな感じ。
Amazonで買い物
- 8/14 27,800円
父と母に1TB SSDを1個ずつ購入。 - 8/20 19,900円
子ども用の「MSI GeForce GTX1650 4GT LP VD6989」を建て替え購入。 - 8/24 3,800円
父の「Power DVD Pro 通常版」を購入。
ロリポップ！インターネット
Pz-LinkCardなどの開発環境や、子どもにブログの勉強をさせるために契約しているもの。
年額。
みんな大好きケンタッキー
つい食べたくなりまして･･･。
ALTTE チャージ
Suicaへのクレジットカードからのチャージ。
ポイントが貯まります。
NTT コミュニケーションズ
ひとつが光回線。
残りが「OCN モバイル ONE」。いわゆる格安SIM。ぼくとぼくと父と母と母と次男坊で6回線くらい持ってます。
水道光熱費
二人暮らしと考えると電気代が少し高いですよね。
NHK 受信料
年払いです。
その他
薬局とかは生活用品などですね。
んー、不正利用は無いようでした。
12万円引き落としか、つらい。
（グラボの2万円は出世払いです。いつになることやら･･･。）
では、この辺で。(^-^)o
[amzn-link asin=”B071KGRXRG”][amzn-link asin=”B0088QXTK6″][amzn-link asin=”B07T4178GT”][amzn-link asin=”B07PQ6ZFYD”][amzn-link asin=”B00516RUX8″]
カスペルスキー ライセンス更新してみた
カスペルスキー（Kaspersky）のライセンスを更新しました。
ライセンスの有効期限は終了しました
カスペルスキー切れたって。
まじだ！Σ(ﾟロﾟ)oﾞ
というわけで、カスペルスキーの有効期限が切れていました。
※有効期限が残っていても「有効期限は終了しました」と出てしまう不具合でした。830日残っていました。不要に購入してしまった方に対しては返金対応されています。
更新ライセンスを購入する
「更新ライセンスを購入する」のボタンを押したものの、何故か「指定されたページを表示することができませんでした。」の表示になってしまいます。
仕方がないので、トップページから「更新ライセンスのご購入」を選びます。
https://home.kaspersky.co.jp/store/kasperjp/ja_JP/html/pbPage.19_ren_opbuy_ks/ThemeID.37143000/?icid=jp_cn-lropks_pro_ona_oth__onl_b2c__banner_______
こっちから行っても、「プレミアライセンス版」「3年」は20%オフでした。
「お客様情報の入力」
氏名、携帯電話番号、メールアドレスを入力します。
「お支払い方法の選択」
「クレジットカード」を選びました。
他には「コンビニ払い」と「ペイジー」が選べます。
「ご注文の確認」
入力した内容を確認して、「販売条件およびプライバシーポリシー」同意のチェックを入れて、「注文を確定する」をクリックします。
購入完了
購入完了、アクティベーションコードが表示されます。
アクティベーションコードの追加を選んで、コピペします。
追加完了。
これで3年間安心です。
では、この辺で。(^-^)o
[amzn-link asin=”B07G8J28NP”][amzn-link asin=”B07N95L7PY”][amzn-link asin=”B07JZB1WJ8″][amzn-link asin=”B01MA1KESI”][amzn-link asin=”B0722VN892″]
→ライセンス切れは誤表示でした。
https://popozure.info/20191001/15220
WindowsHomeServer買ってみた（ふたたび） (5)故障の切り分けをしてみた
「Acer easyStore H340 (WHS)」のHDDを入れ替えてみました。
ドライバーの更新をした
前回まで、Windows Updateをして、ドライバーの更新をしました。
https://popozure.info/20190928/15114
Power Pack があたらない
Windows Update による更新は無くなりました。
しかし最新は「Power Pack 3」のはずです。
どうやら「Power Pack 1」～「Power Pack 3」はファイルをダウンロードしないといけないみたいなのですが、Microsoft ダウンロード センターにはもうありません。
Power Pack が無いと、SMB2以降に対応していないらしく、SMB1をインストールしないと共有フォルダーが見られません。
どこかに落ちてないかな･･･。
今まで使っていたディスクをセットしてみた
さて、故障したH340で使っていたディスクをセットしてみました。
うまく認識されれば、今まで使っていた共有フォルダーがそのまま使えます。
おや、起動しません。
故障したはずのH340と同じ挙動です。
もしかすると「本体が故障した」んじゃなくて「ディスクの故障」だった可能性があります。
「故障したH340」に「動作するHDD」をセット
「故障したはずのH340」に「起動するHDD」をセットしてみました。
電源オン。
こちらの組み合わせでは「ｉ」が赤点滅して起動しません。
が、何度か刺し直しをしたら正常に起動しました。
- HDD（のファイル）が故障している
- 旧H340のトレイ1も接触が悪い
こんな感じでしょうか。
HDDスタンドを使ってHDDをクローン（複製）してみた
HDDをクローンします。
まずは、「HDDスタンド 玄人志向 KURO-DACHI/CLONE+ERASE/U3」でクローンします。
https://popozure.info/20150530/7679
クローンにかかった時間は3時間と10分程度。
クローンしたHDDで起動してみたところ、正常に動作しているようです。
ソフトを使ってクローンしてみた
「Acronis True Image 2016」のディスククローンでクローンしてみます。
クローンにかかった時間は10分程度。
クローンしたHDDで起動してみたところ、一見ちゃんと起動します。
コネクタで見てみると警告が沢山出ていて、サービスが起動していなかったり、ファイル競合を起こしていたりして、上手く動いていないです。
ソフトでクローンするのはダメなようです。
たぶんディスク シグネチャも復元すれば大丈夫なのだと思うのですが、「Acronis TrueImage」でディスク シグネチャを復元するには、USBブートして復元しないといけないようなので面倒です。
その内、試してみます。
では、この辺で。(^-^)o
[amzn-link asin=”B002HJUM6E”][amzn-link asin=”B01BKYWN2C”][amzn-link asin=”B01N00F9YO”][amzn-link asin=”B01LX922U0″][amzn-link asin=”B01LX922U0″]
→ディスクを抜き差ししてみました。
https://popozure.info/20191005/15217
WindowsHomeServer買ってみた（ふたたび） (4)ドライバをインストールしてみた
「Acer easyStore H340 (WHS)」のドライバーを更新しました。
長かった Windows Update
何はともあれ、Windows Updateしました。
https://popozure.info/20190926/15102
サポート切れではありますが、Windows Update できて良かったです。
全部で4～5回、先起動したのち、アップデートが無くなりました。
ドライバを適用
「Marvell ミニポート・ドライバ」
10.67.3.3→11.45.4.3へ更新。
- 「XP-Server 2003 32-bit-11.45.4.3.zip」を展開。
- デバイス マネージャから「ネットワーク アダプタ」→「Marvell Yukon 88E8071 PCI-E Gigabit Ethernet Controller」→ドライバの更新。
- 「一覧または特定の場所からインストールする」。
- 「次の場所を含める」→展開したフォルダを選択。
「インテル チップセット・ドライバ」
- 「infinst_autol.exe」（INF_9.2.0.1030(2011-04-21)）を実行。
- 再起動。
インテル マトリクス・ストレージ・マネージャー
- 「IATA89CD.exe」（8.9.0.1023(2009-07-17)）を実行。
- 再起動。
アドインをインストール
「Light Out GreenIT」
- 「Light-Out-GreenIT for Windows Home Server 1.5.5」をインストール。
- 再起動。
「Disk Manager」
- 「Windows Home Server Disk Manager Add-In」をインストール。
「Duplication Info Add-in」
- 「Dupplication Info Add-in」をインストール。
「Home Server SMART」
- 「Home Server SMART」をインストール。
「Time Server Settings」
- 「Windows Time Server Settings」をインストール。
ユーザーの作成
ユーザーを作成しました。
次は･･･
壊れたH340のHDDを、新しいH340に刺してみて、起動するか試したいと思います。
では、この辺で。(^-^)o
[amzn-link asin=”B002HJUM6E”][amzn-link asin=”B01BKYWN2C”][amzn-link asin=”B01N00F9YO”][amzn-link asin=”B01LX922U0″][amzn-link asin=”B01LX922U0″]
→HDDを差し替えてみました。
https://popozure.info/20190928/15145