Изменить данные в файле - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы