Google で調べる

検索ワード: 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('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all); if InList('FF',GetStrOption('DisableImport')) or InList('FC',GetStrOption('DisableImport')) then i:=0; // 20091123-JeF if i>0 then begin i:=MyPos(' ', all, i+1); j:=MyPos(' ', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); // Extract aka Movie Title according to TitleLang option if present // 20091129 if (GetStrOption('TitleLang')>'') then begin s3:=GetLocalTitle(s3); if (s3>'') then name:=s3; end; name := MovePrefixLeft(name); SetMovieName(name, '', 4, code, year); end; delete(s2, 1, i+4); i:=pos('', s2); end; end; movie_html := all; // for photos downloading if pos('Birth Name', all); if i>0 then begin i:=i+length(' Birth Name

英語

', 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, '

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); j:=MyPos(' ', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); // Extract aka Movie Title according to TitleLang option if present // 20091129 if (GetStrOption('TitleLang')>'') then begin s3:=GetLocalTitle(s3); if (s3>'') then name:=s3; end; name := MovePrefixLeft(name); SetMovieName(name, '', 1, code, year); end; delete(s2, 1, i+4); i:=pos('', s2); end; end; //Writer - filmography i:=pos(' Writer:

英語

', s, j+1); s3 := copy(s, j+4, l-j-4); s3 := UnicodeToAnsi(s3); s3 := ClearExtraBlankCharacters(s3); delete(s3, 1, 2); birthplace := s3; end; end; end; if DlDeathDate then begin i := Pos('Décédé', s); if i>0 then begin //death date k := MyPos('le ', s, i+1); if k>0 then begin k := MyPos('', s, k+1); s2 := copy(s, k, j-k); death_date:=ExtractDate(s2); end; end; end; end; //loading filmography url:='http://www.allocine.fr/personne/filmographie_gen_cpersonne='+person_code+'.html'; all:=DownloadURL(url); //filmography - director i:=pos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); SetMovieName(name, '', 1, code, ProcessMovieYear(year)); end; delete(s2, 1, i+4); i:=pos('', s2); end; end else if (RegReadInteger('IMDBDownloadFilmoAsDirector',1)>0) then begin i:=Pos('Director', all); if i>0 then begin j:=MyPos('

英語

Case di Produzione ',all); if (i>0) then begin j:=MyPos('',all,i); s:=copy(all,i,j-i); i:=Pos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); SetMovieName(name, '', 1, code, year); end; delete(s2, 1, i+4); i:=pos('', s2); end; end else if (RegReadInteger('IMDBDownloadFilmoAsDirector',1)>0) then begin i:=Pos('Director', all); if i>0 then begin j:=MyPos(' Writer:', all); if (i>0) and (RegReadInteger('IMDBDownloadFilmoAsWriter',1)>0) then begin i:=MyPos('

英語

