| Вопрос: Как вытащить из файла половинку... | Добавлено: 29.05.05 17:57 |
Автор вопроса:  magish
|
|
У мя вопрос: есть файл... его нужно открывать по чястям - ну открыл часть, переслал... потом другую и т.д.
Вопрос именно в открытие... помогите... да и еще - открытое значение (текс) должно быть как String... |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 29.05.05 19:43 |
|
Private Function LoadTextFile(path As String) As String
'Загрузка файла в переменную  im l As Long
im s As String
n = FreeFile Open path For Binary As #n l = LOF(n) s = String(l, vbNullChar) Get n, , s Close #n LoadTextFile = s End Function Там где l - длинна часта, в этой функции l = LOF(n), т.е. весь файл, ты возьми сколько нужно... |
||
|
Номер ответа: 2 Автор ответа: magish Вопросов: 47 Ответов: 47 |
Профиль | | #2 | Добавлено: 30.05.05 16:19 |
| А если надо из середины вытащить? | ||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 30.05.05 17:26 |
| Seek ? | ||
|
Номер ответа: 4 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #4 | Добавлено: 31.05.05 08:55 |
|
Get n, , s
вот тут можно указывать с какого и до какого байта тащить. |
||
Страница: 1 |