Если элемента массива нет, то как задать его равным "ничему"

[Suppir]

Для строки:

for $i = 0 to UBound($Search) - 1
$Text = StringRegExpReplace($Text, $Search[$i][0], $Search[$i][1])
Next

$Search[$i][0] и $Search[$i][1] я получаю из файла. Столкнулся с тем, что если $Search[$i][1] вообще нет (пустота), то замены не происходит. Как сделать так, чтобы если $Search[$i][1] нет, то вместо него в выражение поставлялись две кавычки?

$Text = StringRegExpReplace($Text, $Search[$i][0], "")

 

[CreatoR]

Re: Если элемента массива нет, то как задать его равным \"ничему\"

Suppir [?]

Как сделать так, чтобы если $Search[$i][1] нет, то вместо него в выражение поставлялись две кавычки?

...
If $Search[$i][1] = "" Then $Search[$i][1] = '""'
$Text = StringRegExpReplace($Text, $Search[$i][0], $Search[$i][1])
...

Добавлено:

Сообщение автоматически объединено: 7 Дек 2009

Если под "кавычками" имеется в виду пустое (нулевое) значение, то по логике ничего не нужно делать, замена и так будет сделана на пустое значение :wacko:

 

[Suppir]

Re: Если элемента массива нет, то как задать его равным \"ничему\"

CreatoR, таким образом печатает огромное количество скобок.

По идее, если переменной нет, то должен менять на "ничего", т.е. вырезать найденное. Но здесь все иначе - если переменной нет, то функция не работает.

 

[CreatoR]

Suppir [?]

таким образом печатает огромное количество скобок

Не скобок а кавычек, как ты и просил :D

если переменной нет, то должен менять на "ничего"

Что значит нет, это массив, и цикл начнётся только если Ubound($Search)-1 больше чем 0. А раз цикл начался, значит массив содержит такое количество элементов. Может проще привести полный пример, где происходит считывание файла, и далее где используется $Text, и что должно быть изменено в нём.

 

[Suppir]

Re: Если элемента массива нет, то как задать его равным \\\"ничему\\\"

Код программы:

TraySetState ( 1 )
Opt("TrayMenuMode", 1)

HotKeySet("^x", "_Replace")
HotKeySet("^ч", "_Replace")
HotKeySet("^+x", "_Exit")
HotKeySet("^+ч", "_Exit")

Global $Records
Global $Search[1000][2]
Global $Matches
Global $i, $IN

$IniFile = @ScriptDir & "\" & "замена в буфере.ini"

$Edit = TrayCreateItem("Редактировать список замен")
$Exit = TrayCreateItem("Выход")

if not FileExists($IniFile) Then
	TrayTip ("AutoIt", "Не могу найти файл ""замена в буфере.ini""", 1)
	sleep(2000)
	TrayTip("clears any tray tip","",0)
	Exit
EndIf	

TrayTip ("AutoIt", "Скрипт запущен", 1)
sleep(2000)
TrayTip("clears any tray tip","",0)

While 1 
    Switch TrayGetMsg()
    Case $Edit
        ShellExecute ($IniFile)
        TrayItemSetState ( $Edit, 4 )
    Case $Exit
        TrayItemSetState ( $Edit, 4 )
        _Exit()
    EndSwitch
WEnd

Func _Replace()
	
	if ClipGet() = "" Then 
		TrayTip ("AutoIt", "Буфер пустой!", 1)
		sleep(1000)
		TrayTip("clears any tray tip","",0)
		
	Else
		$in = FileOpen("замена в буфере.ini", 0)
		while 1
			local $i
			$line = FileReadLine($in)
			If @error = -1 Then ExitLoop
			
			$Matches = StringRegExp($line, "^Найти:(.+)", 1)	
			If @error = 0 Then
				$Search[$i][0] = $Matches[0] 
				ContinueLoop
			EndIf	
		
			$Matches = StringRegExp($line, "^Заменить на:(.+)", 1)
			If @error = 0 Then
				$Search[$i][1] = $Matches[0] 
				$i += 1
				ContinueLoop
			EndIf
		wend	

		Local $i
		TrayTip ("AutoIt", "Произвожу замену...", 1)
		
		$Text = ClipGet()

		for $i = 0 to UBound($Search) - 1
;~ 			В этом месте, если $Search[$i][1] нет, то замены на "ничего" не происходит
			$Text = StringRegExpReplace($Text, $Search[$i][0], $Search[$i][1])
		Next
		ClipPut($Text)
		TrayTip ("AutoIt", "Замена произведена", 1)
		sleep(1000)
		TrayTip("clears any tray tip","",0)
	EndIf
	
EndFunc


Func _Exit()
	
	TrayTip ("AutoIt", "Завершение работы скрипта", 1)
	Sleep(1000)
	Exit
	
EndFunc

Так выглядит ini-файл откуда читается массив $Search:
--------------------------------------------------------
Найти:^ +
Заменить на:
--------------------------------------------------------

Найти:^ + - это $Search[$i][0]. Рег. выражение должно найти пробелы в начале строки
Заменить на: - это $Search[$i][1]. Т.к. после двоеточия ничего нет, то $Search[$i][1] равен ничему (массив-то мы проинициализировали ранее). В общем, должна произвестись замена на "ничего", но замены не происходит.


Добавлено:

Сообщение автоматически объединено: 8 Дек 2009

Например, в Perl замена происходит с помощью оператора s///:

s/найти/заменить на/;

Если написать s/^ +/$var1/
и этой $var1 нету, то будет выражение равно s/^ +//, т.е. найденное просто удалится.
В AutoIt, если $var1 нет, то нужно место нее прописать StringRegExpReplace($Text, $Search[$i][0], "") (т.е. две скобки).
Но если сделать так, как предложил Creator, то AutoIt понимает строку как:
StringRegExpReplace($Text, $Search[$i][0], """") - т.е. он эти две скобки берет еще в две скобки, и вместо замены на "ничего" начинает печатать кучу скобок


Добавлено:

Сообщение автоматически объединено: 8 Дек 2009

Я пробовал так:

for $i = 0 to UBound($Search) - 1
if $Search[$i][1]="" then
StringRegExpReplace($Text, $Search[$i][0], "")
Else 
$Text = StringRegExpReplace($Text, $Search[$i][0], $Search[$i][1])
EndIf

еще пробовал смотреть длину $Search[$i][1] - если нулевая, то использовать строку StringRegExpReplace($Text, $Search[$i][0], "")

но так все равно не выходит