OCR skripta za SW

[petko]

jel ima kakva opcija da se jedan redak ako je predugacak prelama u dva?

CTRL+E

[Strider]

Noah, što se tiče prelamanja redova, u SW možeš selektovati sve redove i ići Ctrl+E i on će duge redove prelomiti u dva, ali će i kratke
   Koliko komada zeli?
   -Dvadeset.
prebaciti u jedan
   Koliko komada zeli? -Dvadeset.
To nije baš poželjno.

Neće to napraviti ukoliko ima razmak iza crte u drugom redu:
   Koliko komada zeli?
   - Dvadeset.
...ali tako neće ni dugačku liniju razlomiti u dvije kratke
Umjesto ovoga:
   Ili kako je jedna od njegovih
   ljubavnica rekla... -Imao je ljubavnice?
dobit ćeš ovo (gdje je prva linija predugačka - 49 znakova):
   Ili kako je jedna od njegovih ljubavnica rekla...
   - Imao je ljubavnice?

[MilanRS]

Da, to je skroz loše riješeno. Zato sa samo postavim max 45 karaktera i idem od greške do greške sa F12 i popravljam duge redove sa F11. Nadam se da će u nekoj novoj verziji SW to biti bolje riješeno.

[pejafor3]

Moze li da se prepravi originalna skripta

Copy text to translation. Made by Bedazzle.

ali da bude u obrntom pravcu

[petko]

Moze li da se prepravi originalna skripta

Copy text to translation. Made by Bedazzle.

ali da bude u obrntom pravcu

moze

Kod: [Odaberi]

// Copy text to translation. Made by Bedazzle.
// naopaka varijanta

program CopyToOriga;

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

var
  n: Integer;
  i: Integer;

  txt: String;

begin
  n := GetSubtitleCount;

  for i := 0 to n-1 do
  begin
     if (IsSubtitleSelected(i) = true) then
     begin
//        txt := GetSubtitleText(i);
//        SetSubtitleTrans(i, txt);
        txt := GetSubtitleTrans(i);
        SetSubtitleText(i, txt);
     end;
  end;
end.


[pejafor3]

radi super....
  Petko

[petko]

don't mention it

[Jablan]

može li mi netko reći kako da ubacim i da mi radi skripta od milana skroz na početku iz drugog posta. i ako ima još koja dobra skripta da mi odmah objasni, da ne listam sada bez veze, iovako neću ništa skužiti

hvala

EDIT: riješeno uz veliku pomoć MilanRS-a, veliko hvala još jednom! 

[ManOfHonor]

Verovatno bi se mogla napraviti i skripta za prevođenje sa hrvatskog na srpski i obrnuto. Dok sam koristio BFAFS zapisivao sam sve reči koje nisu postojale u njegovoj bazi radi naknadnog dodavanja, međutim program je malo bagovit i često napravi više štete nego koristi, pa sam iz tog razloga hteo da probam da napravim jedan mali prevodilac za najčešće korišćene reči, imena, pojmove...
Mogu li koristiti ovaj šablon za tako nešto:

Kod: [Odaberi]

<ERROR Find="(HRVATSKI)" ReplaceBy="SRPSKI">

[MilanRS]

Već postoji jedna beta verzija te skripte za hr --> sr.
Večeras više informacija, kad dođem kući.

[ManOfHonor]

Ok, jedva čekam!

[MilanRS]

Ovo iz prošlog posta smo riješili preko PM.

Zna li neko za skriptu koja prebroji broj znakova u dva reda jednog titla, pa da ih označi ako je u jednom mnogo više nego u drugom?
Ako npr. prvi red ima 10 a drugi 35 znakova ili obrnuto, volio bih da budu označeni da odradim Ctrl+E.
Kad zalijepim titlove (.divx) sa podlogom, podloga bude zajednička za oba reda širine onog koji je duži. Ako jedan od ta dva reda ima malo karaktera, tu bude puno crne pozadine bez slova.

Ima li nešto za označavanje titlova koji u dva reda u zbiru imaju manje od xy (40) znakova?
Ja bih njih prebacio u jedan red.

