Функция copy с нахождением через pos

@totoblabla3 · Регистрация: 04.02.2017

Author24 — интернет-сервис помощи студентам

Delphi

1	FbotCC:=copy(FBbotsend, pos(('['+stri+'}'),FBbotsend)+3, pos(('{'+stri+']') , FBbotsend)-3);

подскажите в чем ошибка?

@GoodWeather · 19.09.2017, 02:38

В том что вы никак не учитываете что Pos() может возвращать ошибку мол ничё не найдено?
И в том что у вас "магические константы" где ну совсем их не нада?

Добавлено через 45 секунд
Надо ТЗ подробнее. Что это за переменные такие, что в них приблизительно ожидается?

@Puporev · 19.09.2017, 07:50

Напишите пример строки и что нужно получить.

@droider · 21.09.2017, 11:49

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

Напишите пример строки и что нужно получить

+1.

@Setix · 21.09.2017, 15:04

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

DelphiВыделить код
1
FbotCC:=copy(FBbotsend, pos(('['+stri+'}'),FBbotsend)+3, pos(('{'+stri+']') , FBbotsend)-3);
подскажите в чем ошибка?

Что компилятор пишет. нижнюю строку перепиши.

@droider · 21.09.2017, 15:11

Не по теме:

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

FbotCC

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

подскажите в чем ошибка?

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

@totoblabla3 · 22.09.2017, 23:51 **[ТС]**

Ошибок нет
Все запускается
Но делается не то что мне нужно
Мне нужно что бы из некоторого массива информации поочередно вытаскивались значения
вот пример
[4}44444,wuiefhhwf [3}333333,sdfgsdgsdg [2}222222,hjklhjklhjkl [1}111111,fgjhfgjh

задача
узнать сколько всего в этом файле позиций

вытащить данные с 1 по 4
(допустим это данные пользователей)
использовать их

Перейти к следующему и сделать все тоже самое со всеми остальными

Вот кусочек из моего кода
тут я изгалялся как мог

Delphi

.......
 i:=1;
      while i <= intiTICK do
   begin
 
      
 
      assignfile(Fbott, 'Data\Log');
      reset (Fbott);
      read (Fbott,FBbotsend);
      closefile(Fbott);
      stri:='';
      str(i, stri);
 
 
      
      FbotCC:='';
      FbotCC:=copy(FBbotsend, pos(('['+stri+'}'),FBbotsend)+3, pos(('{'+stri+']') , FBbotsend)-3);
     
      VAL(stri,  i, ssssTICK);
 
      email:=copy(FbotCC, pos('}',FbotCC)+1, pos(',',FbotCC)-1);
       {log:=log+#13#10+email; }
      pass:= copy(FbotCC, pos(',',FbotCC)+1, pos('{',FbotCC));
      {log:=log+#13#10+pass; }
       Form1.Label6.caption :=log;
 
      i:=i+1;
 
end;

Вот ->

@D1973 · 23.09.2017, 08:19

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

допустим это данные пользователей

Для примера модифицировал приведенную строку именно с данными пользователей:

[4}Иванов,aaa@aaaaaa.aa,123 [3}Петров,bbb@bbbbbb.bb,qwe [2}Сидоров,ccc@cccccc.cc,asd [1}Афанасьев,ddd@dddddd.dd,123qweasd

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const Src = '[4}Иванов,aaa@aaaaaa.aa,123 [3}Петров,bbb@bbbbbb.bb,qwe [2}Сидоров,ccc@cccccc.cc,asd [1}Афанасьев,ddd@dddddd.dd,123qweasd';
var L: TStringList;
    i, j: integer;
begin
 L := TStringList.Create;
 L.Delimiter := '[';
 L.DelimitedText := Src;
 for i := L.Count - 1 downto 0 do
  if Length(Trim(L.Strings[i])) = 0
   then L.Delete(i)
   else L.Strings[i] := StringReplace(L.Strings[i], '}', ',', [rfReplaceAll]);
 StringGrid1.Rows[0].CommaText := '№,Фамилия,E-Mail,Паролль';
 StringGrid1.RowCount := L.Count + StringGrid1.FixedRows;
 j := StringGrid1.FixedRows;
 for i := L.Count - 1 downto 0 do
  begin
   StringGrid1.Rows[j].CommaText := L.Strings[i];
   inc(j);
  end;
 L.Free;
end;

@totoblabla3 · 23.09.2017, 23:21 **[ТС]**

Дело в том что используется не база данных делфи
а просто текстовый файл)))))

Добавлено через 34 минуты
Вот
разобрался
но все же хочется это как то покомпактнее сделать)

Delphi

......
 
i:=1;
      while i <= intiTICK do
   begin
 
      assignfile(Fbott, 'Data\Log');
      reset (Fbott);
      read (Fbott,FBbotsend);
      closefile(Fbott);
      stri:=' ';
      str(i, stri);
 
      FbotCC:='';
      FbotCC:=copy(FBbotsend, pos('['+stri+'}',FBbotsend)+3, 100000);
      delete(FbotCC,pos(' ',FbotCC)-1, 1000000);
 
      email:=FbotCC;
      pass:=FbotCC;
 
      delete(email, pos(',',email), 100000);
      delete(pass, 1 , pos(',', pass)+1);
 
      log:=log+#13#10+email;
      log:=log+#13#10+pass;
 
     Form1.Label6.caption :=log;
     VAL(stri,  i, ssssTICK);
      i:=i+1;
end;
...

@D1973 · 24.09.2017, 05:56

Не по теме:

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

Дело в том что используется не база данных делфи
а просто текстовый файл)))))

Угу, чукча не читатель, чукча - писатель...

@droider · 25.09.2017, 09:08

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

используется...просто текстовый файл

А кто Вам сказал, что в примере от D1973 используется БД ? Загружайте текстовый файл, используя тот же класс TStringList, методом LoadFromFile():

Delphi

1	L.LoadFromFile(ExtractFilePath(ParamStr(0))+'имя_файла.txt'); //файл в каталоге с ПО

Далее, в цикле, построчно считывайте данные, и обрабатывайте аналогично вышеуказанному примеру.

В конце, после обработки файла, не забываем высвободить память:

Delphi

1	FreeAndNil(L);

Не по теме:

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

Вот разобрался

полный бред

@GoodWeather 884 / 586 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	19.09.2017, 02:38	2
	В том что вы никак не учитываете что Pos() может возвращать ошибку мол ничё не найдено? И в том что у вас "магические константы" где ну совсем их не нада? Добавлено через 45 секунд Надо ТЗ подробнее. Что это за переменные такие, что в них приблизительно ожидается? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.09.2017, 07:50	3
	Напишите пример строки и что нужно получить. 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	21.09.2017, 11:49	4
	Сообщение от Puporev Напишите пример строки и что нужно получить +1. 0

@Setix 12 / 10 / 5 Регистрация: 22.07.2015 Сообщений: 215
	21.09.2017, 15:04	5
	Сообщение от totoblabla3 DelphiВыделить код 1 FbotCC:=copy(FBbotsend, pos(('['+stri+'}'),FBbotsend)+3, pos(('{'+stri+']') , FBbotsend)-3); подскажите в чем ошибка? Что компилятор пишет. нижнюю строку перепиши. 0

@droider
	21.09.2017, 15:11 #6
	Не по теме: Сообщение от totoblabla3 FbotCC Сообщение от totoblabla3 подскажите в чем ошибка? очередной ботодрочер, который не может перевести сообщение компилятора. 0

@D1973
	24.09.2017, 05:56 #10
	Не по теме: Сообщение от totoblabla3 Дело в том что используется не база данных делфи а просто текстовый файл))))) Угу, чукча не читатель, чукча - писатель... 0

	25.09.2017, 09:08