Данный скрипт запускает блокнот notepad и 3 раза записывает в него строку “abcdef”.
#name "Запись в блокнот"//Имя нашего скрипта EXECUTE("notepad.exe") / /Запускаем программу notepad.exe. Команда EXECUTE делает то же, что и окно "Выполнить" в Виндовс (Win+R). WNDSTATE(WNDFIND("Блокнот"), 1) // Разворачиваем окно, в заголовке которого есть строка "Блокнот". Число 1 - означает развернуть, 0 - свернуть. WAITMS(500) // Ожидаем 500 мс для запуска блокнота FOR($i, $i < 3) // Начало цикла. 3 означает количество повторений KEYSTRING("abcdef.", 20) // Вводим текст. 20 означает задержку в 20 мс между вводом каждой буквы KEYPRESS(#ENTER) // Нажимаем Enter для перевода строки. #ENTER - код клавиши Enter END_CYC // Конец цикла HALT // Останавливаем скрипт
При этом для ввода латиницы вас должна быть включена английская раскладка в окне кликермана и в окне блокнота.
Используемые команды:
- EXECUTE – Выполнение программ
- WNDSTATE – Сворачивание/разворачивание окна
- WNDFIND – Нахождение окна по заголовку
- WAITMS – Остановка скрипта на заданное кол-во миллисекунд
- KEYSTRING – Печать текста
- KEYPRESS – Нажатие клавиш
- FOR – Цикл
- HALT – Остановка программы
Противоположная задача – считывание строк из текстового файла file.txt.
// считывание 10 строк из файла file.txt $count = 0 while($count < 10) inc($count) KEYSTRING (TFRead("file.txt", $count), 20) WAITMS(50) KEYPRESS(#ENTER) WAITMS (500) end_cyc HALT</pre>
Функция TFRead(“file.txt”, $count) означает чтение строки $count из файла file.txt
KEYSTRING просто печатает текст на экране
KEYPRESS(#ENTER) – нажатие клавиши Enter после ввода строки.
Еще 1 пример работы с текстовым файлом.
Скрипт удаляет из файла строчные комментарии.
// Инициализируем переменные $filename = "test.txt" //Имя файла $i = 1 //Индекс строки WHILE( $i < TFCOUNT($filename) + 1 ) // Выполняем, пока не кончатся строки $string = TFREAD($filename, $i) // Читаем строку $i из файла $pos = STRPOS($string, "//") // Ищем в строке "//" IF($pos ! 0) // Если "//" в строке есть TFDELETE($filename, $i) // Удаляем эту строку IF($pos ! 1) // Если до "//" есть еще текст TFWRITE($filename, STRCUT2($string, 1, $pos - 1), $i) // То пишем его в файл, на ту же строку, которую удалили. END_IF ELSE INC($i, 1) // Если комментариев в строке нету, переходим к другой строке END_IF END_CYC HALT // Останавливаем скрипт
Используемые команды:
- TFREAD – Чтение строки из файла
- TFWRITE – Запись строки в файл
- TFCOUNT – Количество строк в файле
- TFDELETE – Удаление строки из файла
- WHILE – Цикл
- STRPOS – Нахождение строки
- STRCUT2 – Обрезание строки
- INC – Увеличение значения переменной
Комментарии: