先日ツイッターでアンケートを採りました。「スマホで使っている日本語入力アプリはなんですか」というものです。選択肢は、

  1. Google日本語入力
  2. Simeji
  3. ATOK
  4. その他

です。思いの外Simejiのシェアが高かったので、何か野良辞書を作るときにSimeji形式のものは欠かせないだろうという印象を受けました。

ATOKやMS-IME、Google日本語入力は細かいところを除き、基本的に「よみ(TAB)単語」形式です。

読み1 (TAB区切り) 単語1 (改行)
読み2 (TAB区切り) 単語2 (改行)



読みX (TAB区切り) 単語X (改行)

ところがSimeji形式は改行無しの1行で「ヘッダー1:"単語1,"単語2",・・・,ヘッダー2:"読み1","読み2",・・・フッター」というちょっとというか相当変わったものです。

{"EN_KEY":[],"EN_VALUE":[],"JAJP_VALUE":["単語1","単語2",・・・"単語X"],"JAJP_KEY":["読み1","読み2",・・・"読みX"]}

そういうわけで、ある程度単語数が多い場合は何かしら変換プログラムを作らないと大変だと分かりました。

 

まず、シート"Simeji"に、ヘッダー1、ヘッダー2、フッターをそれぞれセルに格納しておきます。コード内に書いてもいいんですが、長いしダブルクォーテーションが多いので間違えないように。

別のシート"Dic"に辞書を貼り付けます。ここら辺はとりあえず手動です。また、コメント行なども手動で削除しておきます。

コードの流れとしては、

とりあえず上書き保存→最終行を調べる→ヘッダー1を格納→単語列を""で囲って格納(for next)→ヘッダー2を格納→読み列を""で囲って格納(for next)→フッターを格納→新規シートを作ってA1セルに書き込む

という感じ。最初に上書き保存するのは最終行の誤認識を防ぐため。新規シートは日付と時刻でシート名を作ります。A1セルに入れてるのも手抜きで。手動でテキストエディタにコピペしてUTF-8/LFでファイル名"simeji_user_dic.txt"で保存して完了です。

コードです。ちょっと適当です。

Sub Dic2Simeji()

    Dim StrDic As String
    Dim StrSimejiHeader1 As String
    Dim StrSimejiHeader2 As String
    Dim StrSimejiFooter As String
    Dim NewShtName As String
    Dim DblRowCount As Double

    ' /// 最初に上書き保存する ///
    ActiveWorkbook.Save
    
    ' /// 最終行を取得 ///
    DblRowCount = Worksheets("Dic").Cells.SpecialCells(xlLastCell).Row

    StrSimejiHeader1 = Worksheets("Simeji").Cells(2, 2).Text
    StrSimejiHeader2 = Worksheets("Simeji").Cells(3, 2).Text
    StrSimejiFooter = Worksheets("Simeji").Cells(4, 2).Text

    StrDic = ""

    ' /// ヘッダー1を格納 ///
    StrDic = StrSimejiHeader1

    ' /// 単語列を格納 ///
    For n = 1 To DblRowCount - 1
        StrDic = StrDic & Chr(34) & Worksheets("Dic").Cells(n, 2).Text & Chr(34) & ","
    Next n
    StrDic = StrDic & Chr(34) & Worksheets("Dic").Cells(DblRowCount, 2).Text & Chr(34)

    ' /// ヘッダー2を格納 ///
    StrDic = StrDic & StrSimejiHeader2

    ' /// 読み列を格納 ///
    For n = 1 To DblRowCount - 1
        StrDic = StrDic & Chr(34) & Worksheets("Dic").Cells(n, 1).Text & Chr(34) & ","
    Next n
    StrDic = StrDic & Chr(34) & Worksheets("Dic").Cells(DblRowCount, 1).Text & Chr(34)

    ' /// フッターを格納 ///
    StrDic = StrDic & StrSimejiFooter

    ' /// Simeji,Dic以外の古いシートを削除 ///
    If Worksheets.Count > 2 Then
        For n = Worksheets.Count To 3 Step -1
            Application.DisplayAlerts = False
            Worksheets(n).Delete
            Application.DisplayAlerts = True
        Next n
    End If

    ' /// 新しいシートを作成(シート名は日付と時刻から生成)///
    NewShtName = CStr(Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time))
    With Worksheets.Add(after:=Worksheets(Worksheets.Count))
        .Name = NewShtName
    End With

    ' /// 作成したシートのA1セルにStrDicを書き込む
    ActiveSheet.Cells(1, 1).Value = StrDic

    MsgBox "A1セルをコピーして任意のテキストエディタに貼り付けてください。" _
            & vbCrLf & "エンコード:UTF-8, 改行:LF で保存する。"
    
End Sub

[雑記] 近況

ブログの移行は結局出来ず。ジャンルが全く異なる他のブログをはてなで書いています。

