|
|
|
Помогите записать и считать данные
|
|||
|---|---|---|---|
|
#18+
Мне нужно записывать какие-то данные в файл(ехе), а точнее в его конец. Как это можно сделать и как потом считать эти данные с конца фала и потом их отрезать от-туда? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.10.2008, 06:58 |
|
||
|
Помогите записать и считать данные
|
|||
|---|---|---|---|
|
#18+
вирус, однако, пишем? ИМХО не сюда, на этом форуме все участники законнонадежны I Have Nine Lives You Have One Only THINK! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.10.2008, 08:06 |
|
||
|
Помогите записать и считать данные
|
|||
|---|---|---|---|
|
#18+
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? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.10.2008, 17:39 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=35575602&tid=2161783]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
169ms |
get topic data: |
7ms |
get forum data: |
1ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
| others: | 230ms |
| total: | 478ms |

| 0 / 0 |
