Четверг, 23.11.2017
Уголок эникейщика
Меню сайта
Категории раздела
[13]
Windows (2000+)/общее [89]
Windows (ME-) [6]
Программы [69]
Mobile [2]
Скрипты [26]
Hard [7]
Android [5]
Советы от Влада [7]
Избранное

Рахни православні

Погода в Виннице
Сайт Экслера

Форум Ru.Board
CWER.ru

Hot Line - Цены
Яндекс.Маркет

Форум rutracker.org

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Скрипты

Доработка AutoIt скрипта для копирования выделенного фрагмента в текстовый файл
; Запись содержимого буфера обмена в файл
;================================
Func MakeFile($fName, $fMode, $cr)
 $bak = ClipGet()
 $file = FileOpen($fName, $fMode+128) ; +128 - поддержка Unicode (UTF-8)

 ; Проверка, открыт ли файл
 If $file = -1 Then
 MsgBox(0, "Error", "Unable to open file.")
 Exit
 EndIf

 FileWrite($file, $bak) 
 If $cr = 1 Then
 FileWrite($file, @CRLF) ; новая строка
 EndIf

 FileClose($file)
 Beep(500,100)
EndFunc

; Запись содержимого буфера обмена в файл с дозаписью, каждая новая запись - с новой строки
;================================
Func MakeInfo()
 MakeFile("D:\Temp\info.txt", 1, 1)
EndFunc

; Запись содержимого буфера обмена в файл с дозаписью, каждая новая запись - продолжение строки
;================================
Func MakeTxt()
 MakeFile("D:\Temp\txt.txt", 1, 0)
EndFunc

; Запись содержимого буфера обмена в файл с перезаписью
;================================
Func MakeReadme()
 MakeFile("D:\Temp\readme.txt", 2, 1)
EndFunc
Категория: Скрипты | Добавил: IgorDanyK (04.06.2015)
Просмотров: 465 | Рейтинг: 0.0/0
Облако тегов
сайт программы Статьи личное разочарования Windows 1c антивирус политика почитать рекомендую Prices math ссылки english скрипты total сеть VBS
Поиск
Google

WWW на сайте
Copyright IgorDanyK © 2017
Создать бесплатный сайт с uCoz