Удаление подстроки из строки

@PlatonCraft · Регистрация: 18.02.2013

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

Допустим, есть в переменной m типа string строка "S:blockMagnetizer.name" Как удалить из этой строки "S:" чтоб осталась в переменной та же строка но без "S:"? Помогите новичку, объясните по подробней.

@Midian · 01.06.2013, 20:11

Вот пример:

Кликните здесь для просмотра всего текста

Source := '12345678';
Delete(Source, 3, 4); // Удаление 3-го, 4-го, 5-го и 6-го символов

Добавлено через 1 минуту
Указываешь первым числом с какой позиции удалять, следующее число указывает сколько элементов удалить

@PlatonCraft · 01.06.2013, 20:40 **[ТС]**

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

Вот пример:

Кликните здесь для просмотра всего текста

Source := '12345678';
Delete(Source, 3, 4); // Удаление 3-го, 4-го, 5-го и 6-го символов

Добавлено через 1 минуту
Указываешь первым числом с какой позиции удалять, следующее число указывает сколько элементов удалить

Не. не то. А я могу с использованием delete удалить некоторые символы из строчки, например Delete(source,'S:')
или что то типо того(то, что написал не работает)

@Midian · 01.06.2013, 20:48

Pascal
1
delete(m,1,2);

@PlatonCraft · 01.06.2013, 21:07 **[ТС]**

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

Pascal
1
delete(m,1,2);

Нет, конечно в первом случае мне это поможет, но не во втором и не в третьем. Эта "S:" может находится где угодно в строчке, причем я не знаю где, как мне найти где находится эта "S:"

@КонецСвета · 01.06.2013, 21:28

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var s1,s2: string;
    i: byte;
    
begin
writeln('Введите исходную строку: '); readln(s1);
write('Что будем удалять? '); readln(s2);
for i:=length(s1)-length(s2)+1 downto 1 do
    if copy(s1,i,length(s2))=s2 then delete(s1,i,length(s2));
writeln('Строка после удаления');
writeln(s1);
end.

@PlatonCraft · 02.06.2013, 19:07 **[ТС]**

Сообщение от КонецСвета

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var s1,s2: string;
    i: byte;
    
begin
writeln('Введите исходную строку: '); readln(s1);
write('Что будем удалять? '); readln(s2);
for i:=length(s1)-length(s2)+1 downto 1 do
    if copy(s1,i,length(s2))=s2 then delete(s1,i,length(s2));
writeln('Строка после удаления');
writeln(s1);
end.

Огромное спасибо за ответ, но пока вы отвечали, решил написать своим умом. Цель у программы немного другая. Сделать тоже самое, но с файлом

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses GraphABC;
Var f1,f2:text; mass:array[1..188] of string; i,k,a,l:integer; s,us,fp,fp2,nc:string; //String, User String, File Path, Number of Chars
begin
writeln('Укажите полное имя файла, из которого хотите удалить одинаковые строки:'); Readln(fp);
writeln('Укажите полное имя файла, в который сохранятся изменения:'); Readln(fp2);
Assign(f1, fp);
Assign(f2, fp2);
Reset(f1);
Rewrite(f2);
for i:=1 to 188 do begin
Readln(f1,mass[i]);
end;
Writeln('Что вы хотите удалить?'); Readln(us);
 
    for i:=1 to 188 do begin
        s:=mass[i];
            for k:=1 to length(s)-length(us)+1 do begin
                  nc:='';
                for l:=0 to length(us)-1 do begin
                nc:=nc+s[k+l];
                end;
            if nc=us then a:=k;
            end;
        delete(s,a,length(us));
        mass[i]:=s;
    end;
 
for i:=1 to 188 do begin
Writeln(f2,mass[i]);
end;
Close(f1);
Close(f2);
end.

Хотелось бы, чтоб изменения происходили в одном файле. Как это сделать? Плюс еще почему то в конце конечного файла в начале строк стирается по несколько символов, а именно 5, столько же сколько их в слове, которое нужно удалить, но при этом удалять там ничего не надо, там нет этого слова. Стираются они потому, что в этой строке нет ни одного нужного слова. И он тупо стирает первые 5 букв. А это мне не нужно. Буду очень признателен если поможете.

Добавлено через 13 минут
P.S. Нужно удалить ".item" из каждой строки. Исходный файл:

