remove an element from an array

[Jeremy]

I'm trying to parse a sentence and want to remove selected words from the
middle.

Consider:

dim a() as object = split(mySentence)

for each w in a()
select case w
case w.startswith("X")
'code to remove this specific word from the array
end select
next

result = join(a)

Can't find a way to remove the word. Any help out there?

I'm now looking at arrayList, which might have the methods I need, but
haven't figured out how to do the split trick.

Jeremy

[Dennis]

I would first use replace to get rid of any double spaces then use split to
split the sentence up into an array of words based as a space as the
delimiter.

"Jeremy" wrote:

I'm trying to parse a sentence and want to remove selected words from the
middle.

Consider:

dim a() as object = split(mySentence)

for each w in a()
select case w
case w.startswith("X")
'code to remove this specific word from the array
end select
next

result = join(a)

Can't find a way to remove the word. Any help out there?

I'm now looking at arrayList, which might have the methods I need, but
haven't figured out how to do the split trick.

Jeremy

[Herfried K. Wagner [MVP]]

"Jeremy" <je****@ninprodata.com> schrieb:

I'm trying to parse a sentence and want to remove selected words from the
middle.

Consider:

dim a() as object = split(mySentence)

for each w in a()
select case w
case w.startswith("X")
'code to remove this specific word from the array
end select
next

result = join(a)

Can't find a way to remove the word. Any help out there?

\\\
Dim al As New ArrayList()
al.InsertRange(0, Split("Hello World Test", " "))
For Each Item As String In al
MsgBox(Item)
Next Item
///

- or -

\\\
Imports System.Collections.Specialized
..
..
..
Dim s As New StringCollection()
s.AddRange(Split("Hello World Test", " "))
....
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Jeremy]

Herfried, perfect. Thanks.

Jeremy

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:ON*************@TK2MSFTNGP12.phx.gbl...

"Jeremy" <je****@ninprodata.com> schrieb:

I'm trying to parse a sentence and want to remove selected words from the
middle.

Consider:

dim a() as object = split(mySentence)

for each w in a()
select case w
case w.startswith("X")
'code to remove this specific word from the array
end select
next

result = join(a)

Can't find a way to remove the word. Any help out there?

\\\
Dim al As New ArrayList()
al.InsertRange(0, Split("Hello World Test", " "))
For Each Item As String In al
MsgBox(Item)
Next Item
///

- or -

\\\
Imports System.Collections.Specialized
.
.
.
Dim s As New StringCollection()
s.AddRange(Split("Hello World Test", " "))
...
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>