Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
-={V}=-
Гость
Сообщений: n/a
28.02.2010, 16:22     Разбить строку на части
  #1
Имеется строка типа: 20800, Украина, м. Черкаси, вул. Чигиринська, буд. 8, оф./кв. 2
Нужно ее разбить на части - город в отдельной строковой переменной, улица в отдельной, и т.п...

Подскажите плз как это сделать, я только додумался для улицы:

Код Delphi
1
2
3
4
5
6
7
8
9
10
11
function getVul(sStr: String): String;
var
S: String;
Index: Integer;
begin
S:=sStr;
Index:=Pos('вул.',S);
if Index=0 then Index:=Pos('пров.',S);
Delete(S,1,Index-1);
Result:=S;
end;

Заранее благодарен!!!
AdAgent
Объявления
28.02.2010, 16:22
igoriy
Форумчанин
853 / 524 / 7
Регистрация: 24.11.2009
Сообщений: 1,329
28.02.2010, 16:51     Разбить строку на части
  #2
Код Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Button1Click(Sender: TObject);
var
a,a1,b,c,d,e,j: string;
begin
a:= Edit1.Text;
a1:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit2.Text:= a1;
b:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit3.Text:= b;
c:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit4.Text:= c;
d:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit5.Text:= d;
e:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit6.Text:= e;
j:= Copy(a,1,Length(a));
Delete(a,1,Pos(',',a));
Edit7.Text:= j;
end;
Добавлено через 1 минуту
Можно просто
b:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a)); в цикл загнать
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Delphi Как разбить TStringList на части по 15 строк?
Как разбить TStringList на части по 15 строк? Вот так вот вроде пашет но оно показывает только по 1 строке в ShowMessage... а мне надо сразу 15... , как из TStringList брать сразу по 15 строк?...
Delphi для начинающих 10 HA3AP93 23.04.2014 05:50
Delphi Как разбить на части текст вводимый в edit(memo)?
Добрый день. Нужно решить задачу, и для решения необходимо разбить вводимый текст (последовательность чисел). Текст можно ввести через Edit либо через Memo. Не существенно. Например : 12345678 нужно...
Delphi для начинающих 8 GreatDan 27.03.2012 03:35
Delphi Разбить строку на подстроки.
Есть строка типа (275906,-39,56,2,5263,'ЖЕСТЬ (киргуду)',828,'Marcus',0,'',74); нужно разбить ее на подстроки. 275906 -39 56 2 5263 Жесть (киргуду)
Delphi для начинающих 7 daslex 16.03.2012 21:39
Delphi Разбить нужные части строки на отдельные подстроки в многострочных данных
Помогите разобраться. Есть некоторые строковые данные Примерно Некоторый текст (278339,-9,53,3,4389,'СПБ Политех',2620,'Иванов',174,'Петров',95); Некоторый текст...
Delphi для начинающих 1 daslex 12.03.2012 13:23
Delphi Как разбить файл на части а затем обратно соединить?
Мне нужно сделать программку которая бы разбивала файлы на заданое количество частей, а затем обратно собирала файл по частям. Может у кого то есть наработки или принцип решения данной задачи. Прошу...
Delphi для начинающих 5 Jeny 28.10.2011 18:49
Delphi Разбить строку
Люди подскажите как разбить одну строку на две в дельфи 7. Например как в C#: label1.Text = "Must\nDie";
Delphi для начинающих 1 dr.Dozer 18.12.2010 15:47
Delphi разбить строку на равные части
допустим есть строка S:='21545789654785124587963254785125847'; //35 символов как ее разбить на строки по 10 символов примерно так 1=2154578965 2=4785124587 3=9632547851 4=25847
Delphi для начинающих 1 iopqq 05.11.2010 14:38
Delphi разбить число на две части
есть перменная string содержит всебе число var tel,pref,nom:string; begin t:=7771234567 как мне сделать чтоб пермеменным было присвоинно pref:=777; nom:=1234567: end;
Delphi для начинающих 1 akimov_aleks 21.03.2010 16:49
Опции темы

Текущее время: 23:43. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.