[Данные, строки] Замена символов в найденой строке

[general66]

есть переменная в скрипте $aLinks которая в ходе поиска скриптом на странице принимает вид

/profile/161000511637?st.friendId=oshmymjcicqlpuevsz0ppfrnduduiuybluwkn">Элина

вопрос вот в какой, возможно ли эту строку изменить, чтоб она в конечном итоге приняла вот такой вид, нужно чтоб в начало строки добавилось $oIE = _IECreate('httр://www.odnoklassniki.ru а в конце символы "> поменять на ') ; и вид ее стал такой

$oIE = _IECreate('http://www.odnoklassniki.ru/profile/161000511637?st.friendId=oshmymjcicqlpuevsz0ppfrnduduiuybluwkn') ;Элина

я попытался это сделать

For $i = 0 To UBound($aLinks) - 1
$sLinks &= StringRegExpReplace($aLinks[$i], '">', ';$2') & @CRLF
Next

но поменять знаю как только один кусок или в начале или в конце, а как обе части изменить не знаю подскажите пожалуйста.

 

[madmasles]

general66

$sString = '/profile/161000511637?st.friendId=oshmymjcicqlpuevsz0ppfrnduduiuybluwkn">Элина'
$sFirst = '$oIE = _IECreate(''http://www.odnoklassniki.ru'

$sString = $sFirst & StringReplace($sString, '">', ''') ;')
MsgBox(0, '', $sString)

 

[Dreps]

Есть файл txt. В третьей строке есть буквы, цифры и спецсимволы. Надо найти символы ! и # и ^ и заменить их на {!} и {#} и {^}. Подскажите, пожалуйста, как это реализовать?

P.S.: не стал создавать новую тему с похожим названием

 

[argumentum]

Global $str = "Есть файл txt. В третьей строке есть буквы, цифры и спецсимволы. Надо найти символы ! и # и ^ и заменить их на {!} и {#} и {^}. Подскажите, пожалуйста, как это реализовать?"
$str = StringReplace($str, "{!}", Chr(10))
$str = StringReplace($str, "{#}", Chr(11))
$str = StringReplace($str, "{^}", Chr(12))
$str = StringReplace($str, "^", "{^}")
$str = StringReplace($str, "#", "{#}")
$str = StringReplace($str, "!", "{!}")
$str = StringReplace($str, Chr(10), "{!}")
$str = StringReplace($str, Chr(11), "{#}")
$str = StringReplace($str, Chr(12), "{^}")
ConsoleWrite($str & @CRLF)
Exit

 

[Norm]

Local $sString = "Первая строка!" & @CRLF &"Вторая строка#"& @CRLF &"abc!123#ZxUd^"& @CRLF &"^Четвёртая строка"

$sString = StringRegExpReplace($sString, "([!#^])", "{$1}")

MsgBox(0, "Result", $sString)

 

[Dreps]

Global $str = "Есть файл txt. В третьей строке есть буквы, цифры и спецсимволы. Надо найти символы ! и # и ^ и заменить их на {!} и {#} и {^}. Подскажите, пожалуйста, как это реализовать?"
$str = StringReplace($str, "{!}", Chr(10))
$str = StringReplace($str, "{#}", Chr(11))
$str = StringReplace($str, "{^}", Chr(12))
$str = StringReplace($str, "^", "{^}")
$str = StringReplace($str, "#", "{#}")
$str = StringReplace($str, "!", "{!}")
$str = StringReplace($str, Chr(10), "{!}")
$str = StringReplace($str, Chr(11), "{#}")
$str = StringReplace($str, Chr(12), "{^}")
ConsoleWrite($str & @CRLF)
Exit

Local $sString = "Первая строка!" & @CRLF &"Вторая строка#"& @CRLF &"abc!123#ZxUd^"& @CRLF &"^Четвёртая строка"

$sString = StringRegExpReplace($sString, "([!#^])", "{$1}")

MsgBox(0, "Result", $sString)

Спасибо! Так изменяет символы.

Но, возможно, я не так объяснил.
Есть файл txt и в нём имеется f7kR!t2oP#au0^ (на третьей строке). Надо открыть этот файл, найти символы ! # ^, далее заменить их на {!} {#} {^} и записать файл.

Сообщение автоматически объединено: 16 Ноя 2025

Получилось так:

$File = 'file.txt'
$Read = FileRead($File)
$Replace = StringRegExpReplace($Read, "([!#^])", "{$1}")
FileDelete($File)
FileWrite($File, $Replace)

 

[Norm]

Local $File = 'file.txt'
Local $Replace = StringRegExpReplace(FileRead($File), "([!#^])", "{$1}")
If @extended Then
    Local $nF = FileOpen($File, (FileGetEncoding($File, 2)+2))
    FileWrite($nF, $Replace)
    FileClose($nF)
EndIf