1.txt

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
container.electric.level=Запас энергии:
container.electric.output=На выход: %1$s еЭ/ф
container.inductiot=нагрев:
container.matter.aier=Катализатор:
container.matter.pss=Прогресс:
container.personalr.offer=Offer:
container.personalr.totalTrades0=Performed
container.personalr.totalTrades1=Trades:
container.personalr.want=Want:
container.personalrEnergy.energyBuffer=Buffer:
container.personalrEnergy.paidFor=Paid For: %1$s EU
debugItem=Debug Item
energyStorageUpgrade=Энергохранитель
item.cropSeedInvalid=Seed is missing data - bug?
item.cropSeedUn=Unknown Seeds
item.itemArmorAlloyChestplate=Композитный доспех
item.itemArmorBatpack=Ранец для зарядки
item.itemArmorBronzeBoots=Бронзовые ботинки
item.itemArmorBronzeChestplate=Бронзовая кираса
item.itemArmorBronzeHelmet=Бронзовый шлем
item.itemArmorBronzeLegs=Бронзовые поножи
item.itemArmorCFPack=Ранец с пеной
item.itemArmorHazmatChestplate=Защитная куртка
item.itemArmorHazmatHelmet=Шлем-акваланг
item.itemArmorHazmatLeggings=Защитные штаны
item.itemArmorJetpack=Реактивный ранец
item.itemArmorJetpackElectric=Электрический реактивный ранец
item.itemArmorLappack=Мультиранец
item.itemArmorNanoBoots=Нано-ботинки
item.itemArmorNanoChestplate=Нано-кираса
item.itemArmorNanoHelmet=Нано-шлем
item.itemArmorNanoLegs=Нано-поножи
item.itemArmorQuantumBoots=Квантовые ботинки
item.itemArmorQuantumChestplate=Квантовая кираса
item.itemArmorQuantumHelmet=Квантовый шлем
item.itemArmorQuantumLegs=Квантовые поножи
item.itemArmorRubBoots=Резиновые ботинки
item.itemBatCrystal=Энергитический кристал
item.itemBatLamaCrystal=Мультикристалл
item.itemBatRE=Аккумулятор
item.itemBatSU=Батарейка
item.itemCellAir=Капсула с сжатым воздухом
item.itemCellBio=Капсула с биосмесью
item.itemCellBioRef=Капсула с биотопливом
item.itemCellCoal=Капсула с угольной смесью
item.itemCellCoalRef=Капсула с угольным топливом
item.itemCellEmpty=Пустая Капсула
item.itemCellHydrant=Дистиллированная вода
item.itemCellLava=Капсула с лавой
item.itemCellUranEmpty=Обеднённый уран
item.itemCellUranEnriched=Обогащённый изотопный состав
item.itemCellWater=Капсула с водой
item.itemCellWaterElectro=Капсула с заряженной водой
item.itemCoffeeBeans=Кофейные зёрна
item.itemCoffeePowder=Молотый кофе
item.itemCoin=Монета
item.itemCoolant=Coolant
item.itemCropnalyzer=Анализатор агрокультур
item.itemDoorAlloy=Укреплённая дверь
item.itemDustBronze=Бронзовая пыль
item.itemDustClay=Глиняная пыль
item.itemDustCoal=Угольная пыль
item.itemDustCopper=Медная пыль
item.itemDustGold=Золотая пыль
item.itemDustIron=Железная пыль
item.itemDustIronSmall=Кучка железной пыли
item.itemDustSilver=Серебряная пыль
item.itemDustTin=Оловянная пыль
item.itemDynamite=Динамит
item.itemDynamiteSticky=Липкий динамит
item.itemFertilizer=Удобрение
item.itemFoamSprayer=Распылитель строительной пены
item.itemFreq=Частотный манипулятор
item.itemFuelCan=Канистра с топливом
item.itemFuelCanEmpty=Канистра
item.itemFuelCoalCmpr=Угольная смесь
item.itemFuelCoalDust=Мокрая угольная пыль
item.itemFuelPlantBall=Биомасса
item.itemFuelPlantCmpr=Биосмесь
item.itemGrinPowder=Токсичная пыль
item.itemHarz=Латекс
item.itemHops=Хмель
item.itemIngotAdvIron=Закалённое железо
item.itemIngotAlloy=Композитный слиток
item.itemIngotBronze=Бронзовый слиток
item.itemIngotCopper=Медный слиток
item.itemIngotTin=Оловянный слиток
item.itemIngotUran=Обогащённый уран
item.itemMatter=Материя
item.itemMugCoffee0=Холодный кофе
item.itemMugCoffee1=Тёмный кофе
item.itemMugCoffee2=Кофе
item.itemMugEmpty=Кружка
item.itemNanoSaber=Нано-сабля
item.itemNightvisionGoggles=Очки Ночного видения
item.itemOreIridium=Иридий
item.itemOreUran=Уран
item.itemPartAlloy=Композит
item.itemPartCarbonFibre=Углеволокно
item.itemPartCarbonMesh=Углеткань
item.itemPartCarbonPlate=Углепластик
item.itemPartCircuit=Электросхема
item.itemPartCircuitAdv=Улучшенная электросхема
item.itemPartCoalBall=Угольный шарик
item.itemPartCoalBlock=Сжатый угольный шарик
item.itemPartCoalChunk=Угольная глыба
item.itemPartDCP=Медная пластина
item.itemPartIndustrialDiamond=Искусственный алмаз
item.itemPartIridium=Иридиевый композит
item.itemPartPellet=Сжатая строительная пена
item.itemRemote=Радиодетонатор
item.itemRubber=Резина
item.itemScanner=ОД сканер
item.itemScannerAdv=ОВ сканер
item.itemScrap=Утильсырьё
item.itemScrapbox=Коробка Утильсырья
item.itemSolarHelmet=СП-шлем
item.itemStaticBoots=Электростатические ботинки
item.itemTFBP=Чип
item.itemTFBPChilling=Чип "Охлаждение"
item.itemTFBPCultivation=Чип "Озеленение"
item.itemTFBPDesertification=Чип "Опустынивание"
item.itemTFBPFlatification=Чип "Выравнивание"
item.itemTFBPIrrigation=Чип "Орошение"
item.itemTFBPMushroom=Чип "Грибы" 
item.itemTerraWart=Terra Wart
item.itemTinCan=Консервная банка
item.itemTinCanFilled=Консервы
item.itemToolBronzeAxe=Бронзовый топор
item.itemToolBronzeHoe=Бронзовая мотыга
item.itemToolBronzePickaxe=Бронзовая кирка
item.itemToolBronzeSpade=Бронзовая лопата
item.itemToolBronzeSword=Бронзовый меч
item.itemToolChainsaw=Электропила
item.itemToolCutter=Кусачки
item.itemToolDDrill=Алмазный бур
item.itemToolDrill=Шахтёрский бур
item.itemToolHoe=Электрическая мотыга
item.itemToolMeter=Вольтметр
item.itemToolMiningLaser=Шахтёрский лазер
item.itemToolPainter=Валик
item.itemToolWrench=Ключ
item.itemToolWrenchElectric=Электроключ
item.itemToolbox=Ящик для инструментов
item.itemTreetap=Краник
item.itemTreetapElectric=Соковыжималка
item.itemWeedEx=Средство от сорняков
item.reactorCondensator=RSH-Condensator
item.reactorCondensatorLap=LZH-Condensator
item.reactorCoolantSimple=Охлаждающий стержень 10К
item.reactorCoolantSix=Охлаждающий стержень 60К
item.reactorCoolantTriple=Охлаждающий стержень 30К
item.reactorHeatSwitch=Heat Exchanger
item.reactorHeatSwitchCore=Reactor Heat Exchanger
item.reactorHeatSwitchDiamond=Advanced Heat Exchanger
item.reactorHeatSwitchSpread=Component Heat Exchanger
item.reactorHeatpack=Heating Cell
item.reactorIsotopeCell=Изотопный состав
item.reactorPlating=Термопластина
item.reactorPlatingExplosive=Containment Reactor Plating
item.reactorPlatingHeat=Heat-Capacity Reactor Plating
item.reactorReflector=Neutron Reflector
item.reactorReflectorThick=Thick Neutron Reflector
item.reactorUraniumDual=Спаренный ТВЭЛ
item.reactorUraniumQuad=Счетверенный ТВЭЛ
item.reactorUraniumSimple=Урановый стержень
item.reactorVent=Теплоотвод
item.reactorVentCore=Reactor Heat Vent
item.reactorVentDiamond=Advanced Heat Vent
item.reactorVentGold=Overclocked Heat Vent
item.reactorVentSpread=Component Heat Vent
itemCable=Изолированный медный провод
itemCableO=Медный провод
itemDetectorCable=Детектор
itemGlassCable=Стекловолокно
itemGoldCable=Золотой провод
itemGoldCableI=Изолированный золотой провод
itemGoldCableII=Золотой провод двойной изоляции
itemGroup.IC2=IrialCraft 2
itemIronCable=Высоковольтный провод
itemIronCableI=Изолированный высоковольтный провод
itemIronCableII=Высоковольтный провод двойной изоляции
itemIronCableIIII=Высоковольтный провод тройной изоляции
itemSplitterCable=Реле
itemTinCable=Низковольтный провод
overclockerUpgrade=Ускоритель
potion.radiation=Радиация
transformerUpgrade=Трансформатор

