スキップしてメイン コンテンツに移動

itextSharpで日本語外字の対応

使っている日本語外字の対応は、外字フォントファイルを取り込んで、文字をPDFに出力するときに一文字ずつ外字かどうかを確認して外字の場合は外字フォントファイル、外字じゃない場合はシステムのフォントファイルから文字を出す方法です。
(1)ユーザ定義外字のファイルを指定
//My DocumentsのgaijiフォルダにあるEUDC.TTFを参照
fpGaiji = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + @"\gaiji\EUDC.TTF";
(2)TextSharpのフォントを作る
//iTextSharpのフォント、区別するためiFontとiColorをusing
//using iFont = iTextSharp.text.Font;
//using iColor = iTextSharp.text.Color;
iFont fntGaiji = new iFont(BaseFont.CreateFont(fpGaiji, BaseFont.IDENTITY_H, true), 12, iFont.NORMAL, new iColor(0,0,0));
//非外字はsystem32のmsgothicを指定
fpMsGothic = Environment.SystemDirectory.Replace("system32", "fonts") + @"\msgothic.ttc,0";
iFont fntName = new iFont(BaseFont.CreateFont(fpMsGothic, BaseFont.IDENTITY_H, true), 12, iFont.NORMAL, new iColor(0,0,0));

(3)
Phrase ph = new Phrase();
//gaijiStringは外字が入っている文字列を想定
ph = gaijiName((gaijiString.Text], fntName, fntGaiji);
(4)外字と非外字のPhraseを作るメソッドgaijiName
private Phrase gaijiName(string str, iFont fnt, iFont fntgaiji)
{
string chkMoji;
Phrase ph = new Phrase();
for (int cnt = 0; cnt < str.Length; cnt++) { chkMoji = str.Substring(cnt, 1);
string ascMoji = BytesToHexString(StringToBytes(chkMoji, Encoding.GetEncoding(932)));
if (Convert.ToInt32(ascMoji, 16) >= 0xF040 && Convert.ToInt32(ascMoji, 16) <= 0xF9FC {
Chunk ch = new Chunk(chkMoji, fntgaiji);
ph.Add(ch);
}
else
{
Chunk ch = new Chunk(chkMoji, fnt);
ph.Add(ch);
}
}
return ph;
}

コメント

このブログの人気の投稿

Excel Power Query 英数字の全角から半角への変換

最近仕事上でExcelのPower Queryを始めました。しかし、英数字の全角から半角への変換関数がないため、下記のサイトを参考して、 作っちゃいました。  https://qiita.com/baku2san/items/8041d0259fe0db680e7e https://www.yoheim.net/blog.php?q=20191101 (original as text) as text =&gt; let    originalText = Text.Combine({original, ""}),    replaceResult =  Web.Page("<script>var originalText="&"'"&originalText&"'"&";var result=originalText.replace(/[A-Za-z0-9]/g, function(s) {return String.fromCharCode(s.charCodeAt(0) - 0xFEE0);});document.write(result);</script>")       [Data]{0}[Children]{0}[Children],    result = if (List.Count(replaceResult) &lt;= 1) then    {        "" as text // 変換して何も残らない場合    } else if (replaceResult{1}[Text]{0} = null) then    {       originalText   as text// 何も見つからない場合    }  else {       replaceResult{1}[Text]{0} as text    } in     result{0}  

自己流思い付き

 長年契約してきたさくらインターネットのVPSに稼働しているWordpressが何らかのものに削除されました。幸い残したいものはこのブログに移したので、あまり困ったことはありませんでした。もうVPSを解約しようと思いますが、今年の11月までの契約なので、正直って迷っております。  職場のホームページサーバがMacmini上のピュアDebianなので、実験台としてVPSを契約したのですが、もう実験しないし、解約してもよいだと思います。   このブログもこれをきっかけにタイトルを変えました。

余裕ですかね。

  いまの自分はやることが多いが、意外と慌てず一歩一歩現場と歩んでいき、地道にデータ入力から可視化までの利便性、完全性と正確性を追求する余裕が出ております。SpotfireというBIツールにハマり、人に使い方を教えながらもまたその恩恵を受けているといういい循環も大きいですね。大体自分のようなポストにいる人たちはあまりプログラムを書く余裕もないだが、自分は幸せのほうと思います。