hi.
i have the last aspose.pdf
when i convert the next pdf the numbers flips sides
example of code
Dim fileCollection As HttpFileCollection = Request.Files
For i As Integer = 0 To fileCollection.Count - 1
Dim f As HttpPostedFile = fileCollection(i)
If f.ContentLength > 0 Then
Dim fileName As String = f.FileName
Dim fileArr = split(fileName,".")
Dim fileType = fileArr(ubound(fileArr))
Try
if lcase(fileType)="pdf" then
Dim docHtml As New Aspose.pdf.Document(f.InputStream)
Dim textAbsorber As New TextAbsorber()
docHtml.Pages.Accept(textAbsorber)
Dim extractedText As String = textAbsorber.Text
Response.Write(extractedText)
else
Dim info As FileFormatInfo = FileFormatUtil.DetectFileFormat(f.InputStream)
Dim lf As Aspose.words.LoadFormat = info.LoadFormat
' Dim options = New Aspose.words.LoadOptions(lf, "", "")
Dim docWord As New Aspose.words.Document(f.InputStream)
Dim docStream As New MemoryStream()
Dim fileExtension As String = FileFormatUtil.LoadFormatToExtension(lf)
Dim sf As Aspose.words.SaveFormat = FileFormatUtil.ExtensionToSaveFormat(fileExtension)
sf = FileFormatUtil.LoadFormatToSaveFormat(lf)
Dim opt
opt = New Saving.OoxmlSaveOptions()
if sf.ToString() = "Doc" then
opt = New Saving.DocSaveOptions(sf)
elseif sf.ToString() = "Docx" then
opt = New Saving.OoxmlSaveOptions(sf)
elseif sf.ToString() = "Rtf" then
opt = New Saving.RtfSaveOptions()
end if
docWord.Save(docStream, opt)
Dim builder As New DocumentBuilder(docWord)
Response.Write(builder.Document.GetText())
end if
catch
errText = Err.Description
response.write(errText)
Response.end
End Try
End If
Next i
144144קורות חיים - 2020.pdf (202.2 KB)
144144קורות חיים - 2020.pdf (202.2 KB)