Auhn - Viewing Profile

Auhn's Profile User Rating:

Reputation: 0 Apprentice

Group:: New Members
Active Posts:: 5 (0.01 per day)
Joined:: 05-May 12
Profile Views:: 111
Last Active:: May 22 2012 11:27 AM
Currently:: Offline

Previous Fields

Country:: Who Cares
OS Preference:: Who Cares
Favorite Browser:: Who Cares
Favorite Processor:: Who Cares
Favorite Gaming Platform:: Who Cares
Your Car:: Who Cares
Dream Kudos:: 0

Auhn has not set their status

Posts I've Made

In Topic: Jump 3 lines in list

Posted 6 May 2012

CharlieMay, on 06 May 2012 - 09:55 AM, said:

Let me just ask this.
Would you rather look for "Hair Color" and then find the value or would you intead like to store each paramname with its associated value?

In that case I would first want to look for "Hair Color" and then find the value.

I just tried your code in my query

For i as Integer = 0 to lines.count -1
if lines(i).Contains("Hair Color") Then
  messagebox.show(lines(i+3))
end if
Next

AND IT WORKS! It does exactly what I needed it to do :rockon:

Now that I can target the value I can easily clean the strings from spaces and   etc using Replace():

' Cleaning an AnchorKeyword variable as an example:
' Raw string from query: "        <b>Hair Color</b>"
AnchorKeyword = Replace(AnchorKeyword, "        <b>", "")
AnchorKeyword = Replace(AnchorKeyword, "</b>", "")
' Cleaned AnchorKeyword string: "Hair Color"

' Cleaning the FoundIt target variable:
' Raw string from query: "        Brown&nbsp;"
FoundIt = Replace(FoundIt, " ", "")
FoundIt = Replace(FoundIt, "&nbsp;", "")
'Cleaned FoundIt string: "Brown"

Now I can successfully retrieved the variable I need as well as the anchor key should I want to use it.

I'm not quite sure how to work with dictionaries and since you helped me get the other way to work I think I'll let the dictionaries wait until another day when I need them :sweatdrop:

I can say that my problem is now solved!

Thank you all for your help and special thanks to you CharlieMay! :clap:

I will post the final source code momentarily.

This is the final source code I will use for the query of an already downloaded HTML source code:

Imports System.IO
Public Module SearchQuery

    Public Sub SearchQuerySub()

        ' Creates sr as StreamReader for the .txt file with the HTML code
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader("C:\TEST\DownloadedSourceCode.txt")

        ' Creates the list
        Dim lstLines As New List(Of String)

        ' Adds the lines of HTML code to the list
        While Not sr.EndOfStream
            lstLines.Add(sr.ReadLine)
        End While

        ' Creates the placeholder variables that will handle the query.
        ' Loops through the list in search of the anchor point Hair Color.
        ' Can be replaced with any variable from a text box to increase dynamics.
        Dim strQueryResult As String = ""
        Dim strLine As String = ""
        For Each strLine In lstLines
            If strLine.Contains("Hair Color") Then

                ' After the anchor point is located, it will pass
                ' the string 3 lines down from the anchor point
                ' to the variable strQueryResult
                For i As Integer = 0 To lstLines.Count - 1
                    If lstLines(i).Contains("Hair Color") Then
                        strQueryResult = lstLines(i + 3)
                    End If
                Next
            End If
        Next

        ' Clean the strQueryResult from known junk
        strQueryResult = Replace(strQueryResult, "	", "")
        strQueryResult = Replace(strQueryResult, "&nbsp;", "")

        ' Now you're done and can do what ever you want with the variable in the software
        MsgBox(strQueryResult)

    End Sub
End Module

In Topic: Jump 3 lines in list

Posted 6 May 2012
Thank you for another quick reply!

CharlieMay, on 06 May 2012 - 07:20 AM, said:
Given that the text below as been placed line by line in a collection called Lines
```
<tr>
	<td class="paramname">
		<b>Hair Color</b>
	</td>
	<td class="paramvalue">
		Brown&nbsp;
	</td>
</tr>
```
The entire 888 line webpage source code (the code above in your example is but one small part in that) is placed, each line as a string, into a list called lines. So my code reads all those 888 lines from a .txt file and adds them to the list as 888 strings, one for each line. This list is "scanned through" in my code using the variable declared as line to compare the current line in the list to my keyword Hair Color. Once I've found that specific string in my list, I want to use that position in the list as a starting point for my next query to look 3 lines below the current and take what ever is in that string and pass it into my variable called FoundIt and use it for my software.

The block of code is usually but not always 8 lines as in my example. I could use the suggestion you made to search most of the webpage source code where the keyword I want is in a 8-line code block. But I'm looking for more versatility and, if possible, would want to manually go through each line starting from my own targeted anchor point and look for the target keyword since the block of code could be 8 lines, it could be 10 lines or 20 lines.

Worst case scenario I will have to code different searches for different keywords. 8-line code blocks could use one search subrutine while an 10-line code block could use another.

The code you suggested unlike my code actually does read through the list strings:
```
For i As Integer = 0 To lines.Count - 7 Step 7
  MessageBox.Show(lines(i+2) & " : " & lines(i + 5))
Next
```
But the search starts at line 0 / 888, from the beginning, then steps through all the lines in the code. This is kind of what I'm looking for except I want:
```
For i As Integer = 0 To lines.Count - 7 Step 7
```
To start on the exact same line as the one that contains Hair Color from my previous query, then I want to either (Option 1 is my current train of thought, option 2 is optional but would be a dream come true in writing my queries):
- Step down 3 steps and pass what ever string is there to my variable FoundIt and exit the query.
- or try as DimitriV suggested in that I step down one step at a time and compare the string in the list with the condition that the previous string in the list contains another keyword I specify, if true then pass the current string to my variable FoundIt and exit the query.
```
For i As Integer = 1 To lines.Count - 1 Step 1
If lines(i - 1).Contains("paramvalue") Then
```
I might be trying to overexplain things so here are images that will better explain what I mean.