', 1); if s3<>'' then title:=title + ' - aka: ' + s3; if title<>'' then begin titles_count := titles_count + 1; SetLength(titles, titles_count); titles[titles_count-1] := title_code; SetSearchResult(title, title_code); end; delete(s, 1, j); i:=Pos('0 then if (i = length(name)-length(Prefixes[j])-1) or (length(name) >= i+2+length(Prefixes[j])) and (name[i+2+length(Prefixes[j])]=':') then begin if Prefixes[j][length(Prefixes[j])] = '''' then name := Prefixes[j] + copy(name, 1, i-1) + copy(name, i+length(Prefixes[j])+2, length(name)-i-length(Prefixes[j])-2+1) else name := Prefixes[j]+' ' + copy(name, 1, i-1) + copy(name, i+length(Prefixes[j])+2, length(name)-i-length(Prefixes[j])-2+1); break; end; end; Result := name; end; function GetInfo(url: string; images_only: boolean): string; var s, s2, s3, keyword, note: string; //20101007-JeF i, j, k: integer; begin result:=''; BasicURL:=url; all:=DownloadURL(url); if all='-1' then result:='-1' else result:=all; imdb_code:=''; title:=ParseString(all, '

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); SetMovieName(name, '', 2, code, ProcessMovieYear(year)); end; delete(s2, 1, i+4); i:=pos('', s2); end; end else if (RegReadInteger('IMDBDownloadFilmoAsWriter',1)>0) then begin i:=Pos('Writer', all); if i>0 then begin j:=MyPos('

英語

',' '); end; //ShowMessage(s); if (s<>'') then begin i:=Pos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); SetMovieName(name, '', 2, code, year); end; delete(s2, 1, i+4); i:=pos('', s2); end; end else if (RegReadInteger('IMDBDownloadFilmoAsWriter',1)>0) then begin i:=Pos('Writer', all); if i>0 then begin j:=MyPos('

英語

', 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, ' .*? \((\d+)\)

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); SetMovieName(name, '', 4, code, ProcessMovieYear(year)); end; delete(s2, 1, i+4); i:=pos('', s2); end; end else if (RegReadInteger('IMDBDownloadFilmoAsComposer',1)>0) then begin i:=Pos('Composer', all); if i = 0 then i := Pos('', all); if i>0 then begin j:=MyPos('

英語

', 1); anni:=ParseString(s3, ' (\(.*?\)) ', 1); if (episodi<>'') and (anni <>'') then begin s3:=character+' ('+episodi+' episodi '+anni+')'; end else begin if episodi<>'' then begin s3:=character+' ('+episodi+' episodi)'; end else begin s3:=character; end end end; character:=convUTF(s3); character:=DecodeHTML(character); //ShowMessage('Name:'+s4+' Role:'+character+' Code:'+code); if urlImage = '' then begin SetPersonName(s4,character,3,code); end else begin j:=Pos('/images/',urlImage); i:=Pos('_jpg_60x60_crop_q85.jpg',urlImage); s3:=copy(urlImage,j,i-j); //showMessage(s3); SetPersonName(s4,character,3,code,'http://images.movieplayer.it'+s3+'.jpg'); end; i:=Pos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); s2:=copy(all, i, j-i); i:=pos('', s2); while i>0 do begin s3:=copy(s2, 1, i+4); code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); SetMovieName(name, '', 4, code, year); end; delete(s2, 1, i+4); i:=pos('', s2); end; end else if (RegReadInteger('IMDBDownloadFilmoAsComposer',1)>0) then begin i:=Pos('Composer', all); if i>0 then begin j:=MyPos(' = 3) then TraceExecute('Bio',all); // 20101001-JeF //birth name birth_name:=''; // 20090729-JeF i:=pos(' Birth Name

英語

Distributor', all); if i>0 then begin j:=MyPos('', all, i+1); s:=copy(all, i, j-i); s2:=ParseString(s, '.htm">(.*?)', 1); if s2<>'' then SetStudio(s2); end; //director i:=Pos('Director', all); if i>0 then begin j:=MyPos('', all, i+1); s:=copy(all, i, j-i); name:=ParseString(s, '.htm">(.*?)', 1); k:=Pos('(', name); if k>0 then delete(name, k-1, length(name)-k+2); code:=ParseString(s, 'href="/person.rme/perfid=(.*?).htm">', 1); code:=LowerCase(code); if (name<>'') and (name<>'No Director Credited') then SetPersonName(name, '', 1, code); end; //actors i:=Pos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); title:=copy(all, i+4, j-i-4); title:=RemoveTags(title); title:=DecodeHTML(title); title:=ClearExtraSpaces(title); i:=pos('>', title); if i>0 then delete(title, 1, i); title := ClearExtraQuotes(title); title := MovePrefixLeft(title); if title='' then exit; duration:=0; //original title i:=pos('[', all); if i>0 then begin j:=MyPos('', all, i+1); s2:=copy(all, i+4, j-i-4); original_title:=DecodeHTML(s2); original_title:=ClearExtraSpaces(original_title); end; //Countries i:=pos('', all, i+1); j:=MyPos('', all, i+1); s:=copy(all, i+2, j-i-2); k:=pos('/', s); while k>0 do begin name:=copy(s, 1, k-1); if name<>'' then SetCountry(name); if (name='USA') or (name='Gran Bretagna') or (name='Australia') then ask_amazon:=true; delete(s, 1, k); k:=pos('/',s); end; if s<>'' then SetCountry(s); if (s='USA') or (s='Gran Bretagna') or (s='Australia') then ask_amazon:=true; end; //Year i:=Pos('', all, i+1); j:=MyPos('', all, i+1); name:=copy(all, i+2, j-i-2); if name<>'' then SetGenre(name); end; //Duration i:=Pos('durata ', all); if i>0 then begin j:=MyPos('''', all, i+1); s:=copy(all, i+7, j-i-7); try duration:=StrToInt(s); except end; end; //directors and actors //directors actors:=true; i:=pos('Regia di', all); if i>0 then begin j:=MyPos('Con ', all, i+1); k:=MyPos('', all, i+1); if (j>k) or (j=0) then begin j:=k; actors:=false; end; s:=copy(all, i, j-i); i:=pos('', s, i+1); s2:=copy(s, i, k-i); code:=ParseString(s2, ''' then SetPersonName(name, '', 3, code); delete(s, 1, j+4); i:=pos(''' then SetImageName('', front_cover_url, '', 1); //description i:=pos('

英語

', all, i+1); if j>0 then s:=copy(all, i+3, j-i-4); end; if (s='') or (pos('No Matches.', all)>0) then //Movie not found else begin i := pos('',s); s := copy(s,i+7,length(s)); i:=pos('', s); while i>0 do begin s2:=copy(s, 1, i-1); j:=Pos('', s2); j:=MyPos('', s2, j+1); s2:=copy(s, j+5, length(s2)-j-4); j:=Pos('0) or (pos(' AKA ',UpperCase(title))=0) and (pos(UpperCase(NakedMovieTitle),UpperCase(title))=1) or (pos(UpperCase(NakedMovieTitle),UpperCase(title))=1) or (pos('"'+UpperCase(NakedMovieTitle)+'"',UpperCase(title))=1) then begin if (pos(Year,title)>0) or (pos(IntToStr(StrToInt(Year)+1),title)>0) or (pos(IntToStr(StrToInt(Year)-1),title)>0) then begin matches_count:=matches_count+1; if (imdb_code='') then imdb_code:=ParseString(s3, '', s); end; end; if (matches_count>1) then imdb_code:=''; end; end; // imdb_code already known or found by imdb search : retrieve IMDB infos if (imdb_code>'') then begin imdb_rating:=0; mpaa:=''; mpaa_rating:=''; url:=format('http://www.imdb.com/title/tt%s', [imdb_code]); all:=DownloadURL(url); if (all<>'-1') then begin //imdb rating imdb_rating:=0; i:=pos(' User Rating:

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', all, i+1); title:=copy(all, i+4, j-i-4); title:=RemoveTags(title); title:=DecodeHTML(title); title:=ClearExtraSpaces(title); i:=pos('>', title); if i>0 then delete(title, 1, i); title := ClearExtraQuotes(title); title := MovePrefixLeft(title); if title='' then exit; duration:=0; //original title i:=pos('[', all); if i>0 then begin j:=MyPos('', all, i+1); s2:=copy(all, i+4, j-i-4); original_title:=DecodeHTML(s2); original_title:=ClearExtraSpaces(original_title); end; //Countries i:=pos('', all, i+1); j:=MyPos('', all, i+1); s:=copy(all, i+2, j-i-2); k:=pos('/', s); while k>0 do begin name:=copy(s, 1, k-1); if name<>'' then SetCountry(name); if (name='USA') or (name='Gran Bretagna') or (name='Australia') then ask_amazon:=true; delete(s, 1, k); k:=pos('/',s); end; if s<>'' then SetCountry(s); if (s='USA') or (s='Gran Bretagna') or (s='Australia') then ask_amazon:=true; end; //Year i:=Pos('', all, i+1); j:=MyPos('', all, i+1); name:=copy(all, i+2, j-i-2); if name<>'' then SetGenre(name); end; //Duration i:=Pos('durata ', all); if i>0 then begin j:=MyPos('''', all, i+1); s:=copy(all, i+7, j-i-7); try duration:=StrToInt(s); except end; end; //directors and actors //directors actors:=true; i:=pos('Regia di', all); if i>0 then begin j:=MyPos('Con ', all, i+1); k:=MyPos('', all, i+1); if (j>k) or (j=0) then begin j:=k; actors:=false; end; s:=copy(all, i, j-i); i:=pos('', s, i+1); s2:=copy(s, i, k-i); code:=ParseString(s2, ''' then SetPersonName(name, '', 3, code); delete(s, 1, j+4); i:=pos(''' then SetImageName('', front_cover_url, '', 1); //description i:=pos('

英語

', s3, k+1); if ke>0 then begin s3:=copy(s3, 1, ke+3); end; end; code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if (year='') then year:=ParseString(s3, ', (\d+)', 1); // 20090724-JeF if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); //character character:=''; j:=pos('.... ', s3); if j>0 then begin k:=MyPos(' ', s3, j+1); if k>0 then begin character:=copy(s3, j+5, k-j-5); end else begin k:=MyPos(#10, s3, j+1); if k>0 then begin character:=copy(s3, j+5, k-j-5); end else begin k:=MyPos('', s3, j+1); if k>0 then begin character:=copy(s3, j+5, k-j-5); end end; end; end // 20090714-JeF_Begin else begin j:=pos('',s3); delete(s3,1,j-1); s3:=RemoveTags(s3); s3:=DecodeHTML(s3); s3:=ClearExtraSpaces(s3); if (pos('(',s3)>0) and (pos(')',s3)>0) and (pos(')',s3)-pos('(',s3)>5) // 20091002-JeF then character:=s3; end; // 20090714-JeF_End character:=RemoveTags(character); character:=DecodeHTML(character); character:=ClearExtraSpaces(character); SetMovieName(name, character, 3, code, ProcessMovieYear(year)); end; end; delete(s2, 1, i+4); i:=pos('', s2); end; end //New design else if (RegReadInteger('IMDBDownloadFilmoAsActor',1)>0) then begin i:=Pos('Actor', all); if i=0 then i:=Pos('Actress', all); if i>0 then begin j:=MyPos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', s3, k+1); if ke>0 then begin s3:=copy(s3, 1, ke+3); end; end; code:=ParseString(s3, 'href="/title/tt(\d+)/"', 1); name:=ParseString(s3, 'href="/title/tt.*?">(.*?)', 1); // 20091105-JeF year:=ParseString(s3, ' \((\d+)', 1); if (year='') then year:=ParseString(s3, ', (\d+)', 1); // 20090724-JeF if name<>'' then begin name := RemoveTags(name); name := DecodeHTML(name); name := ClearExtraSpaces(name); name := ClearBrackets(name); name := ClearExtraSpaces(name); name := ClearExtraQuotes(name); name := MovePrefixLeft(name); //character character:=''; j:=pos('....

英語

', all); if i>0 then begin j := MyPos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

チェコ語

', text, i+1); m:=MyPos('', text, i+1); s:=copy(text, i, j-i+12); k:=Pos('m then k:=0 else if k>0 then extracted_awards := extracted_awards + ', '; end; s2:=copy(s, m+7, j-m-7); if s2<>'' then extracted_awards := extracted_awards + '(' + RemoveTags(s2) + ')'; delete(text, 1, j+12); i:=Pos(' ', text); end; Result := DecodeHTML(extracted_awards); // 20090910-JeF end; function GetInfo(url: string; images_only: boolean): string; var keyword, s, s2, s3, plot_outline: string; i, j, kol, k, l, season, episode: integer; AirDate, EpisodeTitle, EpisodeIMDB, EpisodeDescription, day, month, ayear: string; LoadSummary, LoadSynopsis: boolean; //20090317-JeF EpisodeUrl, EpisodePage, EpFullDesc: string; //20090709-JeF TVShow: boolean; //20090710-JeF FunStuffInfo: string; // 20090808-JeF begin result:=''; i:=pos('/combined', url); if i>0 then BasicURL:=copy(url, 1, i-1) else BasicURL:=url; all:=DownloadURL(url); if all='-1' then result:='-1' else result:=all; imdb_code:=ParseString(url, 'http://www.imdb.com/title/tt(\d+)', 1); movie_code:=imdb_code; movie_site_url:=GetMovieSiteURL(movie_code); s2:=ParseString(all, '(.*)', 1); //movie year year:=ParseString(s2, '\((\d+)', 1); //movie title title:=ParseString(s2, '^(.*?) \(', 1); title:=RemoveTags(title); title:=DecodeHTML(title); title:=ClearExtraSpaces(title); title := ClearExtraQuotes(title); title := MovePrefixLeft(title); original_title := title; if title='' then exit; //imdb rating imdb_rating:=0; i:=pos('

英語

', text, i+1); m:=MyPos('', text, i+1); s:=copy(text, i, j-i+12); k:=Pos('m then k:=0 else if k>0 then extracted_awards := extracted_awards + ', '; end; s2:=copy(s, m+7, j-m-7); if s2<>'' then extracted_awards := extracted_awards + '(' + RemoveTags(s2) + ')'; delete(text, 1, j+12); i:=Pos(' ', text); end; Result := DecodeHTML(extracted_awards); // 20090910-JeF end; function GetInfo(url: string; images_only: boolean): string; var keyword, s, s2, s3, plot_outline: string; i, j, kol, k, l, season, episode: integer; AirDate, EpisodeTitle, EpisodeIMDB, EpisodeDescription, day, month, ayear: string; LoadSummary, LoadSynopsis: boolean; //20090317-JeF EpisodeUrl, EpisodePage, EpFullDesc: string; //20090709-JeF TVShow: boolean; //20090710-JeF FunStuffInfo: string; // 20090808-JeF begin result:=''; i:=pos('/combined', url); if i>0 then BasicURL:=copy(url, 1, i-1) else BasicURL:=url; all:=DownloadURL(url); if all='-1' then result:='-1' else result:=all; imdb_code:=ParseString(url, 'http://www.imdb.com/title/tt(\d+)', 1); movie_code:=imdb_code; movie_site_url:=GetMovieSiteURL(movie_code); s2:=ParseString(all, '(.*)', 1); //movie year year:=ParseString(s2, '\((\d+)', 1); //movie title title:=ParseString(s2, '^(.*?) \(', 1); title:=RemoveTags(title); title:=DecodeHTML(title); title:=ClearExtraSpaces(title); title := ClearExtraQuotes(title); title := MovePrefixLeft(title); original_title := title; if title='' then exit; //imdb rating imdb_rating:=0; i:=pos('

最終更新: 2018-02-13
使用頻度: 1
品質:

警告:見えない HTML フォーマットが含まれています

人による翻訳を得て
4,401,923,520 より良い訳文を手にいれましょう

ユーザーが協力を求めています。



ユーザー体験を向上させるために Cookie を使用しています。弊社サイトを引き続きご利用いただくことで、Cookie の使用に同意していただくことになります。 詳細。 OK