Замена символов в строке

Есть текстовый файл вида:
ha("func.1", значение1);
ha("timer.online", значение2);
Нужно заменять значения на выбранные случайно из списка.
Файл в винде. Как и на чем лучше сделать?.
Пробовал bash, безрезультатно.

 

Примитивно на Delphi7 замена значение1 на 1111111, значения2 на 222222 и вывод в Memo. В место цифр можно написать и использовать функцию рандома прежде подгрузив, что надо из текстовика к примеру в TStringList, а так прежде чем такое писать нужен пример файла ...

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  param,param1: string;
begin
  param:= 'ha("func.1", значение1)';
  param1:='ha("timer.online", значение2);';

  param:= StringReplace(param, 'значение1', '1111111', [rfReplaceAll, rfIgnoreCase]);
  param1:= StringReplace(param1, 'значение2', '222222', [rfReplaceAll, rfIgnoreCase]);
  Memo1.Lines.Add(param);
  Memo1.Lines.Add(param1);

end;

end.

 

Code:

  int array[] = {11,4,24,-2,666,-18,64,128,256};
   srand(time(0));
   ha("func.1", array[rand() % (sizeof(array) / sizeof(int))]);

Это на C.

 

Ну я свои 5 копеек вставлю))
Код на Python

PHP:

import re

source = ("ha('func.1', значение1);", 'ha("timer.online", значение2);')

for line in source:
    try:
        key = re.findall(r"""[\"\'](.*?)[\"\']""", line)[0]
    except IndexError:
        continue
    else:
        value = re.findall(r'\,\s(.*?)\)', line)
        old_value = value[0] if value else None
        new_value = input("Type value for {}. old value {}\n".format(key, old_value))
        print(re.sub(old_value, new_value, line))