[petko]

Uvidom u Example.pas, paskal skriptu koja dolazi uz subtitle workshop našao sam da je moguće naći broj slova u određenom dijalogu:

for a := GetSubtitleCount-1 downto 0 do
begin
  if Length(GetSubtitleText(a)) > 20 then

Ukoliko negde nađem neki spisak funkcija subtitle workshopa koje je moguće pozvati iz paskal skripti onda je to rešeno očas posla...
Ako neko zna, neka ne ćuti

[petko]

Zna li neko za skriptu koja prebroji broj znakova u dva reda jednog titla, pa da ih označi ako je u jednom mnogo više nego u drugom?
Ako npr. prvi red ima 10 a drugi 35 znakova ili obrnuto, volio bih da budu označeni da odradim Ctrl+E.

Nisam uspeo da nađem funkciju kojom bih takve redove označio ali evo nečeg što možda obavi posao
Kako se koristi:
- Ovo dole snimi u folder gde stoje subtitle workshop pascal skripte, nazovi ga recimo "xPorediDuzine.pas"
- Pokreni subtitle workshop
- Otvori kao original titl koji hoćeš da obradiš
- pokreni skriptu - Tools/Pascal scripts/xPorediDuzine

Nakon ovoga u prevodu je označeno koji titlovi iz originala imaju veću razliku u broju znakova od dozvoljene.

Kod: [Odaberi]

// *********************************************************
// skarabudžio Petko - 21.01 MMIX
// ---------------------------------------------------------
// poredi dužine prvog i drugog reda titla u originalu
// a u prevodu obeležava titlove koji imaju veæu razliku
// u dužinama prve i druge linije
// =========================================================
// PAŽNJA! PAŽNJA! PAŽNJA!
// Prevod se briše bez pitanja pa vodite raèuna
// *********************************************************

program PorediDuzine;
const
  iMaxRazlika = 10;

var
  iRed, iDuzPrve, iDuzDruge: Integer;
  cr: string;

begin
  cr := chr(13) + chr(10);
  for iRed := GetSubtitleCount-1 downto 0 do
  begin
    SetSubtitleTrans(iRed, '');
    iDuzPrve := pos(cr, GetSubtitleText(iRed));
    if iDuzPrve > 1 then
    begin
      iDuzDruge := Length(GetSubtitleText(iRed)) - iDuzPrve;
      if abs(iDuzPrve - iDuzDruge) > iMaxRazlika then SetSubtitleTrans(iRed, '*$ razlika u duzinama zadovoljena!');
    end;
  end;
end.

U liniji koja glasi iMaxRazlika = 10; možeš promeniti broj koji označava maksimalnu razliku u broju znakova između prve i druge linije.
Važno je pomenuti da se izvršenjem skripte gubi prevod tako da treba raditi samo sa otvorenim originalom.

[MilanRS]

Hvala za ovo, isprobaću ali već sad vjerujem da radi baš ono što želim. Svaka čast!

[magila]

Milane majstore, može li tvoj script da postavlja razmak i iza znaka "?" ?
Juče sam počeo da čačkam po tim skriptama.
Pokušavam ošišanu latinicu da prebacim u latinicu sa kvačicama.
Hrvatski u srpski, sve redom, što može.
Za sada uglavnom radi...
Ako mi nešto zatreba, mogu li te kontaktirati preko PM-a?

[MilanRS]

PM, mail, forum, ... biraj.

Može se to staviti u skriptu ali već ima u SW opcija da se to provjerava.
Vidi sliku.


Samo upiši ? u ovo polje.

[magila]

  Da, hvala, video sam tu opciju.
Ali sam mislio da posle bilo kog znaka interpukcije dođe razmak,
a ne da mu ja svaki put zadajem iza kog pojedinačno će on izvršavati naredbu.

  Drugo, jako sam zainteresovan za te OCR rečnike koje si oformio,
trenutno radim na jednom. Ima oko dve hiljade reči.

[Strider]

