0 Пользователей и 18 Гостей просматривают эту тему.
Я даже самый первый скрипт приспособил: он тащит рецензию в пользовательское поле!
//Producers curPos := PosFrom('<b>Продюсер:</b>', HTML, EndPos); if curPos > 0 then begin EndPos := curPos; curPos := PosFrom('../people.php?id=', HTML, curPos); while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin curPos := curPos + Length('../people.php?id='); EndPos := PosFrom('"', HTML, curPos); URL := BASE_URL + '/people.php?id=' + Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('>', HTML, curPos) + 1; EndPos := PosFrom('</a>', HTML, curPos); TransName := Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('/ <font size=2>', HTML, EndPos) + Length('/ <font size=2>'); EndPos := PosFrom('</font>', HTML, curPos); Name := Trim(Copy(HTML, curPos, EndPos - curPos)); AddMoviePerson(Name, TransName, '', URL, ctProducers); curPos := PosFrom('../people.php?id=', HTML, curPos); end; end; end;
Ладно подожду мануала!
procedure ParseCredits(HTML : WideString);var curPos, EndPos : Integer; TransName, Name, Role, URL : WideString;begin EndPos := 1; //Original Author curPos := PosFrom('<b>Автор оригинала:</b>', HTML, EndPos); if curPos > 0 then begin EndPos := curPos; curPos := PosFrom('../people.php?id=', HTML, curPos); while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin curPos := curPos + Length('../people.php?id='); EndPos := PosFrom('"', HTML, curPos); URL := BASE_URL + '/people.php?id=' + Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('>', HTML, curPos) + 1; EndPos := PosFrom('</a>', HTML, curPos); TransName := Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('/ <font size=2>', HTML, EndPos) + Length('/ <font size=2>'); EndPos := PosFrom('</font>', HTML, curPos); Name := Trim(Copy(HTML, curPos, EndPos - curPos)); AddMoviePerson(Name, TransName, '', URL, ctProducers); curPos := PosFrom('../people.php?id=', HTML, curPos); end; end; //Directors curPos := PosFrom('<b>Режиссер:</b>', HTML, EndPos); if curPos > 0 then begin EndPos := curPos; curPos := PosFrom('../people.php?id=', HTML, curPos); while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin curPos := curPos + Length('../people.php?id='); EndPos := PosFrom('"', HTML, curPos); URL := BASE_URL + '/people.php?id=' + Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('>', HTML, curPos) + 1; EndPos := PosFrom('</a>', HTML, curPos); TransName := Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('/ <font size=2>', HTML, EndPos) + Length('/ <font size=2>'); EndPos := PosFrom('</font>', HTML, curPos); Name := Trim(Copy(HTML, curPos, EndPos - curPos)); AddMoviePerson(Name, TransName, '', URL, ctDirectors); curPos := PosFrom('../people.php?id=', HTML, curPos); end; end; //Writers curPos := PosFrom('<b>Сценарий:</b>', HTML, EndPos); if curPos > 0 then begin EndPos := curPos; curPos := PosFrom('../people.php?id=', HTML, curPos); while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin curPos := curPos + Length('../people.php?id='); EndPos := PosFrom('"', HTML, curPos); URL := BASE_URL + '/people.php?id=' + Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('>', HTML, curPos) + 1; EndPos := PosFrom('</a>', HTML, curPos); TransName := Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('/ <font size=2>', HTML, EndPos) + Length('/ <font size=2>'); EndPos := PosFrom('</font>', HTML, curPos); Name := Trim(Copy(HTML, curPos, EndPos - curPos)); AddMoviePerson(Name, TransName, '', URL, ctWriters); curPos := PosFrom('../people.php?id=', HTML, curPos); end; end; //Actors curPos := PosFrom('<b>Роли озвучивали:</b>', HTML, EndPos); if curPos > 0 then begin EndPos := curPos; curPos := PosFrom('../people.php?id=', HTML, curPos); while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin curPos := curPos + Length('../people.php?id='); EndPos := PosFrom('"', HTML, curPos); URL := BASE_URL + '/people.php?id=' + Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('>', HTML, curPos) + 1; EndPos := PosFrom('</a>', HTML, curPos); TransName := Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('/ <font size=2>', HTML, EndPos) + Length('/ <font size=2>'); EndPos := PosFrom('</font>', HTML, curPos); Name := Trim(Copy(HTML, curPos, EndPos - curPos)); curPos := PosFrom(' ', HTML, EndPos); if curPos < PosFrom('</tr>', HTML, EndPos) then begin curPos := curPos + Length(' '); EndPos := PosFrom('</td>', HTML, curPos); Role := Trim(Copy(HTML, curPos, EndPos - curPos)); end else Role := ''; AddMoviePerson(Name, TransName, Role, URL, ctActors); curPos := PosFrom('../people.php?id=', HTML, curPos); end; end; //Composers curPos := PosFrom('<b>Композитор:</b>', HTML, EndPos); if curPos > 0 then begin EndPos := curPos; curPos := PosFrom('../people.php?id=', HTML, curPos); while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin curPos := curPos + Length('../people.php?id='); EndPos := PosFrom('"', HTML, curPos); URL := BASE_URL + '/people.php?id=' + Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('>', HTML, curPos) + 1; EndPos := PosFrom('</a>', HTML, curPos); TransName := Copy(HTML, curPos, EndPos - curPos); curPos := PosFrom('/ <font size=2>', HTML, EndPos) + Length('/ <font size=2>'); EndPos := PosFrom('</font>', HTML, curPos); Name := Trim(Copy(HTML, curPos, EndPos - curPos)); AddMoviePerson(Name, TransName, '', URL, ctComposers); curPos := PosFrom('../people.php?id=', HTML, curPos); end; end; end;
Эпизоды: Dream arc01. Kaze -breeze-02. Machi -town-03. Koe -whisper-04. Hane -plume-05. Tsubasa -wing-06. Hoshi -star-Summer arc07. Yume -dream-08. Natsu -summer-09. Tsuki -moon-AIR arc10. Hikari -light-11. Umi -sea-12. Sora -air-13. Коллаж из сцен предыдущих серий
</p><br></td><td Valign=top width=5></td></tr></table><br><br><table width=100% cellspacing=0 cellpadding=2 border=0><tr><td><b><font size=2 color=#990000>Эпизоды:</font></b></td><td width=2></td></tr></table><table width=100% cellspacing=0 cellpadding=0 border=0 ><tr><td width=100% height=1 background='img/pixel.gif'></td></tr></table><table width=100% cellspacing=0 cellpadding=2 border=0><tr><td><b>Dream arc</b><br>01. Kaze -breeze-<br>02. Machi -town-<br>03. Koe -whisper-<br>04. Hane -plume-<br>05. Tsubasa -wing-<br>06. Hoshi -star-<br><b>Summer arc</b><br>07. Yume -dream-<br>08. Natsu -summer-<br>09. Tsuki -moon-<br><b>AIR arc</b><br>10. Hikari -light-<br>11. Umi -sea-<br>12. Sora -air-<br>13. Коллаж из сцен предыдущих серий</td><td width=2></td></tr></table><br><br><center><table width=100% cellspacing=0 cellpadding=2 border=0><tr><td><b><font size=2 color=#99000>
Эпизоды:Первый сезон Koukaku Kidoutai STAND ALONE COMPLEX (01.10.2002-01.10.2003)01. Public Peace; SECTION 902. Proof of Recklessness; TESTATION03. A Small Rebellion; ANDROID AND I04. The Visual Device Laughs; INTERCEPTOR05. The Inviting Bird Will Chant; DECOY06. The Copycat Dances; MEME07. Idolatry; IDOLATOR08. The Fortunate Ones; MISSING HEARTS09. The Man That Lurks in the Darkness of the Net; CHAT! CHAT! CHAT!10. A Perfect Day for a Jungle Cruise; JUNGLE CRUISE11. Inside the Forest of the Sub-Images; PORTRAITZ12. Tachikoma Runaway; ESCAPE FROM13. Unequal Terrorist; NOT EQUAL14. Automated Capitalism; YES15. Time of the Machines; MACHINES DESIRANTES16. Chinks in the Armor of the Heart; Ag2017. The True Reason For the Unfinished Love Affair; ANGELS' SHARE18. Assassinations Duet; LOST HERITAGE19. Being Held in the Camouflage Net; CAPTIVATED20. The Medicine Which is Turned Off; RE-VIEW21. Locus of Desertion; ERASER22. Bribery Case; SCANDAL23. Equinotical Week of Good and Evil; EQUINOX24. Orphan Castle Setting Sun; ANNIHILATION25. Smoke Projectile Rain; BARRAGE26. Public Peace Section 9, Again; STAND ALONE COMPLEXСпэшл:Special - A Prior NoticeВторой сезон Koukaku Kidoutai S.A.C. 2nd GIG (01.01.2004-01.01.2005)27. Reembody / Reactivation28. Night Cruise / The Satiated Me29. Cash Eye / Saturday Night and Sunday Morning30. Natural Enemy / Natural Enemy31. Inductance / Those that have the motive32. Excavation / Latent heat source33. Pu239 / Rambling thoughts are a study on ruined nations34. Fake Food / Vegetarian Feast35. Ambivalence / The Hope Named Despair36. Trial / The Man Who Goes Insane37. Affection / Grass Labyrinth38. Selecon / To Those Without Even A Name39. Make Up / Face40. Poker Face / Beware the Left Eye41. PAT. / Afternoon of the Machines42. Another Chance / The Fact of Being There43. Red Data / Repaired Mother-Child Relationship44. Trans Parent / Angel`s Poem45. Chain Reaction46. Fabricate Fog47. Embarrassment48. Reversal Process49. Martial Law50. Nuclear Power51. This Side Of Justice52. Endless∞GIGСпэшл:BIOS
</a><br><br><br><br><table width=100% cellspacing=0 cellpadding=2 border=0><tr><td><b><font size=2 color=#990000>Эпизоды:</font></b></td><td width=2></td></tr></table><table width=100% cellspacing=0 cellpadding=0 border=0 ><tr><td width=100% height=1 background='img/pixel.gif'></td></tr></table><table width=100% cellspacing=0 cellpadding=2 border=0><tr><td><b>Первый сезон Koukaku Kidoutai STAND ALONE COMPLEX (01.10.2002-01.10.2003)</b><br>01. Public Peace; SECTION 9<br>02. Proof of Recklessness; TESTATION<br>03. A Small Rebellion; ANDROID AND I<br>04. The Visual Device Laughs; INTERCEPTOR<br>05. The Inviting Bird Will Chant; DECOY<br>06. The Copycat Dances; MEME<br>07. Idolatry; IDOLATOR<br>08. The Fortunate Ones; MISSING HEARTS<br>09. The Man That Lurks in the Darkness of the Net; CHAT! CHAT! CHAT!<br>10. A Perfect Day for a Jungle Cruise; JUNGLE CRUISE<br>11. Inside the Forest of the Sub-Images; PORTRAITZ<br>12. Tachikoma Runaway; ESCAPE FROM<br>13. Unequal Terrorist; NOT EQUAL<br>14. Automated Capitalism; YES<br>15. Time of the Machines; MACHINES DESIRANTES<br>16. Chinks in the Armor of the Heart; Ag20<br>17. The True Reason For the Unfinished Love Affair; ANGELS' SHARE<br>18. Assassinations Duet; LOST HERITAGE<br>19. Being Held in the Camouflage Net; CAPTIVATED<br>20. The Medicine Which is Turned Off; RE-VIEW<br>21. Locus of Desertion; ERASER<br>22. Bribery Case; SCANDAL<br>23. Equinotical Week of Good and Evil; EQUINOX<br>24. Orphan Castle Setting Sun; ANNIHILATION<br>25. Smoke Projectile Rain; BARRAGE<br>26. Public Peace Section 9, Again; STAND ALONE COMPLEX<br><b>Спэшл:</b><br>Special - A Prior Notice<br><br><b>Второй сезон Koukaku Kidoutai S.A.C. 2nd GIG (01.01.2004-01.01.2005)</b><br>27. Reembody / Reactivation<br>28. Night Cruise / The Satiated Me<br>29. Cash Eye / Saturday Night and Sunday Morning<br>30. Natural Enemy / Natural Enemy<br>31. Inductance / Those that have the motive<br>32. Excavation / Latent heat source<br>33. Pu239 / Rambling thoughts are a study on ruined nations<br>34. Fake Food / Vegetarian Feast<br>35. Ambivalence / The Hope Named Despair<br>36. Trial / The Man Who Goes Insane<br>37. Affection / Grass Labyrinth<br>38. Selecon / To Those Without Even A Name<br>39. Make Up / Face<br>40. Poker Face / Beware the Left Eye<br>41. PAT. / Afternoon of the Machines<br>42. Another Chance / The Fact of Being There<br>43. Red Data / Repaired Mother-Child Relationship<br>44. Trans Parent / Angel`s Poem<br>45. Chain Reaction<br>46. Fabricate Fog<br>47. Embarrassment<br>48. Reversal Process<br>49. Martial Law<br>50. Nuclear Power<br>51. This Side Of Justice<br>52. Endless∞GIG<br><b>Спэшл:</b><br>BIOS</td><td width=2></td></tr></table><br><br><center><table width=100% cellspacing=0 cellpadding=2 border=0><tr><td><b><font size=2 color=#99000>