いろいろありましたが、まとめ、いきましょう。とりあえずPDFCreatorのverは0.9.8になります。
PDFCreator0.9.8 (日本語対応バイナリ配布)
コンパイル環境のない方の為に、やすさんからいただいたバイナリとソースをUPしておきますね。やすさん、ありがとう！
配布
- PDFCreator0.9.8 (日本語対応exeファイル)
PDFCreator_0516.zip
(MD5 : 91ae1b27a964be1cfdbd111b286e445f) - 参考 PDFCreator0.9.8(上記ソース)
Version 0.9.8_090516.zip
(MD5 : db8944afaa2e672b31d9f66a8a473060)
使い方
- 本家からPDFCreator0.9.8をDLしていただき、一旦インストールします。
- その後、PDFCreator.exeを上記1.の日本語版exeファイルと差し替えます。
動作環境の報告
当バイナリは、W2K(SP4)/XP(SP3)での動作が確認されています。
Vista(32bit SP2)環境では、"VB6JP.DLL"をインストールする必要があるようです(これはVisual Basic 6.0 SP6あたりのランタイムを入れれば入ると思われ…)。
以下は上記ソースにいたるまでの解説・経緯のまとめになります。本家でバージョンアップがされたときのために…。
メニュー画面の日本語化について。
- PDFCreatorの文字化けをなおす…必須
- PDFCreatorの文字化けをなおす2…小手先
- PDFCreatorの文字化け問題-修正箇所発見…Vb6.0でコンパイルできるヒト向け(これで完璧に)
PDF情報の日本語入力について(※すべて、VB6.0でコンパイルできるヒト向け)
- PDFCreatorの日本語問題-PDF情報編2
- PDFCreatorの日本語問題-PDF情報編…(2)EncodeCharsについての部分のみ利用してください
2.の記事にある「(1)ReplaceEncodingCharsについて」は不完全だということがわかりましたので、以下がやすさんの差し替えソースです。
[Common]-[modPDF.bas]
Public Function ReplaceEncodingChars(Str1 As String) As String
'---ErrPtnr-OnError-START--- DO NOT MODIFY ! ---
On Error GoTo ErrPtnr_OnError
'---ErrPtnr-OnError-END--- DO NOT MODIFY ! ---
50010 Dim i As Integer, tStr As String
'---2009/05/16-START--- by yasu
Dim bStr() As Byte
Dim j, k As Integer
'---2009/05/16-End--- by yasu
50020 tStr = ""
50030 ' First we look for oct encoding chars
'---2009/05/16-START--- by yasu
'50040 For i = 127 To 255
'50050 Str1 = Replace$(Str1, "\" & Oct$(i), Chr$(i))
'50060 Next i
50070 ReplaceEncodingChars = Str1
j = 0
ReDim bStr(Len(Str1))
For i = 1 To Len(Str1)
Do
If Mid$(Str1, i, 1) <> "\" Then
bStr(j) = AscB(Mid$(Str1, i, 1)): j = j + 1
Else
If i <> Len(Str1) Then
If Mid$(Str1, i + 1, 1) Like "[\{}()]" Then
bStr(j) = AscB(Mid$(Str1, i + 1, 1)): j = j + 1: i = i + 1
Exit Do
End If
End If
If Len(Str1) - i > 3 Then
For k = 1 To 3
If Not Mid$(Mid$(Str1, i + 1, 3), k, 1) Like "[0-9]" Then
Exit For
End If
Next
If k = 4 Then
bStr(j) = CByte("&O" & Mid$(Str1, i + 1, 3)): j = j + 1: i = i + 3
Else
bStr(j) = AscB(Mid$(Str1, i, 1)): j = j + 1
End If
Else
bStr(j) = AscB(Mid$(Str1, i, 1)): j = j + 1
End If
End If
Loop Until 1
Next
tStr = StrConv(bStr, vbUnicode)
'---2009/05/16-End--- by yasu
50080 ' Second we look for hex encoding chars
50090 If Len(Str1) >= 4 Then
50100 If Mid$(Str1, 1, 1) = "<" And Mid$(Str1, Len(Str1), 1) = ">" Then
50110 If Len(Str1) Mod 2 = 0 Then
'---2009/05/16-START--- by yasu
ReDim bStr((Len(Str1) - 2) / 2)
'---2009/05/16-END---
50120 For i = 2 To Len(Str1) - 1 Step 2
50130 If IsNumeric("&H" & Mid$(Str1, i, 2)) = True Then
50140 If CByte("&H" & Mid$(Str1, i, 2)) > 255 Then
50150 Exit Function
50160 Else
'---2009/05/09-START--- by yasu
bStr((i - 2) / 2) = CByte("&H" & Mid$(Str1, i, 2))
'50170 tStr = tStr & Chr$(CByte("&H" & Mid$(Str1, i, 2)))
'---2009/05/09-END--- by yasu
50180 End If
50190 Else
50200 Exit Function
50210 End If
50220 Next i
'---2009/05/09-START--- by yasu
tStr = StrConv(bStr, vbUnicode)
'---2009/05/09-END--- by yasu
50230 End If
50240 End If
50250 End If
50260 If Len(tStr) > 0 Then
50270 ReplaceEncodingChars = tStr
50280 End If
'---ErrPtnr-OnError-START--- DO NOT MODIFY ! ---
Exit Function
ErrPtnr_OnError:
Select Case ErrPtnr.OnError("modPDF", "ReplaceEncodingChars")
Case 0: Resume
Case 1: Resume Next
Case 2: Exit Function
Case 3: End
End Select
'---ErrPtnr-OnError-END--- DO NOT MODIFY ! ---
End Function
後半だけでなく、前半の8進変換もどきもバイト配列に一端いれてから日本語変換する必要があったようです。
前段の8進もどきで一体なにをやっているかといいますと…。
たとえば「\203R\203\201\203\223\203g\202\360\223\212\215e」を日本語にすると「コメントの投稿」となるわけですが。「\203R」の「\数値3桁」を16進数に変換、アルファベットをASCIIの16進数に変換すると「83 54」。これはS-JISでの「コ」…。以下略。──という具合に日本語に変換していかなくてはならないわけですよ。数値にアルファベットと入り交ざっているこいつらを一端16進数に戻して、S-JISに変換する、という流れ。
引数で受け取る値を見ても、一見「！？」という感じですし、暗号でも見ている気分でしたよ。やすさんスゴイ！！ヽ(´ー｀)ノ
