Вы не могли бы сообщить какой-либо свой электронный адрес, направив его по адресу maximpolukhin@mail.ru. У меня к вам есть деловое предложение.
]]>f11::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43} ; ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
MsgBox, Буфер обмена пуст!
Return
}
StringReplace, ClipBoard, ClipBoard, в пробирке, in vitro, All
SendInput, ^{vk56} ; ctrl+V
ReturnЯ все таки сумел написать РАБОТАЮЩИЙ макрос с помощью AutoScriptWriter.
#м::
Send, {CTRLDOWN}h{CTRLUP}
WinWait, Find and Replace, M&atch whole word
IfWinNotActive, Find and Replace, M&atch whole word, WinActivate, Find and Replace, M&atch whole word
WinWaitActive, Find and Replace, M&atch whole word
Send, в{SPACE}пробирке{TAB}{SHIFTDOWN}{CTRLDOWN}{SHIFTUP}{CTRLUP}in{SPACE}vitro
MouseClick, left, 52, 352
Sleep, 100
MouseClick, left, 207, 352
Sleep, 100
Send, {ALTDOWN}{F4}{ALTUP}
MouseClick, left, 202, 118
Sleep, 100
WinWait, Find and Replace, M&atch whole word
IfWinNotActive, Find and Replace, M&atch whole word, WinActivate, Find and Replace, M&atch whole word
WinWaitActive, Find and Replace, M&atch whole word
Send, {ALTDOWN}{F4}{ALTUP}
ReturnНо все равно осталось чувство, что ваш скрипт намного лучше. Вы не могли бы прислать именно тот скрипт, который у Вас позволяет заменять "в пробирке" на "in vitro". Может быть я допускаю какую то обидно незначительную ошибку и у меня он поэтому не запускается. Для меня это не просто макрос - это возможность взлететь в плане производительности.
]]>На большинстве западных форумах задачу, похожую на мою, решают с помощью трех строк. Я вам благодарен за стремление помощь, просто пока есть ощущение что задачу можно решить проще.
]]>StringReplace, Text, Text, в пробирке, in vitro, 1Вы заменяете в переменной Text слова "в пробирке" на слова "in vitro"
]]>Ни к чему выделять жирным. Используйте специальный предназначенный тег «code».
]]>Я при первой возможности проверю, работает ли следующий макрос:
#м::
Text = в пробирке
StringReplace, Text, Text, в пробирке, in vitro, 1
MsgBox % Text
Returnна других компьютерах (иногда бывает так, что определенный скрипт не работает на каком-то компьютере) и также попрошу коллегу провести тестирование этого скрипта.
Когда я запускаю вышеуказанный скрип, то появляется очень маленькое окошко, в котором написано in vitro. Может быть, вы сможете по такому поведению скрипта определись, что я делаю не так.
]]>Добавлено: Запрещается отвечать в теме до исправлений.
Добавлено: Возвращаю сообщение Li
Maxim,
С учетом замечаний Malcev код будет выглядеть так:file_path:="C:\test.txt" ; Считаем файл в память FileRead, template_in_memory, %file_path% ; Размер файла не должен превышать 1 Гб ; Зададим сочетания value1:="? C" value1_paste:="?C" value2:=" / " value2_paste:="/" value3:=" ." value3_paste:="." ; Произведем замену сочетаний StringReplace, template_in_memory, template_in_memory, %value1%, %value1_paste%, 1 StringReplace, template_in_memory, template_in_memory, %value2%, %value2_paste%, 1 StringReplace, template_in_memory, template_in_memory, %value3%, %value3_paste%, 1 IfExist, %A_ScriptDir%\temp.txt ; удаляем в прошлый раз созданный временный файл FileDelete, %A_ScriptDir%\temp.txt ; Записываем все изменения fileappend, %template_in_memory%, %A_ScriptDir%\temp.txt filemove, %A_ScriptDir%\temp.txt, %file_path%, 1Я столкнулся с тем, что функция StringReplace считывает 3 и 4 параметры до знака пробела, потому приходится использовать промежуточные переменные value и value_paste
Я на основе вашего совета попытался создать следующий макрос:
#м::
Text = в пробирке
StringReplace, Text, Text, в пробирке, in vitro, 1
MsgBox % Text
ReturnНо он не сработал. Насколько я понял, вы согласны с Li, и знаете как улучшить его ответ. Пожалуйста, напишите как улучшить ответ Li, что избежать громоздскости. Или возможно ваш ответ лучше чем ответ Li, просто я не неправильно его воплотил?
]]>Можно сделать так
file_path:="C:\test.txt"
; Считаем файл в память
FileArray_Count = 0
Loop, Read, %file_path%
{
FileArray_Count+=1
FileArray%FileArray_Count% := A_LoopReadLine
}
; Зададим сочетания
value1:="? C"
value1_paste:="?C"
value2:=" / "
value2_paste:="/"
value3:=" ."
value3_paste:="."
; Произведем замену в каждой строчке
Loop, %FileArray_Count%
{
StringReplace, FileArray%A_Index%, FileArray%A_Index%, %value1%, %value1_paste%, 1
StringReplace, FileArray%A_Index%, FileArray%A_Index%, %value2%, %value2_paste%, 1
StringReplace, FileArray%A_Index%, FileArray%A_Index%, %value3%, %value3_paste%, 1
}
test_ahk:="" ; в эту переменную наберем все то, что мы хотим записать в файл (64 Мб макс размер ее, но можно увеличить с помощью #MaxMem Megabytes (от 1 до 4095 Мб))
Loop %FileArray_Count% ; Соберем все в одну переменную test_ahk
{
temp_string:= FileArray%A_Index%
test_ahk .= temp_string "`n"
}
IfExist, %A_ScriptDir%\temp.txt
FileDelete, %A_ScriptDir%\temp.txt
; Записываем все изменения
fileappend, %test_ahk%, %A_ScriptDir%\temp.txt ; Запись идет в файл именно одной переменной, так как каждую строчку массива сохранять в файл занимает гораздо дольше по времени
filemove, %A_ScriptDir%\temp.txt, %file_path%, 1text = ХХХХХХХХХХ
StringReplace, Text, Text, ХХХХХХХХХХ, YYYYYYYYYYYYYYY, 1
MsgBox % Text