Страница: 1 |
Страница: 1 |
Вопрос: НЕ могу открыть файл help me pl.
Добавлено: 27.01.05 21:01
Автор вопроса: Карась
Не могу открыть EXE файл через ОРЕN. Открывается толко первая строка и все помогите
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #1
Добавлено: 27.01.05 21:07
Там просто строк нет. Есть последовательность байт, которая может выступить в роли строки разве что случайно.
Номер ответа: 2
Автор ответа:
Карась
Вопросов: 6
Ответов: 10
Профиль | | #2
Добавлено: 27.01.05 21:12
А не мог бы написать листинг, просто Я не понял что ты имеешь в виду.
Пожалуйста
Номер ответа: 3
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #3
Добавлено: 27.01.05 21:25
Public Function LoadTextFile(Path As String) As String
 im strFile As String
n = FreeFile
Open Path For Binary As #n
strFile = Space$(LOF(n))
Get n, , strFile
Close #n
LoadTextFile = strFile
End Function
или
open file$ for input as #1
do while not eof (1)
Line input #1,t$
txt$ = txt$ & t$
close #1