Ekipa, pogledajte program koji je već spominjan na ovom forumu, B3SSubTranslator, koji inače prevodi SR->HR. "Okrenite" rječnike "ReplaceableWords" i "MultiValueWords" (ne baš doslovno jer ima i Typo grešaka) i prepravite "AcceptedWords" (ijekavicu u ekavicu i sl.). Riješili ste se i kreiranja novih rječnika od početka i imate dobar program za prijevode :-) BTW, nisam ja autor programa, da ne bi bilo da je samo-reklama :-)

Usput, zamolio bih ekipu koja prevodi na srpski da probaju već spominjani B3SSubTranslator i da naprave barem rječnik "AcceptedWords" za srpski jezik. Dobar dio tih rječnika sam ja unio (i ispravio, prebacio iz jednog u drugi...), ali najveća muka je kad naletim na Typo greške jer je moguće više ispravaka. Neke stvari sam prevodio i sam, i znam da je to težak posao i da se provuku svakakve greške. Ali, onda lijepo, provučete svoj autorski titl kroz SubTranslator i ispravite greške koje su Vam se potkrale zbog brzine ili umora :-)
Evo primjera jednog titla, "Farscape [4x21] - We're So Screwed III - La Bomba" (koji je još i dobar):
crvotčine - crvotočine
evoluciski - evolucijski
hirararhija - hijerarhija
izsključi - isključi
imperaatorom - imperatorom
bušilicima - bušilicama
nisma - nisam
izabarali - izabrali
baram - barem
aktivaraće - aktiviraće (aktivirat će)
bemtenovoj - batmenovoj
elift - lift
hoćel - hoće, hoće li
konfernciju - konferenciju
ktivira - aktivira
ministerke - ministarke (ministrice)
niovu - nivou
oduglovačio - odugovlačio
oploćuje - oplođuje
ostavćite - ostavićete (ostavit ćete)
razaro - razarao
rećićuti - rećiću ti (reći ću ti)
samoubstvom - samoubistvom - samoubojstvom
saznađemo - saznaćemo (saznat ćemo)
uhapiste - uhapsite (uhitite)
Pretpostavljam da nam je svima u interesu napraviti što bolji i ispravniji prijevod. Bez obzira na kojem jeziku bio, samo nek je ispravan.
Stoga apeliram na cijelu ekipu prevoditelja koji rade na ekavici da preprave rječnik "AcceptedWords" za srpski jezik.

Pozdrav od Stridera!

[magila]

Hvala Stridere. Ovo je od velike pomoći.
Već sam zapeo da obnovim znanje iz pascala.

[Shomac]

Pozdrav. Prvo bih htio da se zahvalim @MilanRS na njegovoj ocr skripti kao i ostalim clanovima koji se trude da poboljsaju SW.
Nisam odavno programirao u Pascal-u pa mi je lakse da vas zamolim za uslugu.
Evo u cemu je problem. Desavalo mi se da u prevodu jedna recenica bude podijeljena u dva ili vise titlova sa tim sto da ti titlovi traju ~1 sec.
Primjer:
1
00:00:00,000 --> 00:00:01,000
Ovo je
2
00:00:01,001 --> 00:00:02,001
titl.
Moze li se napraviti skripta koja bi prepoznala ovo i spoji dva titla u jedan?

[ndma11]

Ne znam za skriptu, ali postoji opcija CTRL+K.... Ona spaja dve linije koje selektuješ....

[Shomac]

Hvala. Nisam znao za tu opciju.
Ali opet trebao bi svaki prevod da pregledam da bi nasao gdje je greska. Sa skriptom bi bilo jednostavnije.

[pejafor3]

Hvala. Nisam znao za tu opciju.
Ali opet trebao bi svaki prevod da pregledam da bi nasao gdje je greska. Sa skriptom bi bilo jednostavnije.

Grešiš!

Evo ti primer:

1
00:00:00,000 --> 00:00:01,000
Ovo je
2
00:00:01,001 --> 00:00:02,001
titl.

