Поиск в файле произвольного доступа

@lbvfy_933 · Регистрация: 05.05.2013

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

Приветствую всех!

Имеется файл basa_videocard.bvd (расширение произвольное, файл легко открывается блокнотом)

В этом файле хранятся строки данных. По 11 полей в одной строке. (модель, производитель, типа памяти, объём, ширина шины данных, тех процесс, поддержка карточкой SLI\cross fire, через какой разъем подключается, версия шейдеров, цена видеокарты).

Задача:
Открыть файл в произвольном доступе.
Сделать поисковую форму. Форма содержит в себе несколько полей. Поиск должен выполняться как по одному любому критерию, так и по нескольким полям одновременно.

Допустим если ввести nvidia, то должны отобразиться все строки (все видеокарты) на данном чипе.
А если ввести "128 бит" в одно поле и "40 nm" в другое и "PCI Express 2.0 x16" в третье, то должны отобразиться строки (видеокарты) которые содержат в себе эти характеристики.

Полей для поиска соответственно 11.

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

Результаты можно выводить любым способом.

Немного погуглив понял, что нужно использовать подстроки, но как это и что это такое никак не соображу.
Если что-то не понятно, пишите, попробую объяснить по-другому.
Надеюсь на помощь!

@Alex77755 · 06.05.2013, 09:01

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

Результаты попыток в студию!

Открыть файл в произвольном доступе.

Файл произвольного доступа открывается несколько иначе, чем файл последовательного доступа. Синтаксис оператора open при этом выглядит следующим образом: Open pathName [For Random] As fileNumber Len = recLength где: pathName — полное имя файла; fileNumber — номер файла; recLength — длина записи в байтах. При использовании оператора Open для открытия файла произвольного доступа атрибут For не обязателен, так как в Visual Basic 6 этот параметр устанавливается по умолчанию. Как видно из синтаксиса, в отличие от файла с последовательным доступом, при открытии файла с произвольным доступом необходимо обязательно указывать длину записи. При этом, если длина записи не известна, ее можно вычислить с использованием функции Len.

Добавлено через 9 часов 25 минут
Описание и пример

@Pro_grammer · 06.05.2013, 09:51

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

В этом файле хранятся строки данных.

Технически в этом файле всего 1 строка

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

По 11 полей в одной строке.

Тут уместнее сказать, что в одной записи 11 типов пользовательских данных ( кстати вами описано только10)

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

понял, что нужно использовать подстроки

Вначале надо создать пользовательский тип данных

Visual Basic
1
2
3
4
5
6
7
8
9
Type VideoCard
Name As String * 20
Vendor As String * 10
TypeMem As String * 7
' И так остальные 8 типов
' строго в соответствии с типом
' и размером в вашем файле
 
End Type

Дальше открываем файл в произвольном доступе, считываем записи последовательно, в них ищем нужную информацию. Если инфа есть, то выводим на экран.

@lbvfy_933 · 06.05.2013, 10:58 **[ТС]**

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

Результаты попыток в студию!

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

с произвольным доступом разобрался.

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

Цитата Сообщение от lbvfy_933 Посмотреть сообщение
В этом файле хранятся строки данных.
Технически в этом файле всего 1 строка
Цитата Сообщение от lbvfy_933 Посмотреть сообщение
По 11 полей в одной строке.
Тут уместнее сказать, что в одной записи 11 типов пользовательских данных ( кстати вами описано только10)
Цитата Сообщение от lbvfy_933 Посмотреть сообщение
понял, что нужно использовать подстроки
Вначале надо создать пользовательский тип данных

ну по сути да, это одна длинная строка, а 11 тип пользовательских данных - версия DirectX.

Осталось разобраться как прикрутить поиск.

@Alex77755 · 06.05.2013, 11:26

Сделать поисковую форму

Обязательно поисковую? Может проще фильтровать?
При открытии загрузить все данные в таблицу, а фильтром прятать ненужные!?

@Alex77755 · 06.05.2013, 11:34

В твоём варианте отображается только одна карта.
Это не соответствует требованиям:

Допустим если ввести nvidia, то должны отобразиться все строки (все видеокарты) на данном чипе.

Поэтому лучше использовать контролы позволяющие выводить списки или таблицы.

@Alex77755 · 06.05.2013, 11:38

Ну раз появились собственные наработки не грех и помочь.
Как вариант с фильтром:

@Alex77755 · 06.05.2013, 14:56

Процедуру фильтра можно преобразовать:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Find2()
Dim i, C
Dim Vid As Boolean
With MSHFlexGrid1
    For i = 1 To .Rows - 1
            For C = 1 To 11
                If Текст1(C).Text = "" Or InStr(1, .TextMatrix(i, C), Текст1(C).Text) > 0 Then
                   Vid = True
                Else
                   Vid = False
                   Exit For
                End If
            Next C
            .RowHeight(i) = .RowHeight(0) * IIf(Vid, 1, 0)
    Next i
End With
End Sub

@lbvfy_933 · 06.05.2013, 22:56 **[ТС]**

ого. огромное Вам спасибо за такой труд. возникли вопросы.

1. не могли бы вы пояснить как работает sub format_grid
2. как дать имя 11ому столбцу?
3. как сделать так чтобы подписи, которые я дал столбцам умещались на экране?
4. допустим я отфильтровал строки и у меня осталось только две видеокарты. можно ли как нибудь поместить результат в текстовый файл или же сразу отправить на печать?
5. и кхм вопрос конечно глупый, но всё же спрошу: как грамотно перенести ваш код в свой проект?

@Alex77755 · 07.05.2013, 00:42

