{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION KINO.DE\cf2\par
\cf1 // DATALANGUAGE GERMAN\cf2\par
\cf1 // AUTHOR MVS\cf2\par
\par
\cf3 MovieDatabaseValue\cf2  = "KINO"\par
\par
\cf1 // Extract the html code of the Web page\cf2\par
HtmlCode is \cf4 String\cf2  = \cf5 GetPage\cf2 ("http://www.kino.de/megasuche.php4?typ=filme&wort=" , \cf6 TitleToSearch\cf2 , "")\par
\cf4 If\cf2  HtmlCode = "" \cf4 Then\par
\cf2\tab\cf4 Switch\cf2  \cf4 Language\par
\cf2\tab\cf4 Case\cf2  1 \cf1 // German\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("Diese seite wurde nicht gefunden")\par
\tab\cf4 Case\cf2  3 \cf1 // English\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf5 UserErrorMessage\cf2 ("Cette page n'a pas \'e9t\'e9 trouv\'e9e")\par
\cf4\tab End\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\cf2\par
\par
\cf1 // Compute the movies number in the HTML code\cf2\par
Movies_Delimiter is \cf4 String\cf2  = "headline3""><A HREF=""/kinofilm.php4?nr="\par
Movies_Number is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (HtmlCode, Movies_Delimiter)\par
\cf4 If\cf2  Movies_Number = 0 \cf4 Then\par
\cf2\tab\cf4 Switch\cf2  \cf4 Language\par
\cf2\tab\cf4 Case\cf2  1 \cf1 // German\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("Kein film wurde gefunden")\par
\tab\cf4 Case\cf2  3 \cf1 // English\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("No film was found")\par
\tab\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf5 UserErrorMessage\cf2 ("Aucun film n'a \'e9t\'e9 trouv\'e9")\par
\cf4\tab End\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\cf2\par
\par
i is int\par
Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf2\par
\cf4 For\cf2  i=2 to Movies_Number + 1\par
\tab Movie_Title=\cf5 StringExtraction\cf2 (HtmlCode, i, Movies_Delimiter)\par
\tab Movie_ID=\cf5 StringLeft\cf2 (Movie_Title, 5)\par
\tab Movie_Title = \cf5 BetweenStrings\cf2 (Movie_Title, ">", "<")\par
\tab Movie_Title = \cf5 StringRefine\cf2 (Movie_Title)\par
\cf1\tab Movie_URL = "\cf2 http://www.kino.de/kinofilm.php4?nr=\cf1 " + Movie_ID\cf2\par
\tab\cf1 // Add the ID, the Title and the URL in the Movies List For choice\cf2\par
\tab\cf5 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par
\cf4 End\cf2\par
\cf1\par
// Open the list of the movies\cf2\par
\cf5 OpenMoviesList\cf2 ()\par
\par
\cf1 // The movies list returns the ID, the Title and the URL (\cf3 MovieIDValue\cf1 , \cf3 MovieTitleValue\cf1 , \cf3 MovieURLValue\cf1 )\cf2\par
\cf1 // of the movie choosen by the user\cf2\par
\cf4 If\cf2  \cf3 MovieIDValue\cf2  = "" \cf4 Then\par
\cf2\tab\cf4 Switch\cf2  \cf4 Language\cf2\par
\tab\cf4 Case\cf2  1 \cf1 // German\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("Dieser film wurde nicht gefunden")\par
\tab\cf4 Case\cf2  3 \cf1 // English\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("This film has not been found")\par
\tab\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf5 UserErrorMessage\cf2 ("Ce film n'a p\cf1 as \cf2\'e9t\'e9 trouv\'e9")\par
\cf4\tab End\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\cf2\par
\par
\par
\cf1 // Extract the html code of the movie\cf2\par
HtmlCode = \cf5 GetMovie\cf2 ("http://www.kino.de/kinofilm.php4?nr=" , \cf3 MovieIDValue\cf2  , "")\par
\cf4 If\cf2  HtmlCode = "" \cf4 Then\par
\cf2\tab\cf4 Switch\cf2  \cf4 Language\par
\cf2\tab\cf4 Case\cf2  1 \cf1 // German\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf4 Case\cf2  3 \cf1 // English\cf2\par
\cf5\tab\cf2\tab\cf5 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf5 UserErrorMessage\cf2 ("Diese seite wurde nicht gefunden")\par
\cf4\tab End\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\cf2\par
\cf1\par
// \cf3 MovieOriginalTitleValue\par
\cf2 n is \cf4 Int \cf2 = \cf5 Position\cf2 (HtmlCode, "standardsmall""><br>(",1)\par
\cf4 If\cf2  \cf3 n\cf2 <>0 \cf4 Then\par
\cf3\tab MovieOriginalTitleValue\cf1 =\cf5 BetweenStrings\cf2 (HtmlCode, "standardsmall""><br>(", ")</SPAN><br><span class=\cf1 "\cf2 )\par
\cf4 Else\cf2\par
\cf1\tab\cf3 MovieOriginalTitleValue\cf1 ="\cf2 "\par
\cf4 End\cf2\par
\cf3\par
\cf1 // Movie Country\cf2\par
\cf3 c\cf2 hain is \cf4 String\cf2 =\cf5 BetweenStrings\cf2 (HtmlCode, "</b> - <b>", "</b><BR>")\par
\cf1 // Movie Year\cf2\par
\cf3 MovieYearValue\cf1 =\cf5 StringMiddle\cf1 (\cf2 chain\cf1 , Length(\cf3 c\cf2 hain\cf1 )-\cf2 3\cf1 , 4)\par
// Remove the String (YEAR) at the End of the Country\cf2\par
\cf3 MovieCountryValue\cf1 = \cf5 StringMiddle\cf1 (\cf2 chain\cf1 , 1 , Length(\cf2 chain\cf1 ) - 6)\par
\cf2\par
\cf1 // Movie Duration\par
\cf2 chain = \cf5 BetweenStrings\cf2 (HtmlCode, "headline2", " Min.")\par
chain=\cf5 FormatString\cf2 (\cf5 StringRight\cf2 (chain,3), "WOS")\par
\cf4 If\cf2  \cf5 StringLeft\cf2 (chain,1) = ">"\par
\cf3\tab MovieDurationValue=\cf5 StringRight\cf2 (chain,2)\par
\cf4 Else\cf2\par
\cf3\tab MovieDurationValue=c\cf2 hain\par
\cf4 End\cf2\par
\par
\cf1 // Movie Family\cf2\par
\cf3 MovieFamilyValue\cf2  = \cf5 BetweenStrings\cf2 (HtmlCode, "<span class=""standardsmall""><b>", "</b>")\par
\cf1\par
// Movie Summary\cf2\par
HtmlCode = \cf5 GetMovie\cf2 ("http://www.kino.de/kinofilm.php4?typ=film&nr=" , \cf3 MovieIDValue\cf2  , "")\par
\par
n\cf4  \cf2 = \cf5 Position\cf2 (HtmlCode, "width=""2"" height=""100%""></TD></TR></TABLE>",1)\par
\cf4 If\cf2  \cf3 n\cf2 <>0 \cf4 Then\par
\cf1\tab\cf3 MovieSummaryValue\cf1  =\cf5 RemoveHTMLTags\cf2 (\cf5 BetweenStrings\cf1 (HtmlCode,"\cf2 width=""2"" height=""100%""></TD></TR></TABLE>","\cf1 </TD></TR>"))\cf2\par
\cf4 Else\par
\cf2\tab n\cf4  \cf2 = \cf5 Position\cf2 (HtmlCode, "Website</a></TD></TR></TABLE>",1)\par
\cf4\tab If\cf2  \cf3 n\cf2 <>0 \cf4 Then\cf2\tab\par
\cf1\tab\tab\cf3 MovieSummaryValue\cf1  =\cf5 RemoveHTMLTags\cf2 (\cf5 BetweenStrings\cf1 (HtmlCode,"\cf2 Website</a></TD></TR></TABLE>","\cf1 </TD></TR>"))\cf2\par
\cf4\tab Else\par
\cf1\tab\tab\cf3 MovieSummaryValue\cf1  =\cf5 RemoveHTMLTags\cf2 (\cf5 BetweenStrings\cf1 (HtmlCode,"\cf2 align=""left"" ><TR><TD>","\cf1 </TD></TR>"))\par
\cf2\tab\cf4 End\cf2\par
\cf4 End\par
If \cf3 MovieSummaryValue\cf1  \cf2 =\cf4 Charact\cf2 (4) \cf4 Then\cf2  \cf3 MovieSummaryValue\cf1  \cf2 ="" \par
\par
\cf1 // Movie Image\par
\cf3 MoviePictureValue\cf2  = \cf5 BetweenStrings\cf2 (HtmlCode, "<TR><TD width=""120""><IMG SRC=""", """ ")\par
\cf4 If \cf3 MoviePictureValue\cf2  =\cf4 Charact\cf2 (4) \cf4 Then\cf2  \par
\tab\cf3 MoviePictureValue\cf2  =""\par
\cf4 Else\cf2\par
\cf3\tab MoviePictureValue\cf2  = "http://www.kino.de" + \cf3 MoviePictureValue\cf2  \par
\cf4 End\cf2\par
\par
HtmlCode = \cf5 GetMovie\cf2 ("http://www.kino.de/kinofilm.php4?typ=credits&nr=" , \cf3 MovieIDValue\cf2  , "")\par
\par
\cf1 // Movie Directors\cf2\par
Directors is \cf4 String\cf2\par
Directors=\cf5 BetweenStrings\cf2 (HtmlCode, "Regie&nbsp;", "</a></TD></TR>"\cf1 )\cf2\par
Directors_Number is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (Directors, "<a href=")\par
Directors\cf1 =RemoveHTMLTags(\cf2 Directors\cf1 )\par
// 3 Directors max per film\cf2\par
\cf4 If\cf2  Directors_Number > 3 \cf4 Then\cf2  Directors_Number = 3\par
\cf4 For\cf2  i = 1 to Directors_Number + 1\par
\tab One_Director is \cf4 String\cf2  = \cf5 FormatString\cf1 (\cf5 StringExtraction\cf2 (Directors, i, ","),\cf1 "WOS")\cf2\par
\tab\cf5 AddMovieDirectors\cf2 (\cf5 StringRefine\cf2 (One_Director))\par
\cf4 End\cf2\par
\par
\cf1 // Movie Writers\par
\cf2 Writers is \cf4 String\cf2\par
Writers=\cf5 BetweenStrings\cf2 (HtmlCode, "Drehbuch&nbsp;", "</a></TD></TR>")\par
Writers_Number is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (Writers, "<a href=")\par
Writers\cf1 =RemoveHTMLTags(\cf2 Writers\cf1 )\par
// 3 Writers max per film\cf2\par
\cf4 If\cf2  Writers_Number > 3 \cf4 Then\cf2  Writers_Number = 3\par
\cf4 For\cf2  i = 1 to Writers_Number + 1\par
\tab One_Writer is \cf4 String\cf2  = \cf5 FormatString\cf1 (\cf5 StringExtraction\cf2 (Writers, i, ","),\cf1 "WOS")\par
\cf2\tab\cf5 AddMovieWriters\cf2 (\cf5 StringRefine\cf2 (One_Writer))\par
\cf4 End\cf2\par
\tab\par
\cf1 // Movie Composers\cf2\par
Composers is \cf4 String\cf2\par
Composers=\cf5 BetweenStrings\cf2 (HtmlCode, "Musik&nbsp;", "</a></TD></TR>")\par
Composers_Number is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (Composers, "<a href=")\par
\cf1 Composers=RemoveHTMLTags(Composers)\cf2\par
\cf1 // 3 Composers max per film\cf2\par
\cf4 If\cf2  Composers_Number > 3 \cf4 Then\cf2  Composers_Number = 3\par
\cf4 For\cf2  i = 1 to Composers_Number + 1\par
\tab One_Composer is \cf4 String\cf2  = \cf5 FormatString\cf1 (\cf5 StringExtraction\cf2 (Composers, i, ","),\cf1 "WOS")\cf2\par
\tab\cf5 AddMovieComposers\cf2 (\cf5 StringRefine\cf2 (One_Composer))\par
\cf4 End\cf2\par
\cf4\par
\cf1 // Movie Actors with Casting\par
\cf2 n1 is \cf4 Int \cf2 = \cf5 PositionOccurrence\cf2 (HtmlCode,"""dbtrefferlight"" WIDTH=""50%"">",1)\par
n2 is \cf4 Int \cf2 = \cf5 PositionOccurrence\cf2 (HtmlCode,"""dbtrefferdark"" WIDTH=""50%"">",1)\par
cha is \cf4 String\cf2  = "</TD></TR><TR  CLASS=""dbtrefferlight""><TD  CLASS=""dbtrefferlight"" WIDTH=""50%"">"\cf4\par
If\cf2  n1>n2 \cf4 Then\par
\cf2\tab cha = "</TD></TR><TR  CLASS=""dbtrefferdark""><TD  CLASS=""dbtrefferdark"" WIDTH=""50%"">"\par
\cf4 End\par
\cf5 n\cf2 1= \cf5 PositionOccurrence\cf2 (htmlcode,cha,1)\par
\cf5 n2\cf2 = \cf5 PositionOccurrence\cf2 (htmlcode,"headlinewhite"">Crew",1)\par
Actors is \cf4 String\par
\cf2 n2=n2-n1\par
\par
Actors=\cf5 StringMiddle\cf2 (HtmlCode, n1, n2)\par
\cf7 A\cf2 ctors=\cf5 StringReplace\cf2 (actors,"\cf1 </a>"\cf2 ,"?")\cf7\par
\cf2 Actors=\cf5 RemoveHTMLTags\cf2 (\cf5 A\cf2 ctors)\par
\par
Actors_Number is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (Actors, ";")\par
\cf1 // 15 Actors max per film\cf2\par
O\cf1 ne_Role\cf2  is \cf4 String\cf2  = \cf5 StringExtraction\cf2 (Actors, 1, "&nbsp;")\par
\cf4 If\cf2  Actors_Number > 15 \cf4 Then\cf2  Actors_Number = 15\par
\cf4 For\cf2  i=1 to Actors_Number\par
\tab one_actor is \cf4 String\cf2 =\cf5 StringExtraction\cf2 (Actors, i, "?")\par
\tab one_actor=\cf5 StringExtraction\cf2 (one_actor,2,";")\par
\cf1\tab\cf5 AddMovieActors\cf1 (One_Actor, One_Role)\par
\cf2\tab O\cf1 ne_Role\cf2  = \cf5 StringExtraction\cf2 (Actors, i+1, "&nbsp;")\par
\tab one_role=\cf5 StringExtraction\cf2 (one_role,2,"?")\par
\tab\par
\cf4 End\par
\cf2\par
HtmlCode = \cf5 GetMovie\cf2 ("http://www.kino.de/kinofilm.php4?typ=fotoshow&nr=" , \cf3 MovieIDValue\cf2  , "")\par
Photo_Number is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (HtmlCode, "bildnr=")\par
\cf1 // 15 Photos max per film\cf2\par
\cf4 If\cf2  Photo_Number > 15 \cf4 Then\cf2  Photo_Number = 15\par
\cf4 For\cf2  i=1 to Photo_Number\par
\tab one_photo is \cf4 String= "\cf2 bildnr=" \cf1 + \cf5 NumToString\cf2 (\cf1 i-\cf2 1)\par
\tab one_photo=\cf5 StringExtraction\cf2 (HtmlCode , 2, one_photo)\par
\tab one_photo=\cf5 BetweenStrings\cf2 (one_photo,\cf1 "');""><img src=""","\cf2 ""  border=""0""")\par
\tab one_photo= "http://www.kino.de" + one_photo\par
\tab\cf5 AddElementToGallery\cf2 (i,"PICTURE",one_photo)\par
\cf4 End\cf2\par
\par
\cf5 CreateMovie\cf2 ()\par
\par
\cf4 Switch\cf2  \cf4 Language\cf2\par
\cf4 Case\cf2  1 \cf1 // German\cf2\par
\tab\cf5 UserInformationMessage\cf2 ("Der film : " + \cf3 MovieTitleValue\cf2  + " ist aufgeladen")\par
\cf4 Case\cf2  3 \cf1 // English\cf2\par
\tab\cf5 UserInformationMessage\cf2 ("The movie : " + \cf3 MovieTitleValue\cf2  + " has been downloaded")\par
\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\cf5 UserInformationMessage\cf2 ("Le film : " + \cf3 MovieTitleValue\cf2  + " a \'e9t\'e9 t\'e9l\'e9charg\'e9")\par
\cf4 End\cf2\par
\cf1 // *********************** SCRIPT BOTTOM ***************************************\cf2\par
\par
\cf1\par
}