Šta ako pod rednim brojem 2, rečenicu izgovara druga osoba!?
dobio bi sledeće

00:00:00,000 --> 00:00:02,001
Ovo je
titl.

A pravilno je
00:00:00,000 --> 00:00:02,001
Ovo je
- titl.

Zato lepo kad završiš titl, ili u toku rada.
Pokreneš komadnu CTRL+I
Informations and Errors
Tu prethodno namesti u opcijama, vreme za koje ti smatraš da treba da ti javlja Too Short Durations.
I onda u toku rada ili nakon završenog prevoda, vidiš obeležene rečenice crvenom bojom, selektuješ ih i spojis sa CTRL+K.

Ali ovo važi samo ako prevodiš!
A ako ne prevodiš a nerviraju te kratke rečenice....
E to ima druge komande, a one se uče tokom rada.

[Shomac]

Šta ako pod rednim brojem 2, rečenicu izgovara druga osoba!?
dobio bi sledeće

00:00:00,000 --> 00:00:02,001
Ovo je
titl.

A pravilno je
00:00:00,000 --> 00:00:02,001
Ovo je
- titl.

Mislim da bi u ovom slucaju izpravno bilo ovako:

00:00:00,000 --> 00:00:02,001
Ovo je...
- titl.


Ne, ne prevodim nego sredjujem prevode koji imaju greske.

Konkretno dosta puta u prevodima za Prison Break ima ovakvih gresaka gdje je jedna recenica razdijeljena u vise linija od kojih je svaka traje ~1,000 - 1,500 tako da ti cijela recenica prodje u "treptajima" i ne uspijes procitati sta pise. A u 90% slucajeva tu recenicu izgovara jedan covijek.

Evo konkretnog primjera:

306
00:28:32,190 --> 00:28:33,209
Zaustavi kombi.

307
00:28:33,210 --> 00:28:34,339
Ne mogu je ostaviti.

308
00:28:34,340 --> 00:28:36,660
Ona je veæ
ostavila tebe.

309
00:28:37,630 --> 00:28:38,510
Tata!

310
00:28:38,520 --> 00:28:40,040
Ne mogu je ostaviti.

311
00:28:40,050 --> 00:28:41,300
Tata, moraš iæi.

Prvi titl traje 1,019 a drugi 1,129 sto je malo vremena s obzirom koliko znakova imaju oba titla. Bilo bi lakse za citanje da su ta da titla spojeni.

[pejafor3]

00:00:00,000 --> 00:00:02,001
Ovo je
titl.

A pravilno je
00:00:00,000 --> 00:00:02,001
Ovo je
- titl.

Mislim da bi u ovom slucaju izpravno bilo ovako:

00:00:00,000 --> 00:00:02,001
Ovo je...
- titl.

He, he, he, dobar si!
naučiću još nešto!


Vidi...
Nikad to nećeš moći da rešiš sa nikakvim skriptama!!!

Evo ti primera...
Uzmi prevode za najbolju seriju koja se emituje----
Imaš dva prevodioca.
Ne znaš ko bolje prevodi po pitanju poznavanja jezika!
Ali...
Kod jednog imaš 600 linija a kod drugog 350 linija! (lupam sada brojke napamet)

Kao i onaj gornji primer koji sam ti napisao..... nijedna skirpta to ne može da reši....
Osim da....
U svakoj liniji imaš "-"

primer
- Ovo je
- titl.
A to se inače kosi sa svim pravilima prevođenja!

Imaš komandu u SW... sa kojom možeš da produžiš trajanje postojećih linija.
(samo mala pomoć. SW pa Help pa search. Extend length )
 

[-=QuadDamage=-]

  Da, hvala, video sam tu opciju.
Ali sam mislio da posle bilo kog znaka interpukcije dođe razmak,
a ne da mu ja svaki put zadajem iza kog pojedinačno će on izvršavati naredbu.

  Drugo, jako sam zainteresovan za te OCR rečnike koje si oformio,
trenutno radim na jednom. Ima oko dve hiljade reči.

