Тема: Переклад вибіркового тексту
Виникла необхідність перекласти мовні файли для сайта. Хотілось би автоматизувати цей процес. Звичайно, перекладач неточний, потім потрібно редагувати, та, всеодно, потрібно це зробити.
Потрібно перекласти текст в лапках зліва від "=>". Переклад відбувається у "Pragma":
1. виділяється текст
2. Ctrl+C
3. Відбувається переклад і результат заноситься у буфер обміну
4. Ctrl+V
5. Виділений текст заміняється
Приклад файла:
Як пробував:
1. Зчитуємо рядка
2. Перевіряємо чи існує символ ">"
3. Якщо так, то
а. Розділяв на 3 a,b,c: " 'Form legend' => ' " " Опрос " " ', "
б. Середній копіював в Edit1.Text
в. Edit1.SetFocus; Edit1.SelectAll;
г. Clipboard.AsText:= Edit1.Text;
//ShowMessage('1');
д. Пауза на спрацювання програми перекладач
е. Edit1.PasteFromClipboard;
є. b:=Edit1.Text;
ж. str:=a+b+c;
//ShowMessage('2');
Тупик... Не получається записати у файл. Чи треба створювати іншого файла
І ще одне: навпряму не працює, тільки із зупинками на ShowMessage('1');
Буду вдячний, якщо хтось допоможе. Вже переклав би вручну, та для чого люди придумали комп'ютери?