POLAND site SCRIPTs
Code: Select all
2.0.0.45 Beta (03.04.2008)
- adapted for changes on filmweb.pl
- taking the review was improved
Last edited by AmBeR on 2008-04-05 13:20:28, edited 1 time in total.
W tej wersji przestał pobierać opisy do filmu - OpisFilmu na 0 - możliwość wyboru opisu oraz w dalszym ciągu są błędy w kodowaniu znaków specjalnych; Gustavo Muñoz - powinno być, a pobiera zamiast hiszpańskiego ń znaki &+#+241+;+oz - bez plusów bo inaczej nie byłoby widoczne
poza tym innych błędów nie zauważyłem
poza tym innych błędów nie zauważyłem
Witam
Czy jest możliwość dorobienia do tego skryptu następujących opcji:
- do wyboru pole "Producent" lub "Scenariusz"
- do wyboru sposób zapisu adresu URL w postaci "http://3.10.do.yumy.filmweb.pl/" lub "http://www.filmweb.pl/Film?id=200546"
Ja w poprzednich skryptach w przypadku problemów z kodowaniem PL liter miałem jeszcze takie wpisy:
Value:=StringReplace(Value, 'Ä…', 'ą'); // Zamiana z Unicode (UTF-8) na Windows
Value:=StringReplace(Value, 'ć', 'ć');
Value:=StringReplace(Value, 'Ä™', 'ę');
Value:=StringReplace(Value, 'Ĺ‚', 'ł');
Value:=StringReplace(Value, 'Ĺ„', 'ń');
Value:=StringReplace(Value, 'Ăł', 'ó');
Value:=StringReplace(Value, 'Ĺ›', 'ś');
Value:=StringReplace(Value, 'Ĺş', 'ź');
Value:=StringReplace(Value, 'ĹĽ', 'ż');
Value:=StringReplace(Value, 'Ä„', 'Ą');
Value:=StringReplace(Value, 'Ć', 'Ć');
Value:=StringReplace(Value, 'Ę', 'Ę');
Value:=StringReplace(Value, 'Ĺ', 'Ł');
Value:=StringReplace(Value, 'Ĺƒ', 'Ń');
Value:=StringReplace(Value, 'Ă“', 'Ó');
Value:=StringReplace(Value, 'Ĺš', 'Ś');
Value:=StringReplace(Value, 'Ĺą', 'Ź');
Value:=StringReplace(Value, 'Ĺ»', 'Ż');
Value:=StringReplace(Value, 'Ă©', 'é');
Value:=StringReplace(Value, 'Ă´', 'ô');
Value:=StringReplace(Value, 'ç', 'ç');
Value:=StringReplace(Value, 'á', 'á');
Value:=StringReplace(Value, 'Ă"', 'ë');
Value:=StringReplace(Value, 'â', 'â');
Value:=StringReplace(Value, 'É', 'É');
Value:=StringReplace(Value, 'è', 'e');
Value:=StringReplace(Value, 'ï', 'i');
Value:=StringReplace(Value, 'ĂŻ', 'i');
Value:=StringReplace(Value, 'Ă', 'í');
Value:=StringReplace(Value, 'Ă', 'Á');
Value:=StringReplace(Value, 'è', 'e');
Value:=StringReplace(Value, 'Ă«', 'ë');
Value:=StringReplace(Value, '„', '"');
Value:=StringReplace(Value, '”', '"');
Value:=StringReplace(Value, '…', '...');
Value:=StringReplace(Value, '’', '’');
Value:=StringReplace(Value, '“', '"');
Value:=StringReplace(Value, '–', '-');
Value:=StringReplace(Value, 'ö', 'ö');
Value:=StringReplace(Value, 'č', 'e');
Value:=StringReplace(Value, 'ÄŤ', 'č');
Value:=StringReplace(Value, 'Ă®', 'i');
Value:=StringReplace(Value, 'ä', 'ä');
Value:=StringReplace(Value, 'ĂĽ', 'ü');
Value:=StringReplace(Value, 'Ăş', 'ú');
Value:=StringReplace(Value, 'Ăź', 'ß');
Value:=StringReplace(Value, 'Ĺľ', 'ž');
Value:=StringReplace(Value, 'š', 'š');
Value:=StringReplace(Value, 'Ĺ ', 'Š');
Value:=StringReplace(Value, 'Ĺ™', 'ř');
Value:=StringReplace(Value, 'Ă˝', 'ý');
Pozdrawiam
szyjka
Czy jest możliwość dorobienia do tego skryptu następujących opcji:
- do wyboru pole "Producent" lub "Scenariusz"
- do wyboru sposób zapisu adresu URL w postaci "http://3.10.do.yumy.filmweb.pl/" lub "http://www.filmweb.pl/Film?id=200546"
Ja w poprzednich skryptach w przypadku problemów z kodowaniem PL liter miałem jeszcze takie wpisy:
Value:=StringReplace(Value, 'Ä…', 'ą'); // Zamiana z Unicode (UTF-8) na Windows
Value:=StringReplace(Value, 'ć', 'ć');
Value:=StringReplace(Value, 'Ä™', 'ę');
Value:=StringReplace(Value, 'Ĺ‚', 'ł');
Value:=StringReplace(Value, 'Ĺ„', 'ń');
Value:=StringReplace(Value, 'Ăł', 'ó');
Value:=StringReplace(Value, 'Ĺ›', 'ś');
Value:=StringReplace(Value, 'Ĺş', 'ź');
Value:=StringReplace(Value, 'ĹĽ', 'ż');
Value:=StringReplace(Value, 'Ä„', 'Ą');
Value:=StringReplace(Value, 'Ć', 'Ć');
Value:=StringReplace(Value, 'Ę', 'Ę');
Value:=StringReplace(Value, 'Ĺ', 'Ł');
Value:=StringReplace(Value, 'Ĺƒ', 'Ń');
Value:=StringReplace(Value, 'Ă“', 'Ó');
Value:=StringReplace(Value, 'Ĺš', 'Ś');
Value:=StringReplace(Value, 'Ĺą', 'Ź');
Value:=StringReplace(Value, 'Ĺ»', 'Ż');
Value:=StringReplace(Value, 'Ă©', 'é');
Value:=StringReplace(Value, 'Ă´', 'ô');
Value:=StringReplace(Value, 'ç', 'ç');
Value:=StringReplace(Value, 'á', 'á');
Value:=StringReplace(Value, 'Ă"', 'ë');
Value:=StringReplace(Value, 'â', 'â');
Value:=StringReplace(Value, 'É', 'É');
Value:=StringReplace(Value, 'è', 'e');
Value:=StringReplace(Value, 'ï', 'i');
Value:=StringReplace(Value, 'ĂŻ', 'i');
Value:=StringReplace(Value, 'Ă', 'í');
Value:=StringReplace(Value, 'Ă', 'Á');
Value:=StringReplace(Value, 'è', 'e');
Value:=StringReplace(Value, 'Ă«', 'ë');
Value:=StringReplace(Value, '„', '"');
Value:=StringReplace(Value, '”', '"');
Value:=StringReplace(Value, '…', '...');
Value:=StringReplace(Value, '’', '’');
Value:=StringReplace(Value, '“', '"');
Value:=StringReplace(Value, '–', '-');
Value:=StringReplace(Value, 'ö', 'ö');
Value:=StringReplace(Value, 'č', 'e');
Value:=StringReplace(Value, 'ÄŤ', 'č');
Value:=StringReplace(Value, 'Ă®', 'i');
Value:=StringReplace(Value, 'ä', 'ä');
Value:=StringReplace(Value, 'ĂĽ', 'ü');
Value:=StringReplace(Value, 'Ăş', 'ú');
Value:=StringReplace(Value, 'Ăź', 'ß');
Value:=StringReplace(Value, 'Ĺľ', 'ž');
Value:=StringReplace(Value, 'š', 'š');
Value:=StringReplace(Value, 'Ĺ ', 'Š');
Value:=StringReplace(Value, 'Ĺ™', 'ř');
Value:=StringReplace(Value, 'Ă˝', 'ý');
Pozdrawiam
szyjka
Code: Select all
2.0.0.46 Beta (05.04.2008)
- minor fixes
Last edited by AmBeR on 2008-06-03 17:51:14, edited 3 times in total.
I do not understand the text around that code, but why not use the function UTF8Decode ?szyjka wrote: Value:=StringReplace(Value, 'Ä…', 'ą'); // Zamiana z Unicode (UTF-8) na Windows
Value:=StringReplace(Value, 'ć', 'ć');
Value:=StringReplace(Value, 'Ä™', 'ę');
Value:=StringReplace(Value, 'Ĺ‚', 'ł');
Value:=StringReplace(Value, 'Ĺ„', 'ń');
Code: Select all
2.0.0.47 Beta (03.06.2008)
- adapted for changes on filmweb.pl
Last edited by AmBeR on 2008-06-04 09:28:53, edited 1 time in total.
-
- Posts: 14
- Joined: 2006-06-23 10:25:28
- Location: Konin
Code: Select all
2.0.0.48 Beta (04.06.2008)
- small fixes
Last edited by AmBeR on 2008-06-19 19:48:01, edited 1 time in total.