1. А что вызавает вопросы-затруднения
2.

Visual Basic
1
TextMatrix(0, 2) = "Производитель"

Даёт заголовок третьему столбцу (смотри внимательно sub format_grid).
Сделай по аналогии для остальных( в примере показаны 3)
3. Вариантов несколько:
-изменить подписи
-изменить шрифт
-изменить ширину колонок
-изменить высоту шапки таблицы и разрешить перенос
-сделать шапку таблицы в виде картинки(например в екселе) и прицепить к таблице без шапки
4. запись в текстовой файл можно прикрутить в саму процедуру фильтрации
5. для меня проще написать ( в данном случае дописать) мой проект чем переделывать или лепить из двух один.
Можно добавить мою форму к своему проекту и вызывать её для фильтрации, а свою оставить для просмотри данных по одной карте. Можно на форме фильтра не показывать все параметры, а только характерные, а при выборе из отфильтрованного списка по клику по строке переходить на твою форму и показавыть все параметры.

Блок назначений:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
With MSHFlexGrid1
    .RowHeight(0) = 450
    .WordWrap = True
    .Width = Width
    .Left = 0
    Ms = (.Width - 2800) / 100
    .Cols = 12
    .ColWidth(0) = 3 * Ms: W = 0: Текст1(0).Left = W: Текст1(0).Text = "": Текст1(0).Width = .ColWidth(0)
    .ColWidth(1) = 20 * Ms: W = W + .ColWidth(0): Текст1(1).Left = W: Текст1(1).Text = "": Текст1(1).Width = .ColWidth(1): .TextMatrix(0, 0) = "№"
    .ColWidth(2) = 10 * Ms: W = W + .ColWidth(1): Текст1(2).Left = W: Текст1(2).Text = "": Текст1(2).Width = .ColWidth(2): .TextMatrix(0, 1) = "Название"
    .ColWidth(3) = 7 * Ms: W = W + .ColWidth(2): Текст1(3).Left = W: Текст1(3).Text = "": Текст1(3).Width = .ColWidth(3): .TextMatrix(0, 2) = "Производитель"
    .ColWidth(4) = 10 * Ms: W = W + .ColWidth(3): Текст1(4).Left = W: Текст1(4).Text = "": Текст1(4).Width = .ColWidth(4): .TextMatrix(0, 3) = "Тип памяти"
    .ColWidth(5) = 12 * Ms: W = W + .ColWidth(4): Текст1(5).Left = W: Текст1(5).Text = "": Текст1(5).Width = .ColWidth(5): .TextMatrix(0, 4) = "Объём памяти"
    .ColWidth(6) = 8 * Ms: W = W + .ColWidth(5): Текст1(6).Left = W: Текст1(6).Text = "": Текст1(6).Width = .ColWidth(6): .TextMatrix(0, 5) = "Разрядность шины"
    .ColWidth(7) = 15 * Ms: W = W + .ColWidth(6): Текст1(7).Left = W: Текст1(7).Text = "": Текст1(7).Width = .ColWidth(7): .TextMatrix(0, 6) = "Тех. процесс"
    .ColWidth(8) = 15 * Ms: W = W + .ColWidth(7): Текст1(8).Left = W: Текст1(8).Text = "": Текст1(8).Width = .ColWidth(8): .TextMatrix(0, 7) = "Поддержка SLI/Cross Fire"
    .ColWidth(9) = 7 * Ms: W = W + .ColWidth(8): Текст1(9).Left = W: Текст1(9).Text = "": Текст1(9).Width = .ColWidth(9): .TextMatrix(0, 8) = "Тип подключения"
    .ColWidth(10) = 7 * Ms: W = W + .ColWidth(9): Текст1(10).Left = W: Текст1(10).Text = "": Текст1(10).Width = .ColWidth(10): .TextMatrix(0, 9) = "Шейдеры"
    .ColWidth(11) = 7 * Ms: W = W + .ColWidth(10): Текст1(11).Left = W: Текст1(11).Text = "": Текст1(11).Width = .ColWidth(11): .TextMatrix(0, 10) = "DirectX"
    .ColWidth(12) = 7 * Ms: W = W + .ColWidth(11): Текст1(12).Left = W: Текст1(12).Text = "": Текст1(12).Width = .ColWidth(12): .TextMatrix(0, 11) = "Цена"
End With

@lbvfy_933 · 07.05.2013, 09:01 **[ТС]**

с названиями разобрался. форму прикрепил таким же образом как описали Вы.

осталось только разобраться с записью в текстовый файл. в принципе всё понятно. кидаем кнопку на форму, даём ей название сохранить, при нажатии пишем в файлик то, что есть в текстматриксах. не могли бы Вы показать как будет это выглядеть?

@Alex77755 · 07.05.2013, 22:16

кидаем кнопку на форму, даём ей название сохранить,

Я бы сделал иначе: писал в файл при фильтрации

@lbvfy_933 · 11.05.2013, 10:21 **[ТС]**

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

Я бы сделал иначе: писал в файл при фильтрации

а это как?

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@lbvfy_933 3 / 3 / 0 Регистрация: 05.05.2013 Сообщений: 14
	07.05.2013, 09:01 [ТС]
	с названиями разобрался. форму прикрепил таким же образом как описали Вы. осталось только разобраться с записью в текстовый файл. в принципе всё понятно. кидаем кнопку на форму, даём ей название сохранить, при нажатии пишем в файлик то, что есть в текстматриксах. не могли бы Вы показать как будет это выглядеть? 0

Поиск в файле произвольного доступа

Решение