Search/Replace in Memo

[EricN]

I wish to search a memo field which could contain one of the following:

Sample 1:
<iframe title="YouTube video player" width="480" height="390" src="http://www.youtube.com/embed/C_sfymiB-T4?rel=0" frameborder="0" allowfullscreen></iframe>

Sample 2:
<object width="500" height="405"><param name="movie" value="http://www.youtube-nocookie.com/v/KBSOeUCzefQ&hl=en_US&fs=1&rel=0&color1=0x006699&color2=0x54abd6&border=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube-nocookie.com/v/KBSOeUCzefQ&hl=en_US&fs=1&rel=0&color1=0x006699&color2=0x54abd6&border=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="500" height="405"></embed></object>

Sample 3:
<object width="480" height="385"><param name="movie" value="http://www.youtube.com/v/qqEntcy-FMQ?fs=1&amp;hl=en_US&amp;rel=0"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/qqEntcy-FMQ?fs=1&amp;hl=en_US&amp;rel=0" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="480" height="385"></embed></object>

Within this field, I wish to locate the width and height and replace with width="560" height="349"

A part of my script:
dim tbl as P
tbl = table.open("[pathalias.adb_dbf]\videos")
query.filter = "random_records(1, \"recommend='Yes'.and.Pass='Yes'.and.source='YouTube'.and.cruel<>'Yes'\")"
query.order = ""
query.options = ""
qry = tbl.query_create()
gcount = qry.records_get()
tbl.fetch_first()
while .not. tbl.fetch_eof()

I’ve tried several variations of the following but can’t seem to get it right.
vaa = STRITRAN_SPECIAL(tbl.Link, quote(" width="), quote(" scr="), "width="+quote("560") +" height="+quote("349"))
? "<center>"+vaa+"</center>"


Suggestions welcome!

[Stan Mathews]

Re: Search/Replace in Memo

vaa = STRITRAN_SPECIAL(tbl.Link, quote(" width="), quote(" scr="), "width="+quote("560") +" height="+quote("349"))

do you mean

vaa = STRITRAN_SPECIAL(tbl.Link, quote(" width="), quote(" s[B][COLOR="Red"]rc[/COLOR][/B]="), "width="+quote("560") +" height="+quote("349"))

[EricN]

Re: Search/Replace in Memo

Thanks Stan,
I believe I transposed the src in my first post. The problem I'm having is figuring out the quotes around the numbers.

<iframe title="YouTube video player" width="480" height="390" src="http://www.youtube.com/embed/C_sfymiB-T4?rel=0" frameborder="0" allowfullscreen></iframe>

I want to replace width="480" height="390" in the above example with width="280" height="190" for instance.

Also, within my records, the beginning and ending parameters of the width and height vary about 6 different ways.

Again, thanks for the help!

[EricN]

Re: Search/Replace in Memo

Getting closer?

youtube code
'<iframe title="YouTube video player" class="youtube-player" type="text/html" width="480" height="300" src="http://www.youtube.com/embed/8--XB-rNiCI?rel=0" frameborder="0" allowFullScreen></iframe>

My code
? "iframe1"
? "<BR>1 "+extract_string(tbl.Link, "/html", " src", 1)
extract1 = extract_string(tbl.Link, "/html", " src", 1)
replace1 = "\" width="+quote("80")+" height="+quote("80")+" "
vaa = STRTRAN(tbl.link, extract1, replace1)
'vaa = stritran(tbl.link, extract1, replace1)
? "<BR>2 "+extract_string(vaa, "/html", " src", 1)
? "<BR>e1 :"+extract1
? "<BR>r1 :"+replace1
? "<center>"+tbl.Link+"</center>"

My results
iframe1
1 " width="480" height="300"
2 " width="80" height="80"
e1 :" width="480" height="300"
r1 :" width="80" height="80"

Looks like I have everything correct but text is not being replaced as expected/hoped. Video image size not changed.

[EricN]

Re: Search/Replace in Memo

This is how I did it...

vBreed = "Basenji"
dim tbl as P
tbl = table.open("[pathalias.adb_dbf]\videos")
query.filter = "random_records(3 , \"breed=\"+quote(vBreed)+\"\")"
query.order = "title"
query.options = ""
qry = tbl.query_create()
gcount = qry.records_get()
tbl.fetch_first()
while .not. tbl.fetch_eof()

aa = extract_string(tbl.Link, "/html", " src", 1)
bb = extract_string(tbl.Link, "width", "><", 1)
cc = extract_string(tbl.Link, " player", " src", 1)

dim replace1 as c
if aa <>""
aa1 = aa
replace1 = "\" width="+quote("300")+" height="+quote("250")+" "
elseif bb <> ""
aa1 = bb
replace1 = "="+quote("300")+" height="+quote("250")+" "
elseif cc <> ""
aa1 = cc
replace1 = "\" width="+quote("300")+" height="+quote("250")+" "
end if

vaa = stritran(tbl.link, aa1, replace1)

? "<center><table width=100 cellspacing=10 border=5 bordercolor="+vTableBorder+"><tr><td align=center valign=middle>"
? "<center>"+vaa
? "<font Face=verdana size=3>"+tbl.Title+"</font></center>"
? "</td></tr></table></center><BR>"
tbl.fetch_next()
end while
qry.drop()
tbl.close()