Удаление от начала / от конца строки

@Hardalternative · Регистрация: 30.01.2018

Студворк — интернет-сервис помощи студентам

Ребята помогите решить вот такую задачу:

В текстовом файле расположено много строк, все строки разной длины.
1. В edit1 указываю число: Сколько Удалить символов - с начала строки.
2. В edit2 указываю число: Сколько Удалить символов - с конца строки.
3. Нажимаю кнопку и программа Обрезает все строки, в файле (1.txt), с начала и с конца. И сохраняет результат в файл 2.txt.

Только чтение построчно, что бы не грузить память и не было ошибки нехватки памяти.

Пробовал делать так но не то + Добавил скриншет:
Пример

Delphi

function Split(Str: String): String;
var
I: Integer;
begin
I := 1;
while Str[1] in [' ',',','.',#13] do //удаление пробелов в начале
Delete(Str, 1, 1);
while I <= Length(Str) do begin
if Str[I] in [' ',',','.',#13] then
while ((Str[I+1] in [' ',',','.',#13]) or (Length(Str) = I)) and (Length(Str) >= I) do
//удаление пробелы между словами и в конце
Delete(Str, I, 1);
Inc(I);
end;
Result := Str;
end;

@Puporev · 26.02.2018, 14:06

А при чем здесь пробелы, если в задании написано

Сообщение от Hardalternative

1. В edit1 указываю число: Сколько Удалить символов - с начала строки.
2. В edit2 указываю число: Сколько Удалить символов - с конца строки.

@Hardalternative · 26.02.2018, 14:09 **[ТС]**

Puporev,
Пытался переделать функцию с пробелами под свою задачу. Но к сожалению опыта нет.

@Puporev · 26.02.2018, 14:32

Delphi

n:=strtoint(Edit1.Text);//удалить в начале
k:=strtoint(Edit2.Text);//удалить в конце
if k>=length(s) then s:=''
else delete(s,length(s)-k+1,k);
if n>=length(s) then s:=''
else delete(s,1,n);
if s='' then вывод сообщения что вся строка удалена
else вывод полученной строки

Добавлено через 9 минут
Это алгоритм удаления символов, переделайте его под свою функцию.

@D1973 · 27.02.2018, 06:05

Сообщение от Hardalternative

удаление пробелов в начале

Вообще, пробелы и другие спецсимволы (#9,#13 и т.д) прекрасно удаляются функцией Trim()

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	26.02.2018, 14:06	2
	А при чем здесь пробелы, если в задании написано Сообщение от Hardalternative 1. В edit1 указываю число: Сколько Удалить символов - с начала строки. 2. В edit2 указываю число: Сколько Удалить символов - с конца строки. 1

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 399
	26.02.2018, 14:09 [ТС]	3
	Puporev, Пытался переделать функцию с пробелами под свою задачу. Но к сожалению опыта нет. 0

@D1973 Модератор 8686 / 5735 / 2306 Регистрация: 21.01.2014 Сообщений: 24,573 Записей в блоге: 3
	27.02.2018, 06:05	5
	Сообщение от Hardalternative удаление пробелов в начале Вообще, пробелы и другие спецсимволы (#9,#13 и т.д) прекрасно удаляются функцией Trim() 1

Опции темы

Удаление от начала / от конца строки

Решение