Query 1:

Query 2:

Does this help to give a better idea of my problems and my headaches?
In Topic: Jump 3 lines in list

Posted 6 May 2012
Thank you for your reply CharlieMay!

Quote
have you tried not starting your loop at 0? 0 - 1 = -1 so it will be out of range on the first iteration.

Since you don't need the first line, start at 2 which is the first line you want to find, then the i-1 will check against the line above it.

I tried it just now as you suggested and indeed the problem with it being negative and out of range is now solved.

Regardless of what starting position I set the variable i as the output doesn't appear to be "moving along" down the lines in the list.

I mean that when I use a breakpoint on line 22 in my software and try to see what actually happens in the code i set a Watch (Visual Studio 2010) on the variable i and lines.Count to see if the lines are actually being counted and their current status. What is see is that the lines.Count starts at the webpage source code line 888, which is incorrect since that is the end of the webpage source code (line is simply </html>). But when I step through the loop I see the following happen:
- i is incremented every time the loops restars.
- lines.Count is not incremented or in any way changes from the line 888 or the end of the webpage source code.
- Both the paramvalue and paramname conditions in the IF statement are always found to be False, thus continuing the loop and subsequently creating an eternal loop.
I suspect I'm not doing three things properly:
- Starting the loop from my anchor point Hair Color (webpage source code line 461 or the string variable line).
- Setting up the loop properly and stepping down the lines in the list since the current line seems to always be 888 (webpage source code). My target keyword is on webpage source code line 464.
- I'm not passing the target keyword to my string variable FoundIt properly from the list.
Can you/anyone please offer more insight or suggestions I may try?

Here is my updated source code with changes (note that I misspelled earlier in the source code. I have 2 separate declarations: line is a string variable and lines is the list of strings)
```
Imports System.IO
Public Module TestModule

    Public Sub TestSub()

        ' Creates sr as StreamReader for the .txt file with the HTML code
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader("C:\TEST\downloaded.txt")

        ' Creates the list
        Dim lines As New List(Of String)

        ' Adds the lines of HTML code to the list
        While Not sr.EndOfStream
            lines.Add(sr.ReadLine)
        End While

        ' Loops through the list in search of my anchor point Hair Color
        Dim FoundIt As String = ""
        Dim line As String = ""

        For Each line In lines
            If line.Contains("Hair Color") Then

                For i As Integer = 1 To lines.Count - 1 Step 1

                    ' This statement is, right now, always false.
                    If lines(i - 1).Contains("paramvalue") Then
                        ' Now my target keyword should be selected and I should be able to assign it to a string
                        ' How do I pass the "current line" in the list to a string variable?
                        ' if I try FoundIt = lines I naturally receive a conversion from list error.
                        FoundIt = lines
                        MsgBox("Congratulations, you found the keyword: " & FoundIt)

                    ' This statement is, right now, always false.
                    ElseIf lines(i - 1).Contains("paramname") Then 
                        ' This is my anchor point and I should have no use for it
                    End If

                Next

            End If
        Next
    End Sub
End Module
```

In Topic: Jump 3 lines in list

Posted 6 May 2012

Thank you for your reply DimitriV!

If I understand you correctly, I should be able to use it like this:

Imports System.IO
Public Module TestModule

    Public Sub TestSub()

        ' Creates sr as StreamReader for the .txt file with the HTML code
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader("C:\TEST\downloaded.txt")

        ' Creates the list
        Dim lines As New List(Of String)

        ' Adds the lines of HTML code to the list
        While Not sr.EndOfStream
            lines.Add(sr.ReadLine)
        End While

        ' Loops through the list in search of my anchor point Hair Color
        Dim FoundIt As String = ""
        Dim line As String = ""

        For Each line In lines
            If line.Contains("Hair Color") Then

                For i As Integer = 0 To lines.Count - 1 Step 3
                    If line(i - 1).Contains("paramvalue") Then
                        ' Now my target keyword should be selected and I should be able to assign it to a string
                        FoundIt = line
                        MsgBox("Congratulations, you found the keyword: " & FoundIt)
                    ElseIf line(i - 1).Contains("paramname") Then
                        ' This is my anchor point and I should have no use for it
                    End If
                Next

            End If
        Next
    End Sub
End Module

Either I didn't understand the code correctly or I may be doing something wrong because when I run this code I receive an error on line 25:

Quote

If line(i - 1).Contains("paramvalue") Then

The error message is:

Quote

ArgumentOutOfRangeException was unhandled
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index

I can only ever run that code if I change the variable i from negative:

For i As Integer = 0 To lines.Count - 1 Step 3
                    If line(i - 1).Contains("paramvalue") Then

                    ElseIf line(i - 1).Contains("paramname") Then
                        
                    End If
                Next

to positive:

For i As Integer = 0 To lines.Count - 1 Step 3
                    If line(i + 1).Contains("paramvalue") Then

                    ElseIf line(i + 1).Contains("paramname") Then
                        
                    End If
                Next

But then the problem is that the selection goes the wrong way not to mention I find myself in an endless loop because of that. The output for the variable FountIt in the message box is always the same, it's the HTML line of code for my anchor point Hair Color so it's like it doesn't progess beyond that :dontgetit:

Am I doing something wrong?

My Information

Member Title:: New D.I.C Head
Age:: Age Unknown
Birthday:: Birthday Unknown
Gender:
Programming Languages:: VB.NET

Contact Information

E-mail:: Private