OCR skripta za SW

[princo]

Pokušavam da riješim problem sa tagovima pošto plejeri koje ja imam nikako ne mogu da ih prikažu. Pokušao sam da ih sve eliminišem praveći skripte po uzoru na onu za uklanjanje font taga. Međutim, nisam uspio. Može li mi neko pomoći?

[petko]

Na urusoftovom forumu već postoji paskal skripta za uklanjanje tagova:

Kod: [Odaberi]

// Remove style tags. Made by Bedazzle 2007.01.08.
// Fast implementation, use with care!

program RemoveStyleTags;

// ---------------------------------------------

var
  n: Integer;
  i: Integer;

  p1: Integer;
  p2: Integer;

  txt: String;

begin
  n := GetSubtitleCount;

  for i := 0 to n-1 do
  begin
     txt := GetSubtitleText(i);

     p1 := pos('<', txt);
     p2 := pos('>', txt);

     while ((p1>0) and (p2>0)) do
     begin
       txt := copy(txt, 1, p1-1) + copy(txt, p2+1, length(txt)-p2);

       p1 := pos('<', txt);
       p2 := pos('>', txt);
     end;


     SetSubtitleText(i, txt);
  end;
end.

[MilanRS]

Nisam ni ja znao za tu pascal skriptu pa sam napravio OCR prije 12 mjeseci.
Potrebno je dva puta F10 jer prvi put ukloni samo u prvim redovima, a drugi ostale.
 
 

[princo]

Iskreno se zahvaljujem za oba rjesenja.

[princo]

Pitanje za MilanRS: Pokusao sam da ispravim tvoj skript za uklanjanje font tagova, međutim ne uspijevam. Trebalo bi biti jednostavno: umjesto dijela u kome opisujes font ubaciti slovo i (ili b za bold). Međutim, ništa se ne dešava. Možeš li pomoći?
Paskal skripta za uklanjane tagova radi bez greške, ali ne ispravlja "-" u prvom redu (naravno nije ni receno da to radi).

[MilanRS]

To nije bio cilj jer bold i italic podržavaju (skoro) svi plejeri za razliku od font tagova.
Ali napravih još te dvije linije za otvarajuće i zatvarajuće bold i italik.
Preimenovao sam skriptu i ona ide odvojeno od one koja uklanja samo font tagove.

[Veleno]

Milane, može li se skripta urediti da ispravlja i/ili briše nepotrebne italice?

<i>Dokaži.</i> -Kako? <i>-Ako tvrdiš da si
ono što jesi, saznat ćeš.</i></i>

-Tko je to? <i>-Tko je to?
Jesi li policajac?</i> -NCIS.</i>

[princo]

Zahvaljujem se još jednom. Dodao sam onaj segment za ispravku crtice u prvom redu i sve radi savršeno. Imam tri eksterna plejera (LG, Infinity i Weg) i nijedan ne koristi tagove. Izgleda prilično glupo kada se u tekstu pojavi tag, pogotovo onaj za font.

[MilanRS]

Milane, može li se skripta urediti da ispravlja i/ili briše nepotrebne italice?

<i>Dokaži.</i> -Kako? <i>-Ako tvrdiš da si
ono što jesi, saznat ćeš.</i></i>

-Tko je to? <i>-Tko je to?
Jesi li policajac?</i> -NCIS.</i>

Mogu napraviti da kad je na kraju </i></i> prebaci u </i>.
Ali ne znam napraviti (možda uopšte nije izvodljivo sa RegExom) da ukloni tag sa kraja ako je neparni zatvarajući.
Jedino da ga ukloni uvijek, ali onda se može desiti ovakva situacija:

<i>Dokaži.</i> -Kako? <i>-Ako tvrdiš da si
ono što jesi, saznat ćeš.

To je opet regularno jer nije neophodan zatvarajući italik na kraju reda, od otvarajućeg će sve biti nakošeno.
Samo što ne izgleda onako kako smo navikli.
Pa ako želiš, napraviću to, nije puno posla.


Separator stotica u našim jezicima je tačka ili razmak, nikako zarez.
Zarez razdvaja cijeli dio od decimalnog ostatka.
Ubaciću u novo izdanje skripte i ovo:
    <ERROR Find="[0-9](\.)[0-9][0-9]" ReplaceBy=",">
    <ERROR Find="[0-9](,)[0-9][0-9][0-9]\D" ReplaceBy=".">

cifra,cifracifracifra -> cifra.cifracifracifra
1,000 -> 1.000
5,123 -> 5.123
1,499,000.00 -> 1.499.000,00
1,499,000,00 -> 1.499.000,00