Конечный файл:

2.txt

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
container.electric.level=Запас энергии:
container.electric.output=На выход: %1$s еЭ/ф
container.inductiot=нагрев:
container.matter.aier=Катализатор:
container.matter.pss=Прогресс:
container.personalr.offer=Offer:
container.personalr.totalTrades0=Performed
container.personalr.totalTrades1=Trades:
container.personalr.want=Want:
container.personalrEnergy.energyBuffer=Buffer:
container.personalrEnergy.paidFor=Paid For: %1$s EU
debugItem=Debug Item
energyStorageUpgrade=Энергохранитель
cropSeedInvalid=Seed is missing data - bug?
cropSeedUn=Unknown Seeds
itemArmorAlloyChestplate=Композитный доспех
itemArmorBatpack=Ранец для зарядки
itemArmorBronzeBoots=Бронзовые ботинки
itemArmorBronzeChestplate=Бронзовая кираса
itemArmorBronzeHelmet=Бронзовый шлем
itemArmorBronzeLegs=Бронзовые поножи
itemArmorCFPack=Ранец с пеной
itemArmorHazmatChestplate=Защитная куртка
itemArmorHazmatHelmet=Шлем-акваланг
itemArmorHazmatLeggings=Защитные штаны
itemArmorJetpack=Реактивный ранец
itemArmorJetpackElectric=Электрический реактивный ранец
itemArmorLappack=Мультиранец
itemArmorNanoBoots=Нано-ботинки
itemArmorNanoChestplate=Нано-кираса
itemArmorNanoHelmet=Нано-шлем
itemArmorNanoLegs=Нано-поножи
itemArmorQuantumBoots=Квантовые ботинки
itemArmorQuantumChestplate=Квантовая кираса
itemArmorQuantumHelmet=Квантовый шлем
itemArmorQuantumLegs=Квантовые поножи
itemArmorRubBoots=Резиновые ботинки
itemBatCrystal=Энергитический кристал
itemBatLamaCrystal=Мультикристалл
itemBatRE=Аккумулятор
itemBatSU=Батарейка
itemCellAir=Капсула с сжатым воздухом
itemCellBio=Капсула с биосмесью
itemCellBioRef=Капсула с биотопливом
itemCellCoal=Капсула с угольной смесью
itemCellCoalRef=Капсула с угольным топливом
itemCellEmpty=Пустая Капсула
itemCellHydrant=Дистиллированная вода
itemCellLava=Капсула с лавой
itemCellUranEmpty=Обеднённый уран
itemCellUranEnriched=Обогащённый изотопный состав
itemCellWater=Капсула с водой
itemCellWaterElectro=Капсула с заряженной водой
itemCoffeeBeans=Кофейные зёрна
itemCoffeePowder=Молотый кофе
itemCoin=Монета
itemCoolant=Coolant
itemCropnalyzer=Анализатор агрокультур
itemDoorAlloy=Укреплённая дверь
itemDustBronze=Бронзовая пыль
itemDustClay=Глиняная пыль
itemDustCoal=Угольная пыль
itemDustCopper=Медная пыль
itemDustGold=Золотая пыль
itemDustIron=Железная пыль
itemDustIronSmall=Кучка железной пыли
itemDustSilver=Серебряная пыль
itemDustTin=Оловянная пыль
itemDynamite=Динамит
itemDynamiteSticky=Липкий динамит
itemFertilizer=Удобрение
itemFoamSprayer=Распылитель строительной пены
itemFreq=Частотный манипулятор
itemFuelCan=Канистра с топливом
itemFuelCanEmpty=Канистра
itemFuelCoalCmpr=Угольная смесь
itemFuelCoalDust=Мокрая угольная пыль
itemFuelPlantBall=Биомасса
itemFuelPlantCmpr=Биосмесь
itemGrinPowder=Токсичная пыль
itemHarz=Латекс
itemHops=Хмель
itemIngotAdvIron=Закалённое железо
itemIngotAlloy=Композитный слиток
itemIngotBronze=Бронзовый слиток
itemIngotCopper=Медный слиток
itemIngotTin=Оловянный слиток
itemIngotUran=Обогащённый уран
itemMatter=Материя
itemMugCoffee0=Холодный кофе
itemMugCoffee1=Тёмный кофе
itemMugCoffee2=Кофе
itemMugEmpty=Кружка
itemNanoSaber=Нано-сабля
itemNightvisionGoggles=Очки Ночного видения
itemOreIridium=Иридий
itemOreUran=Уран
itemPartAlloy=Композит
itemPartCarbonFibre=Углеволокно
itemPartCarbonMesh=Углеткань
itemPartCarbonPlate=Углепластик
itemPartCircuit=Электросхема
itemPartCircuitAdv=Улучшенная электросхема
itemPartCoalBall=Угольный шарик
itemPartCoalBlock=Сжатый угольный шарик
itemPartCoalChunk=Угольная глыба
itemPartDCP=Медная пластина
itemPartIndustrialDiamond=Искусственный алмаз
itemPartIridium=Иридиевый композит
itemPartPellet=Сжатая строительная пена
itemRemote=Радиодетонатор
itemRubber=Резина
itemScanner=ОД сканер
itemScannerAdv=ОВ сканер
itemScrap=Утильсырьё
itemScrapbox=Коробка Утильсырья
itemSolarHelmet=СП-шлем
itemStaticBoots=Электростатические ботинки
itemTFBP=Чип
itemTFBPChilling=Чип "Охлаждение"
itemTFBPCultivation=Чип "Озеленение"
itemTFBPDesertification=Чип "Опустынивание"
itemTFBPFlatification=Чип "Выравнивание"
itemTFBPIrrigation=Чип "Орошение"
itemTFBPMushroom=Чип "Грибы" 
itemTerraWart=Terra Wart
itemTinCan=Консервная банка
itemTinCanFilled=Консервы
itemToolBronzeAxe=Бронзовый топор
itemToolBronzeHoe=Бронзовая мотыга
itemToolBronzePickaxe=Бронзовая кирка
itemToolBronzeSpade=Бронзовая лопата
itemToolBronzeSword=Бронзовый меч
itemToolChainsaw=Электропила
itemToolCutter=Кусачки
itemToolDDrill=Алмазный бур
itemToolDrill=Шахтёрский бур
itemToolHoe=Электрическая мотыга
itemToolMeter=Вольтметр
itemToolMiningLaser=Шахтёрский лазер
itemToolPainter=Валик
itemToolWrench=Ключ
itemToolWrenchElectric=Электроключ
itemToolbox=Ящик для инструментов
itemTreetap=Краник
itemTreetapElectric=Соковыжималка
itemWeedEx=Средство от сорняков
reactorCondensator=RSH-Condensator
reactorCondensatorLap=LZH-Condensator
reactorCoolantSimple=Охлаждающий стержень 10К
reactorCoolantSix=Охлаждающий стержень 60К
reactorCoolantTriple=Охлаждающий стержень 30К
reactorHeatSwitch=Heat Exchanger
reactorHeatSwitchCore=Reactor Heat Exchanger
reactorHeatSwitchDiamond=Advanced Heat Exchanger
reactorHeatSwitchSpread=Component Heat Exchanger
reactorHeatpack=Heating Cell
reactorIsotopeCell=Изотопный состав
reactorPlating=Термопластина
reactorPlatingExplosive=Containment Reactor Plating
reactorPlatingHeat=Heat-Capacity Reactor Plating
reactorReflector=Neutron Reflector
reactorReflectorThick=Thick Neutron Reflector
reactorUraniumDual=Спаренный ТВЭЛ
reactorUraniumQuad=Счетверенный ТВЭЛ
reactorUraniumSimple=Урановый стержень
reactorVent=Теплоотвод
reactorVentCore=Reactor Heat Vent
reactorVentDiamond=Advanced Heat Vent
reactorVentGold=Overclocked Heat Vent
reactorVentSpread=Component Heat Vent
able=Изолированный медный провод
ableO=Медный провод
etectorCable=Детектор
lassCable=Стекловолокно
oldCable=Золотой провод
oldCableI=Изолированный золотой провод
oldCableII=Золотой провод двойной изоляции
roup.IC2=IrialCraft 2
ronCable=Высоковольтный провод
ronCableI=Изолированный высоковольтный провод
ronCableII=Высоковольтный провод двойной изоляции
ronCableIIII=Высоковольтный провод тройной изоляции
plitterCable=Реле
inCable=Низковольтный провод
lockerUpgrade=Ускоритель
n.radiation=Радиация
formerUpgrade=Трансформатор

