Конференция VBStreets

**Mleha** » 20.10.2004 (Ср) 16:08

Как занести содержимое любого файла в TextBox?
Простые TXT-файлы читаются только так, а вот чтоб любой файл это как?

Open Adres For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
:roll:

Заранее спасибо!

**Tarik** » 20.10.2004 (Ср) 16:13

Open for binary access read

**Andrey Fedorov** » 20.10.2004 (Ср) 16:17

Open for binary access read

А нафига?

Тут изначально неверно поставлен вопрос.
Так как несяно какой файл - dbf, gif или еще какой.
В зависимости от типа файла все и играется...

**Mleha** » 20.10.2004 (Ср) 16:17

Насколько я знаю там инфо представляется в BYTE, а нужен STRING!
:roll:

Покажи код? :cyclopsani:

**Mleha** » 20.10.2004 (Ср) 16:19

Файл может быть любым а результат - текст!

**ta_gena** » 20.10.2004 (Ср) 16:27

Код: Выделить всё: Dim fso As New Scripting.FileSystemObject Dim oStream As Scripting.TextStream Set oStream = fso.OpenTextFile(FileName, ForReading, True, TristateFalse) Text1.Text = oStream.ReadAll()

**Mleha** » 20.10.2004 (Ср) 16:30

Типа такого нет: Scripting.FileSystemObject

**marvan** » 20.10.2004 (Ср) 16:33

Mleha писал(а):Open Adres For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1

так это и есть чтение любого файла - хоть jpg ему скорми - отобразит печатные символы этого файла - главное не забывать про ограничение на размер данных выводимых в текстбокс

**Andrey Fedorov** » 20.10.2004 (Ср) 16:34

Насколько я знаю там инфо представляется в BYTE, а нужен STRING!

Если файл текстовый, то и открывай его как сам в самом начале написал - какая разница какое расширение.

**tyomitch** » 20.10.2004 (Ср) 16:34

Mleha писал(а):Насколько я знаю там инфо представляется в BYTE, а нужен STRING!

Покажи код?

Разницы никакой нет. Tarik всё правильно сказал.
А Andrey тебя только запутает ;-)

**Andrey Fedorov** » 20.10.2004 (Ср) 16:36

А Andrey тебя только запутает

Ик

**ta_gena** » 20.10.2004 (Ср) 16:43

Mleha писал(а):Типа такого нет: Scripting.FileSystemObject

Не понял про какого Типа идет речь. И куда он делся.

**Mleha** » 20.10.2004 (Ср) 16:44

При использовании:
Open Adres For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
говорит: Ввод после конца файла
Что можно подправить чтобы прочитал, например, архив?

**Mleha** » 20.10.2004 (Ср) 16:46

тип as String: as Integer , а я имею ввиду:
as Scripting.FileSystemObject

**ta_gena** » 20.10.2004 (Ср) 16:51

Mleha писал(а):При использовании:
Open Adres For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
говорит: Ввод после конца файла
Что можно подправить чтобы прочитал, например, архив?

А может так попробовать

Код: Выделить всё: Open Adres For Input As #1 Text1.Text = Input(LOF(1), #1) Close #1

**Mleha** » 20.10.2004 (Ср) 16:56

А в чем отличие? Ни так ни так не реботат!
Может все таки Binary Access Read поможет?
Но как им пользоваться?

**tyomitch** » 20.10.2004 (Ср) 17:09

ta_gena и остальные, Tarik в самом начале топика дал совершенно правильный ответ - надо заменить "For Input" на "For Binary Access Read".
Чего ещё тут мудрствовать?

**tyomitch** » 20.10.2004 (Ср) 17:12

marvan писал(а):так это и есть чтение любого файла - хоть jpg ему скорми - отобразит печатные символы этого файла - главное не забывать про ограничение на размер данных выводимых в текстбокс

при открытии For Input чтение идёт только до первого Chr(26), причём все Chr(0) пропускаются.
Так что jpeg так не прочитать ;-)

**Mleha** » 21.10.2004 (Чт) 9:38

Open For Binary Access Read читает только часть файла, помогите!? :cry:

YB » 21.10.2004 (Чт) 9:47

Типа такого нет: Scripting.FileSystemObject

Чтобы было, необходимо подкл. библ SCRRUN.DLL
типа [b]Proect-References[/b] и выбрать Microsoft Scripting Runtime.

**tyomitch** » 21.10.2004 (Чт) 9:52

Давай код целиком: у нас он читает весь файл ;-)

**Mleha** » 21.10.2004 (Чт) 9:55

Читает не все! Сами проверьте!!!

YB » 21.10.2004 (Чт) 9:59

Dim tf As Scripting.TextStream
text1.text=""

Set tf = fs.OpenTextFile(Adres)

Do While Not tf.AtEndOfLine
text1=text1 & tf.ReadLine
Loop

tf.Close

**Mleha** » 21.10.2004 (Чт) 10:06

Не знаю что и сказать все просто замечательно! Спасибо тебе, YB!

**Mleha** » 21.10.2004 (Чт) 10:09

Хотя подожди, сравнил с тем что показал блокнот - не одно и тоже. Решение еще не найдено!

**kif** » 21.10.2004 (Чт) 11:11

вариант 1

Код: Выделить всё: Dim s As String Dim f As Integer s = Space(FileLen("c:\my.file")) f = FreeFile Open "c:\my.file" For Binary As f Get #f, 1, s Close f

с этой строкой делай что хочешь, в нее входят и chr$(0) и все остальное

вариант 2

Код: Выделить всё: Dim s() As Byte Dim f As Integer f = FreeFile Open "c:\my.file" For Binary As f Get #f, 1, s() Close f

с этим массивом тоже самое

но если ты хочешь читать jpg, будь добр изучи структуру файла, создай тип данных (заголовок файла), считай его, а за тем читай непосредственно данные.

Дело в том, мой милый друг, что у каждого файла есть свой заголовок, кроме простых текстовых - *.txt

если бы винда могла создавать(читать) все типы файлов, то ей не нужны были бы установленные тобой программы, например MS Office и т.д.

**kif** » 21.10.2004 (Чт) 11:15

Для проверки данной теории переименуй любой файл jpg в bmp, ты увидишь, что винда его все равно откроет, но не в редакторе paint. Отсуда следует, что ей (винде) по барабану расширение, определяет тип файла она по его заголовку.

**kif** » 21.10.2004 (Чт) 11:20

на счет блокнота:

в textbox влазит только 64кб информации, так что, если у тебя файл больше 64кб - ты его полностью не увидишь, используй RichTextBox

**Mleha** » 21.10.2004 (Чт) 12:11

Раньше в TEXTBOX влазило около 200000 символов, а сейчас что не должно?

**tyomitch** » 21.10.2004 (Чт) 14:27

kif писал(а):на счет блокнота:

в textbox влазит только 64кб информации, так что, если у тебя файл больше 64кб - ты его полностью не увидишь, используй RichTextBox

Там ТРИДЦАТЬ ДВА КИЛОБАЙТА
Ну откуда вы все взяли эту цифру в 64Кб? Или вам ссылку на MSDN дать?

Конференция VBStreets

Прочитать любой файл?!

Прочитать любой файл?!

Re: Прочитать любой файл?!

Re: Прочитать любой файл?!

Кто сейчас на конференции