InStr Question: visual basic 6, in str

by: angelIIIPosted on 2009-10-10 at 11:12:52ID: 25543159

you could use split function:

strData = "<bob@bob.com[green:red:blue]><red@bob.com[red]><sue@gray.com[gray:red:blue:green]>"
arrData = split(strData, "><") 
the first will start with < which is to be removed, the last item in the array will end with >, which is to be removed also.

1:
2:
3:
4:

Select all Open in new window

by: angelIIIPosted on 2009-10-10 at 11:13:39ID: 25543164

of course, the above is only a starter.
inside the loop on the array items of arrdata, you will the split on [ and then on : characters ...

by: ChloesDadPosted on 2009-10-10 at 15:55:32ID: 25544198

Try this. You can add extra code in the if statement if needed, but I think that I've covered all the possibilities

        Dim strdata As String
        Dim arrdata() As String
 
        strdata = "<bob@bob.com[green:red:blue]><red@bob.com[red]><sue@gray.com[gray:red:blue:green]>"
        arrdata = strdata.Split(">"c)
        Dim iCount As Integer
 
        For iCount = 0 To arrdata.Length - 1
            If arrdata(iCount) <> String.Empty AndAlso (arrdata(iCount).Split("["c)(1).Contains(":red") OrElse arrdata(iCount).Split("["c)(1).Contains("red:") OrElse arrdata(iCount).Split("["c)(1).Contains("red]")) Then
 
                Dim firstCharacter As Integer = arrdata(iCount).IndexOf("<") + 1
                Dim LastCharacter As Integer = arrdata(iCount).IndexOf("[")
                Dim length As Integer = LastCharacter - firstCharacter
 
                Dim emailaddress As String = arrdata(iCount).Substring(firstCharacter, length)
                Console.WriteLine(emailaddress)
 
 
            End If
 
        Next iCount

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Select all Open in new window

by: ADawnPosted on 2009-10-10 at 16:30:33ID: 25544267

Is this code good with vb6. getting a lot of red lines...

by: webtubbsPosted on 2009-10-10 at 17:02:33ID: 25544335

You could also use Regular Expressions. The below code will show a MsgBox for each of the items where "green" is found.

Wayne

     Dim rx As Object, m As Object
     Set rx = CreateObject("VBScript.RegExp")
     With rx
          .Global = True
          .IgnoreCase = True
          .Pattern = "\<(.*?)\[(.*?)\]\>"
     End With
 
     Dim s As String
     s = "<bob@bob.com[green:red:blue]><red@bob.com[red]><sue@gray.com[gray:red:blue:green]>"
 
     For Each m In rx.Execute(s)
          If InStr(m.SubMatches(1), "green") Then
               MsgBox m.SubMatches(0)
          End If
     Next
     
     Set rx = Nothing

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Select all Open in new window

by: ChloesDadPosted on 2009-10-11 at 00:38:44ID: 25545161

Sorry,

Mine was .net

in vb6 it is a lot harder, you have to replace the .contains function with instr, string.empty with "" and arrdata(iCount).Split("["c) with a new array eg arr2 = split(arrdata(iCount),"[")

arrdata(iCount).Substring(firstCharacter, length) becomes mid$(arrdata(iCount),firstCharacter, length)

console.writeline becomes debug.print

I dont have a vb6 IDE so I cant test the code so there might be the odd typo in there

by: craisinPosted on 2009-10-11 at 04:31:24ID: 25545574

Does this work for you?? (thanks to webtubbs for direction)

Option Explicit
Private Sub main()
  Dim arrdata() As String
  Dim strData As String
  Dim iCount As Integer
  Dim firstCharacter As Integer
  Dim LastCharacter As Integer
  Dim length As Integer
  Dim emailaddress As String
  strData = "<bob@bob.com[green:red:blue]><red@bob.com[red]><sue@gray.com[gray:red:blue:green]>"
  arrdata = Split(strData, ">")
 
 
  For iCount = 0 To UBound(arrdata) - 1
    If Len(Trim(arrdata(iCount)) > 0 And _
       (InStr(Split(arrdata(iCount), "[")(1), ":red") > 0)) Then
      firstCharacter = InStr(arrdata(iCount), "<") + 1
      LastCharacter = InStr(arrdata(iCount), "[")
      length = LastCharacter - firstCharacter
      emailaddress = Mid$(arrdata(iCount), firstCharacter, LastCharacter - firstCharacter)
      Debug.Print emailaddress
    End If
  Next iCount
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Select all Open in new window

by: ChloesDadPosted on 2009-10-11 at 04:43:36ID: 25545605

Dont forget that this wont find [red] and [red:green]

The first one does exist here, the second doesn't but is a possibility, and it looks more like my solution than webtubbs...

by: craisinPosted on 2009-10-11 at 05:02:27ID: 25545656

Sorry, didn't interpret the question properly.

I gather you only want to find ones with green ANYWAHERE in the listing of colors.

Try the following instead (notice I have input a "lcase()" function just in case the HTML is in upper case for some reason).

Private Sub main()
  Dim arrdata() As String
  Dim strData As String
  Dim iCount As Integer
  Dim firstCharacter As Integer
  Dim LastCharacter As Integer
  Dim length As Integer
  Dim emailaddress As String
  strData = "<bob@bob.com[green:red:blue]><red@bob.com[red]><sue@gray.com[gray:red:blue:green]>"
  arrdata = Split(strData, ">")
 
 
  For iCount = 0 To UBound(arrdata) - 1
    If Len(Trim(arrdata(iCount)) > 0 And _
       (InStr(lcase(Split(arrdata(iCount), "[")(1)), "green") > 0)) Then
      firstCharacter = InStr(arrdata(iCount), "<") + 1
      LastCharacter = InStr(arrdata(iCount), "[")
      length = LastCharacter - firstCharacter
      emailaddress = Mid$(arrdata(iCount), firstCharacter, LastCharacter - firstCharacter)
      Debug.Print emailaddress
    End If
  Next iCount
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Select all Open in new window

by: experts1Posted on 2009-10-11 at 08:18:56ID: 25546187

Adawn,

Simple code using basic "Instr" as below:

Regards

Sub parse_str()
Dim tst_str As String
Dim tst_result As String
Dim str_len As Integer
Dim green_start As Integer
Dim brac_start As Integer
Dim seg_start As Integer
Dim seg_end As Integer
 
tst_str = "<bob@bob.com[green:red:blue]><red@bob.com[red]><sue@gray.com[gray:red:blue:green]>"
tst_str = LCase(tst_str)
Do While InStr(tst_str, "green") And InStr(tst_str, "[")
  str_len = Len(tst_str)
  green_start = InStr(tst_str, "green")
  brac_start = InStr(tst_str, "[")
  seg_start = InStr(tst_str, "<")
  seg_end = (InStr(tst_str, ">"))
    If (green_start < seg_end) And (green_start > brac_start) Then
      'Current segment has green so add it to result string
      tst_result = tst_result & Mid(tst_str, seg_start, seg_end) & vbCrLf
      MsgBox (tst_result)
    End If
  tst_str = Mid(tst_str, seg_end + 1, str_len - seg_end)
Loop
End Sub

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:

Select all Open in new window

by: craisinPosted on 2009-10-11 at 13:06:07ID: 25547140

Above code does not allow for case sensitivity should HTML be in upper-case.

by: dentabPosted on 2009-10-12 at 14:14:31ID: 25555125

@crasin it is case in-sensitive as it converts the string to Lowercase before testing. It does mean the results would always be in lowecase but that could be easily fixed.

by: craisinPosted on 2009-10-12 at 16:51:18ID: 25556031

Oops! Sorry, I missed seeing the line: tst_str = LCase(tst_str)

My apologies.

Still, I maintain use of split() and arrays is more efficient that string manipulation.

Both answers will get the results.

by: dentabPosted on 2009-10-13 at 00:36:56ID: 25557685

Yes split is much faster, I use it all the time.

String manipulation in VB is very poor, Split and Join can be used to bypass excessive memory copying

by: ADawnPosted on 2009-11-07 at 09:15:09ID: 31639659

I used bits and pieces to get rersults - thanks

by: craisinPosted on 2009-11-07 at 13:20:03ID: 25768103

63 points only to the accepted solution?

I think an answer of "I used bots and pieces" is not acceptable as a response.If an alternative solution is found (or a variance on a suggested solution), authors are required under conditions set as a standard in EE to supply the answer (so other users can search and find possible solutions to THEIR problems).

I would request that the author reconsider the points allocated and also supply the "bits and pieces" solution.

I post this with no malice or discontent, only concern that an acceptable "closure" standard has not been found gere.

by: craisinPosted on 2009-11-07 at 13:20:36ID: 25768106

"here", not "gere" :-)

Question

InStr Question

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

visual basic 6

in str

Visual Studio

Microsoft Visual Studio Express

Visual Basic Programming

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press