Арабский текст отделяется в PDF-файл с использованием VB.net - PullRequest
0 голосов
/ 17 января 2019

Я создал простой код, который создает PDF-файл, содержащий текст, и он работает нормально только тогда, когда я использую текст на английском языке, но проблема заключается в том, что когда я использую арабский текст, разделился следующим образом: م

но буквы должны быть связаны вот так: السلام عليكم

вот мой код с арабским текстом, любая помощь будет очень признательна.

Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO
Imports System.Drawing.Imaging
Imports iTextSharp.text.pdf.PdfPCell
Imports iTextSharp.text.pdf.PdfPTable
Imports iTextSharp.text.pdf.BaseFont

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim fontLoc = "C:\Users\Win 10\Documents\Visual Studio 2012\Projects\WindowsFormsApplication1\WindowsFormsApplication1\ScheherazadeRegOT.ttf"


    Dim basef As BaseFont = BaseFont.CreateFont(fontLoc, BaseFont.IDENTITY_H, True)

    Dim arabicfont As New iTextSharp.text.Font(basef, 24, iTextSharp.text.Font.NORMAL, iTextSharp.text.BaseColor.BLACK)
    Dim el As New Chunk()
    Dim arabicfont2 As New iTextSharp.text.Font(basef, 16, el.Font.Style, el.Font.Color)
    el.Font = arabicfont2


    Dim pdfPTable As New PdfPTable(1)
    Dim pdfDoc As New Document()


    Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("C:\Users\Win 10\Desktop\mjh.pdf", FileMode.Create))
    pdfDoc.Open()
    pdfDoc.Add(New Paragraph(StrReverse("السلام عليكم"), el.Font))

    'Launch the document if you have a file association set for PDF's 
    Dim AcrobatReader As Process = New Process
    AcrobatReader.StartInfo.FileName = "C:\Users\Win 10\Desktop\mjh.pdf"
    AcrobatReader.Start()

    pdfDoc.Close()
End Sub
End Class
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...