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