powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите записать и считать данные
3 сообщений из 3, страница 1 из 1
Помогите записать и считать данные
    #35573747
GorloPavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мне нужно записывать какие-то данные в файл(ехе), а точнее в его конец. Как это можно сделать и как потом считать эти данные с конца фала и потом их отрезать от-туда?
...
Рейтинг: 0 / 0
Помогите записать и считать данные
    #35573773
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вирус, однако, пишем?

ИМХО не сюда, на этом форуме все участники законнонадежны

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
Помогите записать и считать данные
    #35575602
Nisan Scan Liner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GorloPavelМне нужно записывать какие-то данные в файл(ехе), а точнее в его конец. Как это можно сделать и как потом считать эти данные с конца фала и потом их отрезать от-туда?

Первый вариант - это операция с файлами средствами VB
Это операторы - OPEN,Close,Input,Get,Seek,Print,Put.
Ну а что касается двоичных файлов тебе надо сделать следующее

'открываем бинарны файл

Open "pathName" For Binary As fileNumber

'pathName — полное имя файла;
'fileNumber — номер файла.
'Читаем

Get #fileNumber, [recNumber], varName


'fileNumber — номер файла;
'recNuinber — размер записи в байтах;
'varName — переменная, в которую читаются данные из файла.


'Пишим
Put [#]fileNumber, [recNumber], varName


'fileNumber — номер файла;
'recNumber — размер записи в байтах;
'varName — переменная, в которой хранятся данные, записываемые в файл.

'закрываем

Close [fileNumberLlist]




Есть ещё способ через FSO

Код примерно такой:

set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strSourceFile)

'Чтение
Set objTextStream = objFSO.OpenTextFile(strPath, 1, False)
s = objTextStream.Read(objFile.Size)

'Запись
Set objTextStream = objFSO.OpenTextFile(strDestFile, 2, True)
Call objTextStream.Write(s)
objTextStream.Close



Ну ещё один способ это напямую через АПИ
функции OPEN, READ, Write ну и ТД


============================================
Замечание вам друзья!!!

Каждый выберает свой путь и не надо упрекать и обламывать людей за их выбор!
Если человек хочет чтото, то не надо мешать, а лучше помочь!!! Верно HandKot?
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите записать и считать данные
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]