Programming Forums > Application Development > Visual Basic .NET

Jabo · Nov 9th, 2007, 8:15 PM

Does VB05 have some kind of next occurrence for indexof in strings? I only see index of (first occurence) and lastindexof (last occurrence), but I find nothing to find next occurrence.

DaWei · Nov 9th, 2007, 8:26 PM

VB 5? Even I can't remember that far back. I think you'll want to look for string methods in general and see if you recognize something useful.

There are almost always methods for indexing a particular character (string [5], charAt [7], etc.) There's also generally a method for finding an occurrence of some particular character within the string.

Jabo · Nov 9th, 2007, 8:43 PM

I'm sorry, I didn't make myself clear. I meant VB 2005. String has an indexof function, and a lastindexof function, but I don't see anything to iterate through all occurrences of a single char. I guess that's an oversight on their part. I'm gonna hate having to iterate them myself, as my code is starting to look a little bloated and this won't help it any.

DaWei · Nov 9th, 2007, 9:24 PM

Ahhhh. You can get the character (or substring) at any position by using substr. You can search for a character (or substring) using inStr. Again, I'd recommend you look at the methods that are members of the class. These people set out to write things that are generally useful. They might not choose to restrict them unduly, or name them what one expects.

Jabo · Nov 10th, 2007, 12:47 AM

Thanks, DaWei.

I guess the best place to look would be in the MSDN for the string class then? I've looked at everything that pops up when you hit the period after the string, but I guess it could be hidden deeper like under string.chars.

