[Diamond]

Creat0R

Ну почему, в массив то попадают все строки с нужным текстом, а зачем в массиве символы перевода строки и возврата каретки?

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

И кстати, при чтении всего файла, совсем не обязательно использовать FileGetSize()

Енто вопрос не ко мне а, к автору функции: _FileReadToArray() - раз уж он так зделал, то и я вслед за ним не стал это исправлять.

А разве в этом примере символы перевода строки и возврата каретки не заменятся на символ новой строки? может при делении на массив нужно использовать @LF а не @CR?

А, какая разница?
На всякий случай поясню:
Допустим в одном файле могут встретится 3 различных типа завершения строки, с помощью StringRegExpReplace() я последовательно меняю все @CRLF на @CR, затем @LF на @CR, в конечном счёте в тексте остаётся только @CR который я использую в качестве разделителя.
Но можно использовать и @LF - не вижу разницы...

Код:

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

[Diamond]

proxy

Diamond, спасибо. Необходимое с тектом реализовал уже по другому, а пример приму на заметку, чувствую дальше понадобиться.

Я бы посоветовал использовать UDF'ную функцию _FileReadToArray(), для считывания файла в массив но считаю, что в некоторых случаях она может сработать некорректно...
Хотя с другой стороны, кроме меня пока ещё никто не жаловался...

Код:

#include <File.au3>
Dim $FileArray
_FileReadToArray("C:\1.txt",$FileArray)
$hFile = FileOpen("C:\1.txt",2)
$LineFeed = @CRLF
For $i=1 To $FileArray[0]
	If $i = $FileArray[0] Then $LineFeed = ''
	If $FileArray[$i] <> "Ненужная строка" Then
		FileWrite($hFile, $FileArray[$i] & $LineFeed)
	EndIf
Next
FileClose($hFile)

[Creat0R]

Diamond

в конечном счёте в тексте остаётся только @CR который я использую в качестве разделителя

А разве \n это @CR, мне казалось что \r это @CR, а \n это @LF, именно с этого и исходили мои вопросы.

А на счёт изменения функции _FileReadToArray(), я так и не понял, зачем превращать все переводы строк и возврата каретки в символ возврата кареткми (или наоборот , не очень уж важно), потом делить всё это в массив, когда при этом, ни символ возврата каретки, ни символ перевода строки, не попадает в массив - У тебя случалось что не все строки с файла попадали в массив?

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

Код:

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

По поводу функции для замены текста в файле...

Вот моя версия на подобную функцию:

Код:

$Ret = ReplaceText("C:\test.txt", "Old Text", "New Text")
ConsoleWrite($Ret & @LF & @extended)

Func ReplaceText($FileName, $OldText, $NewText)
     If Not FileExists($FileName) Then Return SetError(1, 0, -1)
    If $OldText = "" Then Return SetError(2, 0, 0)
    $OldText = String($OldText)

        Local $hFile = FileOpen($FileName, 0)
    Local $VarToWrite = FileRead($hFile)
    FileClose($hFile)
    If Not StringInStr($VarToWrite, $OldText) Then Return SetError(3, 0, 0)

        Local $ReplStr = StringReplace($VarToWrite, $OldText, $NewText)
    Local $Extended = @extended

        Local $hFileW = FileOpen($FileName, 2)
    FileWrite($hFileW, $ReplStr)
    FileClose($hFileW)
    Return SetError(0, $Extended, 1)
EndFunc

[Creat0R]

Diamond
Дааа, оказывается ты прав.... возьмём этот пример:

Код:

#include <Array.au3>
#include <File.au3>

Dim $Array

FileWrite("test.txt", "Line1" & @LF & "Line2" & @CR & "Line3" & @LF & "Line4")

_FileReadToArray("test.txt", $Array)

_ArrayDisplay($Array)

Получается такой массив:

Код:

[1] = "Line1"
[2] = "Line2Line3"
[3] = "Line4"

