	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

5.6

vb.net search through word documents

Asked by wardo123 in Microsoft Visual Studio Express, Microsoft Visual Basic.Net

Tags: Visual Basic, programming VB.net, VB

I need to search through thousands of Word docuemnts that list user info. I wrote a VB program using Microsoft Visual Basic 2008 Express Edition, that will search for a user name in each of the documents. This search is done by using StreamReader to load each file and then searching the file for a search string. If this string is found I then open the workd docuemnt using Microsoft.Office.Interop.Word and pull out data to load into ta ListBox.
My problem is that some of the Documents actually have the user names in the header informaion, and it looks like StreamReader doesn't look at header information in Word becasue I never find a user if they are only listed in the header information. Anyone know of a way around this?

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:

           
           
             Private Function CheckFiles(ByVal FileName As String, ByVal SearchWord As String) As Boolean
        'Searching for matching document and then pulling out the User name and Bith Date
        Dim IsWordFound As Boolean = False
        Dim strLine, strUserName, strBDate, orgStrLine As String
        Dim FileContents As String = String.Empty
        Dim FileStreamReader As StreamReader
        Dim MyCrLf As String
        Const MyCr As String = Microsoft.VisualBasic.ControlChars.Cr
        Const MyTab As String = Microsoft.VisualBasic.ControlChars.Tab
        MyCrLf = Chr(13) + Chr(10)
        'Dim fulWordFile As New Microsoft.Office.Interop.Word.Application
        'Dim Doc As Microsoft.Office.Interop.Word.Application
 
        Dim bFlag As Boolean = False
        Dim bFlagName As Boolean = False
        Dim bFlagBirth As Boolean = False
        Try
            FileStreamReader = New StreamReader(FileName)
            FileContents = FileStreamReader.ReadToEnd()
        Catch ex As Exception
            MsgBox(ex.ToString)
            IsWordFound = False
        Finally
            If Not (FileStreamReader Is Nothing) Then
                FileStreamReader.Close()
            End If
        End Try
        If FileContents.IndexOf(SearchWord) > 0 Then
            'IndexOf returns -1 of not found and 0 if the textVal is empty
            Dim lstItem As New ListViewItem
            Try
                Dim objWord As New Word.Application
                Dim objDoc As Word.Document
                objDoc = objWord.Documents.Open(FileName:=FileName, ReadOnly:=True)
                objDoc.Activate()
                strLine = objDoc.Content.Text
                'orgStrLine = strLine
                Do While Not bFlag
                    If InStr(UCase(strLine), "PATIENT NAME:") Or InStr(UCase(strLine), "BIRTH DATE:") Then
                        Dim intPatient, intBDay, intPatientSpace, intBDaySpace, intLength As Integer
                        Dim strPatient, strBDay As String 'temp string holders
 
                        If InStr(UCase(strLine), "PATIENT NAME:") Then
                            'To find the patient name we will trim the string down to just after the Patient Name: statment
                            'then we will find the space that follows the coma and finally the end space
                            intPatient = InStr(UCase(strLine), "PATIENT NAME:")
                            intLength = Microsoft.VisualBasic.Len(strLine)
                            strUserName = Microsoft.VisualBasic.Right(strLine, (intLength - intPatient) - 13)
                            intLength = Microsoft.VisualBasic.Len(strUserName)
                            intPatient = InStr(UCase(strUserName), "BIRTH DATE:")
                            strPatient = Microsoft.VisualBasic.Left(strUserName, intPatient - 1)
                            strPatient = Replace(strPatient, MyTab, "")
                            strUserName = strPatient.Trim
 
                            lstItem.Text = strUserName
                            lstItem.Tag = FileName
                            'lstItem.SubItems.Add = FileName
                            bFlagName = True
                        End If
                        If InStr(UCase(strLine), "BIRTH DATE:") Then
                            intBDay = InStr(UCase(strLine), "BIRTH DATE:")
                            intLength = Microsoft.VisualBasic.Len(strLine)
                            If InStr(UCase(strLine), "PATIENT ID") Or InStr(UCase(strLine), "MEDICAL RECORD #:") Then
                                'strip everthing before the date, using 11 as a offset becasue there are 11 letters in Birth Date: string
                                strBDate = Microsoft.VisualBasic.Right(strLine, (intLength - intBDay) - 11)
                                'orgStrLine = Microsoft.VisualBasic.Right(strLine, (intLength - intBDay) - 13)
                                intLength = Microsoft.VisualBasic.Len(strBDate)
                                intBDay = InStr(UCase(strBDate), MyCr)
                                'intBDay = InStr(UCase(strBDate), "PATIENT ID")
                                strBDay = Microsoft.VisualBasic.Left(strBDate, intBDay - 1)
                                strBDay = Replace(strBDay, MyTab, "")
                                strBDate = strBDay.Trim
                            Else
                                strBDate = "Not Found"
                            End If
                            lstItem.SubItems.Add(strBDate)
                            lstItem.Tag = FileName
                            bFlagBirth = True
                        End If
                            lstDocs.Items.Add(lstItem)
 
                            'Releasing the evil COM object
                            System.Runtime.InteropServices.Marshal.ReleaseComObject(objDoc)
                            objDoc = Nothing
                            'closing the hidden Word document
                            objWord.Application.Quit()
                            objWord = Nothing
 
                            lstDocs.Refresh()
 
                        End If
                        If bFlagName And bFlagBirth Then
                            bFlag = True
                        End If
                Loop
 
                IsWordFound = True
            Catch ex As Exception
                MsgBox(ex.ToString)
                IsWordFound = False
            Finally
                If Not (FileStreamReader Is Nothing) Then
                    FileStreamReader.Close()
                End If
            End Try
        End If
        Return IsWordFound
        FileContents = String.Empty
    End Function

           
         

20091111-EE-VQP-92 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. Idle_Mind118,025
2. jpaulino65,850
3. emoreau56,825
4. TheLearn...54,250
5. CodeCruiser46,952
6. Dhaest35,325
7. webtubbs34,100
8. DanielWilson32,570
9. mark_wills28,925
10. graye23,940
11. jaime_oliv...18,601
12. abel17,900
13. ToddBeau...15,852
14. ChloesDad15,424
15. kaufmed14,950
16. angelIII13,230
17. nmarun13,200
18. sunithnair12,740
19. rorya12,400
20. guru_sami12,000
21. JackOfPH11,450
22. saurabh72610,400
23. Fernando...9,750
24. ororiole9,700
25. ddayx109,600

1. Idle_Mind171,020
2. TheLearn...139,385
3. jpaulino97,102
4. emoreau86,952
5. Dhaest85,350
6. DanielWilson66,630
7. webtubbs50,060
8. CodeCruiser49,952
9. jaime_oliv...44,528
10. angelIII44,330
11. Fernando...44,150
12. ororiole42,425
13. graye39,530
14. mark_wills31,925
15. VBRocks24,800
16. JackOfPH21,100
17. kaufmed20,450
18. abel17,900
19. jkr17,875
20. mlmcc17,250
21. ToddBeau...15,852
22. ChloesDad15,424
23. SStory15,150
24. PaulHews14,850
25. samtran0...14,600

vb.net search through word documents

Asked by wardo123 in Microsoft Visual Studio Express, Microsoft Visual Basic.Net

Tags: Visual Basic, programming VB.net, VB

About this solution