word extraction with non-constant deliminator

[Mike Wilson]

I've search and played, and tried until I'm tired and at my end. In the following example, I am trying to collect the second "word" (word following many periods) from the list selection. With the deliminator being non-constant, and each word having inherant periods, I'm drawing a complete blank. Any help would be much appreciated.

dim vT as C
vT=<<%a%
comcast.net.......smtp.comcast.net
adelphia.com......smtp.adelphia.com
zero.net..........smtp.zero.com
sbcglobal.net.....mail.sbcyahoo.com
sbcglobal.net.....smtp.yahoo.net
%a%

dim vchoice as c
vchoice=ui_get_list2("","",vT)

dim vsmtp as C
vsmtp =

[MikeC]

Re: word extraction with non-constant deliminator

Hi Mike,

A couple of ways possibly....does the second word always follow after at least 2 periods (or were the periods just so show us the differences between the 2 words?). Also, does the 2nd word always have either smtp or mail as the first part of it?

[aschone]

Re: word extraction with non-constant deliminator

I cheated.

dim vT as C
vT=<<%a%
comcast.net.......smtp.comcast.net
adelphia.com......smtp.adelphia.com
zero.net..........smtp.zero.com
sbcglobal.net.....mail.sbcyahoo.com
sbcglobal.net.....smtp.yahoo.net
%a%

dim vchoice as c
vchoice=ui_get_list2("","",vT)
'ui_msg_box("",vChoice)

dim vsmtp as C
vsmtp = strtran(vChoice,left(vChoice,18),"")
ui_msg_box("",vsmtp)

[Steve Workings]

Re: word extraction with non-constant deliminator

One way:

dim vT as C
vT=<<%a%
comcast.net.......smtp.comcast.net
adelphia.com......smtp.adelphia.com
zero.net..........smtp.zero.com
sbcglobal.net.....mail.sbcyahoo.com
sbcglobal.net.....smtp.yahoo.net
%a%

dim vTOut as c = ""
for each line in vT
	dotcount = occurs(".", line)
	dotcount = dotcount - 2
	StartPos = at(".",line, dotcount) + 1
	line = substr(line, StartPos, 50)
	vTOut = vTout + line + crlf()
next


dim vchoice as c
vchoice=ui_get_list2("","",vTOut)

[G Gabriel]

Re: word extraction with non-constant deliminator

I am looking at this and about 10 different things came to mind all colliding at the same time creating sort of a nuclear fusion in my head, so let's start with few:

x="comcast.net..........smtp.comcast.net"
?word(stritran(x,trailing(x,2),"|"),2,"|")
= "smtp.comcast.net"

Another way:

x="comcast.net...........smtp.comcast.net"
?if(asc(lastword(x,".."))=46,right(lastword(x,".."),len(lastword(x,".."))-1),lastword(x,".."))
= "smtp.comcast.net"

Slightly modified:

x="comcast.net...........smtp.comcast.net"
?if(asc(lastword(x,".."))=46,substr(lastword(x,".."),2),lastword(x,".."))
= "smtp.comcast.net"

And another:

dim vT as C
vT=<<%a%
comcast.net.......smtp.comcast.net
adelphia.com......smtp.adelphia.com
zero.net..........smtp.zero.com
sbcglobal.net.....mail.sbcyahoo.com
sbcglobal.net.....smtp.yahoo.net
%a%

for i=1 to 10
vt=strtran(vt,"..","|")
vt=strtran(vt,"|.","|")
vt=strtran(vt,"||","|")
next
msgbox(vt)

There a bunch of other functions that just don't seem to work in v8.

[Mike Wilson]

Re: word extraction with non-constant deliminator

Thanks guys. I was brain dead yesterday.

Andy,
You "cheating" works great because I am using a padr() to set the number of characters before the second word to a constant.

Steve,
I need the choice list to have the list with both words and the extract to be of the choice from the list.

Gabriel,
I'm thinking your first example would work great... IF TRAILING() ACTUALLY WORKED IN V10...WHICH IT DOES NOT......bug.....bug.....bug!!!

[Steve Workings]

Re: word extraction with non-constant deliminator

Steve,
I need the choice list to have the list with both words and the extract to be of the choice from the list.

I'd like to help more, but I guess I don't understand. Can you provide an example?

[Mike Wilson]

Re: word extraction with non-constant deliminator

Steve,
Thanks, but no more needed. I'll use Andy's suggestion as that should work well. And I guess I thought I did provide and example.

I filed bug report regarding trailing() not working in v10. He confirmed and will fix. (amazing attention they give!!)