趣味プログラミングblog

６月から始まったIIJのギガプラン。
新しくなったパケット使用量のアプリを見て気づいた。

回線毎にパケット残量が表示されているではないか！？

２回線契約していて、２２Ｇで２，９２６円と思っていたけど、
俺の分２Ｇしかないじゃん。

今日時点で残り１．５Ｇ。絶望的だわ。


IIJのサイトで再確認したら
小さい文字で「パケットのシェアは６月予定」と書いてある。

パケットの追加購入も６月予定だし、どうにもならねーじゃん。

それならせめてプランを間違えないような誘導をしてくれ。

大手キャリア３社が４月から新プランをスタートさせた。
おいらが使うIIJは、５月から新プランスタート。

先日ＩＩＪのプラン変更の手続きを完了したので
今回はそのあたりの話。
来月から楽天モバイルも無制限じゃなくなるし。。。
現契約回線と料金は以下のとおり。
【ＩＩＪ】２回線で１０Ｇまで、月額３９６０円。
【楽　天】パケット使い放題で月額０円。

ネットで格安ＳＩＭを比較検討したけど、
結局ＩＩＪがベストという結論になった。

---

ＩＩＪと楽天の新プランがこちら。

【ＩＩＪ】２Ｇで858、１５Ｇで1518、２０Ｇで2068、２０Ｇ超え200/G
【楽　天】１Ｇまで0、３Ｇまで980、２０Ｇまで1980、２０Ｇ超え2980
パケット量と料金をグラフ化してみた。
iPhone XS以降の機種はeSIMに対応しているので
２回線を契約するハイブリッドプランも併記。こうやってグラフ化すると、楽天モバイルをメインにする選択はないなー。

てなわけで、楽天が１Ｇまで無料なうちはＩＩＪメインのハイブリッドでいくことにします。


ちなみに、楽天モバイルには楽天Linkというアプリが用意されていて
アプリから通話する分にはすべて無料（パケット使用量のみ）です。

無料の１Ｇで毎月５０時間は話せるので
iPhoneユーザーならサブ回線として楽天モバイルを契約して損はない。

今なら４か月目の月末まで無料。しかも事務手数料０円って。。。
https://network.mobile.rakuten.co.jp/campaign/
正直、楽天モバイルには頑張ってほしいので褒めちぎったけど、
契約増えてもパケット１G未満だったら楽天の収益増えねーんだよな。

---

ここからはぼやき。

楽天の電波が入らないエリアでは、AUの回線で通信するんだけど、
５Ｇを超えると、１Ｍｂｐｓ（１２５バイト／秒）の速度制限がかかる。

制限はかかるものの、２０年前のブロードバンド相当なので、
低画質の動画で早送りとかしなきゃ問題なく見れるレベル。

５００円で１Ｍｂｐｓ使い放題なら魅力的なんだけどな。

前回、アクセス解析のタグのミスに気付いた。今回は、間違ったタグを作り直してソースを修正するもの。超地味。。。

忍者ブログのアクセスログは以下の３つのソースに共通のコードを使っている。
（１）scriptタグのsrc　/ufo/190330800
（２）a hrefタグのリンク先URL　/bin/gg?190330800
（３）イメージソースのURL　/bin/ll?190330800

上記はページ１のタグの一部。
ページ２は、190330801
ページ１１は190330810じゃなくて19033080a
ページ３７も190330810じゃなくて19033080A
ページ６３でようやく190330810

エクセルの関数で場合分けするのめんどいので、適当に対処。

ベースとなる行を対象にsubstituteで置換。
codeとchar関数を駆使して、アルファベットをインクリメントする。

ページ73　L74セル=SUBSTITUTE($L$1,"0800","081" & CHAR(CODE("a")+B74-73))

あぁ６０ページも差し替えかぁ・・・。

忍者ブログのアクセスログ解析は、手動でソースコードにタグを貼らないといけない。

管理ページからタグ情報をコピーしてくるのがめんどい。
よく見たらページ番号とタグ情報の数値リンクしてるじゃん！

さっそくエクセルで全ページの一覧と張り付けるタグ情報を作成。
がんばって、過去のページにも解析タグを貼った。

前回、ログファイルから該当の文字列を含む行だけ抽出するVBScriptを作った。

抽出する文字列を追加する場合、プログラムを修正しないといけないってのは
使いづらいと思い、抽出条件をINPUTBOXで指定するバージョンを作ってみた。

紙ベースでしっかり設計したから１時間かからずに完成。


毎度INPUTBOXで文字列を入力するのはデバッグ中もだるさを感じるとこなので、
オプション設定にした方が使いやすいか・・・。①か②お好みで。
①strFilter = InputBox("フィルタ条件を入力してください。" & chr(10) & "ORは†、ANDは‡で指定します。","フィルタ条件入力")
②strFilter = "ui‡com†アカ"

カンマやアスタリスクを演算文字列として使うことも考えたけど、
演算文字列はログ抽出できないので、†と‡を使うことにした。

演算文字列は‡を先に計算する。たとえば
A†B‡C　とした場合は、Aまたは（BかつC）を含む文字列を取得する。

‡の数が未知数だったので、Dictionary配列を使うことにした。

うまく使えば結構便利かも！！


◆使用方法◆（変更なし）
ソースをメモ帳にコピーし、「.vbs」形式で保存。
ログファイルを保存したファイルのアイコンにドラッグドロップする。
（複数ファイルにも対応）

以下、ソース。