VBNet - Форум - Как считать файл целиком???

Вопрос: Как считать файл целиком??? Добавлено: 11.11.02 11:08

Автор вопроса: Неясов_Андрей | Web-сайт: fans.saturn-fc.ru | ICQ: 674522

Хочу открыть файл целиком и записать его в переменную как это сделать !!!
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: ГАТ Вопросов: 2 Ответов: 117	Web-сайт: www.mail.ru Профиль \| \| #1	Добавлено: 11.11.02 11:14
	Используй библиотеку MS Scripting. Ответить

Номер ответа: 2
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #2

Добавлено: 11.11.02 12:07

Дополню ГАТа и приведу примерчик:

Private Function GetTextFromFile(ByVal sFileName As String) As String
Dim oStream As Scripting.TextStream
Dim oFile As Scripting.File
Dim oFSO As Scripting.FileSystemObject

    Set oFSO = New Scripting.FileSystemObject
    Set oFile = oFSO.GetFile(sFileName)
    Set oStream = oFile.OpenAsTextStream(ForReading, TristateFalse)
    GetTextFromFile = oStream.ReadAll
End Function

Ответить

Номер ответа: 3
Автор ответа:

Petrovich

Вопросов: 9
Ответов: 84

Профиль | | #3

Добавлено: 11.11.02 12:14

Уточни формат открываемого файла.

Что ты хочешь с ним делать: читать по стоками? Получить содержимое файла в одну строковую переменную или как массив байтов?

Ответить

Номер ответа: 4
Автор ответа:

Неясов_Андрей

ICQ: 674522

Вопросов: 17
Ответов: 21

Web-сайт: fans.saturn-fc.ru
Профиль | | #4

Добавлено: 11.11.02 12:25

Звуковой файл для отправления его в буфер модема для проигрывания в линии!!!

Ответить

Номер ответа: 5
Автор ответа:

Petrovich

Вопросов: 9
Ответов: 84

Профиль | | #5

Добавлено: 11.11.02 12:47

Это кусок рабочего кода. Не совсем адаптирован к вопросу, но, надеюсь, будет понятно. Я беру файл, делаю копию (не обязательно), читаю его в массив, просматриваю массив по байтам, в цикле делаю перекодировку (там .............),

все что перекодировал (измененный массив) сохраняю в новом файле.

    Dim nIn As Integer, nOut As Integer, nArh As Integer
    Dim nSymb As Byte, lCount As Long, lLenFile As Long
    nIn = FreeFile: Open sInFileName For Binary As #nIn
    nOut = FreeFile: Open "C:\tmp.$$$" For Binary As #nOut
    nArh = FreeFile: Open sArhFileName For Binary As #nArh
    lLenFile = LOF(nIn)
    ReDim Buffer(1 To lLenFile) As Byte
    'читаем все в массив
    Get #nIn, , Buffer()
    'выплевываем в архивный файл, как есть (копия)
    Put #nArh, , Buffer()
    'просматриваем массив по байтам

    For lCount = 1 To UBound(Buffer, 1)

...............

    ...............
    Next
    'пишем во временный файл
    Put #nOut, , Buffer()

    Close #nIn
    Close #nOut
    Close #nArh

Ответить

Номер ответа: 6
Автор ответа:
root

Вопросов: 12
Ответов: 147

Web-сайт: www.vbnet.ru
Профиль | | #6

Добавлено: 12.11.02 04:42

Грузим в переменную:

Dim S$

Open "файло" For Binary As #1

S = Space(Lof(1))

Get #1,, S

Грузим в массив:

Dim S() As Byte

Open "файло" For Binary As #1

Redim S(Lof(1))

Get #1,, S

Но это тебе не поможет, чтоб играть модемом - я думаю, что нужно использовать WaveOutWrite или что-то подобное, т.к. голосовой модем должен определяться как wave девайс... теоритически...

Ответить

Страница: 1 |