Сгодня под конец ночи мне VB преподнёс подарок:
Всю жизнь так работал, а сегодня не хочет.
Вод мой код:
| Код |
Private Sub Open_Buttons()
Buttons = 0'Наш счётчик (к делу не относится)
On Error GoTo err
F = FreeFile
Open "Buttons.ini" For Input As #F'Открываем файл
For i = 0 To 99
Button(i \ 2).Name = ""'Это уже попытка отчаяния
kkKey = ""
Input #F, Button(i \ 2).Name'Пишем из файла в переменную
MsgBox Button(i \ 2).Name'Смотрим, что получилось
Input #F, kkKey'Пишем из файла в переменную
MsgBox kkKey'Смотрим, что получилось
key2mass kkKey, (i \ 2)'К делу не относится
Buttons = Buttons + 1'К делу не относится
Next i
err:
Close #F
End Sub
|
Первую строку читает нормально: StandBy
А вторая - 41!!!! 
Потом: 43 10 11 10 11 10 11 10 32 10 12 10 31 10 12 10 11 10 11 10 11 10 11 10 32 10 32 10 32 10 32 10 11 10 32 10 12 9 33 10 32 10 32 9 33 10 32 10 11 10
А уже потом только всё как по маслу - Track >
потом - 42 42 11 11 10 11 10 11 10 32 10 11 10 32 10 11 10 11 10 11 10 12 10 31 10 12 10 32 10 32 10 32 10 11 10 32 10 11 10 32 10 32 10 32 10 32 10 11 10 32 10
И так до конца нормально.
Не могу понять, в чём геморрой этой второй и третьей строки...
Файл прикрепляю...
Добавлено через 1 минуту и 40 секунд
Да, кстати, забыл:
В General есть
| Код |
Private Type String2
Name As String
Key(100) As Byte
End Type
Dim Button(100) As String2
Dim Buttons As Byte
|
|