Берём
miniperl и вводим в консоли команду:
Код:
miniperl -i.bak -pe "print \"WORD,1234,A,B,C\n\" if $.==1" Z:\Soft_In\file.txt
Заодно бэкап файла создадим таким образом.
Не нравится
miniperl (хотя это ведь всего-навсего один единственный бинарник), можно взять
miniruby - комадна будет в точности такой же.
Код:
miniruby -i.bak -pe "print \"WORD,1234,A,B,C\n\" if $.==1" Z:\Soft_In\file.txt
Не нравится ни то, ни другое, - берём pwsh:
Код:
$$=,'WORD,1234,A,B,C'+(gc Z:\Soft_In\file.txt);$$>Z:\Soft_In\file.txt
Не пришёлся по вкусу pwsh? - используем sed:
Код:
sed -i.bak "1i\WORD,1234,A,B,C" Z:\Soft_In\file.txt
