Редактирование файла

@11BOSS11 · Регистрация: 11.07.2010

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

Вот у меня есть кодик с помощью которого я беру все строки файла последовательного доступа , обрабатываю их и вывожу на Print :

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
Sub Initialize
Dim text As String, fileNum As Integer
fileNum% =Freefile()
Open "D:\ФАЙЛ UTF8.txt" For Input As fileNum%
Do While Not Eof(fileNum%)
Line Input #1, text$
обрабатываем строку
text$=text$+ " ЭТА СТРОКУ ОБРАБОТАНАЯ !"
Print text$  pechat odnoi stroki is faila
Loop
Close fileNum%
End Sub

и я вот не знаю, как когда я обработаю строчку сразу же заменить ею старую в этом же файле(чтобы после отработки агента этот файл еже был бы обработанным....).........

@mvyush · 10.08.2010, 12:45

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

Или открываем поток в памяти, туда складываем обработанные строки, закрываем файл, открываем его на запись и сохраняем в него данные из потока.

@11BOSS11 · 10.08.2010, 12:51

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Initialize
Dim KKK As Integer
KKK=200
Dim text As String, fileNum As Integer
fileNum% =Freefile()
Open "D:\ФАЙЛ UTF8.txt" For Input As fileNum%
fileNum2% =Freefile()
Open "D:\ФАЙЛ UTF8 2.txt" For Output As fileNum2%
Do While Not Eof(fileNum%)
Line Input #1, text$
 
 
text$=text$+ "ОБРАБОТАНО!"
 
Print text$  pechat odnoi stroki is faila
Write #fileNum2% , text$
Loop
Close fileNum%
Close fileNum2%
End Sub

Вот делаю таким вот образом....... почему оно дописывает кавычки к каждой строке во второй файл "ФАЙЛ UTF8 2.txt" ??
это можна как-нить убрать?

@Mydyvys · 10.08.2010, 12:56

Если файлик не очень большой, то лучше воспользоваться классом NotesStream. Загрузить разом данные в переменную, обработать и выгрузить обратно.

@11BOSS11 · 10.08.2010, 12:59

Спастбки=)
ладненько вроде разобрался...:
сделал запись просто таким способом : Print #fileNum2%, text$

тема закрыта)

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. На мобильном - сканируйте QR-код. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@mvyush 0 / 0 / 0 Регистрация: 19.04.2009 Сообщений: 2,219
	10.08.2010, 12:45
	Открываем временный файл на запись, туда складываем обработанные строки, закрываем файлы, старый удаляем, новый переименовываем. Или открываем поток в памяти, туда складываем обработанные строки, закрываем файл, открываем его на запись и сохраняем в него данные из потока. 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	10.08.2010, 12:56
	Если файлик не очень большой, то лучше воспользоваться классом NotesStream. Загрузить разом данные в переменную, обработать и выгрузить обратно. 0

@11BOSS11 0 / 0 / 0 Регистрация: 11.07.2010 Сообщений: 180
	10.08.2010, 12:59
	Спастбки=) ладненько вроде разобрался...: сделал запись просто таким способом : Print #fileNum2%, text$ тема закрыта) 0