Samo ukucaj sve znakove posle kojih hoćeš razmak. Npr.   :,-

[Shomac]

00:00:00,000 --> 00:00:02,001
Ovo je
titl.

A pravilno je
00:00:00,000 --> 00:00:02,001
Ovo je
- titl.

Mislim da bi u ovom slucaju izpravno bilo ovako:

00:00:00,000 --> 00:00:02,001
Ovo je...
- titl.

He, he, he, dobar si!
naučiću još nešto!


Vidi...
Nikad to nećeš moći da rešiš sa nikakvim skriptama!!!

Evo ti primera...
Uzmi prevode za najbolju seriju koja se emituje----
Imaš dva prevodioca.
Ne znaš ko bolje prevodi po pitanju poznavanja jezika!
Ali...
Kod jednog imaš 600 linija a kod drugog 350 linija! (lupam sada brojke napamet)

Kao i onaj gornji primer koji sam ti napisao..... nijedna skirpta to ne može da reši....
Osim da....
U svakoj liniji imaš "-"

primer
- Ovo je
- titl.
A to se inače kosi sa svim pravilima prevođenja!

Imaš komandu u SW... sa kojom možeš da produžiš trajanje postojećih linija.
(samo mala pomoć. SW pa Help pa search. Extend length )
 

Izgleda da se mi ne razumijemo bas najbolje, al' nema veze hvala ti na pomoci.

Extend length ne moze da produzi postojecu liniju ako je ovakav slucaj

1
00:00:00,000 --> 00:00:01,000
Ovo je
2
00:00:01,001 --> 00:00:02,001
titl.

Obrati paznju kad se zavrsava prvi titl a kad pocinje drugi.
Nego da batalimo ovo. Moze li mi neko reci gdje mogu da vidim spisak svih pascal funkcija koje podrzava SW.

[petko]

Pogledaj forume na sajtu URUsofta, proizvođača Subtitle workshopa.

[pejafor3]

00:00:00,000 --> 00:00:02,001
Ovo je
titl.

A pravilno je
00:00:00,000 --> 00:00:02,001
Ovo je
- titl.

Mislim da bi u ovom slucaju izpravno bilo ovako:

00:00:00,000 --> 00:00:02,001
Ovo je...
- titl.

He, he, he, dobar si!
naučiću još nešto!


Vidi...
Nikad to nećeš moći da rešiš sa nikakvim skriptama!!!

Evo ti primera...
Uzmi prevode za najbolju seriju koja se emituje----
Imaš dva prevodioca.
Ne znaš ko bolje prevodi po pitanju poznavanja jezika!
Ali...
Kod jednog imaš 600 linija a kod drugog 350 linija! (lupam sada brojke napamet)

Kao i onaj gornji primer koji sam ti napisao..... nijedna skirpta to ne može da reši....
Osim da....
U svakoj liniji imaš "-"

primer
- Ovo je
- titl.
A to se inače kosi sa svim pravilima prevođenja!

Imaš komandu u SW... sa kojom možeš da produžiš trajanje postojećih linija.
(samo mala pomoć. SW pa Help pa search. Extend length )
 

Izgleda da se mi ne razumijemo bas najbolje, al' nema veze hvala ti na pomoci.

Extend length ne moze da produzi postojecu liniju ako je ovakav slucaj

1
00:00:00,000 --> 00:00:01,000
Ovo je
2
00:00:01,001 --> 00:00:02,001
titl.

Obrati paznju kad se zavrsava prvi titl a kad pocinje drugi.
Nego da batalimo ovo. Moze li mi neko reci gdje mogu da vidim spisak svih pascal funkcija koje podrzava SW.

DA! U PRAVU SI!!!!
ali će ti pomoći u 50-60% titla!
A ako hoćeš savršen titl... ili ga prevodi ili ga sređuješ nakon gledanja!
Bilo kako....
Ti si običan Leecher. Nikad nisi ništa prevodio. I šta će tebi neke pascal funkcije!?
Sedi  i prevodi...
Ne trebaju ti nikakve pascal skripte!