работа с txt в delphi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by /Boom\, 20 May 2008.

Thread Status:
Not open for further replies.
  1. /Boom\

    /Boom\ Elder - Старейшина

    Joined:
    14 Feb 2008
    Messages:
    19
    Likes Received:
    2
    Reputations:
    0
    Я гуружу текст в memo1, как сделать так чтоб с memo1 выдергивался текст в memo2 по маске.
    Подскожите плз
    или стукните 775474
     
    #1 /Boom\, 20 May 2008
    1 person likes this.
  2. .:KeepeR:.

    .:KeepeR:. Banned

    Joined:
    18 Feb 2008
    Messages:
    25
    Likes Received:
    43
    Reputations:
    0
    Напиши маску,а я код соображу....
     
    #2 .:KeepeR:., 20 May 2008
  3. /Boom\

    /Boom\ Elder - Старейшина

    Joined:
    14 Feb 2008
    Messages:
    19
    Likes Received:
    2
    Reputations:
    0
    @mail.ru
     
    #3 /Boom\, 20 May 2008
  4. .:KeepeR:.

    .:KeepeR:. Banned

    Joined:
    18 Feb 2008
    Messages:
    25
    Likes Received:
    43
    Reputations:
    0
    Тебе просто парсер мыл нужен?
     
    #4 .:KeepeR:., 20 May 2008
  5. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Каждая запись с новой строки или все в смешку?!

    pos(искомая_строка,обрабатываемая_строка) - Или это не в моде? ;)
     
    #5 De-visible, 20 May 2008
    3 people like this.
  6. /Boom\

    /Boom\ Elder - Старейшина

    Joined:
    14 Feb 2008
    Messages:
    19
    Likes Received:
    2
    Reputations:
    0
    каждая в новой строке
     
    #6 /Boom\, 20 May 2008
  7. .:KeepeR:.

    .:KeepeR:. Banned

    Joined:
    18 Feb 2008
    Messages:
    25
    Likes Received:
    43
    Reputations:
    0
    для перехода на новую строку используй
     
    #7 .:KeepeR:., 20 May 2008
  8. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    k,i:integer; ;)
    Code:
    For i:=1 to Memo1.lines.count Do
    Begin
       k:=pos('@mail.ru',Memo1.Lines[i])
       If k<>0 then Memo2.Lines.add(Memo1.lines[i]);
    End.
    Будет что-то в этом роде!
    Пока ни Делфи ни паскаля!
     
    #8 De-visible, 20 May 2008
    2 people like this.
  9. .:KeepeR:.

    .:KeepeR:. Banned

    Joined:
    18 Feb 2008
    Messages:
    25
    Likes Received:
    43
    Reputations:
    0
    Code:
    i:=1;
while not eof do
Begin
search:= pos("@mail.ru",i);
masiv[i]:= search;
i:=i+1;
End;

    В итоге у тебя будут все отпарсиные мыла в масиве - masiv

    De-visible: Теги
    Code:
    [/COLOR][/SIZE]
     
    #9 .:KeepeR:., 20 May 2008
    1 person likes this.
  10. desTiny

    desTiny Elder - Старейшина

    Joined:
    4 Feb 2007
    Messages:
    1,006
    Likes Received:
    444
    Reputations:
    94
    Чё? Если честно, то это даже не скомпилится
     
    #10 desTiny, 20 May 2008
    1 person likes this.
  11. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    На форму кидаем одну кнопку и один мемо.
     
    #11 zl0y, 20 May 2008
    Last edited by a moderator: 20 May 2008
  12. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Вопрос решен....closed
    /Boom\, если надо будет открыть пиши в ПМ!
     
    #12 De-visible, 20 May 2008
(You must log in or sign up to post here.)
Thread Status:
Not open for further replies.