Public Function ParsePdfText(ByVal sourcePDF As String, Optional ByVal fromPageNum As Integer = 0, Optional ByVal toPageNum As Integer = 0) As String
        Dim sb As New System.Text.StringBuilder()
        Dim reader As New PdfReader(sourcePDF)
        Dim pageBytes() As Byte = Nothing
        Dim raFile As iTextSharp.text.pdf.RandomAccessFileOrArray = Nothing
        raFile = New iTextSharp.text.pdf.RandomAccessFileOrArray(sourcePDF)
        Dim token As PRTokeniser = New iTextSharp.text.pdf.PRTokeniser(raFile)
        Dim tknType As Integer = -1
        Dim tknValue As String = String.Empty
        If fromPageNum = 0 Then

            fromPageNum = 1
        End If
        If toPageNum = 0 Then
            toPageNum = reader.NumberOfPages
        End If
        If fromPageNum > toPageNum Then
            Throw New ApplicationException("Parameter error: The value of fromPageNum can not be larger than the value of toPageNum")
        End If
        For i As Integer = fromPageNum To toPageNum Step 1
            pageBytes = reader.GetPageContent(i)
            If Not IsNothing(pageBytes) Then
                ' token = New iTextSharp.text.pdf.PRTokeniser(pageBytes)
                While token.NextToken()
                    tknType = token.TokenType()
                    tknValue = token.StringValue
                    Select Case tknType
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.NUMBER      '1
                            Dim dValue As Double
                            If Double.TryParse(tknValue, dValue) Then
                                If dValue < -8000 Then
                                    sb.Append(ControlChars.Tab)
                                End If
                            End If
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.STRING      '2
                            sb.Append(token.StringValue)
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.NAME        '3
                  'Ignore
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.COMMENT     '4
                  'Ignore
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.START_ARRAY '5
                  'Ignore
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.END_ARRAY   '6
                            sb.Append(" ")
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.START_DIC   '7
                  'Ignore
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.END_DIC     '8
                  'Ignore
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.REF         '9
                  'Ignore
                        Case iTextSharp.text.pdf.PRTokeniser.TokType.OTHER       '10
                            Select Case tknValue
                                Case "TJ"
                                    sb.Append(" ")
                                Case "ET", "TD", "Td", "Tm", "T*"
                                    sb.Append(Environment.NewLine)
                            End Select
                    End Select
                End While
            End If
        Next i
        Return sb.ToString()


    End Function

    Public Function PDFToText(file As String) As String

        Using reader As New PdfReader(file)
            Dim text As New StringBuilder()
            For i As Integer = 1 To reader.NumberOfPages
                text.Append(PdfTextExtractor.GetTextFromPage(reader, i))
            Next
            Return text.ToString()
        End Using

    End Function

    Public Function TRSiz(ByVal vdata As String) As String
        Dim tmp As String
        tmp = Replace(vdata, "Ý", "İ")
        tmp = Replace(tmp, "ý", "ı")
        tmp = Replace(tmp, "Ð", "Ğ")
        tmp = Replace(tmp, "ğ", "g")
        tmp = Replace(tmp, "Þ", "Ş")
        tmp = Replace(tmp, "þ", "ş")
        TRSiz = tmp
    End Function

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


        Dim Secim As Boolean
        For Each Ana_Klasor In Directory.GetDirectories(TextBox1.Text)
            Dim Mukellef_Isim As New System.IO.FileInfo(Ana_Klasor)
            If Ana_Klasor.ToString.Length > 0 Then
                Try
                    For Each Donemi In Directory.GetDirectories(Ana_Klasor, "08 2017" & "-" & "08 2017", SearchOption.AllDirectories)
                        Dim Donem_Klasor As New System.IO.FileInfo(Donemi)
                        For Each Evrak In Directory.GetFiles(Donemi)
                            Dim Evraklar As New System.IO.FileInfo(Evrak)

                            If Evrak.Contains("KDV1_tahakkuk") Or Evrak.Contains("KDV2_tahakkuk") Then
                                Dim Dizi() As String
                                Dizi = Evraklar.Name.Split("_")

                                Dim yol As String = Ana_Klasor & "\" & Donem_Klasor.Name & "\" & Evraklar.Name
                                ' Dim oku As String = TRSiz(yol).Substring(yazitoplam + 6, yaziislem - yazitoplam - 6)


                                Dim str99 As String = PDFToText(yol)
                                Dim i As Integer = TRSiz(str99).IndexOf("TOPLAM")
                                Dim c As Integer = TRSiz(str99).IndexOf("İşlem")
                                Dim x As Integer = TRSiz(str99).IndexOf("VADESİ")
                                Dim str98 As String = TRSiz(str99).Substring(x + 6, c - x - 6)
                                Dim w As Integer = TRSiz(str98).IndexOf("/")
                                Dim str97 As String = TRSiz(str98).Substring(w - 2, 10)
                                Dim oku As String = TRSiz(str99).Substring(i + 6, c - i - 6)

                                DataGridView1.Rows.Add(Secim, Mukellef_Isim.Name, Donem_Klasor.Name, Dizi(0) & " " & UCase(Dizi(1)), Ana_Klasor & "\" & Donem_Klasor.Name & "\" & Evraklar.Name, Evraklar.LastAccessTime, oku)

                            End If
                        Next
                    Next
                Catch ex As Exception

                End Try
            End If
        Next
End Sub