<del>

[Pitch666]

GSen
в рунете везде так, привыкай

[NiGHt-LEshiY]

Pitch666
Да ну, зря ты так..

GSen
Никто не поможет, пока ты хотя бы не начнешь что-то делать.
Ты хочешь не помощи, а сделанной за тебя работы, это другое.
Какой реакции ты ожидал?

[LaDuelo666]

Такое ощущение что здесь народ целиком с hlfx... Один в один

в таком случае, тем более не поможем

[Darth Revan]

GSen
А я помогу:

Код: Выделить всё

@echo off
title Writer
color F0
set file=.\file.txt
set /p Text=Write something to here to add it to %file%: 
echo %Text% > %file%

[Fire666]

Такое ощущение что здесь народ целиком с hlfx... Один в один

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

ели актуально, могу на C++ написать

[x_000]

Darth Revan
излишняя доброта и услужливость редко приводят к хорошему

[Darth Revan]

x_000
Делов то на минуту.

[GSen]

<del>

[Darth Revan]

Не люблю создавать кучу ненужных тем.
У меня есть совсем странный код:

Код: Выделить всё

if FileExists(CD + '\config\SteamAppData.vdf') then
  begin
    i := 0;
    AssignFile(SteamAppDataFile, CD + '\config\SteamAppData.vdf');
    Reset(SteamAppDataFile);
    try
      while not Eof(SteamAppDataFile) do
      begin
        i := i + 1;
        readln(SteamAppDataFile, Cells[i]);
      end;
    finally
      CloseFile(SteamAppDataFile);
    end;
    i := 0;
    AssignFile(SteamAppDataFile, CD + '\config\SteamAppData.vdf');
    Rewrite(SteamAppDataFile);
    repeat
      ;
      i := i + 1;
      Cells[i] := StringReplaceAll(Cells[i], '"', '');
      Cells[i] := StringReplaceAll(Cells[i], '		User		', 'User=');
      WriteLn(SteamAppDataFile, Cells[i]);
    until Cells[i] = '}';
    CloseFile(SteamAppDataFile);
    AssignFile(BatchFile, Temp + '\mslsource7.bat');
    Rewrite(BatchFile);
    WriteLn(BatchFile,
      'for /f "Delims== Tokens=1,2" %%a in (''findstr "User", "' + Temp +
        '\SteamAppData.vdf"'') do (');
    WriteLn(BatchFile, 'if not "{%%b}"=="{}" (');
    [***]
    Write(BatchFile, ')');
    CloseFile(BatchFile);

Кто-нибудь может его привести к нормальную виду? Использование батника тут является костылём, компенсирующим мои скудные познания в обработке строк.

P.S. StringReplaceAll заменяет в строке один текст на другой.

[KKSeven92]

GSen
ты что, хостс файл хочешь трогать, да?
я тебя раскусил :3