[Данные, строки] Удаление окончаний в строках

$a='https://www.test.com/aaaaaa=1111111111'& @LF & _
'https://www.test.com/bbbbbb=2222233333'
$a=StringRegExpReplace($a,'(https:[^=]+).*','\1')
MsgBox(32,'',$a)

#include <Array.au3>

$String = 'https://www.test.com/aaaaaa=1111111111' & @CRLF & _
          'https://www.test.com/bbbbbb=2222233333'

$Array = StringRegExp($String, '(?m)(.*?)=', 3)
_ArrayDisplay($Array)

$old = FileOpen("file.txt") ; файл-источник положить в папку скрипта
$new = FileOpen("new.txt", 2)

Do
  $Line = FileReadLine($old)
  If @error = -1 Then ExitLoop
  FileWriteLine($new, StringTrimRight($Line, StringLen($Line) - StringInStr($Line, "=") + 1))
Until 0

FileClose($old)
FileClose($new)