powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / База_в_txt_файле
5 сообщений из 5, страница 1 из 1
База_в_txt_файле
    #38362368
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
здравствуйте, решил опробовать один код, получаю мессагу: Cannon define a public user-defined type within an object module
Чего ему надобно?
самое интересное, что код с соей тетрадки и когда я его туда помещал - пробовал всё работало...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
Option Explicit
'http://vbzero.narod.ru/chapter1/page_17.htm
Type ZAP    'объявить структуру с именем ...
    Tab_N As String * 10   'табельный №
    Fam As String * 20    'фамилия
    Ima As String * 20    'имя
    Otht As String * 20    'отчество
    Raz As String * 5    'разряд
    Zeh As String * 5    'цех
    'общая дина = 80
End Type    'конец объявления структуры

Public Z As ZAP
Public Nz As Integer

Sub База_в_txt_файле()

'присваиваем значения переменным из структуры
    Z.Tab_N = "231"
    Z.Fam = "Ципихович"
    Z.Ima = "Эндрю"
    Z.Otht = "Иванович"
    Z.Raz = "1"
    Z.Zeh = "16"

    'обшая дина переменных из структуры
    'присваивается не реальная длина введённых данных во все переменные, а длина, присвоенная при объявлении структуры
    'общая дина = 80
    Dim Длина As Integer
    Длина = Len(Z)
    'For Random - тип доступа - произвольный
    'Access - ключевое слово, указывающее, что далее идет тип доступа
    'Тип_доступа - позволяет установить доступ к файлу
    'Read - для чтения
    'Write - для записи
    'Read Write - для чтения и записи
    'если не указывать тип доступа, то по умолчанию - для чтения и записи
    'права_доступа - определяет права доступа к файлу различных пользователей одновременно
    'Shared - открыто для чтения и записи всем
    'Lock Read - никто другой не может читать открытый файл
    'Lock Write - никто другой не может записывать в файл
    'Lock Read Write - никто другой не может ни писать, ни считывать данные файла
    'если файла с таким именем не существует, VB его создаст (пустым)
    Open "C:\база.txt" For Random As #1 Len = Len(Z)
    'MsgBox$ LOF(1)
    'MsgBox$ 0 / 80 + 1
    Nz = LOF(1) / Len(Z) + 1
    'для записи в файл используют оператор Put
    'данные записываются в строку
    'для данных из структуры отводится место для нужного количества знаков
    'нужное количество знаков объявляется в структуре
    'Put #Номер_файла, Номер_записи, Переменная
    Put #1, Nz, Z
    Close #1
    Open "C:\база.txt" For Random As #1 Len = Len(Z)
    Nz = 1    'начиная с первой записи
    Do While Not EOF(1)
        'для считывания с файла используют оператор Get
        'Get #Номер_файла, Номер_записи, Переменная
        Get #1, Nz, Z
        'Обрабатываем
    Loop
    Close #1
End Sub
...
Рейтинг: 0 / 0
База_в_txt_файле
    #38362386
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофа,
смотрел ?
...
Рейтинг: 0 / 0
База_в_txt_файле
    #38362412
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
скукотища, да смотрел и как это
Невозможно определить общественное пользовательского типа в объекте модуля
невозможное сделать возможным?
...
Рейтинг: 0 / 0
База_в_txt_файле
    #38362426
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаскукотища, да смотрел и как это
Невозможно определить общественное пользовательского типа в объекте модуля
невозможное сделать возможным?
кэп докладывает:
- объявлять тип нужно в общем модуле
...
Рейтинг: 0 / 0
База_в_txt_файле
    #38362430
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112, тогда надо видимо нужно спросить, этот пример покатит в ВБ6 и в ВБА? или только в ВБ6?
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / База_в_txt_файле
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]