How to split string and shellexecute print a PDF from conversion to string. PHEW!

Hello Family,
I know my title doesn't make sense, but I don't know who else to word this.
This is going to be a long one, but easy fix.

So i've manage to convert a pdf to string, then able to print an external pdf simply by putting the name of the file in a textbox.

I've also figured how to extract certain text from the pdf string, now the certain text are also files located in an external location (I use c:\temp\ for testing).

Which leaves me with one problem, the text I extract, I use shellexecute to print, works fine if its one string. however, If the file name I extract is more than one it will count it as a single string, thus adding the location and .pdf to that one string. instead of the two or more strings. which will do something like this:
c:\temp\bda00207bda00208.pdf

As you can see, it will send that to the printer. I want to send one at a time to the printer. like this:

c:\temp\bda00207.pdf
c:\temp\bda00208.pdf

I've tried using an Arraylist and various methods. but my own lack of knowledge, I cannot figure it out.

I'm thinking a "for loop" will help me out. any ideas?
Below is my code.

Code:

---

Dim pdffilename As String = Nothing
        pdffilename = RawTextbox.Text
        Dim filepath = "c:\temp\" & RawTextbox.Text & ".pdf"
        Dim thetext As String
        thetext = GetTextFromPDF(filepath)        ' converts pdf to text from a function I didnt show.

        Dim re As New Regex("[\t ](?<w>((asm)|(asy)|(717)|(ssm)|(715)|(818))[a-z0-9]*)[\t ]", RegexOptions.ExplicitCapture Or RegexOptions.IgnoreCase Or RegexOptions.Compiled)              ' This filters out and extract certain keywords from the PDF
     
        Dim Lines() As String = {thetext}
        Dim words As New List(Of String)
        For Each s As String In Lines
            Dim mc As MatchCollection = re.Matches(s)
            For Each m As Match In mc
                words.Add(m.Groups("w").Value)
            Next
            RawRich4.Text = String.Join(Environment.NewLine, words.ToArray)
        Next
        'This is where I need help with the code. how to have "words" putout  "c:\temp\" & RawRich4.Text & ".pdf" with each keyword name

        Dim rawtoprint As String = String.Join(Environment.NewLine, words.ToArray)
        Dim defname As String = Nothing
        defname = RawRich4.Text
        rawtoprint = "c:\temp\" & RawRich4.Text & ".pdf"

        Dim psi As New System.Diagnostics.ProcessStartInfo()
        psi.UseShellExecute = True
        psi.Verb = "print"
        psi.WindowStyle = ProcessWindowStyle.Hidden
        psi.Arguments = PrintDialog1.PrinterSettings.PrinterName.ToString()
        psi.FileName = (rawtoprint) ' this is where the error occurs it doesn't  send both files separately to the printer, it tries to send it as one name
        MessageBox.Show(rawtoprint) ' This is just to test the output, this will be removed.
        'Process.Start(psi)

    End Sub

---

Hi,

A TextBox has a Lines property that can be iterated through. Have a look here:-

TextBoxBase.Lines Property

Hope that helps.

Cheers,

Ian

BTW, I would recommend using descriptive names for your variables. It will help you to read and understand your code easier in the future.

Thanks for your answer, I looked at it, and it doesn't seem like it would help me with my problem. I don't know if i explained myself properly. but I will answer any questions and try everything.

Hi,

I may have misunderstood your question but, using your own code, you create the contents of a TextBox with something similar to:-

vb.net Code:

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  Dim words() As String = {"ASM00200207", "ASM00200208"} 'you get this with regex - this is just an example
  RawRich4.Text = String.Join(Environment.NewLine, words.ToArray)
End Sub

You can then get each individual line of text by saying:-

vb.net Code:

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
  For Each pdfFileName As String In RawRich4.Lines
    MsgBox(String.Format("c:\temp\{0}.pdf", pdfFileName))
  Next
End Sub

Hope that helps.

Cheers,

Ian