[Asdshka]

повершеллом владеете ? »

Ничем не владею, могу только скопировать ваш код и вставить

нет ничего зазорного в том, чтобы использовать чужой опыт »

Мне не зазорно, я это не скрываю, что я использовал ваш код. Я не знал, что вас это так сильно заденет. Извините, пожалуйста, что я не указал ссылку на ваш комментарий. Так что мне там вместо "???" надо написать, чтобы в каждой строке до символа "@" (а в другом варианте после символа "@") добавлялся текст, который я укажу

[YuS_2]

Ничем не владею, могу только скопировать ваш код и вставить »

В этом случае, лучше прислушаться к тому, что говорю не я один, т.е. описать задачу в целом, а не пытаться решить её отдельными способами.

Так что мне там вместо "???" надо написать, чтобы в каждой строке до символа "@" (а в другом варианте после символа "@") добавлялся текст, который я укажу »

Т.е. показать всю задачу желания нет?
Ок. Вот решение, powershell:

Код:

$fin = 'test.txt'
$fout = 'out.txt'
[char]$p = "@"
$insert = 'добаляемый текст'

$reader = [io.streamreader]::new($fin)
$writer = [io.streamwriter]::new($fout)
while ($reader.peek() -ne -1) {
	$str = $reader.readline()
	$ind = $str.indexof($p)
	if ($ind -ge 0){
		# Текст добавляется ПОСЛЕ первого символа:
		#$writer.writeline($str.insert($ind+1,$insert))
		# Текст добавляется ДО первого символа:
		$writer.writeline($str.insert($ind,$insert))
	} else {$writer.writeline($str)}
}
$reader.dispose();$reader.close()
$writer.dispose();$writer.close()

Символ комментария в строках: "#"
Чтобы текст вставлялся после указанного символа, необходимо закомментировать строку:

Код:

$writer.writeline($str.insert($ind,$insert))

и раскомментировать строку:

Код:

$writer.writeline($str.insert($ind+1,$insert))

[Asdshka]

Ок. Вот решение, powershell: »

Вы тут все на меня наругались, что я разобрался и в BAT и в PowerShell
Я сделал пару своих вариантов, но они и рядом с твоим не стояли. Могу скинуть, если интересно.

[Serguei Kouzmine]

очень интересно

[Asdshka]

очень интересно »

Код:

$inputFile = "C:\path\input.txt"
$outputFile = "C:\path\output.txt"

(Get-Content $inputFile) | ForEach-Object {$_ -replace "@", "asd@"} | Set-Content $outputFile



$input_file = "C:\path\input.txt"
$output_file = "C:\path\output.txt"

Get-Content $input_file | ForEach-Object {
    $parts = $_ -split "@"
    $newLine = $parts[0] + "asd@" + $parts[1]
    $newLine | Add-Content $output_file
}



$inputFile = 'C:\path\input.txt'
$outputFile = 'C:\path\output.txt'

Get-Content $inputFile | ForEach-Object {
    $line = $_
    $pos = $line.IndexOf('@')
    if ($pos -ge 0) {
        $line = $line.Insert($pos + 1, 'asd')
    }
    $line
} | Set-Content $outputFile

Код:

@echo off
setlocal enabledelayedexpansion

set input_file=input.txt
set output_file=output.txt

(for /f "tokens=1,* delims=@" %%a in (%input_file%) do (echo %%aasd@%%b)) > %output_file%

[YuS_2]

Я сделал пару своих вариантов, но они и рядом с твоим не стояли. »

Свои варианты всегда лучше, чем какие-либо другие, даже если они менее оптимальные чем чужие, в плане развития навыков...

Могу скинуть, если интересно. »

Показывайте, конечно - подскажем, где и что поправить, если есть ошибки...

[YuS_2]

$_ -replace "@", "asd@" »

$_ -split "@" »

Да, можно и так, но с условием, что опорный символ в строке один... если их несколько, то действия будут производиться с каждым. Причем вариант со -split, поломает строки, если опорных символов больше чем один...

в cmd варианте тоже будут проблемы со строками, в которых разделителей нет. В них будет добавляться текст с опорным символом в конец строки...

[Serguei Kouzmine]

а как же

Таких символов в строке может быть несколько. Это нужно делать после первого символа в строке, который попадётся ?
ведь жадное

Код:

' a a a ' -replace 'a', 'b'
 b b b

[DJ Mogarych]

Пора обязать авторов тем в этом разделе добавлять примеры. Так надоело уже - задают вопрос, а предмета не предоставляют.