Как открыть файл формата *.kod и извлечь информацию - VB

Узнай цену своей работы

Формулировка задачи:

Сразу прошу прощения, незнаю в каком разделе следовало мне отписатся... у меня есть прога очень старая, гдето 1998 года... она представляет собой обучающую программу. Мне нужно достать из нее текст инф... покапался в папках нашел там папку TXT, но внутри файлы не понятного формата .KOD кто знает как извл от туда информацию плс помогите!

Решение задачи: «Как открыть файл формата *.kod и извлечь информацию»

textual
Листинг программы
Private Sub Command1_Click()
 
    HomeDir$ = App.Path
    
    fi% = FreeFile
    
    Open HomeDir$ + "\01.kod" For Binary As #fi%
    
    l& = LOF(1)
    
    Buf$ = Space$(l&)
    
    Get #fi%, , Buf$
    
    For i& = 1 To l&
        k% = Asc(Mid$(Buf$, i&, 1))
        k% = (k% Xor &H1F) Xor 32
        Mid$(Buf$, i&, 1) = Chr$(k%)
    Next i&
    
    Seek #fi%, 1
    
    Put #fi%, , Buf$
    
    Close #fi%
 
End Sub

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


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

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

13   голосов , оценка 3.769 из 5