[Помогите!] Работа с текстом

[MastaDan]

Всем привет.
Появилась идея добавить в свой брут две функции.

1.) Авто удаление строк из файла. (например то что он уже про брутил, из базы они удаляются, например каждые 2 мин)
Либо Кнопочка "Сохранить остаток" в любой момент можно сохранить остаток базы.

2.) Автоподбор разделителя ":" либо ";" при загрузке базы. (Где то видел случайно, но не придал значения, сейчас не могу вспомнить где)

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

[metraz]

что именно то у тебя не получается?

[MastaDan]

Цитата: Сообщение от MastaDan Прошу помощи привести пример, либо подсказать правильную формулировка для поиска в гугле.

[=PaLeTiZaToR=]

Как это "автопотбор разделителя" . Если в базу будет и такой и такой разделитель, то никак не сделать чтоб он на 2 реагировал. Ну я во всяком случае не представляю себе.... хотя ... нет ничего невозможного

[metraz]

Цитата: Сообщение от MastaDan

Я думал ты хоть попробуешь что то сделать.
1. Проще загонять все гуды в некий стринглист, и затем уже сохранять их в исходный файл. Можно сделать через таймер или поток.
2. if pos(';', text)=0 then a:=pos(':',text) . Дальше думаю разберешься

[=PaLeTiZaToR=]

Цитата: Сообщение от metraz Я думал ты хоть попробуешь что то сделать. 1. Проще загонять все гуды в некий стринглист, и затем уже сохранять их в исходный файл. Можно сделать через таймер или поток. 2. if pos(';', text)=0 then a:=pos(':',text) . Дальше думаю разберешься

Это тупо меняешь если есть совпадение... а вот интересно, можно ли сделать чтоб на 2 реагировал не прогоняя потом по 2 разу ?)

[metraz]

Цитата: Сообщение от =^PaLeTiZaToR^= Это тупо меняешь если есть совпадение... а вот интересно, можно ли сделать чтоб на 2 реагировал не прогоняя потом по 2 разу ?)

он не прогоняет все по второму разу, этот код вставляется туда, где идет считывание одной строки.

[MastaDan]

Цитата: Сообщение от metraz 1. Проще загонять все гуды в некий стринглист, и затем уже сохранять их в исходный файл. Можно сделать через таймер или поток.

Тут не совсем понял.
А за 2 спс.

[metraz]

Цитата: Сообщение от MastaDan Тут не совсем понял. А за 2 спс.

а, это я уже не совсем так понял) Ты сначала выгружаешь список лог пассов в мемо например, чтобы потом брутить. Затем, когда 1 логин и пасс проверился, удаляешь строку из мемо, и так со всеми проверенными лог пассами, затем все оставшиеся непроверенные лог пассы сохраняшеь в исходный файл, вуоля.

[Relli]

if Pos(';', Form4.Memo1.Lines[j]) <> 0 then
    begin
      login := Copy(Form4.Memo1.Lines[j], 0,
        Pos(';', Form4.Memo1.Lines[j]) - 1);
    end;
if Pos(':', Form4.Memo1.Lines[j]) <> 0 then
    begin
      login := Copy(Form4.Memo1.Lines[j], 0,
        Pos(':', Form4.Memo1.Lines[j]) - 1);
end;

[MastaDan]

Такс, то что смог реализовать:
Авто подбор делителя в базе

if pos(':', Acc[i])<>0 then begin //Если разделитель такой то
      Log:=Copy(Acc[i] 1, Pos(':',Acc[i])-1); //Копируем лог
      Pas:=Copy(Acc[i], Pos(':', Acc[i])+1, Length(Acc[i])); //Копируем паc
    end else begin //если не : то
      Log:=Copy(Acc[i], 1, Pos(';',Acc[i])-1); //Копируем лог
      Pas:=Copy(Acc[i], Pos(';', Acc[i])+1, Length(Acc[i])); //Копируем паc
    end;

Вот как то так )

Но с авто удалением строк чет все равно не понял

Цитата: Сообщение от metraz а, это я уже не совсем так понял) Ты сначала выгружаешь список лог пассов в мемо например, чтобы потом брутить. Затем, когда 1 логин и пасс проверился, удаляешь строку из мемо, и так со всеми проверенными лог пассами, затем все оставшиеся непроверенные лог пассы сохраняшеь в исходный файл, вуоля.

Можно на примере показать ?

[Relli]

Цитата: Сообщение от MastaDan Такс, то что смог реализовать: Авто подбор делителя в базе if pos(':', Acc[i])<>0 then begin //Если разделитель такой то Log:=Copy(Acc[i] 1, Pos(':',Acc[i])-1); //Копируем лог Pas:=Copy(Acc[i], Pos(':', Acc[i])+1, Length(Acc[i])); //Копируем паc end else begin //если не : то Log:=Copy(Acc[i], 1, Pos(';',Acc[i])-1); //Копируем лог Pas:=Copy(Acc[i], Pos(';', Acc[i])+1, Length(Acc[i])); //Копируем паc end; Вот как то так ) Но с авто удалением строк чет все равно не понял Можно на примере показать ?

правда разницы с моим почти никакой,но:
1.У меня написано в 2 проверки,чтобы можно было "дописывать" другие разделители.
2.если ты так делаешь,то делай проверку,т.е. если резделитель не ":',то проверяем,является ли разделителем ";",а то у тебя сразу его майном делает.(А у некоторых бывают и другие)

[MastaDan]

Цитата: Сообщение от Relli 1.У меня написано в 2 проверки,чтобы можно было "дописывать" другие разделители. 2.если ты так делаешь,то делай проверку,т.е. если резделитель не ":',то проверяем,является ли разделителем ";",а то у тебя сразу его майном делает.(А у некоторых бывают и другие)

Ок, спасибо, просто не видел твое сообщение, начал сам химичить)