Когда удалял ".name" из середины каждой строчки всё было отлично.

Добавлено через 5 часов 58 минут
Понял проблему. Он удаляет их их-ха строчки

Code
1
delete(s,a,length(us));

(естессно), она для того и нужна. и раз "a" в пред. строчках не изменяется, то видимо становится равной нулю и стирает с буквы 1 5 букв. Как это исправить? уже 3 часа мучаюсь...

@КонецСвета · 02.06.2013, 23:07

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
Var f1,f2:text;
    i:integer;
    s,us,fp,fp2:string; //String, User String, File Path, Number of Chars
 
 
begin
writeln('Укажите полное имя файла, из которого хотите удалить одинаковые строки:'); Readln(fp);
writeln('Укажите полное имя файла, в который сохранятся изменения:'); Readln(fp2);
Assign(f1, fp);
Assign(f2, fp2);
Reset(f1);
Rewrite(f2);
Writeln('Что вы хотите удалить?'); Readln(us);
while not (eof (f1)) do
      begin
      Readln(f1,s);
      for i:=length(s)-length(us)+1 downto 1 do
          if copy(s,i,length(us))=us
             then delete(s,i,length(us));
      writeln(f2,s);
      end;
Close(f1);
Close(f2);
end.

@PlatonCraft · 03.06.2013, 15:57 **[ТС]**

