Замена строки в текстовом файле при нажатии клавиши

@diesel2400 · Регистрация: 28.07.2013

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

Приветствую всех форумчан.
Я здесь впервые, делаю робота, пишу под него программу управления на ВБ 6.0. Столкнулся с проблемой, которую два дня не могу самостоятельно решить. Прошу поддержки зала.

Моя задача.
Имеется текстовый файл MP710.local.set. В нем написаны следующие строки:

;CMD=0
;PRG=0
PORT11=0:NC
PORT12=0:NC

При нажатии клавиши «стрелка вверх» третья строка PORT11=0:NC должна поменяться на PORT11=128:NC.

Я добился результата, только лишь стирая все содержимое файла и вписывая все значения заново. Ниже кусок моего кода. Но мне надо сохранить значения в остальных строках и заменять именно нужную мне строку. Подскажите, пожалуйста, как заменить третью строку в текстовом файле не трогая остальные? Пробовал Replace, но что-то не совсем работает, видимо недопонимаю.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Open "d:\MP710.local.set" For Output As #1 'Открываем файл для добавления записи, с номером канала 1
Print #1, ";CMD=0" ' Записываем в файл текст
Print #1, ";PRG=0" ' Записываем в файл текст
Print #1, "PORT11=128:NC" ' Записываем в файл текст
Print #1, "PORT12=0:NC" ' Записываем в файл текст
Close #1 'Закрываем файл
End If
End Sub

Заранее благодарен.

@Pro_grammer · 29.07.2013, 07:57

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

стирая все содержимое файла и вписывая все значения заново.

Это нормально. Любой способ изменения текста в файле (кроме дописывания в конец файла) идет по такому сценарию:
Программа должна считать текст-> изменить его->записать обратно.

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim textline As String
 
Private Sub Command1_Click()
' Читаем файл в переменную
textline = Space(FileLen("d:\MP710.local.set"))
fo = FreeFile
Open "d:\MP710.local.set" For Input As #fo
textline = Input(LOF(fo), #fo)
Close #fo
' Изменяем содержимое
textline = Replace(textline, "PORT11=0:NC", "PORT11=128:NC")
' Сохраняем в файл
FileNum = FreeFile
Open "d:\MP710.local.set" For Output As FileNum
Print #FileNum, textline
Close #FileNum
 
End Sub

SoftIce · 29.07.2013, 11:16

Pro_grammer, а это зачем?

Visual Basic
1
textline = Space(FileLen("d:\MP710.local.set"))

инициализация переменной?

@diesel2400 · 29.07.2013, 11:33 **[ТС]**

Спасибо огромное! Заработало!

Буду дальше дорабатывать.

@Pro_grammer · 29.07.2013, 14:32

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

инициализация переменной?

ну типа того. Резервирование буфера памяти размером с текстовый файл.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@diesel2400 0 / 0 / 0 Регистрация: 28.07.2013 Сообщений: 5
	29.07.2013, 11:33 [ТС]
	Спасибо огромное! Заработало! Буду дальше дорабатывать. 0

Замена строки в текстовом файле при нажатии клавиши

Решение