To show the bloat, here's the sub, and the else statement at the end is where I really need this function.

 vb Syntax (Toggle Plain Text) 
 Private Sub cmdChange_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles cmdChange.Click
        Dim dex, sstart, length, ssdex(9) As Integer
        Dim sstring As String
        Dim chstring() As Char
 
        'check that there are files to manipulate
        If lboSelLst.Items.Count = 0 Then
            mbox.txtMsg.Text = "There are no files selected to make changes to." _
            & Chr(13) & Chr(10) & "Select some files first."
            mbox.Show()
        Else
            'check which option is checked
            If rbnXt.Checked = True Then
                'check if there is a period and rename the file with "_ext.<new_ext>"
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _
                        (0, dex) & "_" & lboSelLst.Items.Item(x).ToString.Substring _
                        (dex + 1, lboSelLst.Items.Item(x).ToString.Length - (dex + 1)) _
                        & "." & cboOptions.Text
                    Else
                        'if no period, just add period to end and new_ext
                        dex = lboSelLst.Items.Item(x).ToString.Length
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _
                        (0, dex) & "." & cboOptions.Text
                    End If
                Next
            ElseIf rbnName.Checked = True Then
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'check for period, append extenstion
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _
                        .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _
                        Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _
                        ToString.Length - dex)
                    Else
                        'or add text to end if no period
                        dex = lboSelLst.Items.Item(x).ToString.Length
                        lboSelLst.Items.Item(x) &= "_" & cboOptions.Text
                    End If
                Next
            ElseIf rbnDate.Checked = True Then
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'check for period, append date
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _
                        .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _
                        Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _
                        ToString.Length - dex)
                    Else
                        'or if no period, append date to end of filename
                        lboSelLst.Items.Item(x) &= "_" & cboOptions.Text
                    End If
                Next
            ElseIf rbnChXt.Checked = True Then
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'check for period, change extension
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x). _
                    ToString.Substring(0, dex + 1) & cboOptions.Text
                    Else
                        'if no period, add period and extension
                        lboSelLst.Items.Item(x) &= "." & cboOptions.Text
                    End If
                Next
            Else
                sstring = cboOptions.Text.Trim
                length = sstring.Length
                chstring = sstring
 
                'ssdex is used to hold indexes of occurrences of the first
                'letter in chstring, this initializes all values to -1
                'for each item in the array.
                For z As Integer = 0 To 9
                    ssdex(z) = -1
                Next
 
                'for each character in the string...
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'find the period and set dex to it's index
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                    Else
                        'or to the end of the string if no period
                        dex = lboSelLst.Items.Item(x).ToString.Length
                    End If
 
                    'if the string contains the string entered by user
                    If lboSelLst.Items.Item(x).ToString.Contains(sstring) Then
                        'initialize z, which will be the number of occurrences
                        'of the first char in chstring found in the filename
                        Dim z As Integer = 0
                        For ch As Integer = 0 To lboSelLst.Items.Item(x).ToString.Length - 1
                            Dim ltr As Char
                            ltr = lboSelLst.Items.Item(x).ToString.Chars(ch)
                            If ltr.Equals(chstring(0)) Then
                                'if equal, set ssdex to the character's index number
                                'and increment the index of ssdex
                                ssdex(z) = ch
                                z += 1
                            End If
                        Next
 
                        'for the number of occurrences of the char found
                        'set the starting index in the filename
                        For y As Integer = 0 To z - 1
                            sstart = ssdex(y)
                            'make sure program isn't going past the period
                            If Not (sstart + length > dex) Then
                                'check that substring is equal to search string
                                If lboSelLst.Items.Item(x).ToString.Substring _
                                (sstart, length).Equals(sstring) Then
                                    'and change name in list
                                    lboSelLst.Items.Item(x) = _
                                    lboSelLst.Items.Item(x).Substring _
                                    (0, sstart) & lboSelLst.Items.Item(x).ToString.Substring _
                                    (sstart + length, lboSelLst.Items.Item(x) _
                                    .ToString.Length - (sstart + length))
                                End If
                            End If
                       Next
                    End If
                Next
            End If
        End If
    End Sub
 Private Sub cmdChange_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles cmdChange.Click
        Dim dex, sstart, length, ssdex(9) As Integer
        Dim sstring As String
        Dim chstring() As Char

        'check that there are files to manipulate
        If lboSelLst.Items.Count = 0 Then
            mbox.txtMsg.Text = "There are no files selected to make changes to." _
            & Chr(13) & Chr(10) & "Select some files first."
            mbox.Show()
        Else
            'check which option is checked
            If rbnXt.Checked = True Then
                'check if there is a period and rename the file with "_ext.<new_ext>"
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _
                        (0, dex) & "_" & lboSelLst.Items.Item(x).ToString.Substring _
                        (dex + 1, lboSelLst.Items.Item(x).ToString.Length - (dex + 1)) _
                        & "." & cboOptions.Text
                    Else
                        'if no period, just add period to end and new_ext
                        dex = lboSelLst.Items.Item(x).ToString.Length
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _
                        (0, dex) & "." & cboOptions.Text
                    End If
                Next
            ElseIf rbnName.Checked = True Then
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'check for period, append extenstion
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _
                        .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _
                        Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _
                        ToString.Length - dex)
                    Else
                        'or add text to end if no period
                        dex = lboSelLst.Items.Item(x).ToString.Length
                        lboSelLst.Items.Item(x) &= "_" & cboOptions.Text
                    End If
                Next
            ElseIf rbnDate.Checked = True Then
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'check for period, append date
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _
                        .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _
                        Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _
                        ToString.Length - dex)
                    Else
                        'or if no period, append date to end of filename
                        lboSelLst.Items.Item(x) &= "_" & cboOptions.Text
                    End If
                Next
            ElseIf rbnChXt.Checked = True Then
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'check for period, change extension
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                        lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x). _
                    ToString.Substring(0, dex + 1) & cboOptions.Text
                    Else
                        'if no period, add period and extension
                        lboSelLst.Items.Item(x) &= "." & cboOptions.Text
                    End If
                Next
            Else
                sstring = cboOptions.Text.Trim
                length = sstring.Length
                chstring = sstring

                'ssdex is used to hold indexes of occurrences of the first
                'letter in chstring, this initializes all values to -1
                'for each item in the array.
                For z As Integer = 0 To 9
                    ssdex(z) = -1
                Next

                'for each character in the string...
                For x As Integer = 0 To lboSelLst.Items.Count - 1
                    'find the period and set dex to it's index
                    If lboSelLst.Items.Item(x).ToString.Contains(".") Then
                        dex = lboSelLst.Items.Item(x).ToString.IndexOf(".")
                    Else
                        'or to the end of the string if no period
                        dex = lboSelLst.Items.Item(x).ToString.Length
                    End If

                    'if the string contains the string entered by user
                    If lboSelLst.Items.Item(x).ToString.Contains(sstring) Then
                        'initialize z, which will be the number of occurrences
                        'of the first char in chstring found in the filename
                        Dim z As Integer = 0
                        For ch As Integer = 0 To lboSelLst.Items.Item(x).ToString.Length - 1
                            Dim ltr As Char
                            ltr = lboSelLst.Items.Item(x).ToString.Chars(ch)
                            If ltr.Equals(chstring(0)) Then
                                'if equal, set ssdex to the character's index number
                                'and increment the index of ssdex
                                ssdex(z) = ch
                                z += 1
                            End If
                        Next

                        'for the number of occurrences of the char found
                        'set the starting index in the filename
                        For y As Integer = 0 To z - 1
                            sstart = ssdex(y)
                            'make sure program isn't going past the period
                            If Not (sstart + length > dex) Then
                                'check that substring is equal to search string
                                If lboSelLst.Items.Item(x).ToString.Substring _
                                (sstart, length).Equals(sstring) Then
                                    'and change name in list
                                    lboSelLst.Items.Item(x) = _
                                    lboSelLst.Items.Item(x).Substring _
                                    (0, sstart) & lboSelLst.Items.Item(x).ToString.Substring _
                                    (sstart + length, lboSelLst.Items.Item(x) _
                                    .ToString.Length - (sstart + length))
                                End If
                            End If
                       Next
                    End If
                Next
            End If
        End If
    End Sub

