Работа с строками - Общие вопросы Delphi

Fellics{новичок} · 28.05.2009, 17:51

Привет всем!!! Допустим у меня есть документ *.TXT, с примерно такими записями:

Код:

...
№1 4
...

Как мне выбрать из определенной строки определенный символ или несколько символов.

Пепел Феникса · 28.05.2009, 17:57

Код:

readln(f,s)
s:=Copy(s,2,3);

f - textfile
s - string
1)читаем строку в s
2)копируем в s 3 символа начиная со второго

Fellics{новичок} · 28.05.2009, 17:59

а если допустим мне надо скопировать только цифру 1, как быть?

Lime · 28.05.2009, 18:00

Код:

var s:string;
c:char;
begin
memo1.lines.loadfromfile('C:\1.txt');
s := memo1.lines[4]; // 5 Строка
c :=s[3];//4 символ

Разберётесь что нужно добавить и куда вписать
//Пс от руки.

Neeter · 28.05.2009, 18:02

Цитата:

а если допустим мне надо скопировать только цифру 1, как быть?

Тогда писать надо так:

Код:

s:=Copy(s,2,1);

Но вообще если после № идет двузначное число, то это не пойдет, надо так:

Код:

s := Copy(s, 2, Pos(' ', s) - 2)

4 в вашем файле(№1 4), можно получить так:

Код:

s1 := Copy(s1, Pos(' ', s1) + 1, Length(s1));

Fellics{новичок} · 28.05.2009, 18:03

Спасибо. Надеюсь у меня в голове не опилки.

28.05.2009, 17:51	#1
Fellics{новичок} Форумчанин Регистрация: 25.03.2008 Сообщений: 159	Работа с строками Привет всем!!! Допустим у меня есть документ .TXT, с примерно такими записями: Код: `... №1 4 ...` Как мне выбрать из определенной строки определенный символ или несколько символов. Последний раз редактировалось Fellics{новичок}; 28.05.2009 в 17:54.*

28.05.2009, 17:57	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	Код: `readln(f,s) s:=Copy(s,2,3);` f - textfile s - string 1)читаем строку в s 2)копируем в s 3 символа начиная со второго Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

28.05.2009, 18:00	#4
Lime Форумчанин Регистрация: 10.02.2009 Сообщений: 815	Код: `var s:string; c:char; begin memo1.lines.loadfromfile('C:\1.txt'); s := memo1.lines[4]; // 5 Строка c :=s[3];//4 символ` Разберётесь что нужно добавить и куда вписать //Пс от руки.

28.05.2009, 17:59	#3
Fellics{новичок} Форумчанин Регистрация: 25.03.2008 Сообщений: 159	а если допустим мне надо скопировать только цифру 1, как быть?

28.05.2009, 18:03	#6
Fellics{новичок} Форумчанин Регистрация: 25.03.2008 Сообщений: 159	Спасибо. Надеюсь у меня в голове не опилки.