近況

  • 2016年前半 いろいろありました
  • 2016年7月 転職しました
  • 2016年7月 引っ越しました
  • 2016年7月 SONY SRS-ZR7買いました
  • 2016年8月 Lenovo G50-80買いました(今考えると無駄だった)
  • 2016年8月 NEC Aterm WG2200HP買いました
  • 2016年9月 I-O DATA LCD-RDT242XPB買いました
  • 2016年9月 YAMAHA YAS-106買いました
  • 2016年9月 SONY BDP-S1500買いました(2015年下位モデル)
  • 2016年9月 各種IMの辞書仕様とか調べてます(趣味)
  • スマホはたぶん増えてません。取り立てて欲しい機種もないし
  • 辞書がらみでiOS端末が欲しいのでiPod touchとか狙ってるけど2万円払うんだったらWalkman A20欲しいと思いませんか?
  • その他白物家電は冷蔵庫洗濯乾燥機電子レンジトースター電気ケトル除湿器、家具はベッド机椅子など
  • ダイソンV8がもの凄く欲しい
  • My SQLのバージョンアップ調べたけど僕には無理そうです(このブログ)

 

あけましておめでとうございます

皆様、あけましておめでとうございます。

本年はブログを移転しようと思っています。昨年はMovableTypeを最新版に更新しようと思ったのですが、MySQLのバージョンアップも必要であり、バックアップ等の方法等がネック(理解できてない)で結局更新できずじまいでした。それならばと記事が移行出来て扱いも簡単なブログサービスにしようと考えた次第です。

既にはてなブログに場所を確保していますが、正式な移行にはもう少し時間がかかると思います。

どうぞよろしくお願いします。

 

新年まずは、CES2016ですね!

毎回わざわざ ファイル → 印刷 → 設定:現在のページを印刷 → 印刷 とやるのが面倒くさいのでマクロにしてボタンにしました。あー、楽になった。

Sub PrintActivePage()
    ' ◆◆ 現在のページのみ印刷するマクロ ◆◆
    ActiveDocument.PrintOut Background:=True, Range:=wdPrintCurrentPage
End Sub

応用:

Sub PrintActivePagePlus1()
    ' ◆◆ 現在のページと次のページの2枚を印刷するマクロ ◆◆
    Dim P1, P2
    P1 = Selection.Information(wdActiveEndPageNumber)
    P2 = P1 + 1
    ActiveDocument.PrintOut Background:=True, Range:=wdPrintFromTo, From:=CStr(P1), To:=CStr(P2)
End Sub

■ ソニー、場所をとらないBlu-ray Discプレイヤー新製品――「BDP-S6500/S1500」登場 (ITmedia +D LifeStyle, 2015.6.3)
■ ソニー、Netflix対応予定の省スペースBDプレーヤー (AVWatch, 2015.6.3)
■ ソニー、Netflix&DSD対応のコンパクトなBDプレーヤー「BDP-S6500」など2機種 (Phile-web, 2015.6.3)
ソニー、NETFLIX対応のコンパクトなBDプレーヤー (マイコミ 家電FAN, 2015.6.3)

とりあえず。

  • XMB (クロスメディアバー)廃止, HTML5ベースの新メニュー
  • NETFLIX対応 (要別途契約)
  • ハイレゾ対応( S1500は192kHz/24bitまでのWAV/Flac, S6500は更にDSD5.6MHz対応)
  • BDP-S6500 : W255×D192×H39mm, 0.9kg, 20,000円前後
  • BDP-S1500 : W230×D194×H39mm, 0.8kg, 12,000円前後

あとで加筆するかも。

Sub OpenAnyFolder()
' ◆◆ いろいろなフォルダを開く ◆◆
    Dim strPath As String
    
    '***既定のファイルの場所(オプション>保存で設定)
    'strPath = Application.DefaultFilePath
    
    '***アドインフォルダ C:\Program Files\Microsoft Office\Office14\Library
    'strPath = Application.LibraryPath
    
    '***XLSTARTフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\Excel\XLSTART
    'strPath = Application.StartupPath
    
    '***ユーザーのテンプレートフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\Templates
    'strPath = Application.TemplatesPath
    
    '***ユーザーのアドインフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\AddIns
    'strPath = Application.UserLibraryPath
    
    '*** アクティブなブックが含まれているフォルダ
    'strPath = ActiveWorkbook.Path & "\"
    
    '*** 不明 ***
    'strPath = Application.AltStartupPath
    'strPath = Application.NetworkTemplatesPath
    
    'MsgBox strPath
    Shell "C:\Windows\Explorer.exe " & strPath, vbNormalFocus
End Sub

[Phone] Nokia 208 Dual SIMのAPN設定方法

前回は通話が出来ることを確認しましたので、今回は3Gのインターネット接続を試してみます。

今回用意したのは、IIJmioのSIMとBIGLOBE LTE・3GのSIMです。 どちらもデータ通信専用SIMですが、BIGLOBEの方はSMS対応しています。

まず最初にIIJmioのSIMをNokia208に挿してみます。

あれ?認識されません。Docomoの通話SIMのときはこういうの出なかったのですが・・・。

この画面でもReg. failedと表示されています。

気を取り直してBIGLOBEのSIMに挿し変えてみます。

今度は何事もなく認識されました。

さて、APNの設定方法についてはこちらのvodafoneのサイトを参考にさせて頂きました。

