Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 1
Регистрация: 06.03.2013
Сообщений: 139
1

Разделение текста

09.03.2013, 01:03. Просмотров 773. Ответов 5
Метки нет (Все метки)


Приветствую
Нужна помощь.У меня есть memo1 куда вставляются емаилы и пароли в виде email;passworld
Мне надо получить емаил и пароль.Т.е. разделить текст и присвоить его неким переменным(переменная:=емаил, переменная2:=пароль).Как это реализовать?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2013, 01:03
Ответы с готовыми решениями:

Разделение текста
Вопрос от начинающего: В запросе ADOQuery получен текст, который надо вывести на экран, чтобы...

Разделение текста
Есть строка "site.com;login;password" Как это разделить на 3 разных переменных?

Разделение текста разделителем
Есть текст вида: text1||text2||text3||...textN|| , нужно чтобы символы до '||' заносились в массив...

Разделение текста по столбцам таблицы
Здравствуйте! Я когда то писал маленькие програмки на Delphi но уже все забыл. Подскажите как...

5
Заблокирован
09.03.2013, 01:58 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  e, p, Str: String;
  i: Integer;
begin
  Str := 'email:pass';
  i := Pos(':', Str);
  e := Copy(Str, 1, i - 1);
  p := Copy(Str, i + 1, Length(Str));
  ShowMessage('Ìûëî=' + e + #13#10 + 'Ïàññ=' + p);
end;
1
0 / 0 / 1
Регистрация: 06.03.2013
Сообщений: 139
09.03.2013, 02:03  [ТС] 3
И еще такой вот вопрос.
Я получил мыло и емаил с первой строки мемо, сделал с ними то что надо, очистил переменные
Как теперь получить со 2 строки мемо и так далее?
И этот способ не получает мыло и емаил если более 1 строки.(если что)
0
Заблокирован
09.03.2013, 02:12 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
  Str, e, p: String;
  i, x: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    begin
      Str := Memo1.Lines[i];
      x := Pos(':', Str);
      e := Copy(Str, 1, x - 1);
      p := Copy(Str, x + 1, Length(Str));
      Memo2.Lines.Add('Ìûëî=' + e + ' ' + 'Ïàññ=' + p);
    end;
end;
1
0 / 0 / 1
Регистрация: 06.03.2013
Сообщений: 139
09.03.2013, 22:40  [ТС] 5
Немогли бы вы еще объяснить этот код, понять хочется
0
Заблокирован
10.03.2013, 23:54 6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// пусть в мемо две строки:
// email:pass
// email1:pass1
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Str, e, p: String;
  i, x: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do // цыкал, Memo1.Lines.Count кол-во строк мемо(их 2), 
      // строки нумеруются с 0 поэтому будет две строки с индексом 0 и 1, поэтому Memo1.Lines.Count - 1
    begin
      Str := Memo1.Lines[i]; // строку номер i из мемо в Str, например: email:pass
      x := Pos(':', Str); // ищем ':' в Str, получаем позицию в строке 6
      e := Copy(Str, 1, x - 1); // копируем в е кусок из Str начиная с первой позиции и до пятой позиции 
      // это и будет слово email
      p := Copy(Str, x + 1, Length(Str)); // копируем в р кусок начиная с шестой позиции и до конца, 
      // Length(Str) даст длинну строки = 10
      Memo2.Lines.Add('Мыло=' + e + ' ' + 'Пасс=' + p);
    end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2013, 23:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Разделение текста из файла в разные Memo
Столкнулся с проблемой разделить текст при загрузке из файла по разделителю в Memo1 и Memo2.. Имею...

Сортировка текста, разделение текста пробелами
Есть массив TextBox-ов TextBox tb; И CheckBox-ов CheckBox chb; Дальше инициализирую их private...

Разделение текста
На вход поступает текст(вид a123456). Надо из этого достать первую букву и числа.

Разделение текста
Здравствуйте! При создании страницы - текст передается в переменную. Задача. Если количество ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.