[SAWaGE]

Есть лог-файл, где происходит запись после запуска exe-файла новым пользователем - в конец каждой строки прописывается имя компьютера с которого была запущена программа:
Код:

#1 comp1 comp2 comp3...
#2 comp1 comp2 comp3 ...
#3 comp1 comp2 comp3 ...

Как сделать, чтобы в конец каждой строки прописывалось новое имя, при этом происходила проверка на "новизну" имени?

[Nyctos Kasignete]

Ну, просканируйте перед записью строку на предмет вхождения в нее подстроки с именем «текущего» компьютера (с помощью функции Pos). Или в чем проблема?

[SAWaGE]

Сообщение от Nyctos Kasignete

Ну, просканируйте перед записью строку на предмет вхождения в нее подстроки с именем «текущего» компьютера (с помощью функции Pos). Или в чем проблема?

Так и есть - необходима проверка строки на присутствие имени.
Логичнее сделать так: проверка по первой строке, если есть то выходим,
если нет - добавляем в конец каждой строки. Т.е., первая строка является трафаретом для других строк, где все идентично первой.
Вот только как реализовать на деле?

[Nyctos Kasignete]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

const   COMPNAME = 'comp5'; // например   FILEPATH = 'comps.txt'; // например var   comps: TStringList;   i: Integer;   Str: string; begin   comps := TStringList.Create;   try     if not FileExists(FILEPATH) then Exit;     comps.LoadFromFile(FILEPATH);     Str := Copy(comps.Text, 1, Pos(#13#10, comps.Text) + 2);     if (Pos(' ' + COMPNAME + ' ', str) = 0) and        (Pos(' ' + COMPNAME + #13, str) = 0) then     begin       for i := 0 to comps.Count - 1 do         comps.Strings[i] := comps.Strings[i] + ' ' + COMPNAME;       comps.SaveToFile(FILEPATH);     end;   finally     comps.Free;   end; end;

[SAWaGE]

А как можно заменить:

Код:

1 2	const   COMPNAME = 'comp5';

на GetUserName? Т.е., проверку делать не по константе, а по реальному имени машины?

[Nyctos Kasignete]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

const   FILEPATH = 'comps.txt'; // например var   comps: TStringList;   i: Integer;   Str: string;   username: PChar;   unsize: DWORD; begin   comps := TStringList.Create;   GetMem(username, 255);   try     if not GetUserName(username, unsize) then Exit;     if not FileExists(FILEPATH) then Exit;     comps.LoadFromFile(FILEPATH);     Str := Copy(comps.Text, 1, Pos(#13#10, comps.Text) + 2);     if (Pos(' ' + StrPas(username) + ' ', str) = 0) and        (Pos(' ' + StrPas(username) + #13, str) = 0) then     begin       for i := 0 to comps.Count - 1 do         comps.Strings[i] := comps.Strings[i] + ' ' + StrPas(username);       comps.SaveToFile(FILEPATH);     end;   finally     comps.Free;     FreeMem(username, 255);   end; end;

А как связана функция GetUserName с именем компьютера?

[SAWaGE]

Переделал вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

implementation   {$R *.dfm}     function GetUserFromWindows: string; var   UserName : string;   UserNameLen : Dword; begin   UserNameLen := 255;   SetLength(userName, UserNameLen);   if GetUserName(PChar(UserName), UserNameLen) then     Result := Copy(UserName,1,UserNameLen - 1)   else     Result := 'Unknown'; end;   procedure TForm1.AddStrToFile(U: string; const FileName: string; doNextLine: boolean); const   CR=#13#10; var   f:TFileStream; begin   if FileExists(FileName)   then f:=TFileStream.Create(FileName,fmOpenWrite+fmShareDenyNone)   else   begin     f:=TFileStream.Create(FileName,fmCreate);   end;     f.Position:=f.Size;   if doNextLine and (f.Size> 0)   then f.Write(CR,2);   f.Write(pointer(U)^,length(U));   f.Destroy; end;   procedure TForm1.FormCreate(Sender: TObject); const   FILEPATH = 'log.txt'; var   str : string; begin   str:= Copy(FILEPATH, 1, Pos(#13#10, FILEPATH) + 1);   if Pos(GetUserFromWindows, FILEPATH) < 0 then     AddStrToFile(GetUserFromWindows, FILEPATH, true)   else     exit; end;

Но вот в этом месте (в последней процедуре)

Код:

1	if Pos(GetUserFromWindows, FILEPATH) < 0 then

не могу понять, почему все время равно нулю?

[Nyctos Kasignete]

На мой взгляд, много ненужных манипуляций с функцией Copy, но не в том дело...
Вот что это:

Код:

Зачем вы ищете имя юзера в строке, содержащей имя файла??

P.S. Да и к тому же имейте в виду, что функция Pos никогда не возвращает отрицательного значения.

Сообщение от Delphi Help

If Substr is not found, Pos returns zero.

[SAWaGE]

Вот, переделал. Заработало!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

const   FILEPATH = 'log.txt'; var   logs: TStringList;   Str : string;   i: integer; begin   logs := TStringList.Create;   try     if not FileExists(FILEPATH) then Exit;     logs.LoadFromFile(FILEPATH);     Str := Copy(logs.Text, 1, Pos(#13#10, logs.Text) + 2);     if (Pos(' ' + GetUserFromWindows + ' ', str) = 0) and        (Pos(' ' + GetUserFromWindows + #13, str) = 0) then     begin       for i := 0 to logs.Count - 1 do         logs.Strings[i] := logs.Strings[i] + ' ' + GetUserFromWindows;         logs.SaveToFile(FILEPATH);     end;   finally     logs.Free;   end; end;

Nyctos Kasignete, благодарю за помощь!