Najít a nahradit

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Gudernatsch
Level 3
Level 3
Příspěvky: 449
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Najít a nahradit

Příspěvekod Gudernatsch » 06 bře 2023 18:12

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.
Windows 10 Pro 64-bit
Intel Core i5 4460 @ 3.20GHz
16,00GB Dual-Channel DDR3
MSI B85-G43
NVIDIA GeForce GTX 970 (Gigabyte), LCD Monitor
SAMSUNG 23,6" S24D390
Zdroj: Seasonic S12II-620 - 620W
111GB KINGSTON (SSD)
931GB Seagate (SATA)

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod elninoslov » 06 bře 2023 18:50

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
Level 3
Level 3
Příspěvky: 449
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod Gudernatsch » 10 bře 2023 18:12

Snímek obrazovky 2023-03-10 181423.png
Několikrát jsem to vyzkoušel a bohužel to nejde, mám 0 nalezení. nemám něco dozaškrtnout?
Windows 10 Pro 64-bit
Intel Core i5 4460 @ 3.20GHz
16,00GB Dual-Channel DDR3
MSI B85-G43
NVIDIA GeForce GTX 970 (Gigabyte), LCD Monitor
SAMSUNG 23,6" S24D390
Zdroj: Seasonic S12II-620 - 620W
111GB KINGSTON (SSD)
931GB Seagate (SATA)

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23592
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod ITCrowd » 10 bře 2023 18:46

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ý.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Gudernatsch
Level 3
Level 3
Příspěvky: 449
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod Gudernatsch » 10 bře 2023 20:01

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==
Windows 10 Pro 64-bit
Intel Core i5 4460 @ 3.20GHz
16,00GB Dual-Channel DDR3
MSI B85-G43
NVIDIA GeForce GTX 970 (Gigabyte), LCD Monitor
SAMSUNG 23,6" S24D390
Zdroj: Seasonic S12II-620 - 620W
111GB KINGSTON (SSD)
931GB Seagate (SATA)

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23592
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod ITCrowd » 11 bře 2023 07:44

Na uložto se nedostanu. Zkus změnit příponu na .txt a vložit znovu, nebo použij úschovnu.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Gudernatsch
Level 3
Level 3
Příspěvky: 449
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod Gudernatsch » 11 bře 2023 12:01

Jak račte!
https://www.uschovna.cz/zasilka/HY2KV3URXS87AIAW-DZ8/
Ani vložit .txt mi nešlo. Proto úschovna.
Windows 10 Pro 64-bit
Intel Core i5 4460 @ 3.20GHz
16,00GB Dual-Channel DDR3
MSI B85-G43
NVIDIA GeForce GTX 970 (Gigabyte), LCD Monitor
SAMSUNG 23,6" S24D390
Zdroj: Seasonic S12II-620 - 620W
111GB KINGSTON (SSD)
931GB Seagate (SATA)

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23592
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod ITCrowd » 11 bře 2023 14:01

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.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Gudernatsch
Level 3
Level 3
Příspěvky: 449
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Najít a nahradit

Příspěvekod Gudernatsch » 11 bře 2023 19:58

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) :D
Windows 10 Pro 64-bit
Intel Core i5 4460 @ 3.20GHz
16,00GB Dual-Channel DDR3
MSI B85-G43
NVIDIA GeForce GTX 970 (Gigabyte), LCD Monitor
SAMSUNG 23,6" S24D390
Zdroj: Seasonic S12II-620 - 620W
111GB KINGSTON (SSD)
931GB Seagate (SATA)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • RB433 - čím nahradit
    od MK_Vs » 05 bře 2024 07:28 » v Sítě - hardware
    2
    489
    od MK_Vs Zobrazit poslední příspěvek
    06 bře 2024 18:51
  • Jak nahradit průzkumníka Total Commanderem?
    od atari » 19 zář 2023 11:03 » v Windows 11, 10, 8...
    1
    1542
    od zeus Zobrazit poslední příspěvek
    19 zář 2023 11:25

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů