String Manipulating within List

[Kin®sole]

Hi
I'm very new to VB (using VB6)
I have two lists one blank and one containing names in the format of surname
and then forename.I also have a combo box containing forenames.When I
select a forename from my combo box I need to add the corresponding surname
into the blank list box.What is the best way to do this? hope this make
sense

TIA

--
cheers dude
************
kin®sole
************

[Rick Rothstein]

> I have two lists one blank and one containing names in the format of
surname

and then forename.I also have a combo box containing forenames.When I
select a forename from my combo box I need to add the corresponding surname into the blank list box.What is the best way to do this? hope this make
sense
When you said the above in your first post, I assume you mean you want to
get ALL surnames that match the selected forename, not just the first one
you come to.
For count = 0 To number
If lstFullNames.Li st(count) = namestr Then
flag = True
End If
Next count
If flag = False Then
MsgBox ("name is not in the list")
Else
Let namestr2 = Len(namestr)
Let namestr1 = InStr(1, namestr, " ")
Let namestr3 = Left$(namestr, namestr1)
lstsurnames.Add Item (namestr3)
End If
End Sub
In the above code snippet that you posted earlier, which I took the liberty
to reformat to make it easier to read (something you should think about in
your future coding), you need to add the names to the lstsurnames ListBox
while inside the For-Next loop (you can't see each separate thing you found
after the loop has finished; unless, of course, you store each found item in
an array for later processing). Move the assignment statements in your Else
block of code into the If-Then block inside of your For-Next loop; however,
you need to change what you are actually assigning... use
lstFullNames.Li st(count) and not namestr, that is what you want to split
apart. Also, the assignment for namestr3 will include a blank space after it
because the position you found the blank at is used as the count argument in
the Left$ statement... you want to use one less than that count value so
that you don't grab the blank character.

Rick - MVP
"Kin®sole" <ki******@NOSPA Mhotmail.com> wrote in message
news:a8******** *************** *******@news.te ranews.com... sorry that should read " but I can get this to work for each entry in the
list."

cheers
"Kin®sole" <ki******@NOSPA Mhotmail.com> wrote in message
news:0a******** *************** *******@news.te ranews.com...

As I say I an very new to VB.
The lists are just constructed at design time.
It is my collage homework but I have reached a point where I am stuck.I

can

not figure out how to search for part of a string i.e forename within a
list.I know I need to some how remove the surname form the fullname list

but

don't know how.
I thing I need to use ' INSTR' to find the space then use RIGHT$ to remove the surname but I can get this to work for each entry in the list.
I'm only looking for a pointer!

cheers

"Larry Serflaten" <Ab***@SpamBust ers.com> wrote in message
news:40******** @corp.newsgroup s.com...

"Kin®sole" <ki******@NOSPA Mhotmail.com> wrote
> OK here's my code so far.

Just for your future reference:

When you are looking for help with a problem, it often is beneficial
to work up a small demo to reproduce the problem so that others
can copy and paste the code into VB, to see it on their system.

Some questions don't need a code example (Like; Where is the Help file?) but those that are syntax or logic related often do need a example.
Also, it often happens, that in the process of building a smaller demo
of the problem, that the answer becomes apparent, and the problem is
solved before it is even posted. It is a learning experience to break
some problem down to just the bare necessities, and if you can't solve
it then, you'll have a small demo to post for others to help find the
answer. Thats why I ask for example code, it is far easier for you to
show me the problem, than for me to guess at what you're doing,
and sometimes the answer becomes apparent just by building the demo.

Of course, another reason is because myself and other regular posters
are also on the look out for students trying to get someone to do their homework! ;-) If the student shows their work, adding a tweek here
or there is generally enough to get through the 'problem'.

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[Kin®sole]

Thanks for your help so far.I seem to be heading in the right direction
now.Heres my code so far

Private Sub cmbForenames_Cl ick()
Dim namestr, namestr1, namestr2, namestr3, output, value, value1, value2 As
String
Dim num, number, count As Integer
Dim flag As Boolean

Let number = lstFullNames.Li stCount
Let num = cmbForenames.Li stIndex
Let namestr = cmbForenames.Li st(num)
Let namestr = LTrim$(namestr)
Let namestr = RTrim$(namestr)
Let namestr = UCase(Left$(nam estr, 1)) + Right$(namestr, Len(namestr) -
1)

For count = 0 To number
Let value2 = Len(lstFullName s.List(count))
Let value1 = InStr(1, (lstFullNames.L ist(count)), " ")
Let value = Right$((lstFull Names.List(coun t)), value2 -
value1)

