AutoEpub3/AutoPdf.vb (diff)| @@ -6,7 +6,9 @@ | ||
| 6 | 6 | 'Imports iTextSharp.text.pdf |
| 7 | 7 | Imports mshtml |
| 8 | 8 | Imports Newtonsoft.Json |
| 9 | +Imports System.Runtime.InteropServices | |
| 9 | 10 | |
| 11 | + | |
| 10 | 12 | Public Class AutoPdf |
| 11 | 13 | |
| 12 | 14 |
| @@ -1370,18 +1372,24 @@ | ||
| 1370 | 1372 | Dim sKanji As String = vChapter.listText(2) |
| 1371 | 1373 | Dim sRuby As String = vChapter.listText(vIndx) |
| 1372 | 1374 | |
| 1375 | + Dim sRubyChk As String = JPReverseConv.Main(sKanji) | |
| 1373 | 1376 | |
| 1377 | + If sRuby <> sRubyChk Then | |
| 1374 | 1378 | |
| 1379 | + Dim kekdfd = "1" | |
| 1375 | 1380 | |
| 1376 | - | |
| 1377 | - If sKanji.IndexOf("百知らず") > -1 Then | |
| 1378 | - Dim kk = "11" | |
| 1379 | 1381 | End If |
| 1380 | 1382 | |
| 1381 | - Dim sPaire As String = sPaireRubi(sKanji, sRuby) | |
| 1382 | 1383 | |
| 1383 | - vChapter.listText(2) = sPaire | |
| 1384 | 1384 | |
| 1385 | + 'If sKanji.IndexOf("百知らず") > -1 Then | |
| 1386 | + ' Dim kk = "11" | |
| 1387 | + 'End If | |
| 1388 | + | |
| 1389 | + 'Dim sPaire As String = sPaireRubi(sKanji, sRuby) | |
| 1390 | + | |
| 1391 | + 'vChapter.listText(2) = sPaire | |
| 1392 | + | |
| 1385 | 1393 | Else |
| 1386 | 1394 | Console.WriteLine(vChapter.Title) |
| 1387 | 1395 | End If |
| @@ -1519,6 +1527,7 @@ | ||
| 1519 | 1527 | Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click |
| 1520 | 1528 | |
| 1521 | 1529 | Dim sKanji As String = "余り茶に福あり" |
| 1530 | + Dim kk As String = JPReverseConv.Main(sKanji) | |
| 1522 | 1531 | Dim sRuby As String = "あまりちゃにふくあり" |
| 1523 | 1532 | |
| 1524 | 1533 | Dim k2 = sPaireRubi(sKanji, sRuby) |
| @@ -1526,4 +1535,33 @@ | ||
| 1526 | 1535 | End Sub |
| 1527 | 1536 | |
| 1528 | 1537 | |
| 1538 | +End Class | |
| 1539 | + | |
| 1540 | + | |
| 1541 | +Class JPReverseConv | |
| 1542 | + <ComImport> | |
| 1543 | + <Guid(“019F7152-E6DB-11D0-83C3-00C04FDDB82E”)> | |
| 1544 | + <InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> | |
| 1545 | + Private Interface IFELanguage | |
| 1546 | + Sub Open() | |
| 1547 | + Sub Close() | |
| 1548 | + Sub Dummy5() | |
| 1549 | + ' DO NOT CALL | |
| 1550 | + Sub Dummy6() | |
| 1551 | + ' DO NOT CALL | |
| 1552 | + Function GetPhonetic(<MarshalAs(UnmanagedType.BStr)> str As String, start As Integer, length As Integer) As <MarshalAs(UnmanagedType.BStr)> String | |
| 1553 | + Sub Dummy8() | |
| 1554 | + ' DO NOT CALL | |
| 1555 | + End Interface | |
| 1556 | + | |
| 1557 | + Public Shared Function Main(args As String) | |
| 1558 | + Dim fel = TryCast(Activator.CreateInstance(Type.GetTypeFromProgID(“MSIME.Japan”)), IFELanguage) | |
| 1559 | + Dim str As String | |
| 1560 | + fel.Open() | |
| 1561 | + str = fel.GetPhonetic(args, 1, -1) | |
| 1562 | + fel.Close() | |
| 1563 | + Return str | |
| 1564 | + End Function | |
| 1565 | + | |
| 1566 | + | |
| 1529 | 1567 | End Class |
| \ No newline at end of file |
