ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как изменить значение 28 байта в файле с 01 на 00
3 сообщений из 3, страница 1 из 1
как изменить значение 28 байта в файле с 01 на 00
    #33813665
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
вот до чего добрался... но как изменить само значение. может быть кто-то знает??
в hex редакторе все быстро и просто... а вот средствами VB...
Код: plaintext
1.
Open "C:\DEBNEW\BAZA\" & strDN For Binary As # 1 
    Put # 1 , ??, ???
...
Рейтинг: 0 / 0
26.06.2006, 08:30
| Ответить | Цитировать | Написать  
как изменить значение 28 байта в файле с 01 на 00
    #33813710
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Не сказал бы, что в HEX редакторе все быстро:
надо открыть файл, а затем посредством label или textbox ов вывести файл на экран.При изменении и сохранении надо все textbox ы записать в файл.
Просто онизнают, как это сделать, а ты - нет. Поэтомы для тебя это так сложно.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
  Dim tt As Integer
  tt = FreeFile
  Dim b As Byte
  Open App.Path & "\bin.txt" For Binary As #tt
    Get tt,  28 , b 'в принципе этого не обязятельно. но старое значение может понадобиться...
    
    b = Asc("@")
    Put tt,  28 , b
  Close #tt

P.S.
shady
Код: plaintext
1.
Open "C:\DEBNEW\BAZA\" & strDN For Binary As # 1 
    Put # 1 , ??, ???

Для таких случаев существует HELP (F1). Если у тебя нету - ищи в интернете.
...
Рейтинг: 0 / 0
26.06.2006, 09:13
| Ответить | Цитировать | Написать  
как изменить значение 28 байта в файле с 01 на 00
    #33813749
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
HELP-то есть, но дело в том, что:
когда я пишу
Код: plaintext
1.
2.
3.
4.
Dim cdx As Byte
        cdx =  0 
    Open "C:\DEBNEW\BAZA\" & strDN For Binary As # 1 
        Put # 1 ,  28 , cdx
    Close # 1
потом открываю в hex редакторе и смотрю изменения, то в 28 байте у меня ни чего не поменялось...
как было значение 01, так оно и осталось.
попробывал еще вставить
Код: plaintext
Get # 1 ,  28 , abcd
чтобы посмотреть что там, но там пусто...
так может быть он и не считывает ничего?? и ни чего не записывает??
...
Рейтинг: 0 / 0
26.06.2006, 09:40
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как изменить значение 28 байта в файле с 01 на 00
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=Foxhound&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 6ms
get forum list:
 16ms
get settings:
 8ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 152ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 2ms
others: 507ms
total:  735ms
созд. / загр.: 735ms
x
x
Закрыть


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