Remove " : " Resolved

[Ricky1]

Ok i have a word file which has got all messed up with the character " : " but the think is i need to remove the whole line. So is there a way i can say like

Dim Grrr As String
Grrr = List.List(i)

Then If Grrr Contains :
Remove Grrr

Hope this is clear.
I need it to remove the Whole Line. If possible Remove them from List1, and add the ones it removes into List2 so i can check it has removed the right ones.

Please Help Meeeeeee

[dglienna]

You can replace it with a space, or whatever you want like this:

if instr(List1.list(i),":") > 0 then
  list1.list(i) = replace(list1.list(i), ":" " ")
endif

[sciguyryan]

You'll have to read all the lines into an array.
Scan through them all checking for the presence of the : using the InStr function.
The use the Replace funciton to remove the :
The clear the listbox and reload the string

Dim I As Integer
    Dim J As Integer
    Dim intArrLen As Integer
    intArrLen = List.ListCount
    Dim strTheArr() As String
    ReDim strTheArr(intArrLen)
    For I = 0 To Screen.FontCount - 1
        strTheArr(I) = List.List(I)
    Next I
    List.Clear
    For J = 0 To UBound(strTheArr)
        strTheArr(J) = Replace(strTheArr(J), ":", "")
        List.AddItem strTheArr(J)
    Next J

Or use dglienna's method which is shorter anyway... You meat me too it again...

Cheers,

RyanJ

[dglienna]

Won't just removing the ":" work for you?

[sciguyryan]

Won't just removing the ":" work for you?

If you mean me then I did not know you could directly modify items in a list or combobox the way you did

Cheers,

RyanJ

[dglienna]

No, I re-read his post, and wonder if he wanted to remove a line, which consist of who knows how many items.

[Ricky1]

yes if the line has the : in it, then i want the whole line removing.

[sciguyryan]

yes if the line has the : in it, then i want the whole line removing.

In that case try this:

Dim I As Integer
For I = 0 To List1.ListCount
    If InStr(List1.List(i), ":") > 0 Then
        List1.RemoveItem I
    End If
Next I

Cheers,

RyanJ

[Ricky1]

cheers, wil give it a go in a min

[Ricky1]

Private Sub Command3_Click()
Dim I As Integer
For I = 0 To List1.ListCount - 1
    If InStr(List1.List(I), ":") > 0 Then
        List2.AddItem I
        List1.RemoveItem I
    End If
Next I

End Sub

thats my code, doens't seem to work tho
suppose to remove List1(i) if it contains the character : .
Remove it from list1 and add it to list2.

[sciguyryan]

thats my code, doens't seem to work tho
suppose to remove List1(i) if it contains the character : .
Remove it from list1 and add it to list2.

It should be:

Private Sub Command3_Click()
    Dim I As Integer
    For I = List1.ListCount - 1 To 0 Step -1
        If InStr(List1.List(I), ":") > 0 Then
            List2.AddItem List1.List(I)
            List1.RemoveItem I
        End If
    Next I
    List1.Refresh
    List2.Refresh
End Sub

Cheers,

RyanJ

[vbasicgirl]

dont forget to always loop in reverse when there is a possibility of removing more than one item.

For I = List1.ListCount - 1 To 0 Step -1

casey.

[sciguyryan]

Good point, will change thart

Cheers,

Ryanj

[Ricky1]

CHeers, Got It Working, Thanks Alot u2