Поиск студента по структурам

@_VALERON_ · Регистрация: 20.03.2014

Студворк — интернет-сервис помощи студентам

Почему не работает? Что тут не так?

Visual Basic
1
2
3
4
5
For I = 0 To UBound(Students)
      If Students(I).FIO = "Петров" Then
        MsgBox "Запись найдена", vbInformation
      End If
    Next

Students это

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Type Student    ' 72 байта
    FIO As String * 32
    Group As String * 8
    Faculty As String * 16
    Year As Long
    Score1 As Long
    Score2 As Long
    Score3 As Long
End Type
Dim Students() As Student, Init As Boolean

SoftIce · 21.06.2015, 11:48

А массив Students как заполнили?

@_VALERON_ · 21.06.2015, 11:52 **[ТС]**

SoftIce, из файла

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim fNum As Integer, I As Long
    On Error GoTo ErrorLoading
    fNum = FreeFile
    Open App.Path & "\Data.rdm" For Random As fNum Len = 72
    I = LOF(fNum) \ 72
    If I = 0 Then Close fNum: Exit Function
    ReDim Students(I - 1): Init = True
    I = 0
    For I = 0 To UBound(Students)
        Get fNum, , Students(I)
    Next
    Close fNum
    LoadData = True
    Exit Function
ErrorLoading:
    MsgBox "Ошибка", vbCritical

SoftIce · 21.06.2015, 12:11

Уберите пока On Error GoTo ErrorLoading, хоть строку с ошибкой увидите

@_VALERON_ · 21.06.2015, 12:21 **[ТС]**

Да, в файл уже все записано. Считывание происходит правильно и без ошибок. На всякий случай убрал строку которую Вы сказали, ошибок нет

Добавлено через 4 минуты
SoftIce, почему то поиск не работает только по фамилии. Если искать по оценке, то все работает

Visual Basic
1
2
3
If Students(I).Score1 = 5 Then
            MsgBox "Есть", vbInformation
        End If

@The trick · 21.06.2015, 12:22

Потому что Student.FIO имеет размер 32 символа, а "Петров" - 6 символов. Поэтому нужно образать пробелы справа с помощью RTrim.

@The trick · 21.06.2015, 12:28

Сообщение от SoftIce

Или вообще длину убрать

Это не позволит перемещатся по записям как если файл был бы открыт как Random.

@_VALERON_ · 21.06.2015, 12:33 **[ТС]**

The trick, спасибо!

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	21.06.2015, 11:48
	А массив Students как заполнили? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	21.06.2015, 12:11
	Уберите пока On Error GoTo ErrorLoading, хоть строку с ошибкой увидите 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	21.06.2015, 12:22
	Сообщение было отмечено _VALERON_ как решение Решение Потому что Student.FIO имеет размер 32 символа, а "Петров" - 6 символов. Поэтому нужно образать пробелы справа с помощью RTrim. 1

@_VALERON_ 1 / 1 / 0 Регистрация: 20.03.2014 Сообщений: 166
	21.06.2015, 12:33 [ТС]
	The trick, спасибо! 0

Поиск студента по структурам

Решение