Visual Basic

C#Coudou wrote:

Is there a way in vb.net that will not use some utilities?

Imports iTextSharp.text
Imports iTextSharp.text.pdf

Public Class PDFMerge

#Region "Fields"
    Private _sourcefolder As String
    Private _destinationfile As String
    Private _fileList As IList = New ArrayList()
#End Region

#Region "Properties"
    ''' 
    ''' Gets or Sets the SourceFolder 
    ''' 
    Public Property SourceFolder() As String
        Get
            Return _sourcefolder
        End Get
        Set(ByVal value As String)
            _sourcefolder = value
        End Set
    End Property

    ''' 
    ''' Gets or Sets the DestinationFile 
    ''' 
    Public Property DestinationFile() As String
        Get
            Return _destinationfile
        End Get
        Set(ByVal value As String)
            _destinationfile = value
        End Set
    End Property
#End Region

#Region "Public Methods"

    ''' 
    ''' Add a new file, together with a given docname to the fileList and namelist collection 
    ''' 
    Public Sub AddFile(ByVal pathnname As String)
        _fileList.Add(pathnname)
    End Sub

    ''' 
    ''' Generate the merged PDF 
    ''' 
    Public Sub Execute()
        MergeDocs()
    End Sub

    Public Sub Execute(ByVal Destination As String)
        DestinationFile = Destination
        MergeDocs()
    End Sub

#End Region