If value = namestr Then
flag = True
If flag Then
Let lstFullNames.Li st(count) =
Left$((lstFullN ames.List(count )), value1 - 1)
lstsurnames.Add Item (lstFullNames.L ist(count))
End If
End If

Next count
If flag = False Then
MsgBox ("name is not in the list")
Else
End If

Ignoring all the string and integers Ive set my problem now is when I remove
the surname from ((lstFullNames. List(count)), it remove it from the actual
list .I have tried ((lstFullNames. List(count)) = newstring but without
success.

Sorry if these question seem a bit dumb but I'm not a natural programmer!!!

Thanks for the help so far
cheers
"Rick Rothstein" <ri************ @NOSPAMcomcast. net> wrote in message
news:tJ******** ************@co mcast.com...

I have two lists one blank and one containing names in the format of surname

and then forename.I also have a combo box containing forenames.When I
select a forename from my combo box I need to add the corresponding

surname

into the blank list box.What is the best way to do this? hope this make
sense

When you said the above in your first post, I assume you mean you want to
get ALL surnames that match the selected forename, not just the first one
you come to.

For count = 0 To number
If lstFullNames.Li st(count) = namestr Then
flag = True
End If
Next count
If flag = False Then
MsgBox ("name is not in the list")
Else
Let namestr2 = Len(namestr)
Let namestr1 = InStr(1, namestr, " ")
Let namestr3 = Left$(namestr, namestr1)
lstsurnames.Add Item (namestr3)
End If
End Sub

In the above code snippet that you posted earlier, which I took the

liberty to reformat to make it easier to read (something you should think about in
your future coding), you need to add the names to the lstsurnames ListBox
while inside the For-Next loop (you can't see each separate thing you found after the loop has finished; unless, of course, you store each found item in an array for later processing). Move the assignment statements in your Else block of code into the If-Then block inside of your For-Next loop; however, you need to change what you are actually assigning... use
lstFullNames.Li st(count) and not namestr, that is what you want to split
apart. Also, the assignment for namestr3 will include a blank space after it because the position you found the blank at is used as the count argument in the Left$ statement... you want to use one less than that count value so
that you don't grab the blank character.

Rick - MVP
"Kin®sole" <ki******@NOSPA Mhotmail.com> wrote in message
news:a8******** *************** *******@news.te ranews.com...

sorry that should read " but I can get this to work for each entry in the

list."

cheers
"Kin®sole" <ki******@NOSPA Mhotmail.com> wrote in message
news:0a******** *************** *******@news.te ranews.com...

As I say I an very new to VB.
The lists are just constructed at design time.
It is my collage homework but I have reached a point where I am stuck.I

can

not figure out how to search for part of a string i.e forename within

a list.I know I need to some how remove the surname form the fullname list but

don't know how.
I thing I need to use ' INSTR' to find the space then use RIGHT$ to

remove the surname but I can get this to work for each entry in the list.
I'm only looking for a pointer!

cheers

"Larry Serflaten" <Ab***@SpamBust ers.com> wrote in message
news:40******** @corp.newsgroup s.com...
>
> "Kin®sole" <ki******@NOSPA Mhotmail.com> wrote
> > OK here's my code so far.
>
> Just for your future reference:
>
> When you are looking for help with a problem, it often is beneficial
> to work up a small demo to reproduce the problem so that others
> can copy and paste the code into VB, to see it on their system.
>
> Some questions don't need a code example (Like; Where is the Help file?) > but those that are syntax or logic related often do need a example.
> Also, it often happens, that in the process of building a smaller

demo > of the problem, that the answer becomes apparent, and the problem is
> solved before it is even posted. It is a learning experience to break > some problem down to just the bare necessities, and if you can't solve > it then, you'll have a small demo to post for others to help find the > answer. Thats why I ask for example code, it is far easier for you to > show me the problem, than for me to guess at what you're doing,
> and sometimes the answer becomes apparent just by building the demo.
>
> Of course, another reason is because myself and other regular posters > are also on the look out for students trying to get someone to do

their > homework! ;-) If the student shows their work, adding a tweek here
> or there is generally enough to get through the 'problem'.
>
> LFS
>
>
>
>
>
>
> -----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
> http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
> -----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[Kin®sole]

It will now do what I need it to do.I should have tried newstring
=(lstfullnames. list(count))

thanks for all your help.
That's part one of three complete lol
only two more to do.
thanks again

Cheers