Najít a nahradit

[Gudernatsch]

Zdravím, překládám ženě titulky k jednomu seriálu přes Google Translate (CTRL C, CTRL V), ale z nějakého důvodu jsou některé věty z anglických titulků na dvou řádcích, což Google pochopí jako dvě různé věty a hodně se toho doslova ztratí v překladu.
Rád bych věděl, jestli přes funkci Najít a nahradit ve Wordu neexistuje možnost jak toto globálně ve Wordu upravit tak, aby odrážky, která oddělují slova, zmizely.
Udělat hromadně z tohoto toto, aniž bych počochnil cokoliv dalšího. :)
501
00:20:43,776 --> 00:20:45,278
I'm really
not a bad guy.

501
00:20:43,776 --> 00:20:45,278
I'm really not a bad guy.

[elninoslov]

Ctrl+H
Hľadať : ^$^l
Nahradiť čím : medzera
Nahradiť všetky
Ten "^$" je tam preto, aby nerušil riadkovanie na riadkoch nezačínajúcich znakom (lebo by zrušil riadkovanie na tých 2. riadkoch s číslami. Problém nastane iba ak bude začínať text číslom. Takých príkladov bude minimum.

[Gudernatsch]

Několikrát jsem to vyzkoušel a bohužel to nejde, mám 0 nalezení. nemám něco dozaškrtnout?

[Uziv00]

Teoreticky se můžu pokusit na to napsat skript. Jen tak na ukázku, dělal jsem jakousi náhradu zde: viewtopic.php?f=39&t=106648
K tomu potřebuji:
- cestu, kde je soubor uložen
- vzorový soubor, který má být upraven.
Z uvedeného to vypadá, že c o začíná číslem se neřeší, pak se načtou následující řádky, které se sloučí, dokud není řádek prázdný.

[Gudernatsch]

Ahoj, díky za odpověď.
Pokud máš na mysli můj lokální disk, tak dejme tomu že je to toto:
D:\test\Malcolm in the Middle S01E08 Krelboyne Picnic.srt

a odkaz (.srt mi toto forum nedovoli)
https://uloz.to/file/Bmha12SN3trz/malco ... ELEJV2AN==

[Uziv00]

Na uložto se nedostanu. Zkus změnit příponu na .txt a vložit znovu, nebo použij úschovnu.

[Gudernatsch]

Jak račte!
https://www.uschovna.cz/zasilka/HY2KV3URXS87AIAW-DZ8/
Ani vložit .txt mi nešlo. Proto úschovna.

[Uziv00]

Kód: Vybrat vše

'******************************************************
'*       Script odstraňuje odřádkování v textu        *
'******************************************************
'*            Vytvořeno pro PC-HELP                   *
'*            Etienn@Script v. 1.0                    *
'******************************************************

Option Explicit
Dim path, fso, src, cilFile, txtStream, txtStream2, Text, Prvni, cont

'Zjisteni cesty skriptu
path = WScript.ScriptFullName
path = Left(path, InStrRev(path, "\"))

' vytvoreni objektu pro pristup k souborum
Set fso = CreateObject("Scripting.FileSystemObject")
src = path & "Picnic.txt"    'Zde jméno souboru ve složce
cilFile = path & "Resume_.txt"   'Toto je cílový soubor, který skript vytvoří
Set txtStream = fso.OpenTextFile(src)
Set txtStream2 = fso.OpenTextFile(cilFile, 8, True)

Text = ""

Text = txtStream.ReadLine
txtStream2.WriteLine Text

On Error Resume Next
Do While Not (txtStream.AtEndOfStream)
Text = txtStream.ReadLine
Prvni = Mid(Text,1,1)
If IsNumeric(Prvni) = True Or Text = "" Then 
 txtStream2.WriteLine Text 
Else
 cont = txtStream.ReadLine
 If cont = "" Then 
   txtStream2.WriteLine Text
   txtStream2.WriteLine cont
 Else  
   Text = Text & " " & cont
   txtStream2.WriteLine Text
 End If
End If
Loop 
WScript.Echo "Skript proběhl."

Set txtStream = Nothing
Set txtStream2 = Nothing
Set fso = Nothing

WScript.Quit

Kód zkopíruj, vlož do notepadu (ne word apod.!) a ulož s příponou vbs.
Na tu cestu kašlu, pohlídej si, aby skript a soubor, co chceš předělat byl ve stejné složce.
Jméno souboru je nastaveno na Picnic.txt (v kódu lze změnit), výstup je Resume_.txt (taky jde v kódu změnit). Předpokládám, že bude pracovat, i pokud přípony budou přímo .srt.
Na začátku souboru je nějaký neviditelný kód, proto je první řádek do Resume zkopírován bez úprav.
Nebude pracovat korektně, pokud v původním souboru budou 3 a více řádků textu pod sebou.
Nekorektně zpracovává poslední řádek s vícetextem, ale to si můžeš ohlídat.
Oba dva poslední problémy nevím jak vyřešit, ale víc času tomu věnovat nechci.

[Gudernatsch]

Ha! Ty jsi kanec, funguje to! Díky moc, ty titulky jsou mnohem líp přeložené (byť Google stále překládá Fine jako Pokuta a Well jako Studna)