Если применять этот же пример используя изменённую функцию _FileReadToArray(), то мы получаем “нормальный” массив (как и записи в файле) :

Код:

[1] = "Line1"
[2] = "Line2"
[3] = "Line3"
[4] = "Line4"

Вот полная функция как она, имхо, должна быть построена:

Код:

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", @LF), @LF)

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

Хм.. надо бы её автору маякнуть об этом.... а ещё лучше, сразу в баг репорт запостить на оф. форум, привести пример что эта функция может возвращать не корректные данные...

[Creat0R]

Но всё же остаётся одна проблема - если в файле содержатся промежуточные символы перевода строки (@LF), то гинерируется пустой элемент массива...

Получается это ошибка функции StringSplit() ?

[amel27]

Diamond

чтобы произвести добавление, удаление или замену элементов, массивы используют UDF-функции

Хм... Добавление в конец массива можно сделать через ReDim(), вставку в середину массива без UDF не осуществить в обоих случаях.... Физическое удаление элементов массива проводить не обязательно - достаточно "пометить" их и не использовать при обработке.... по замене не понял - это же обычное присвоение.

Diamond, Creat0R ...по поводу _FileReadToArray():

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

Код:

$a = StringSplit ($text, @CRLF, 1)

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

Код:

$a = StringRegExp ($text, '(?m)^(.*)$', 3)

Creat0R

оно вообще реализуемо?

ИМХО в общем виде - нет, иначе можно было бы без проблем подчинить себе любое окно, скажем тот же IE... Видимая "подчиненность" отражает классовую сущность окон, поэтому они должны быть как минимум в одном процессе... В случае с MsgBox() код расшарен через DLL и запускается в текущем потоке, поэтому подчинение реализуемо.

[eNcub]

eNcub Цитата:Если это окно не появляется, то нажатие стрелки вверх и энтера всё равно производится Попробуй так: Код: WinWaitActive('Мастер новых подключений', 'Выберите, надо ли автоматически подключаться к Интернету', 5) If WinActive('Мастер новых подключений', 'Выберите, надо ли автоматически подключаться к Интернету') Then Send('{UP}{ENTER}')

... попробовал, ничего не изменилось...
еще мысли есть у кого-нибудь? плз..

[XXXler]

eNcub,

Код:

$Wtitle="Мастер новых подключений"
$Wtext="Выберите, надо ли автоматически подключаться к Интернету"
$Timeout=30

WinWait($Wtitle,$Wtext,$Timeout)
If WinExists($Wtitle,$Wtext) Then
  If Not WinActive($Wtitle,$Wtext) Then WinActivate($Wtitle,$Wtext)
  If WinWaitActive($Wtitle,$Wtext,$Timeout) Then Send("{UP}{ENTER}")
EndIf

если я правильно понял цель написания скрипта, то проще использовать твик реестра

[eNcub]

XXXler

таак, а что с реестром? этот вариант тоже не прошел...

[amel27]

schel4ok

А кто-нибудь знает как запускать inf файлы при помощи AutoIt?

вот функция, запускающая произвольную секцию INF-файла… К сожалению, прямой вызов функции InstallHinfSection из setupapi.dll не сработал…

Код:

Func _RunInfSection ($filepath, $section = 'DefaultInstall', $mode = 128)
    If Not(FileExists($filepath)) Then Return -1
    Local $ret = RunWait ('rundll32 setupapi,InstallHinfSection '& $section &' '& $mode &' '& FileGetLongName($filepath,1), @SystemDir, @SW_HIDE)
    Return $ret
EndFunc

proxy

от таких добавлений мои функции разростаются как на .....сникерсах и чипсах хм, а свою dll тут ни как не создать? что просто вызывать когда необходимо?

чем не устраивает UDF?.. чтобы текст скрипта не разрастался, выделите функции в AU3-файл(ы) и загружайте через #include в заголовке скрипта...