Jabo · Nov 10th, 2007, 1:30 AM

Correction, the next to last else statement

Jabo · Nov 10th, 2007, 3:01 AM

The way I've done this, seems to be the most round-about way one could possibly do it. I will try to find a better way

Starting line# 71 is the else I'm talking about.

Nov 9th, 2007, 8:15 PM	#1
Jabo Not a user? Join Date: Sep 2007 Posts: 256 Rep Power: 2	indexof Does VB05 have some kind of next occurrence for indexof in strings? I only see index of (first occurence) and lastindexof (last occurrence), but I find nothing to find next occurrence.

Nov 9th, 2007, 8:26 PM	#2
DaWei Resident Grouch Join Date: Jun 2005 Posts: 6,453 Rep Power: 10	Re: indexof VB 5? Even I can't remember that far back. I think you'll want to look for string methods in general and see if you recognize something useful. There are almost always methods for indexing a particular character (string [5], charAt [7], etc.) There's also generally a method for finding an occurrence of some particular character within the string. __________________ Abstraction doesn't make it impossible to write bad code; it makes it possible to write superior code. Contributor's Corner: Grumpy on C++ Exceptions DaWei on Pointers

Nov 9th, 2007, 8:43 PM	#3
Jabo Not a user? Join Date: Sep 2007 Posts: 256 Rep Power: 2	Re: indexof I'm sorry, I didn't make myself clear. I meant VB 2005. String has an indexof function, and a lastindexof function, but I don't see anything to iterate through all occurrences of a single char. I guess that's an oversight on their part. I'm gonna hate having to iterate them myself, as my code is starting to look a little bloated and this won't help it any.

Nov 9th, 2007, 9:24 PM	#4
DaWei Resident Grouch Join Date: Jun 2005 Posts: 6,453 Rep Power: 10	Re: indexof Ahhhh. You can get the character (or substring) at any position by using substr. You can search for a character (or substring) using inStr. Again, I'd recommend you look at the methods that are members of the class. These people set out to write things that are generally useful. They might not choose to restrict them unduly, or name them what one expects. __________________ Abstraction doesn't make it impossible to write bad code; it makes it possible to write superior code. Contributor's Corner: Grumpy on C++ Exceptions DaWei on Pointers

