Visual Basic

Dim Doc1 As New MODI.Document <br />
       Dim inputFile As String = "C:\test\multipage.tif"<br />
       Doc1.Create(inputFile)<br />
       Doc1.OCR()<br />
       ' this will ocr all pages of a multi-page tiff file <br />
       Doc1.Save()<br />
       ' this will save the deskewed reoriented images, and the OCR text, back to the inputFile <br />
       Dim strRecText As String = ""<br />
       For imageCounter As Integer = 0 To (Doc1.Images.Count - 1)<br />
           ' work your way through each page of results <br />
           strRecText &= Doc1.Images(imageCounter).Layout.Text<br />
           ' this puts the ocr results into a string <br />
       Next<br />
       File.AppendAllText("C:\test\testmodi.txt", strRecText)<br />
       ' write the OCR file out to disk <br />
       Doc1.Close()<br />
       ' clean up <br />
       Doc1 = Nothing

<br />
Dim backslash As Char = "\"<br />
TxtFileName.Text = ""<br />
OFD.ShowDialog()<br />
TxtFileName.Text = OFD.FileName.Substring(OFD.FileName.LastIndexOf(backslash) + 1)<br />

Justin Perez wrote:

What's your question? All I see is some deranged, half-assed looking run-on sentence. Where are you having problems?

<br />
Dim cmd As String<br />
Dim c2 As String = "abcdefghijklmnopqrstyvwxyz"<br />
For X2 As Integer = 1 To 12 Step 2<br />
cmd += ChrW(Val("&H" + c2.Substring(X2, 2)<br />
Next<br />