検索ワード: moveprefixleft (チェコ語 - 英語)

', 1); title := moveprefixleft(title); title := decodehtml(title); if title='' then exit; movie_code:=parsestring(basicurl, 'http://www.iafd.com/title.rme/title=(.*?).htm', 1); movie_site_url:=getmoviesiteurl(movie_code); //movie year year:=parsestring(all, '
',all); if i>0 then begin j:=mypos('',all,i); s:=copy(all,i,j-i); s:=removeendlines(s); //showmessage(s); s3:=parsestring(s, ' [^ '' then begin tagline:=removetags(s3); tagline:=decodehtml(tagline); tagline:=convutf(tagline); tagline:=clearextraspaces(tagline); showmessage('tag'+tagline); end; end; //country if isfilm=1 then begin s:=getstr(all, ' nazione: ', ''); s:=parsestring(s, '.*>(.*?)', 1); s:=clearextraspaces(s); i:=pos(',', s); while i>0 do begin s3:=copy(s, 1, i-1); //showmessage('country:'+s3); if s3<>'' then setcountry(s3); delete(s, 1, i+1); i:=pos(',', s); end; //showmessage('country:'+s); if s<>'' then setcountry(s); end; ///////////////////// //download cast page urla:=format('/%s/cast/',[movie_code]); urla:=replacestr(urla, ' ', '+', -1); refer:=format('http://www.movieplayer.it/adv/interstitial/2.html?next=/%s/cast/',[movie_code]); all:=downloadurlwithreferer(urla,refer); //all:=removeendlines(all); //showmessage(all); i:=pos('