Rcerca fulltext

   Dim reader As New iTextSharp.text.pdf.PdfReader(percorsofileprova)

        Dim sb As New StringBuilder()
        Dim i As Integer = 1
        Dim numpagine As Integer

        numpagine = reader.NumberOfPages

        While i <= numpagine
            Dim bytes() As Byte = reader.GetPageContent(i)

            Dim inserire As Boolean = False
            Dim c As Char
            For Each item In bytes
                c = item

                If c = "(" Then
                    inserire = True
                    Continue For
                End If

                If c = ")" Then
                    inserire = False
                End If

                If inserire = True Then
                    sb.Append(c)
                End If
            Next
            'foreach (byte item in bytes) 
            ' {
            '       c = (char)item;

            'If (c = "(") Then
            '    inserire = true;
            '    continue;
            'End If

            '  If (c = ")") Then
            '           inserire = false;
            '   End If

            'If inserire = True Then
            ' sb.Append(c)
            ' End If

            i = i + 1
        End While

        sb.ToString()

     foreach (byte item in bytes) 
    {
        c = (char)item;

        if (c == '(') 
        { 
            inserire = true;
            continue;           //--- sta cominciando una parola salto la tonda
        }

        if (c == ')') 
            inserire = false; //--- finita la parola

        if(inserire) 
            sb.Append(c);
    }
}

Dim itm As Byte
                    For Each itm In bytes
                        c = CStr(itm)
                        If C = "" Then
                            inserire = True
                            Continue For
                        End If
                        If C = ")" Then
                            inserire = False
                            If inserire Then
                                SB.append(c)
                            End If
                        End If
                    Next

  Dim reader As New iTextSharp.text.pdf.PdfReader(percorsofileprova)

        Dim sb As New StringBuilder()
        Dim i As Integer = 1
        Dim numpagine As Integer
        Dim item As Byte
        Dim ascii As New ASCIIEncoding()
        Dim start As Integer, lun As Integer, stopp As Integer, luntot As Integer
        Dim stringappoggio As String = ""

        numpagine = reader.NumberOfPages

        While i <= numpagine
            Dim bytes() As Byte = reader.GetPageContent(i)

            Dim inserire As Boolean = False
            Dim c As String

            c = ascii.GetString(bytes)
            luntot = c.Length
            start = 1
            Do Until start = -1
                If inserire = False Then
                    start = c.IndexOf("(", start)
                    inserire = True
                Else
                    stopp = c.IndexOf(")", start)
                    lun = stopp - start - 1
                    stringappoggio = stringappoggio & c.Substring(start + 1, lun)
                    inserire = False
                    start = stopp
                End If


            Loop


            i = i + 1
        End While

        TextBox1.Text = stringappoggio