Изменить данные в файле - VB
Формулировка задачи:
Привет.
Столкнулся с такой задачей. Не знаю, как лучше это сделать...
Есть к примеру файл с расширением .mp3 (или другое, не важно) размером 100 кбайт, как можно программно изменить в этом файле каждый 100 байт на 0?
Всем спасибо за малейшую информацию и намёки
Примерно вот такая заготовка:
Решение задачи: «Изменить данные в файле»
textual
Листинг программы
Private Sub Command1_Click() File$ = App.Path & "\1.mp3" 'Имя файла, который будем портить! LenFile = FileLen(File$) MyFile = FreeFile Open (File$) For Binary As #MyFile For I = 1 To LenFile Step 100 ' Меняем с 1-го байта или с 100-го? Тoгда I=100 Put #MyFile, I, &H0 ' Пишем в файл 0 Next I Close #MyFile End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д