Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)

Модерирует : gyra, Maz

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

AZJIO



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
#include <GUIConstantsEx.au3>
#Include <File.au3>
#NoTrayIcon
 
$filetext = FileOpenDialog("Выбор текстового файла.", @ScriptDir & "", "все (*.*)", 1 + 4 )
    If @error Then Exit
 
; Для демонстрации скрипта создайте многострочный text.txt с любым текстом.
;Текст будет конвертирован в скрипт file.au3.
;Это иногда необходимо для функций FileWrite при генерации ini-файлов.

 
Global $aRecords
_FileReadToArray($filetext,$aRecords)
 
$text='$text= _'&@CRLF
For $i = 1 to UBound($aRecords) - 1
If $aRecords[$i]='' Then
$text&='@CRLF & _'&@CRLF
Else
$text&=''''&$aRecords[$i]&''' & @CRLF & _'&@CRLF
EndIf
Next

$text&='@CRLF'&@CRLF
 
$text&='MsgBox(0, "Сообщение", $text)'
 
$file = FileOpen(@ScriptDir&'\file.au3' ,2)
FileWrite($file, $text)
FileClose($file)

Всего записей: 4407 | Зарегистр. 03-05-2006 | Отправлено: 16:12 14-04-2010 | Исправлено: AZJIO, 05:32 23-04-2010
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru