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

**sanekz** » 28.05.2006 (Вс) 17:06

Подскажите пожалуйста как сделать чтоб при открытие программы считывалась информация из DAT файла?

**GSerg** » 28.05.2006 (Вс) 17:14

Подскажите пожалуйста, что такое DAT файл.

**vvs_adm** » 28.05.2006 (Вс) 17:21

sanekz писал(а):Подскажите пожалуйста как сделать чтоб при открытие программы считывалась информация из DAT файла?

Код: Выделить всё: Option Explicit Private Sub Form_Load() On Error GoTo Errorhandler Dim sInformation As String Dim nFreeFile As Long nFreeFile = FreeFile Open "Файл.dat" For Binary As nFreeFile sInformation = String$(LOF(nFreeFile), vbNullString) Get nFreeFile, , sInformation Close nFreeFile Errorhandler: MsgBox "Нехорошая ошибка № " & CStr(Err.Number) End Sub

**sanekz** » 28.05.2006 (Вс) 17:21

Это файл с расширением Dat что то типа txt

**sanekz** » 28.05.2006 (Вс) 17:24

Спасибо

BV » 28.05.2006 (Вс) 17:24

vvs_adm писал(а):sInformation = String$(LOF(nFreeFile), vbNullString)

Сам-то понял, что написал?

**vvs_adm** » 28.05.2006 (Вс) 17:31

BV писал(а):
vvs_adm писал(а):sInformation = String$(LOF(nFreeFile), vbNullString)

Сам-то понял, что написал?

Ой, дико извиняюсь

Ессно

Код: Выделить всё: sInformation = String$(LOF(nFreeFile), vbNullChar)

P.S.: я-то как раз понял

А вот компилятор не врубился... Мог бы и сам догадаться

**sanekz** » 01.06.2006 (Чт) 21:45

Что то не получаеться!

**Хакер** » 01.06.2006 (Чт) 22:07

sanekz, что именно не получается? поялвяется ошика?

или ничего не появляется но и ничего не получается?

**sanekz** » 02.06.2006 (Пт) 20:24

Появляеться ошибка и ничего не происходит!

**Хакер** » 02.06.2006 (Пт) 22:45

То что появляется ошибка, это значит что что-то уже происходит. Ошибка случайно не такая: (?)

Run-Time Error 53
File not found

**sanekz** » 03.06.2006 (Сб) 21:16

Хакер писал(а):То что появляется ошибка, это значит что что-то уже происходит. Ошибка случайно не такая: (?)

Run-Time Error 53
File not found

Нет появляеться окно с надписью нехорошая ошибка N
Еще вопрос а как эту информацию собственно в форму выводить чтоб потом ее можно было прочесть типа как в справочнике по кодам Chemax

**Хакер** » 03.06.2006 (Сб) 21:41

Очень бы хотелось, чтобы ты сказал номер этой нехорошей ошибки. Я конечно могу и так, ведь я же телепат, но подвечер хочется расслабиться после трудного дня, а тут - читать чьи то мысли...

Если номер нехорошей ошибки - 53, то ты пытаешься открыть файл, которого нет.

Если номер - 75 или 76 - проблемы с путем.

Короче, сделай так: в пенели Immidiate напиши

Код: Выделить всё: Error N ' N замени на номер, который выходит в сообщении

Ты получишь текстовое описание ошибки. Возможно после этого ты сам исправишь ситуацию, если нет - пиши - поможем

**VVitafresh** » 03.06.2006 (Сб) 21:52

LOL

sanekz, vvs_adm писал тебе наверное на скору руку и забыл поставить Exit Sub перед ErrorHandler, мог бы и догадаться:

Код: Выделить всё: Private Sub Form_Load() On Error GoTo Errorhandler Dim sInformation As String Dim nFreeFile As Long nFreeFile = FreeFile Open "c:\FileName.dat" For Binary As nFreeFile sInformation = String$(LOF(nFreeFile), vbNullChar) Get nFreeFile, , sInformation Close nFreeFile Text1.Text = sInformation 'Вывод инфы из файла в текстбокс Exit Sub Errorhandler: MsgBox "Нехорошая ошибка № " & CStr(Err.Number) End Sub

**Хакер** » 03.06.2006 (Сб) 21:56

ЛОЛ, и вправду... и как же я не заметил. ПОЗОР МНЕ!

(а может у него всё таки есть ошибка...)

**vvs_adm** » 03.06.2006 (Сб) 22:29

Хакер писал(а):ЛОЛ, и вправду... и как же я не заметил. ПОЗОР МНЕ!

(а может у него всё таки есть ошибка...)

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

А тут не проверял, вроде проверять-то нечего

**sanekz** » 04.06.2006 (Вс) 18:38

Хакер писал(а):Очень бы хотелось, чтобы ты сказал номер этой нехорошей ошибки. Я конечно могу и так, ведь я же телепат, но подвечер хочется расслабиться после трудного дня, а тут - читать чьи то мысли...

Если номер нехорошей ошибки - 53, то ты пытаешься открыть файл, которого нет.

Если номер - 75 или 76 - проблемы с путем.

Короче, сделай так: в пенели Immidiate напиши
Код: Выделить всё
Error N ' N замени на номер, который выходит в сообщении

Выскакивает ошибка 424!?
Ты получишь текстовое описание ошибки. Возможно после этого ты сам исправишь ситуацию, если нет - пиши - поможем

**Хакер** » 04.06.2006 (Вс) 18:51

Ошибка 424 = Object requend. = Требуется объект.

Возниакает когда в программе производится действие с каким то объектом, которого нет. В даннном случае, возможно только одно - на форме нет textbox'а Text1

**sanekz** » 04.06.2006 (Вс) 21:00

Хакер писал(а):Ошибка 424 = Object requend. = Требуется объект.

Возниакает когда в программе производится действие с каким то объектом, которого нет. В даннном случае, возможно только одно - на форме нет textbox'а Text1

А точно вы правы я текстбокс забыл воткнуть

**sanekz** » 04.06.2006 (Вс) 21:07

Ура заработало! А кто знает как разделить информацию например в правом текстбоксе название софта а в левом при нажатие на название софта выскакивало бы его описание и чтоб всю инфу брало из одного дат файла! :?:

**Хакер** » 04.06.2006 (Вс) 22:05

Ты имеешь ввиду слева список, с названиями софта, а справа описание?

Тогда способов куча... Знашь ли ты что-такое Get/Put для работы с файлыми, открытыми в режиме [As Binary] ?

**sanekz** » 05.06.2006 (Пн) 18:57

Хакер писал(а):Ты имеешь ввиду слева список, с названиями софта, а справа описание?

Тогда способов куча... Знашь ли ты что-такое Get/Put для работы с файлыми, открытыми в режиме [As Binary] ?

Расскажи поподробнее о способах а что такое гет и пут понятия не имею!

**Amed** » 05.06.2006 (Пн) 19:08

В поиск.

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

Как считать информацию из DAT файла

Как считать информацию из DAT файла

Re: Как считать информацию из DAT файла

Re: Как считать информацию из DAT файла

Re: Как считать информацию из DAT файла

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