Как открыть файл формата *.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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д