В текстовом файле производить перезапись строк не последовательно а те, которые нужно

@mitia2010 · Регистрация: 22.12.2011

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

суть в том что я только знаю как можно переписать строки текстового файла последовательно но не могу понять как их можно записывать в разнобой не последовательно и не изменяя другие строки и не внося их в массив! как сделать запись любой строчки текстового файла??

Visual Basic
1
2
3
4
5
6
7
s(5)="текст старый"
s(5)=s(5)&"новый текст"
open App.Path&"\Text.txt" for output As #1
for i = 1 to 10
print #1,s(i)
next i
close #1

как можно записать эту строчку например не внося другие в оперативную память компьютера??

Добавлено через 1 минуту
спасибо заранее всем кто поможет!!
буду благодарен за помощь

@Alex77755 · 19.04.2012, 13:53

чтобы записи в тексте были не на одной строчке

Уже отвечали: работай как с обыкновенным текстовым файлом
Одной строчкой считываем файл

Visual Basic
1
2
3
4
5
 Dim File As String, CF As String    'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log"    'ycтановим имя файла и пyть 
   Open File For Binary As #1    'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1    'закpыть файл

Добавлено через 1 минуту
Затем одной строчкой разбей в массив по строкам

Visual Basic
1
2
Dim ArrayLines As string
ArrayLines = Split(CF, vbNewLine)

Добавлено через 4 минуты
Дальше работай с массивом строк как надо
Вот только записывать в файл одной строкой не получится - в цикле по строкам надо
На коленке писано это так:

Visual Basic
1
2
3
4
5
open Имя_файла for output as 1
For r=0 to ubound(ArrayLines)
print 1, ArrayLines(r)
next r
close 1

@PAnT0P · 19.04.2012, 13:59

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

Вот только записывать в файл одной строкой не получится - в цикле по строкам надо

Да ну?

Visual Basic
1
2
3
   Open Имя_файла For Output As 1
       Print 1, Join(ArrayLines, vbNewLine)
   Close 1

@Alex77755 · 19.04.2012, 14:02

Забыл про Join

@mitia2010 · 19.04.2012, 16:47 **[ТС]**

а что за переменная vbNewLine? она чему то равна??
или я не правильно понял??

@PAnT0P · 19.04.2012, 17:49

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

а что за переменная vbNewLine? она чему то равна??
или я не правильно понял??

Visual Basic
1
vbNewLine = vbCrLf

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	19.04.2012, 14:02
	Забыл про Join 1

@mitia2010 1 / 1 / 0 Регистрация: 22.12.2011 Сообщений: 31
	19.04.2012, 16:47 [ТС]
	а что за переменная vbNewLine? она чему то равна?? или я не правильно понял?? 0