#Region "Private Methods"

    ''' 
    ''' Merges the Docs and renders the destinationFile 
    ''' 
    Private Sub MergeDocs()

        'Step 1: Create a Docuement-Object 
        Dim document As New Document()
        Try
            'Step 2: we create a writer that listens to the document 
            Dim writer As PdfWriter = PdfWriter.GetInstance(document, New System.IO.FileStream(DestinationFile, System.IO.FileMode.Create))

            'Step 3: Open the document 
            document.Open()

            Dim cb As PdfContentByte = writer.DirectContent
            Dim page As PdfImportedPage

            Dim n As Integer = 0
            Dim rotation As Integer = 0

            'Loops for each file that has been listed 
            For Each filename As String In _fileList
                'The current file path 
                Dim filePath As String = SourceFolder + filename

                ' we create a reader for the document 
                Dim reader As New PdfReader(filePath)

                'Gets the number of pages to process 
                n = reader.NumberOfPages

                Dim i As Integer = 0
                While i < n
                    i += 1
                    document.SetPageSize(reader.GetPageSizeWithRotation(1))
                    document.NewPage()

                    'Insert to Destination on the first page 
                    If i = 1 Then
                        Dim fileRef As New Chunk(" ")
                        fileRef.SetLocalDestination(filename)
                        document.Add(fileRef)
                    End If

                    page = writer.GetImportedPage(reader, i)
                    rotation = reader.GetPageRotation(i)
                    If rotation = 90 OrElse rotation = 270 Then
                        cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, _
                        reader.GetPageSizeWithRotation(i).Height)
                    Else
                        cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, _
                        0)
                    End If
                End While
            Next
        Catch e As Exception
            Throw e
        Finally
            document.Close()
        End Try
    End Sub

#End Region

End Class

thebiostyle wrote:

Will they ever make it possible?

Smithers-Jones wrote:

Who is "they"? Evil mad scientists?

<br />
Microsoft VBScript runtime error '800a01ca'<br />
<br />
Variable uses an Automation type not supported in VBScript: 'Method3'<br />
<br />
/test2.asp, line 21 

<% @Language="VBScript" %>
<% Option Explicit %>
<%

Dim rc

dim cta 

dim arrayz(5)
arrayz(0) = 100
arrayz(1) = 200
arrayz(2) = 300
arrayz(3) = 400
arrayz(4) = 500

set cta = Server.CreateObject("APP.APPCLASS")
rc = cta.METHOD((arrayz))

%>

Public Function METHOD(ByRef arrayz) As Boolean
       My.Computer.FileSystem.WriteAllText("C:\Temp\test3.txt", arrayz(2).ToString, True)
   End Function

Imports System.IO
Imports System.Math
Imports System.Object
Imports System.Threading
Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices.RegistrationServices
Imports System.Xml
Imports System.Xml.XPath


Public Class Class1 ' Main Class, declared as *com interopable*, type of project : "type library", meaning it will need to be registered in windows, and type library will need to be exported
    ' you wlll need to make a batch file with the following commands in it, to check whether it has been introduced into the global assembly cache, browse your hard drive
    ' to windows/assembly and look for an entry named "Test", if it *is* listed there, then it will work.

    'regasm Test.dll
    'regasm Test.dll /tlb:Test.dll
    'regasm Test.dll /codebase /tlb:Test.dll 
    'gacutil /i Test.dll

    ' Put it into the folder where you already put test.dll, along with *regasm.exe* and *gacutil.exe* (obligatory) and then execute the bat file
    ' The type library is now registered and you can call its methods (the only working method is called "Method1")

    Public Shared RezultatiY   ' vb.NET array to hold our data


    Public Function MethodNumber(ByRef numberz)   ' Fetch the array of type integer or double (will be converted to double)

        RezultatiY = Nothing
        Dim Arrayzz() As Object
        Arrayzz = Nothing
        Arrayzz = numberz

        Dim NumberOfElements As Integer = UBound(numberz) - 1 ' We need to find the total number of elements
        ReDim RezultatiY(NumberOfElements) ' And then redimension our array to that number of elements

        For i As Integer = 0 To UBound(Arrayzz) - 1
            Dim Temp As Double = CDbl(Arrayzz(i))
            RezultatiY(i) = CDbl(Temp)
            My.Computer.FileSystem.WriteAllText("C:\Temp\TestingIntegersAndDoubles.txt", RezultatiY(i) & " " & i & " " & " " & RezultatiY(i).GetType.ToString & vbCrLf, True)
        Next

    End Function

    Public Function MethodString(ByRef Words)   ' Fetch the array of type string

        RezultatiY = Nothing
        Dim Arrayzz() As Object
        Arrayzz = Nothing
        Arrayzz = Words

        Dim NumberOfElements As Integer = UBound(Words) - 1
        ReDim RezultatiY(NumberOfElements)

        For i As Integer = 0 To UBound(Arrayzz) - 1
            Dim Temp As String = CStr(Arrayzz(i))
            RezultatiY(i) = CStr(Temp)
            My.Computer.FileSystem.WriteAllText("C:\Temp\TestingStrings.txt", RezultatiY(i) & " " & i & " " & " " & RezultatiY(i).GetType.ToString & vbCrLf, True)
        Next

    End Function

    Public Function MethodChars(ByRef Characters)   ' Fetch the array of type characters

        RezultatiY = Nothing
        Dim Arrayzz() As Object
        Arrayzz = Nothing
        Arrayzz = Characters

        Dim NumberOfElements As Integer = UBound(Characters) - 1
        ReDim RezultatiY(NumberOfElements)

        For i As Integer = 0 To UBound(Arrayzz) - 1
            Dim Temp As String = CChar(Arrayzz(i))
            RezultatiY(i) = CChar(Temp)
            My.Computer.FileSystem.WriteAllText("C:\Temp\TestingChars.txt", RezultatiY(i) & " " & i & " " & " " & RezultatiY(i).GetType.ToString & vbCrLf, True)
        Next

    End Function
End Class


Public Class Method2  ' This is used for strings ( completely untested at this point )
    Public Shared RezultatiYP() = Nothing
    Dim NoviArray = Nothing
    Dim intColumns As Integer, intCnt As Integer, intPos As Integer
    Dim i As Integer, j As Integer, n As Integer
    Public vntTemp As Object
    Dim strTemp As String, chrTemp As String
    Const vectorSize As Integer = 10


    Public Function ConvertToArray(ByVal strParse As String, ByVal strDelimiter As String, ByVal intDimensions As Integer, ByRef vntArray As Object) As Integer
        ' Metoda za preuzimanje stringa iz VBS-a, delimitacija po znaku ",", stvaranje novog arraya, punjenje istog clanovima starog array-a.

        ' loop for number of instances of the delimiter and store it in an array for later use.
        ReDim vntTemp(vectorSize)
        n = 0
        For intPos = 1 To Len(strParse)
            chrTemp = Mid$(strParse, intPos, 1)
            If Mid$(strParse, intPos, 1) = strDelimiter Then
                intCnt = intCnt + 1
                FillAndSize(n, strTemp, vntTemp)
                strTemp = ""
                n = n + 1
            Else
                strTemp = strTemp & chrTemp
            End If
        Next
        FillAndSize(n, strTemp, vntTemp)
        ReDim Preserve vntTemp(n)

        ' redim the array (deprecating by 1 for base zero array) by row and column
        intColumns = (intCnt + 1) / intDimensions
        intDimensions = intDimensions - 1
        intColumns = intColumns - 1
        ReDim vntArray(intDimensions, intColumns)

        ' populate the newly redimensioned array
        n = 0
        For j = 0 To intColumns
            For i = 0 To intDimensions
                vntArray(i, j) = vntTemp(n)
                RezultatiYP(n) = vntTemp(n)
                n = n + 1
            Next
        Next
    End Function

    Private Sub FillAndSize(ByVal intCount As Integer, ByVal strTemp As String, ByRef vntInput As Object)
        Const vectorSize As Integer = 10
        Dim i As Integer
        i = intCount Mod vectorSize
        If i = 0 And intCount >= vectorSize Then
            ReDim Preserve vntInput(intCount + vectorSize)
        End If
        vntInput(intCount) = strTemp
    End Sub
End Class

<% @Language="VBScript" %>
<% Option Explicit %>
<%

dim cta 
set cta = Server.CreateObject("Test.Class1")

dim arrayz(8)
arrayz(0) = 5
arrayz(1) = 6
arrayz(2) = 7
arrayz(3) = 8
arrayz(4) = 9
arrayz(5) = 8
arrayz(6) = 7
arrayz(7) = 6

dim arrayz3(8)
arrayz3(0) = "C"
arrayz3(1) = "H"
arrayz3(2) = "A"
arrayz3(3) = "R"
arrayz3(4) = "a"
arrayz3(5) = "c"
arrayz3(6) = "t"
arrayz3(7) = "r"

dim arrayz2(8)
arrayz2(0) = "Today"
arrayz2(1) = "is"
arrayz2(2) = "A good Day"
arrayz2(3) = "To Die"
arrayz2(4) = "Tomorrow"
arrayz2(5) = "Glad"
arrayz2(6) = "Nothing"
arrayz2(7) = "Testing"

cta.MethodNumber(arrayz)
cta.MethodString(arrayz2)
Cta.MethodChars(arrayz3)

Response.Write Server.HTMLEncode("()")
%>