Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Не работает оператор GET Добавлено: 20.10.11 22:29  

Автор вопроса:  Ivan
Здравствуйте. У меня не работает оператор GET. Причем PUT в тех же условиях работает нормально. Вот код
Option Explicit

Private Sub Form_Load()

Open "test.txt" For Binary Access Read As #1
Dim I As Long
Dim tst As String
For I = 1 To 4
Get #1, I, tst
MsgBox tst
Next I

End Sub


Помогите плиз.....

Ответить

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

Номер ответа: 1
Автор ответа:
 Isage.ru



Вопросов: 3
Ответов: 38
  Профиль | | #1 Добавлено: 23.10.11 00:44
Проблема в том что у тебя не указан буфер обмена переменная tst = бесконечна
Допустим тебе надо читать по одному байту тогда сделай так
  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5.  
  6. Open "test.txt" For Binary Access Read As #1
  7. Dim I As Long
  8. Dim tst As String * 1
  9. For I = 1 To 4
  10. Get #1, I, tst
  11. MsgBox tst
  12. Next I
  13.  
  14. End Sub



или так

  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5.  
  6. Open "test.txt" For Binary Access Read As #1
  7. Dim I As Long
  8. Dim tst As Byte
  9. For I = 1 To 4
  10. Get #1, I, tst
  11. MsgBox tst
  12. Next I
  13.  
  14. End Sub



А если тебе надо динамически менять размер буфера чтения, то сделай так
  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5.  
  6. Open "test.txt" For Binary Access Read As #1
  7. Dim I As Long
  8. Dim tst As String
  9. tst = space$(255) ' любое число которое тебе нужно, мнесто числа 255
  10. For I = 1 To 4
  11. Get #1, I, tst
  12. MsgBox tst
  13. Next I
  14.  
  15. End Sub

Ответить

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



Вопросов: 2
Ответов: 2
  Профиль | | #2 Добавлено: 29.10.11 19:04
Спасибо большое!!!! Помогло!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам