следующая тема »

[22 Июль 2025, 02:42:15]

Новости, реклама:

[22 Июль 2025, 02:42:15]

Новости, реклама:

[Дядя Серёжа]

..есть текстовый файл с некоторым количеством строк.
нужно удалить в нём строки, которые начинаются с определённого символа и заменить одни символы другими. при этом сделать это нужно(по возможности) стандартными средствами winxp

например:
исходный файл:
   abc,abc,abc,abc,abc,abc
   qwe,abc,abc,abc
   abc,abc,abc,abc,abc,abc,
   abc,abc,xdz,abc,xdz,abc,

в результате нужно получить:
   abc,abc,abc,abc,abc,abc
   abc,abc,abc,abc,abc,abc,
   abc,abc,xyz,abc,xyz,abc,

то есть удалить строку, которая начинается с qwe и заменить xdz на xyz

[ancestor::]

script.js:

var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile("c:\\textfile.txt", 1, true);

var out = fso.OpenTextFile("c:\\textfile.txt.out", 2, true);

while(!f.AtEndOfStream) {
      var line = f.readline();

      if(line.substring(0, 3) != "qwe") {
            while (line.indexOf("xdz") != -1) {
                  line = line.replace("xdz", "xyz");
            }
            out.WriteLine(line);
      }
}

out.close();
f.close();


запускается через
cscript script.js
или
wscript script.js

[Дядя Серёжа]

ancestor::, спасибо, буду пробовать.

...если кто-то подскажеть ещё чего с использованием той же edline.exe или ещё чего, буду оч. благодарен

[Dj_NudnyJ]

Код:

@echo off
rem ©restorer'o7

echo. > result.txt
del result.txt

for /f "delims=" %%i in (input.txt) do call :proc "%%i"

echo A 0 > prog_tmp.tmp
echo DB 'r' >> prog_tmp.tmp
echo DB 'x' >> prog_tmp.tmp
echo DB 'd' >> prog_tmp.tmp
echo DB 'z' >> prog_tmp.tmp
echo DB 1A >> prog_tmp.tmp
echo DB 'x' >> prog_tmp.tmp
echo DB 'y' >> prog_tmp.tmp
echo DB 'z' >> prog_tmp.tmp
echo DB 0D >> prog_tmp.tmp
echo DB 0A >> prog_tmp.tmp
echo. >> prog_tmp.tmp
echo RCX >> prog_tmp.tmp
echo 0A >> prog_tmp.tmp
echo N EDLIN.TMP >> prog_tmp.tmp
echo W 0 >> prog_tmp.tmp
echo. >> prog_tmp.tmp
echo Q >> prog_tmp.tmp
echo. >> prog_tmp.tmp

debug < prog_tmp.tmp > nul
echo E >> EDLIN.TMP

edlin result.txt < EDLIN.TMP > nul

del prog_tmp.tmp
del EDLIN.TMP

echo. >RESULT.BAK
del RESULT.BAK

ren RESULT.TXT result.txt

goto :eof

:proc

echo %~1 > prog_tmp.tmp
findstr qwe prog_tmp.tmp > nul
if %ERRORLEVEL% LSS 1 goto :eof

echo %~1 >> result.txt

goto :eof

батник назвать prog.bat , текстовик с входными данными - input.txt , результат будет в result.txt
всё должно лежать в одной папке.

а вообще лабы надо делать самостоятельно