Замена в тексте последнего значение на другое с двух txt

[Deefra6]

Добрый день. у меня такой вопрос например в 1.txt есть текст
f6537r=b8cno9=uc8xfc=1q8be3a=3235
как мне заменить последнее значение на другое которое находиться в файле 2.txt есть текст 4f65
на выходе получается например
f6537r=b8cno9=uc8xfc=1q8be3a=4f65
заранее благодарю за помощь

 

[Andrey_A]

$sFile1='C:\1.txt'
$sFile2='C:\2.txt'
$sText1=FileRead($sFile1)
$sText2=FileRead($sFile2)
$sLine=StringRegExpReplace($sText1,'(.*=)(.{4})\z','${1}'&$sText2)
MsgBox(4096,'Переменная $sLine',$sLine)

 

[Deefra6]

$sFile1='C:\1.txt' $sFile2='C:\2.txt' $sText1=FileRead($sFile1) $sText2=FileRead($sFile2) $sLine=StringRegExpReplace($sText1,'(.*=)(.{4})\z','${1}'&$sText2) MsgBox(4096,'Переменная $sLine',$sLine)

нечего не происходит, замены нету

 

[Andrey_A]

нечего не происходит, замены нету

А что у вас в файле 2.txt?
У меня в этом файле прописано 4f65 - и замена происходит
Вы же не дали точное содержимое...
Или вам надо ещё эти дынные в файл прописать?

$hFile=FileOpen($sFile1,2)
FileWrite($hFile,$sLine)
FileClose($hFile)

 

[Deefra6]

 

[Andrey_A]

Так вы не ответили на вопрос: А что у вас в файле 2.txt?
Текст озвучьте, а так долго можно играть в испорченный телефон.

 

[Deefra6]

прописано 4f65

Сообщение автоматически объединено: 29 Янв 2023

 

[Andrey_A]

может из за этого

У меня последняя 3.3.16.1, возможно , тогда можно проще

$sFile1='C:\1.txt'
$sFile2='C:\2.txt'
$sText1=FileRead($sFile1)
$sText2=FileRead($sFile2)
$sLine=StringTrimRight($sText1,4)&$sText2
MsgBox(4096,'Переменная $sLine',$sLine)
; $sLine=StringRegExpReplace($sText1,'(.*=)(.{4})\z','${1}'&$sText2)
; MsgBox(4096,'Переменная $sLine',$sLine)
; $hFile=FileOpen($sFile1,2)
; If $hFile=-1 Then Return
; FileWrite($hFile,$sLine)
; FileClose($hFile)

$sLine=StringTrimRight(FileRead('C:\1.txt'),4)&FileRead('C:\2.txt')
MsgBox(4096,'Переменная $sLine',$sLine)

 

[Deefra6]

спасибо большое заработало

в последнем скрипте значение 6 так как показывало 324f65
$sLine=StringTrimRight(FileRead('C:\1.txt'),6)&FileRead('C:\2.txt')
MsgBox(4096,'Переменная $sLine',$sLine)