EvkaKovacova
12.01.15,08:21
Ahojte, ako zmením v textovom súbore s príponou .txt (word PAD), Chcem tam zmeniť diakritiku - potrebujem z textu vybrať všetky interpunkčné znamienka, a mäkčene, dá sa to? aby som nemusela každé slovo prepisovať?
Chobot
12.01.15,07:37
Dá sa. Otvoríš to vo Worde a postupne dáš vymeniť všetky písmené s interpunkčnými znamienkami v celom dokumente na obyčajne, napr. zmeníš všetky "š" na "s", potom "č" na "c" atď. Je to tiež pracné, ale rýchlejšie, než prepisovať všetky slová. Tých písmen máš možno 15, takže 15 výmen.

Na záver dáš súbor "Uložiť ako" a zvolíš "Plain text" s príponou "txt".
PaloPa
12.01.15,10:03
No, osobne by som si asi najrýchlejšie poradil cez nejaký online nástroj, napr:
http://www.miniwebtool.com/remove-accent/


Prípadne si pozrel nejaký iný cez hľadanie frázy "remove accent".

Kto by si to chcel urobiť sám, jedna z možností je napr. makro vo Worde:



Sub aDiakritika_Remove()
' Macro recorded 18.2.2006 by PC-PROG.sk
'
Dim xCo, aCo, xZa, aZa
Dim i As Long

xCo = "ý;ú;í;é;ě;á;ä;ó;ô;č;ď;ľ;ĺ;ň;ř;ŕ;š ;ť;ž": aCo = Split(xCo, ";")
xZa = "y;u;i;e;e;a;a;o;o;c;d;l;l;n;r;r;s;t;z": aZa = Split(xZa, ";")

For i = LBound(aCo) To UBound(aCo)
Call ZnakySrchRepl(CStr(aCo(i)), CStr(aZa(i)))
Next i

End Sub

Sub ZnakySrchRepl(xCo As String, xZaCo As String)
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = xCo
.Replacement.Text = xZaCo
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
misoft
12.01.15,10:09
Obyčajný užívateľ asi nebude "laborovať" s makrami....
Rozumnejšie je azda použiť vstavanú funkciu Wordu - vyhľadať a vymeniť - postupne (po jednom) zadá písmená s diakritikou (vyhľadať) - dá bez diakritiky (Nahradiť) a Všetko. Za pár minút sú diakritiky preč.
PaloPa
12.01.15,13:05
Záleží na tom, či to potrebuje urobiť raz za 7,45 roka, alebo 2x týždenne :).

Ak 2x týždenne, vtedy aj "obyčajný používateľ" pozrie napr tu na Porade, ako použiť makrá. (rýchly tip: ALT+F11 - zobrazenie VBA okna, klik pravým tl myši na ThisDocument, Insert Module a vložiť kód vyššie uvedený. Použitie: ALT+F8 - spustiť makro).

Ak chce najrýchlejšie - tak Copy / Paste cez nejakú web aplikáciu.

K požadovanému výsledku sa dá väčšinou dostať viacerými spôsobmi, záleží len na tom, ktorá váha (rýchlosť, "nemusím sa nič učiť", viac násobná použiteľnosť) má najvyššiu prioritu.
EvkaKovacova
12.01.15,13:31
a kde mám túto funkciu nájsť? nenašla som ju. A je to vo word-pade, alebo v open office writer?
misoft
12.01.15,13:51
Open Office. Horné menu Upraviť - Nájsť a nahradiť (alebo aj Ctrl+F)