Nov 10th, 2007, 12:47 AM	#5
Jabo Not a user? Join Date: Sep 2007 Posts: 256 Rep Power: 2	Re: indexof Thanks, DaWei. I guess the best place to look would be in the MSDN for the string class then? I've looked at everything that pops up when you hit the period after the string, but I guess it could be hidden deeper like under string.chars. To show the bloat, here's the sub, and the else statement at the end is where I really need this function. vb Syntax (Toggle Plain Text) Private Sub cmdChange_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdChange.Click Dim dex, sstart, length, ssdex(9) As Integer Dim sstring As String Dim chstring() As Char 'check that there are files to manipulate If lboSelLst.Items.Count = 0 Then mbox.txtMsg.Text = "There are no files selected to make changes to." _ & Chr(13) & Chr(10) & "Select some files first." mbox.Show() Else 'check which option is checked If rbnXt.Checked = True Then 'check if there is a period and rename the file with "_ext.<new_ext>" For x As Integer = 0 To lboSelLst.Items.Count - 1 If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _ (0, dex) & "_" & lboSelLst.Items.Item(x).ToString.Substring _ (dex + 1, lboSelLst.Items.Item(x).ToString.Length - (dex + 1)) _ & "." & cboOptions.Text Else 'if no period, just add period to end and new_ext dex = lboSelLst.Items.Item(x).ToString.Length lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _ (0, dex) & "." & cboOptions.Text End If Next ElseIf rbnName.Checked = True Then For x As Integer = 0 To lboSelLst.Items.Count - 1 'check for period, append extenstion If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _ .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _ Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _ ToString.Length - dex) Else 'or add text to end if no period dex = lboSelLst.Items.Item(x).ToString.Length lboSelLst.Items.Item(x) &= "_" & cboOptions.Text End If Next ElseIf rbnDate.Checked = True Then For x As Integer = 0 To lboSelLst.Items.Count - 1 'check for period, append date If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _ .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _ Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _ ToString.Length - dex) Else 'or if no period, append date to end of filename lboSelLst.Items.Item(x) &= "_" & cboOptions.Text End If Next ElseIf rbnChXt.Checked = True Then For x As Integer = 0 To lboSelLst.Items.Count - 1 'check for period, change extension If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x). _ ToString.Substring(0, dex + 1) & cboOptions.Text Else 'if no period, add period and extension lboSelLst.Items.Item(x) &= "." & cboOptions.Text End If Next Else sstring = cboOptions.Text.Trim length = sstring.Length chstring = sstring 'ssdex is used to hold indexes of occurrences of the first 'letter in chstring, this initializes all values to -1 'for each item in the array. For z As Integer = 0 To 9 ssdex(z) = -1 Next 'for each character in the string... For x As Integer = 0 To lboSelLst.Items.Count - 1 'find the period and set dex to it's index If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") Else 'or to the end of the string if no period dex = lboSelLst.Items.Item(x).ToString.Length End If 'if the string contains the string entered by user If lboSelLst.Items.Item(x).ToString.Contains(sstring) Then 'initialize z, which will be the number of occurrences 'of the first char in chstring found in the filename Dim z As Integer = 0 For ch As Integer = 0 To lboSelLst.Items.Item(x).ToString.Length - 1 Dim ltr As Char ltr = lboSelLst.Items.Item(x).ToString.Chars(ch) If ltr.Equals(chstring(0)) Then 'if equal, set ssdex to the character's index number 'and increment the index of ssdex ssdex(z) = ch z += 1 End If Next 'for the number of occurrences of the char found 'set the starting index in the filename For y As Integer = 0 To z - 1 sstart = ssdex(y) 'make sure program isn't going past the period If Not (sstart + length > dex) Then 'check that substring is equal to search string If lboSelLst.Items.Item(x).ToString.Substring _ (sstart, length).Equals(sstring) Then 'and change name in list lboSelLst.Items.Item(x) = _ lboSelLst.Items.Item(x).Substring _ (0, sstart) & lboSelLst.Items.Item(x).ToString.Substring _ (sstart + length, lboSelLst.Items.Item(x) _ .ToString.Length - (sstart + length)) End If End If Next End If Next End If End If End Sub Private Sub cmdChange_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdChange.Click Dim dex, sstart, length, ssdex(9) As Integer Dim sstring As String Dim chstring() As Char 'check that there are files to manipulate If lboSelLst.Items.Count = 0 Then mbox.txtMsg.Text = "There are no files selected to make changes to." _ & Chr(13) & Chr(10) & "Select some files first." mbox.Show() Else 'check which option is checked If rbnXt.Checked = True Then 'check if there is a period and rename the file with "_ext.<new_ext>" For x As Integer = 0 To lboSelLst.Items.Count - 1 If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _ (0, dex) & "_" & lboSelLst.Items.Item(x).ToString.Substring _ (dex + 1, lboSelLst.Items.Item(x).ToString.Length - (dex + 1)) _ & "." & cboOptions.Text Else 'if no period, just add period to end and new_ext dex = lboSelLst.Items.Item(x).ToString.Length lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x).ToString.Substring _ (0, dex) & "." & cboOptions.Text End If Next ElseIf rbnName.Checked = True Then For x As Integer = 0 To lboSelLst.Items.Count - 1 'check for period, append extenstion If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _ .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _ Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _ ToString.Length - dex) Else 'or add text to end if no period dex = lboSelLst.Items.Item(x).ToString.Length lboSelLst.Items.Item(x) &= "_" & cboOptions.Text End If Next ElseIf rbnDate.Checked = True Then For x As Integer = 0 To lboSelLst.Items.Count - 1 'check for period, append date If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x) _ .ToString.Substring(0, dex) & "_" & cboOptions.Text & lboSelLst. _ Items.Item(x).ToString.Substring(dex, lboSelLst.Items.Item(x). _ ToString.Length - dex) Else 'or if no period, append date to end of filename lboSelLst.Items.Item(x) &= "_" & cboOptions.Text End If Next ElseIf rbnChXt.Checked = True Then For x As Integer = 0 To lboSelLst.Items.Count - 1 'check for period, change extension If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") lboSelLst.Items.Item(x) = lboSelLst.Items.Item(x). _ ToString.Substring(0, dex + 1) & cboOptions.Text Else 'if no period, add period and extension lboSelLst.Items.Item(x) &= "." & cboOptions.Text End If Next Else sstring = cboOptions.Text.Trim length = sstring.Length chstring = sstring 'ssdex is used to hold indexes of occurrences of the first 'letter in chstring, this initializes all values to -1 'for each item in the array. For z As Integer = 0 To 9 ssdex(z) = -1 Next 'for each character in the string... For x As Integer = 0 To lboSelLst.Items.Count - 1 'find the period and set dex to it's index If lboSelLst.Items.Item(x).ToString.Contains(".") Then dex = lboSelLst.Items.Item(x).ToString.IndexOf(".") Else 'or to the end of the string if no period dex = lboSelLst.Items.Item(x).ToString.Length End If 'if the string contains the string entered by user If lboSelLst.Items.Item(x).ToString.Contains(sstring) Then 'initialize z, which will be the number of occurrences 'of the first char in chstring found in the filename Dim z As Integer = 0 For ch As Integer = 0 To lboSelLst.Items.Item(x).ToString.Length - 1 Dim ltr As Char ltr = lboSelLst.Items.Item(x).ToString.Chars(ch) If ltr.Equals(chstring(0)) Then 'if equal, set ssdex to the character's index number 'and increment the index of ssdex ssdex(z) = ch z += 1 End If Next 'for the number of occurrences of the char found 'set the starting index in the filename For y As Integer = 0 To z - 1 sstart = ssdex(y) 'make sure program isn't going past the period If Not (sstart + length > dex) Then 'check that substring is equal to search string If lboSelLst.Items.Item(x).ToString.Substring _ (sstart, length).Equals(sstring) Then 'and change name in list lboSelLst.Items.Item(x) = _ lboSelLst.Items.Item(x).Substring _ (0, sstart) & lboSelLst.Items.Item(x).ToString.Substring _ (sstart + length, lboSelLst.Items.Item(x) _ .ToString.Length - (sstart + length)) End If End If Next End If Next End If End If End Sub Last edited by Jabo; Nov 10th, 2007 at 1:04 AM.

Nov 10th, 2007, 1:30 AM	#6
Jabo Not a user? Join Date: Sep 2007 Posts: 256 Rep Power: 2	Re: indexof Correction, the next to last else statement

Nov 10th, 2007, 3:01 AM	#7
Jabo Not a user? Join Date: Sep 2007 Posts: 256 Rep Power: 2	Re: indexof The way I've done this, seems to be the most round-about way one could possibly do it. I will try to find a better way Starting line# 71 is the else I'm talking about. Last edited by Jabo; Nov 10th, 2007 at 3:23 AM.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode