[архив

Creat0R · Конфигурация компьютера

amel27

Цитата:

у StringSplit() есть флаг, позволяющий использовать более одного символа для разбиения:

Я его пробовал, в этом случае он всё ровно добавляет в массив пустую строку...

Цитата:

уж коли зашла речь про StringRegExp(), то она вполне самодостаточна:

Этот пример должен возвращать массив с подделенными строками на @LF? возвращается массив с одним пустым, и при чём нудевым элементом

schel4ok
Я сразу не понял что речь идёт об установке файла, а не его запуске (это ведь требуется?)...
Для установки действительно будет полезна функция предложенная amel27 чуть выше, сам нечто подобным пользуюсь для установки Inf файлов (правда из батника

).

gvshil · Отправлено: **22:15, 21-06-2007** | #72

Помогите, пожалуйста, разобраться:

Код:

While 1
ControlClick  ('Abbyy FineReader Professional v8.0 keygen', '', 'Button4' ) ;генерация серийника
$GetSN=ControlGetText ('Abbyy FineReader Professional v8.0 keygen', '', 'Edit1' )
; ввод серийника
ControlSetText ('ABBYY FineReader 8.0 Professional Edition Try&Buy', '&Введите серийный номер', 'Edit1', $GetSN)
ControlClick('ABBYY FineReader 8.0 Professional Edition Try&Buy', '&Введите серийный номер', 'Button1')
;если серийник не верен, то появляется окно 
;('ABBYY FineReader 8.0 Professional Edition Try&Buy', 'Проверьте правильность введенного серийного номера.')
If WinExists ('ABBYY FineReader 8.0 Professional Edition Try&Buy', 'Проверьте правильность введенного серийного номера.') Then ContinueLoop
	If Not WinWaitActive ('ABBYY FineReader 8.0 Professional Edition Try&Buy', 'Проверьте правильность введенного серийного номера.',5) Then
	WinActivate ('ABBYY FineReader 8.0 Professional Edition Try&Buy', 'Проверьте правильность введенного серийного номера.')	
	ControlClick ('ABBYY FineReader 8.0 Professional Edition Try&Buy', 'Проверьте правильность введенного серийного номера.','Button1'); не закрывает окно
	; Send ( '{ENTER}' ) тоже не закрывает это окно
	EndIf
ExitLoop
Wend

Info окна

Код:

 >>>> Window <<<<
Title:	ABBYY FineReader 8.0 Professional Edition Try&Buy
Class:	#32770
Position:	332, 333
Size:	366, 126
Style:	0x94C801C5
ExStyle:	0x00010101

>>>> Control <<<<
Class:	Button
Instance:	1
ID:	2
Text:	ОК
Position:	478, 422
Size:	75, 23
ControlClick Coords:	35, 11
Style:	0x50030000
ExStyle:	0x00000004

>>>> Mouse <<<<
Position:	178, 71
Cursor ID:	0
Color:	0xE9F1F5

>>>> StatusBar <<<<

>>>> Visible Text <<<<
ОК
Проверьте правильность введенного серийного номера.

Окно не закрывается и все идет по кругу, т.е. генерация и серийника и появление еще одного окна

proxy · Конфигурация компьютера

Diamond, спасибо за подсказки, это очень интересно.
Сейчас считываю весь файл в gui List и от него "играю",
но как варинат с текстом в масиве.....может пригодится.

Creat0R - спасибо за пример, Diamond пару постов выше
уже показал твой пример. Я сейчас изменел первичный замысел
и сейчас не требуется замена тсрок, но на вооружение взял.

И ещё, скромный вопрос, auto IT это замечательно, но создовать
уж созданное думаю нет серьезного смысла.....может знакомы
с языком С++ , VB, ..... что лучше применить к изучению для
написания подобных приложений?

п.с.: я не сравниваю аутоИТ и другие языки, я хочу понять
какой, в целом, язык оптимальние и приняться к его изучению.

Creat0R · Конфигурация компьютера

gvshil

Цитата:

Окно не закрывается и все идет по кругу

Иногда даже закрытие окна, на самом деле его не удаляет из списка существующих окон, а просто скрывает, поэтому думаю нужно проверять видимость окна...

Код:

If _WinIsVisible('ABBYY FineReader 8.0 Professional Edition Try&Buy', 'Проверьте правильность введенного серийного номера.') Then ContinueLoop

Func _WinIsVisible($Title, $Text)
    Return BitAND(WinGetState($Title, $Text), 2)
EndIf

proxy

Цитата:

что лучше применить к изучению для
написания подобных приложений?

Каких приложении?

AutoIt в основном предназначен для написания скриптов в помощь автоматизации запуска/установки приложении и ежедневных системных задач, но кроме этого на нём также возможно писать программы среднего (а может и высшего) уровня.

Цитата:

какой, в целом, язык оптимальние и приняться к его изучению

AutoIt написан на C++, думаю что именно изучение C++ и будет оптимальным языком программирования (это конечно, очень и очень Имхо

).

gvshil · Отправлено: **23:26, 21-06-2007** | #75

Creat0R
Совсем я запутался.
Если не трудно, укажите куда конкретно в моем примере нужно вставить проверку.

Creat0R · Конфигурация компьютера

gvshil

Цитата:

куда конкретно в моем примере нужно вставить проверку.

Вместо всех функции проверки на существование окна (WinExists()). А саму функцию _WinIsVisible в конец файла.

Dirk Diggler · Отправлено: **01:00, 22-06-2007** | #77

Написал скрипт для архивирования.
если кому надо, поюзайте, расскажете, как оно....

вот, из ридмишки.

Цитата:

1. ВВЕДЕНИЕ

Когда-то я пользовался nnBackup. Но ограничение в 2Гб на архив меня убивало. И убивает посейчас. Кроме того, nnBackup, как и многие архиваторы, использующиеся для резервного копирования, не умеют архивировать открытые другими программами файлы(дружно вспомним базы 1С).
И вот, я решил устранить эти недостатки. Эти устранил. вроде бы. А вот чего этот скрипт не умеет, см. в самом конце.

2. ОПИСАНИЕ

Данный скрипт представляет собой "оболочку" для архиватора 7-zip(www.7-zip.org) начиная с версии 7.47.
Основное назначение - резервное архивирование данных.

Diamond · Отправлено: **01:40, 22-06-2007** | #78

Creat0R

Цитата:

Так вроде правильнее:

Если в файл добавить следущую комбинацию:

Код:

$file = FileOpen("test.txt",2)
FileWrite($file,"" & @CRLF)
FileWrite($file,"" & @CRLF)
FileWrite($file,"" & @CRLF)

То твоя функция возвращает массив из 7 пустых строк, хотя на самом деле строк 4.
Необходимо учитывать все возможные типы завершения строк, как я уже сказал, всего их 3. (...правда, редактор "Notepad.exe" об этом не знает.)
Если автор UDF-функции упустил из виду @CR - то ты, в данном случае проигнорировал @CRLF.
Опишу всё подробно:

Код:

$hFile = FileOpen("test.txt", 0)

$text = FileRead($hFile)
$text = StringRegExpReplace($text,"\r\n",@LF) ; заменяем все комбинации @CRLF на @LF
$text = StringRegExpReplace($text,"\r",@LF) ; заменяем все оставшиеся @CR на @LF
; И теперь, когда мы точно уверены что все строки завершаются только символом @LF - делим текст:
$aArray = StringSplit($text,@LF)

;~ Иными словами, всё это можно реализовать так:

Код:

$hFile = FileOpen("test.txt", 0)
$aArray = StringSplit(StringRegExpReplace(FileRead($hFile),"\r\n|\r", @LF), @LF)

А сама функция должна выглядеть так:

Код:

Func _FileReadToArray($sFilePath, ByRef $aArray)
    ;==============================================
    ; Local Constant/Variable Declaration Section
    ;==============================================
    Local $hFile = FileOpen($sFilePath, 0)

    If $hFile = -1 Then Return SetError(1)

    $aArray = StringSplit(StringRegExpReplace(FileRead($hFile),"\r\n|\r", @LF), @LF)

    FileClose($hFile)
    Return 1
EndFunc   ;==>_FileReadToArray

З.Ы. Сколько я не тестировал, всё время получается правильный массив. В чём моя ошибка?

Creat0R · Конфигурация компьютера

Diamond

Цитата:

Иными словами, всё это можно реализовать так:

Да, но разве @CRLF это не одно и тоже что @CR & @LF? если одно и тоже, тогда зачем проверять ещё и @LF, можно только лишь @CR заменить на @LF, и делить на @LF (ведь в переменной останутся только @LF'ы)...

$aArray = StringSplit(StringReplace(FileRead($hFile), @CR, @LF), @LF)

На выходе имеется тот же массив...

Но у меня проблема не в этом, а как раз в содержимом массива...

Цитата:

всё время получается правильный массив

А вот у меня даже с таким примером:

Код:

#include <Array.au3>

Dim $Array

$TestFileHandle = FileOpen("Test.txt", 2)

FileWrite($TestFileHandle, @LF & "Line1" & @CR & "Line2" & @CR & "Line3" & @CR & "Line4" & @LF)

FileClose($TestFileHandle)

_FileReadToArray("Test.txt", $Array)

_ArrayDisplay($Array)

Func _FileReadToArray($sFilePath, ByRef $aArray)
    ;==============================================
    ; Local Constant/Variable Declaration Section
    ;==============================================
    Local $hFile = FileOpen($sFilePath, 0)

    If $hFile = -1 Then Return SetError(1)

    $aArray = StringSplit(StringRegExpReplace(FileRead($hFile),"\r\n|\r", @LF), @LF)

    FileClose($hFile)
    Return 1
EndFunc

Почему то первый и последний элемент содержат символы перевода строки

.

Diamond · Отправлено: **02:38, 22-06-2007** | #80

Creat0R

Цитата:

Да, но разве @CRLF это не одно и тоже что @CR & @LF? если одно и тоже, тогда зачем проверять ещё и @LF, можно только лишь @CR заменить на @LF, и делить на @LF (ведь в переменной останутся только @LF'ы)...

Теперь у меня началось

- надеюсь это не заразно...

Цитата:

Почему то первый и последний элемент содержат символы перевода строки

Я посмотрел содержимое файла в редакторе "Bred" и... оказалось что полученный массив полностью соответствует текстовому файлу... 6 строк, первая и последняя пустые.
Всё верно!