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(mySentenc e)

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(mySentenc e)

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****@ninprod ata.com> schrieb:

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

Consider:

dim a() as object = split(mySentenc e)

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.Collecti ons.Specialized
..
..
..
Dim s As New StringCollectio n()
s.AddRange(Spli t("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******** *****@TK2MSFTNG P12.phx.gbl...

"Jeremy" <je****@ninprod ata.com> schrieb:

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

Consider:

dim a() as object = split(mySentenc e)

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.Collecti ons.Specialized
.
.
.
Dim s As New StringCollectio n()
s.AddRange(Spli t("Hello World Test", " "))
...
///

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