http://deviceguides.vodafone.ie/web/nokia-208/explore/internet/set-up-your-phone-for-internet/

 

「Menu」を開き、「Setting」に入ります。

 

「Configration」に入ります。

「Option」を選びます。 (※画面では一度設定をしているので設定が出来ていますが無視してください)

「Add new」を選択。

「Access point」を選択します。

「Account name」に適当な分かり易い名前を入力します。

「Access point sett.」を選択します。

「Bearer settings」を選択。

やっとアクセスポイント設定画面になりました。ここにAPN設定を入力します。BIGLOBEの場合はこちら

端末の Authentication type のところがおそらく認証方式で、たぶん、たぶんですよ、NormalがCHAPで、SecureがPAPだと思います。

入力したところ。

入力したら、この画面まで戻ってきます。「Activate configrat.」を選択します。

「SIM1」を選択します。(3GはSIM1のみです)

「Access point」の箇所を・・・

さきほど作ったアクセスポイント設定を選択します。

以上です。さっそくブラウザでhttp://www.google.co.jpを開いてみます。

文字化けしてますけど表示されてますね!

ついでなのでTwitterも試してみましょう。 Menu > Apps > My apps と入っていくと、

Twitterアプリが入っています。設定は各自行ってください。

おおおお!!日本語表示されてますね!

 

※ただし日本語入力は出来ませんのでご注意ください。

 

次回はいよいよ日本語入力に挑戦したい・・・かも。

日付が狂っている場合があるので、設定 > 日付と時刻 で「自動更新」を外して手動でセットします。

以上。

 一つ目は一昨年の誕生日に買った Lumia 520 (Windows Phone 8, 3G, シアン)、二つ目は昨年の10月頃に買った Lumia 636 (Windows Phone 8.1, LTE/3G, イエロー) 、そして今回お迎えしたのがなんと!

今更ですが、Nokia 208 Dual SIM (Cell Phone, 3G, レッド) です! ていうか赤しかカートになかった!

本体、裏蓋(撮影のため外しました)、マニュアル(読めないw)、充電池、しょぼそうなヘッドホン、一体型の充電器(変換プラグ付)

並べてみた。
INGRESS ENLIGHTENED勢としては何故GREENがないのか?と怒られそうです。

やっぱり携帯電話はストレート端末ですよ!

上部にヘッドホン端子とmicroUSB端子(充電およびSync)

裏側。左下の金属カバーのところがSIM 1スロットでこちらは3G/2G用。右上のもう一つ金属のところがmicroSDスロット(Max 32GB)

SIM 2スロットはこちら。差し込むタイプ。こちらは2G専用。どちらもmicro SIMです。

-------

3GはWCDMAでBand1および8に対応しています。日本ではドコモとソフトバンクです。ドコモのFOMAプラスエリア(Band19)とは全くの無縁です。今回はこちらにNTT Docomoで契約しているSIMを入れてみました。Xperia SXで契約しているもので、パケ定やSPモードは契約してない通話用(寝かせ)SIMです。740円ちょっと/月の奴です。

特に何もしなくても電波を掴んでくれました。一応ちょっと怖いので Setting > Connectivity > Mobile Dataでデータ通信をOFFにしておきました。

通話オッケーでした。SMSは送るのは出来ましたが受信がうまく出来ませんでした(au携帯から送った場合)。

なお、メニューは英語、繁体中国語、簡体中国語、インドネシア語が入ってますが日本語は入っていません。

 

次回はアプリ関係を試してみたいです。標準でFacebookやTwitter、LINEなんかが入っています。

全国対戦の新規マップ、ベネヴィスBことベネヴィス高原地帯~祝福なき礼拝堂~です。ベネヴィスAから行動できる地形が多少北寄りに変わって前よりも若干細くなった感じ。

Cプラで膠着するマップですね。そんな訳で僕ならではのこの布陣を考えてみました。

やったー!!初期レーダーだよ!!

両陣営とも第2プラント付近でレーダー展開、Cプラをほぼ索敵範囲に押さえ、また進撃ルートをも覆っています。ただし再展開するときにサイドがぎりぎりなので漏れる可能性が高いです。再展開には注意を要します。適切な副武器を左右の凸ルートに設置して索敵の補助にするのがいいでしょう。とにかく後ろに抜かせないことが肝心。

両陣営とも近くにリペアポッドがあるのが好印象ですね。なお、リペアはリペアセントリーγがオススメです。SPは回復早い胴の方がいいです。(私はノヴァ胴)

レーダーIIに変更した場合。Cプラが手前半分しか索敵出来ません。ちょっと弱いか。左右は余裕目に索敵出来ているのでそこそこ。再展開時の漏れも横方向が広いので初期レーダーよりはこちらが確実か。

 

おまけ:広域センサー。設置場所に苦労しそう。置けるけど破壊されそう。補助補給IIは必ず欲しい。その分自由に動けるからなんとかなりますかね。

軽量センサーは強い人がテンプレ作ってくれるから割愛しますね。

カスタム検索
Access Counter
Powered by Movable Type 4.22-ja

2017年8月

Sun Mon Tue Wed Thu Fri Sat
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31    

最近のブログ記事