Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. www.neurohope.ro |
Înlocuiește diacritice - Word
Last Updated: Jul 25 2015 08:35, Started by
dani.user
, Aug 06 2014 22:43
·
0
#1
Posted 06 August 2014 - 22:43
Pornind de la discuția de aici: http://forum.softped.../#entry15641800 am creat o mică aplicație ce înlătură diacritice dintr-un document Word.
Se pornește, se alege fișierul, se așteaptă, iar programul va deschide noul document. Necesită Windows XP sau mai nou, MS .NET Framework 4 și Microsoft Word instalate. InlocuireDiacriticeConsole.zip 4.19K 67 downloads using System; using System.Collections.Generic; using System.Diagnostics; using System.IO; using System.Linq; using System.Text; using System.Windows.Forms; namespace InlocuireDiacriticeConsole { class Program { [STAThread] static void Main(string[] args) { var dialog = new OpenFileDialog() { Filter = "Microsoft Word Document|*.doc;*.docx|All Files|*", Title = "Alege fișierul" }; if (dialog.ShowDialog() == DialogResult.OK) { var fileName = dialog.FileName; var newFileName = Path.Combine(Path.GetDirectoryName(fileName), String.Format("{0}-faradiacritice{1}", Path.GetFileNameWithoutExtension(fileName), Path.GetExtension(fileName))); Replace(fileName, newFileName); Process.Start(newFileName); } } static void Replace(string source, string destination) { try { var type = Type.GetTypeFromProgID("Word.Application"); if (null == type) { throw new Exception("Microsoft Word nu e instalat"); } dynamic app = Activator.CreateInstance(type); var document = app.Documents.Open(source); var find = app.Selection.Find; find.Forward = true; find.Wrap = 1; find.Format = false; find.MatchCase = false; var toReplace = new Dictionary<string, string> { {"ă", "a"}, {"Ă", "A"}, {"ă", "a"}, {"Ă", "A"}, {"â", "a"}, {"Â", "A"}, {"î", "i"}, {"Î", "I"}, {"ș", "s"}, {"Ș", "S"}, {"ț", "t"}, {"Ț", "T"}, {"ş", "s"}, {"Ş", "S"}, {"ţ", "t"}, {"Ţ", "T"}, }; foreach (var pair in toReplace) { find.Text = pair.Key; find.Replacement.Text = pair.Value; find.Execute(Replace: 2); } document.SaveAs2(destination); document.Close(); app.Quit(); } catch (Exception ex) { ShowError(ex.Message); } } static void ShowError(string message) { MessageBox.Show(message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error); } } } |
#2
Posted 06 August 2014 - 22:57
Pai nu inlocuieste chiar si acolo unde apare litera A sa zicem ?
LE: Scuze, am inteles gresit. Deci tu elimini caracterele cu diacritice, nu invers... OK. Asta nu se poate face si in Word cu Find & Replace? Edited by SuPY, 06 August 2014 - 22:58. |
#3
Posted 06 August 2014 - 23:02
Se poate, defapt chiar asta fac, dar automat
Nu vad de ce as face in practica treaba asta (si nu invers, sa introduc diacritice), dar daca a vrut omul |
#4
Posted 07 August 2014 - 07:00
Ceva care face invers ar fi mai tare, am gasit una pe net, dar nu prea e posibil sa fie perfecta
|
#5
Posted 05 October 2014 - 23:51
mai simplu fara aplicatii: ai replace si inlocuiesti in intreg documentul ă cu a;
idem la restul diacriticelor; mda... invers ar fi mai bine... inca nu este asa ceva; si google translate o ia rau pe ulei cateodata; si acolo chiar sunt algoritmi si AI prin miliarde de utilizatori. |
#6
Posted 06 October 2014 - 08:28
Uneori n-ai rabdare sa inlocuiesti manual cu replace.
+ ca trebuie sa tii cont ca sunt 2 forme de ş/ţ + ca uneori uiti sa faci replace-ul case sensitive si iese o prostie. |
#7
Posted 07 October 2014 - 15:18
dani.user, on 06 octombrie 2014 - 08:28, said:
Uneori n-ai rabdare sa inlocuiesti manual cu replace. + ca trebuie sa tii cont ca sunt 2 forme de ş/ţ + ca uneori uiti sa faci replace-ul case sensitive si iese o prostie. Chestia ai cu 2 forme, am avut probleme cu ea, la un PC unele diactritice au alt cod ascii fata de altul.. Si asa unele fonturi suporta doar una dintre ele, si pot aparea probleme |
#8
Posted 07 October 2014 - 15:26
Foarte util... impreuna cu convertorul image to word e foarte folositor pentru proiecte de 50+ pagini.
Edited by MooF2010, 07 October 2014 - 15:26. |
#9
Posted 07 October 2014 - 21:46
banculescu, on 05 octombrie 2014 - 23:51, said:
mda... invers ar fi mai bine... inca nu este asa ceva; si google translate o ia rau pe ulei cateodata; si acolo chiar sunt algoritmi si AI prin miliarde de utilizatori. |
#10
Posted 13 May 2015 - 10:52
biceman, on 07 octombrie 2014 - 21:46, said:
exista o aplicatie care reuseste destul de bine sa puna diacritice: AutoCorect de la SoftSet Din pacate, AutoCorect nu mai este dezvoltat de mai bine de 2 ani. Asa scrie pe site-ul softset.ro. Poate se va gasi cineva care are cunostiinte serioase de programare sa-l dezvolte in continuare Free. Mi se pare fabulos sa scrii fara diacrtice si sa iti dea si sugestii al cuvintele scrise gresit, punctuatia sa fie modificata s.a.m.d. As mai avea eu cateva sugestii pentru AutoCorect dar....... Edited by knight28, 13 May 2015 - 10:56. |
|
#12
Posted 19 July 2015 - 19:07
Imi da eroare, system __comobject does not contain a definition for 'save as2', ma ajuta cineva ?
|
#13
Posted 19 July 2015 - 19:24
Stie cineva ce sa fac cu acel soft, Inlocuirediacritice ca sa mearga ?
|
#15
Posted 25 July 2015 - 08:35
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users