Удаление строк из текстового файла

@tomhardy96 · Регистрация: 31.10.2018

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

Доброго времени суток! Хотел использовать код, предложенный в данном топике Удаление строк из файла под свои нужды, но столкнулся с трудностью:

в файле приведена следующие строки
1
2
2
"tytyty"
54

Мне нужно удалить значение в кавычках, но стоку или число в кавычках не считывает textbox. Как быть в такой ситуации?

Используемый код:

Visual Basic
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
Private Sub Command2_Click()
    
    Dim F As Long
    Dim Fn As String
    Dim MyText As String
 
 
Text1.Text = ""
F = FreeFile
Fn = "D:\vb6files\test.txt"
 
Open Fn For Input As #F
Do Until EOF(F)
Line Input #F, MyText
    If Left(MyText, 6) <> "tytyty" Then
    Text1.Text = Text1.Text & MyText & vbCrLf
    End If
Loop
Close #F
 
Open Fn For Output As #F
Print #F, Text1.Text
Close #F
 
 
End Sub

@Казанский · 24.01.2019, 22:45

tomhardy96,

Visual Basic
1
    If Left(MyText, 8) <> """tytyty""" Then

@tomhardy96 · 25.01.2019, 08:08 **[ТС]**

Казанский, спасибо, всё заработало . Но только в случае, если строка в файле начинается с проверяемого значения в кавычках. А как быть , если "tytyty" находится в середине строки , к примеру : 34223423546Э"tytyty"ytututy ?

@Казанский · 25.01.2019, 08:16

tomhardy96,

Visual Basic
1
2
3
If instr(MyText, """tytyty""") > 0 Then
'или
If MyText like "*""tytyty""*" Then

@tomhardy96 · 25.01.2019, 08:28 **[ТС]**

Казанский, при использовании обоих команд стирается весь файл, почему так?

@Казанский · 25.01.2019, 08:36

tomhardy96, наоборот условие

Visual Basic
1
2
3
If instr(MyText, """tytyty""") = 0 Then
'или
If not MyText like "*""tytyty""*" Then

@wer1 · 25.01.2019, 09:08

Уважаемый tomhardy96,
ваше условие в строке 15 можно записать записать более обобщенно, не привязывая к конкретной записи в файле. То есть, если есть кавычки на первой позиции, то эта строка удаляется.
вариант 1

Visual Basic
1
If Left(MyText, 1) <> """" Then

или вариант 2

Visual Basic
1
If Left(MyText, 1) <> Chr(34) Then  ' 34 - код кавычек

примечание:
если бы мне пришлось решать эту задачу, то я не стал бы использовать текстовое поле, а сразу бы создал ещё файл и напрямую делал бы записи в него. Потом исходный файл удалил. А новый файл получил бы имя старого. Познакомьтесь с такими операторами как Kill и Name.

@tomhardy96 · 25.01.2019, 09:44 **[ТС]**

Казанский, спасибо, всё работает. А как быть в случае , когда мне нужно словосочетание без кавычек уже найти в любом месте строки( к примеру id=6). Cрабатывает сразу синтаксическая ошибка If MyText like "*"id=6"*" Then по причине лишних кавычек

Добавлено через 1 минуту
нтч, загвоздка в том, что мне нужно удалить строки именно с конкретным словосочетанием, просто так совпало, что в нём присутствую кавычки

@Казанский · 25.01.2019, 10:10

tomhardy96, сравните запись "*""tytyty""*" и "*"id=6"*". Внутри строки кавычки удваиваются - это синтаксис бейсика. Почитайте уже букварь какой-нибудь.

@tomhardy96 · 25.01.2019, 10:19 **[ТС]**

Казанский, я усвоил, что кавычки нужно удваивать , если они присутствую в строке. Но в словосочетании id=6 их нет, соответственно и запись должна выглядеть как "*""id=6""*" исключительно по моей логике. Но при таком варианте удаление в файле не происходит, он просто остаётся без изменений. Соответственно, присутствует ошибка в считывании значения

@Казанский · 25.01.2019, 10:51

tomhardy96, без кавычек "*id=6*"

@tomhardy96 · 25.01.2019, 14:24 **[ТС]**

Казанский, большое спасибо, что вытерпел моё скудоумие!=)

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	25.01.2019, 08:08 [ТС]
	Казанский, спасибо, всё заработало . Но только в случае, если строка в файле начинается с проверяемого значения в кавычках. А как быть , если "tytyty" находится в середине строки , к примеру : 34223423546Э"tytyty"ytututy ? 0

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	25.01.2019, 08:28 [ТС]
	Казанский, при использовании обоих команд стирается весь файл, почему так? 0

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	25.01.2019, 09:44 [ТС]
	Казанский, спасибо, всё работает. А как быть в случае , когда мне нужно словосочетание без кавычек уже найти в любом месте строки( к примеру id=6). Cрабатывает сразу синтаксическая ошибка If MyText like ""id=6"" Then по причине лишних кавычек Добавлено через 1 минуту нтч, загвоздка в том, что мне нужно удалить строки именно с конкретным словосочетанием, просто так совпало, что в нём присутствую кавычки 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	25.01.2019, 10:10
	tomhardy96, сравните запись """tytyty""" и ""id=6"". Внутри строки кавычки удваиваются - это синтаксис бейсика. Почитайте уже букварь какой-нибудь. 0

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	25.01.2019, 10:19 [ТС]
	Казанский, я усвоил, что кавычки нужно удваивать , если они присутствую в строке. Но в словосочетании id=6 их нет, соответственно и запись должна выглядеть как """id=6""" исключительно по моей логике. Но при таком варианте удаление в файле не происходит, он просто остаётся без изменений. Соответственно, присутствует ошибка в считывании значения 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	25.01.2019, 10:51
	tomhardy96, без кавычек "id=6" 1

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	25.01.2019, 14:24 [ТС]
	Казанский, большое спасибо, что вытерпел моё скудоумие!=) 0

Удаление строк из текстового файла

Решение