Сообщение от КонецСвета

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
Var f1,f2:text;
    i:integer;
    s,us,fp,fp2:string; //String, User String, File Path, Number of Chars
 
 
begin
writeln('Укажите полное имя файла, из которого хотите удалить одинаковые строки:'); Readln(fp);
writeln('Укажите полное имя файла, в который сохранятся изменения:'); Readln(fp2);
Assign(f1, fp);
Assign(f2, fp2);
Reset(f1);
Rewrite(f2);
Writeln('Что вы хотите удалить?'); Readln(us);
while not (eof (f1)) do
      begin
      Readln(f1,s);
      for i:=length(s)-length(us)+1 downto 1 do
          if copy(s,i,length(us))=us
             then delete(s,i,length(us));
      writeln(f2,s);
      end;
Close(f1);
Close(f2);
end.

офигеть!!! Вот это я понимаю программист, спасибо!!!

@Striker · 03.06.2013, 16:00

Не по теме:

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

Вот это я понимаю программист, спасибо!!!

А разве другие не программисты?

@PlatonCraft · 03.06.2013, 16:03 **[ТС]**

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

Не по теме:

А разве другие не программисты?

В смысле мне еще расти и расти

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@PlatonCraft 3 / 3 / 1 Регистрация: 18.02.2013 Сообщений: 63

	Удаление подстроки из строки 01.06.2013, 19:43. Показов 7620. Ответов 10 Метки нет (Все метки) Допустим, есть в переменной m типа string строка "S:blockMagnetizer.name" Как удалить из этой строки "S:" чтоб осталась в переменной та же строка но без "S:"? Помогите новичку, объясните по подробней. 0

@Midian 606 / 388 / 198 Регистрация: 31.03.2013 Сообщений: 2,690
	01.06.2013, 20:11
	Вот пример: Кликните здесь для просмотра всего текста Source := '12345678'; Delete(Source, 3, 4); // Удаление 3-го, 4-го, 5-го и 6-го символов Добавлено через 1 минуту Указываешь первым числом с какой позиции удалять, следующее число указывает сколько элементов удалить 0