Ako ovo iz nekog razloga nije u redu, recite.

[Veleno]

Milane, ako nije problem, napravi. Ja ću je koristiti.

[MilanRS]

Prvi prolaz (F10):
 Gdje su dva zatvarajuća, ostaće samo jedan.
 Gdje je jedan, obrisaće ga.
 
 Drugi prolaz:
 Gdje je ostao jedan zatvarajući, obrisaće i njega.
(Nepotrebno. Dovoljan je samo prvi prolaz za ispravno tagovan titl.)
 
 
 

[Tweegy]

Da li postoji skripta koja uklanja ovakvu crticu | između reči?

[petko]

Hoćeš da ukloniš prelom redova? To se radi preko ctrl+shift+u.

[Tweegy]

Ne. Primer:

Da, pa, najmanje što možeš
da uradiš|je da ih pročitaš.

Ceo titl je takav. Ovakva crtica u svakoj liniji
između reči, pa ako postoji skripta.....

[petko]

Onda će jedan search & replace (ctrl+r) završiti posao.

[CroRiper]

Pitanje:  postoji li neka skripta ili neka druga mogućnost provjere da li na kraju titla i prije velikog slova fale interpunkcijski znakovi? Naime dogodi mi se da nekad izostavim znak pa ostane prazno.

[MilanRS]

Nemoguće je jer prije velikog slova ne ide tačka ako je neko ime,
a na kraju ne ide ništa ako je samo dio rečenice koja se nastavlja u sljedećem redu.
Ostaje samo ručna provjera.

[dome-nasty]

Instalirao sedmicu prije nekih mjesec dana i sve 5 ali sad primjetih da mi ocr skripta u SW koju sam prije koristio, milanRS2 tj. ona koja briše prvu crticu i razmak iza ostalih, ne radi kao prije.

Sada izbriše prvu crticu ali ostaje razmak iza ostalih crtica a CTRL+I javlja grešku na istim crticama kao nepotrebni razmak.

Da bi stvar bila bolja ako nema razmaka niti prve crtice, skripta pri automatskom ispravku grešaka sama napravi taj razmak

[King Eric]

Alt+I -> Advanced i isprazni polje Space after characters. Zapravo, možeš sva četiri isprazniti.

[dome-nasty]

Hvala care, tj kralju 

Radio sam i komletnu instalaciju svih programa na novi HDD pa sam jednostavno zaboravio na prijašnje postavke a bilo je so easy...

[lijencina]

imam isti problem kao dome, naisao sam na prijevod koji ima crticu ispred teksta u prvom redu,
i ne javlja nista, koristim MilanRS2 skriptu, i obrisao sam ova cetiri polja ali i dalje isto

[MilanRS]

Alt+I, pod Fix treba da bude čekirano OCR Errors.

[lijencina]

pod Fix kad sam cekirao nista, ali onda sam pod Check for i sada radi
hvala

[MilanRS]

Pod Check treba da bi ti prikazivalo u greškama (Ctrl+I),
a pod fix treba da bi ti ispravljalo greške.
Čak i ako nije odabrano pod Check, a jeste pod Fix,
poslije F9 i F10 ispraviće sve.
Ali najbolje je da bude odabrano na oba mjesta da se zna šta se dešava.

[lijencina]

oznacio sam oba dva, i sad fino radi, ispravilo je sve greske 

[Gordon Freeman]

Može li neka skripta da reši problem koji mi izlazi kada pristisnem CTRL+I hearing interupdet?

[Commandoguru]

Pa u postavkama za kontrolu (Alt+I) iskljući kvačicu kod hearing impaired kod Check for i Fix

[Homer99]

Stalno bi pokazuje titl ispod titla u SW-u kada ucitam film... kako da to resim?

[Veleno]

Isključi direct VobSub.

[MilanRS]

Za one koji koriste navodnike u svojim prevodima, a nije im zgodno sa altom upisivati „ i ”, mogu da napišu prevod koristeći " i ", pa da na kraju izvrše zamjenu koristeći skriptu navodnici.ocr.
(Ovo se preporučuje samo onima koji već koriste skriptu MilanRS2 i imaju ispravno podešen SW tako da im na kraju prevoda a prije pokretanja skripte zarez skripta MilanRS2 pokazuje 0 grešaka.)


Odaberete je lijevo, zatim F9 pa F10. Ako želite da pratite izmjene, pređite na prvu liniju u titlu, F9, zatim sa F12 skočite na prvu liniju sa " pa sa F11 neka se zamijeni. Ponavljajte F12 (skok na narednu liniju) i F11 (zamjena navodnika) do kraja prevoda.