В конец строки добавить скобку

[eway]

Есть текстовый файл со строками параметрами. Есть строки типа testParametrov(resultat, 0.0, testParametrov(resultat, 100,
Вот необходимо в конце этих строк добавить скобочку ")"
Пишу...
$hFile = FileOpenDialog('Выберите файл', @ScriptDir & "", "Все (*.*)")
$sText = FileRead($hFile) ;Читаем файл

$sText = StringRegExpReplace($sText, "^testParametrov", ")$")


Помогите, пожалуйста, с регулярным выражением

 

[Zmy]

$sText = StringRegExpReplace($sText, "^(testParametro.+)", "$1)")

 

[eway]

(resultat, 7.0
вот что выдал на выводе... удалил testparametrov и скобку пока тоже не добавил...

 

[Zmy]

Напишите конкретно, что надо удалить / заменить.

Исходный текст  -  Результатный текст

 

[eway]

строки TestParametrov( resultat, 0.0
просто добавить скобочку чтобы выглядели так TestParametrov( resultat, 0.0)

 

[Zmy]

Это что, весь скрипт что-ли?
Вы напишите свой скрипт сюда. Полностью весь скрипт.
Я не вижу, как вы получаете результат.
Куда выводится результат?
Сколько надо сделать замен?
Что происходит с результатом дальше?
Вообщем, задача пока не ясна. Нет задачи - нет решения.

Спойлер

И вставьте под спойлер свой текст, в котором надо произвести замену.

 

[ra4o]

Не силён в регулярных выражениях (только пытаюсь их освоить), но вот мой вариант :

Спойлер

#include <array.au3>
$Text = 'testParametrov(resultat,  0.0, testParametrov(resultat,  100'
$aResult = StringRegExp($Text, '(testParametrov\(resultat,[0-9. ]*+)', 3)
For $i = 0 To UBound($aResult) - 1
	$aResult[$i] &= ')'
Next
_ArrayDisplay($aResult)

 

[sngr]

MsgBox(32,'',StringRegExpReplace(ClipGet(),'(testParametrov\(resultat,[^,]+),','\1)'))

 

[Alofa]

$sText = @CRLF & 'testParametrov(resultat,  0.0,' & @CRLF & _
		'testParametrov(resultat,  100 ' & @CRLF
ConsoleWrite(StringRegExpReplace($sText, '(.*\d+).*', '$1)') & @LF)

 

[eway]

ребят не ставится....(

 

[ildar]

Обязательно регулярное выражение? Судя по вложению, достаточно найти данную строку и дописать ")"

 

[eway]

как это можно сделать?

 

[Zmy]

Вот готовый скрипт. Замените на свой путь.

$sFile = 'C:\Kemp\temp.txt'

_OFile($sFile)
Func _OFile($sFile)
Local $sText = FileRead($sFile)
Local $hFile = FileOpen($sFile, 2)
Local $cFile = StringRegExpReplace($sText, "(?mi)(^\s*testParamet.+)", "$1)")
FileWrite($hFile, $cFile)
FileClose($hFile)
EndFunc

 

[ildar]

#include <File.au3>
Local $aRecords
$sTest = 'testParametrov(resultat,'
If Not _FileReadToArray('temp.txt', $arecords) Then
    MsgBox(4096, "Ошибка", " Ошибка чтения файла в массив     Ошибка = " & @error)
    Exit
EndIf
For $i = 0 To $arecords[0]
   If StringInStr($arecords[$i], $sTest) Then $arecords[$i] = $arecords[$i] & ')'
Next
_FileWriteFromArray('temp1.txt', $arecords)

 

[Alofa]

eway может уже предоставите пример файла или дальше будем пальцем в небо тыкать?

 

[ildar]

9-й ответ есть вложение http://autoit-script.ru/index.php?topic=23655.msg136105#msg136105

 

[Garrett]

eway

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Глобальный модератор.

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

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

С уважением, ваш Глобальный модератор.