Кружок нубов(Вопрос-Ответ)

[alexteam]

у строки фиксированная длина ?
если да -
делать цикл скажем с счетчиком i изменяющимся 0 до readd(10)
и читать в нем readd(10 + i * 42)

[Lynx]

Скажите, пожалуйста, как организовать в скрипте работу с текстовыми файлами? Ругается на input: text;

[NLObP]

Сообщение от Lynx

Скажите, пожалуйста, как организовать в скрипте работу с текстовыми файлами? Ругается на input: text;

Попробуй со TStringList поработать.

StringList.LoadFromFile('текстовый_файл.txt');
StringList.SaveToFile('текстовый_файл.txt');

[Lynx]

Спасибо

[xkor]

Lynx, LoadFromFile читать, SaveToFile писать)

[NLObP]

Сообщение от Lynx

А писать в файл как?

Посмотри скрипт на движение by Alexsl. Вот выдержки

//***************************************************************
function GetValue(ValName: string): string;
begin
  result:=RecordPath.Values[ValName];
end;
//......................................
//***************************************************************
procedure SetValue(ValName: string; Value: string);
begin
  RecordPath.Values[ValName]:=Value;
end;
//......................................
//***************************************************************
procedure StartRecord;
begin
  if SavePathEnabled then exit;
  if MoveToPathEnabled then
  begin
    SendMsg2('Во время следования по маршруту запись не возможна');
    msg.Lines.Add('Во время следования по маршруту запись не возможна');
    exit;
  end;
  RecordPath.Clear;
  PointsCount:=0;
  SendMsg2('Начата запись маршрута');
  msg.Lines.Add('Начата запись маршрута');
  SavePathEnabled:=True
end;
//......................................
//***************************************************************
procedure StopRecord;
begin
  if not SavePathEnabled then exit;
  //записываем
  RecordPath.SaveToFile(GetRecordFileName);
  SendMsg2('Запись маршрута завершена');
  msg.Lines.Add('Запись маршрута завершена');
  SavePathEnabled:=False;
end;
//......................................
//***************************************************************
function GetRecordFileName: string;
begin
  result:=RecordFilesPath+RecordPathFileName+RecordFileExt;
end;
//......................................
//***************************************************************
procedure ParseMoveClient;
var
  i,x,y,z: integer; s: string;
begin
  if not SavePathEnabled then exit;
  i:=2;
  x:=readd(i);
  y:=readd(i);
  z:=readd(i);
  inc(PointsCount);
  s:='|'+inttostr(x)+'|'+inttostr(y)+'|'+inttostr(z)+'|';
  RecordPath.Add(s);
  SendMsg2('добавлен чекпоинт № '+inttostr(PointsCount));
  msg.Lines.Add('добавлен чекпоинт № '+inttostr(PointsCount));
end;
//...................................... 
 

[Lynx]

Спасибо, посмотрел, нашёл полный. Сам хотел писать почти такой же.(Вот, блин, совпадение )

[Johnson]

Проблема такая: не могу загрузить/записать файл.
делаю следующим образом:

  try
    ItemsName.LoadFromFile('.\itemsid.ini');
  except
    msg.Lines.Add('itemsid.ini не найден!');
    exit;
  end;

Файл пробовал кидать и в корень пакетхака, и в папку скриптов.
пробовал SaveToFile, всеравно не пишет.
Подскажите, какая директория является стартовой?
PHX 3.4.1.61

Добавлено через 15 минут
Извиняюсь за своё дурошлёпство... забыл создать СтрингЛист
ItemsName:=TStringList.Create;

Посты можно удалить....

[Lynx]

Можно как-нибудь отлавливать пакеты, которые отправляет другой скрипт?

[QaK]

Lynx,можно.
З.Ы. чем отлавливать? для каких целей?