Кездейсоқ қол жетімді файлдар

Жұмыс түрі: Курстық жұмыс
Тегін: Антиплагиат
Көлемі: 17 бет
Таңдаулыға:

Курстық жоба (жұмыс)

Н 11/1-1. 53-2020

1 баспа 25. 06. 2020

Қазақстан Республикасының білім жӘне ғылым министрлігі

М. Х. Дулати атындағы Тараз өңірлік университеті

Ақпараттық технологиялар, автоматика және телекоммуникация факультеті

Ақпараттық жүйелер кафедрасы

КУРСТЫҚ Жұмыс

Бағдарламаларды әзірлеу технологиясы пәні бойынша

Тақырыбы: Кездейсоқ қол жетімді файлдар

Студент: Муксулов Диас

Тобы: 6B06118

Жетекші: Абдувалова Айнур

Қорғауға жіберілді « » ж.

Жұмыс қорғалды «»20___ж.

Комиссия мүшелері:

/аты-жөні/ /қолы/

/аты-жөні/ /қолы/

Тараз 2020

МАЗМҰНЫ

КІРІСПЕ 4

I. ТЕОРИЯЛЫҚ БӨЛІМ 5

1. 1. Кездейсоқ қол жетімді файлдардың құрылымы 5

1. 2. Файлға жазу және файлдан оқу 6

1. 3. FileStream, Binary-Reader және BinaryWriter класс обьектілері 8

II. ПРАКТИКАЛЫҚ БӨЛІМ 10

2. 1. C# тілінде енгізу/шығару класстарын қолдану 10

2. 2. Кездейсоқ қол жетімді файлдар жобасы 12

ҚОРЫТЫНДЫ 18

ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР 19

КІРІСПЕ

C#-бұл терілген, объектіге бағытталған, қарапайым және сонымен бірге қуатты бағдарламалау тілі, Ол әзірлеушілерге көп функциялы қосымшалар жасауға мүмкіндік береді. 1998-2001 жылдары Microsoft-та Андерс Хейлсбергтің басшылығымен инженерлер тобы Microsoft. NET платформасына арналған қосымшаларды әзірлеудің негізгі тілі ретінде (қарапайым бағдарламалар мен веб-қосымшаларды жасауға арналған Microsoft бағдарламалық платформасы) .

C# С-тәрізді синтаксисі бар тілдер отбасына жатады, олардың ішінде оның синтаксисі C++ және Java-ға жақын. # - Бұл әр түрлі тілдердің гибриді. Бұрынғы адамдардан - C++, Java, Delphi, Modula және Smalltalk тілдерінен көп нәрсені алып, оларды қолдану тәжірибесіне сүйене отырып, # синтаксистік тұрғыдан Java - дан кем емес (егер көп болмаса) таза, Visual Basic сияқты қарапайым және C++сияқты бірдей күш пен икемділікке ие.

Бағдарлама C # тілінде . NET Framework платформасында орындалады. Бұл Microsoft компаниясы жасаған жаңа және революциялық платформа приложений. . NET Framework, ең алдымен, объектіге бағытталған бағдарламалаудың әртүрлі технологияларын қолдана отырып, әртүрлі бағдарламалау тілдерінен қол жеткізуге болатын бағдарламалардың үлкен кітапханасынан тұрады.

C# тілінде жазылған бастапқы код CLI спецификациясына сәйкес аралық тілге (IL) құрастырылады. Il коды және нүктелік кескіндер мен жолдар сияқты ресурстар көбінесе EXE немесе DLL кеңейтілімімен құрастыру деп аталатын орындалатын файлда дискіде сақталады. Жинақта құрастыру түрлері, нұсқасы, тілі және Аймақтық параметрлері мен қауіпсіздік талаптары туралы мәліметтер бар манифест бар.

NET Framework платформасы көбінесе объектіге бағытталған бағдарламалаудың әртүрлі әдістерін қолдану арқылы клиенттік тілдерден қолдануға болатын үлкен кодтық кітапханадан тұрады. Бұл кітапхана қандай нәтижелерге қол жеткізуге байланысты қолданылатын модульдерге бөлінеді.

Windows үшін клиенттік қосымшаларды әзірлеу үшін екі технологии. NET: Windows Forms (WinForms) және Windows Presentation Foundation (WPF) . Бұл екі технология да-бұл сыныптар мен UI басқару элементтерінің жиынтығы (предоставляемых. NET Framework) әзірлеушілерге Microsoft Windows операциялық жүйесінде орнатылатын және жұмыс істейтін қосымшаларды тез құруға мүмкіндік береді.

I. ТЕОРИЯЛЫҚ БӨЛІМ 1. 1. Кездейсоқ қол жетімді файлдардың құрылымы

Integer, long және т. б. сияқты негізгі деректер түрлерінен басқа, VB пайдаланушы анықтаған деректер түрлерін де қолдайды. Олар негізгі деректер типтері негізінде де, пайдаланушы бұрын анықтаған типтер негізінде де құрылуы мүмкін. Құрылым деп аталатын жеке деректер түрі еркін кіру файлдарын құруда кеңінен қолданылады.

Деректердің теңшелетін түрін (құрылымын) анықтау үшін Structure кілт сөзі қолданылады:

[Public/Private] Structure Типтің_аты

Dim/Public/Private 1-ші Элемент As Типі

Dim/Public/Private [2-ші Элемент As Типі]

End Structure.

Құрылым процедура ішінде немесе функцияда жарияланбайды. Ол тек жобаның басында, сондай-ақ бірінші рәсімге дейін нысанда немесе модульде жариялануы мүмкін. Жеке деректер түрін анықтағаннан кейін оны осы типтегі айнымалыларды жариялау үшін пайдалануға болады. Бұл айнымалылар жергілікті, пішін немесе модуль аймағының айнымалылары, сондай-ақ ғаламдық болуы мүмкін. Пайдаланушы түріндегі айнымалы жазба деп аталады. Бұл айнымалының жеке компоненттері жазу өрістері деп аталады. Өзгермелі типтегі айнымалы құрылымдалған. Ол массив сияқты жеке элементтерді қамтиды, бірақ массивтен айырмашылығы оның элементтері әртүрлі болуы мүмкін:

Public Class Form1

StructureТ

Dim Аты AsString

Dim Бағасы AsDecimal

Dim КодыAsLong

EndStructure

Dim Құралы AsТ

()

Құралы. Аты= "Отвертка"

Құралы. Бағасы = 120

End Sub

Бұл мысалда t деректер түрі анықталады, содан кейін t типінің айнымалы мәні жарияланады және осы айнымалының құрамдас бөліктерінің нақты мәндері Buttonl_Click процедурасында орнатылады.

Пайдаланушы типіндегі айнымалы элементтерге қол жетімділік қасиеттерге қол жетімділікке ұқсас, айнымалы атауынан кейінгі нүктені көрсету арқылы жүзеге асырылады. Бұл жағдайда бірдей типтегі айнымалыларды элементпен емес, тікелей тағайындауға болады.

1. 2. Файлға жазу және файлдан оқу

FilePut(file_number, value[, record_number] ),

FileGet(file_number, value[, record_number] )

Функциялар кездейсоқ қол жетімді файлдан жазбаларды жазу және оқу үшін қолданылады. Олардың әрқайсысына сіз жұмыс істегіңіз келетін жазба нөмірі берілуі мүмкін. Record_numberg аргументінде жазба нөмірі, ал value аргументінде файлға жазылған жазбаны немесе файлдан оқылатын жазбаны қамтитын айнымалы болады. Record_numberн аргументі міндетті емес; егер ол көрсетілмесе, ағымдағы жазба жазылады немесе оқылады. Келесі жазбаны жазғаннан немесе оқығаннан кейін келесі жазба ағымдағы болады. Осылайша, FilePut() функциясын жазба нөмірін көрсетпей қатарынан он рет шақыру арқылы сіз кездейсоқ қол жетімді файлдың алғашқы он жазбасын дәйекті түрде жасайсыз немесе қайта жазасыз. Сол сияқты, FileGet() функциясын жазба нөмірін көрсетпей қатарынан он рет шақыру арқылы Сіз файлдың алғашқы он жазбасын дәйекті түрде оқисыз.

Еркін қол жетімді файлдарды өңдеу принциптері туралы бірнеше сөз. Сіз тауарлар тізімін сақтау үшін еркін қол жетімді файл жасағыңыз келеді делік. Тауарлардың әрқайсысы туралы ақпарат келесідей анықталған өнім құрылымында болсын:

Structure Тауар

Dim Коды AsString

Dim Аты AsString

Dim Бағасы AsDecimal

End Structure

Тауар құрылымы файлға жазылмас бұрын тауар туралы ақпаратты сақтау үшін қолданылады. Тауар түрінің өзгеруін жариялаудан бастайық:

Dim Тау As Тауар

Енді сіз Тау құрылымының өрістеріне мәндерді тағайындай аласыз:

Тау. Коды= "TV00180-A"

Тау. Аты= "SONY Trinitron TV"

Тау. Бағасы = 799. 99

Tау айнымалысында сақталған деректерді еркін қол жетімді Файлға жазу үшін біз FilePut () функциясын қолданамыз. Әрине, файлды алдымен нұсқаулықпен жасау керек

fn = FreeFile()

FileOpen(fn, "c:\products. dat", OpenMode. Random)

Көріп отырғаныңыздай, жазбаның ұзындығы көрсетілген соңғы дәлел осы жерде жоқ. Жазбаны қамтиды жолдан, демек, айнымалы ұзындыққа ие. Әр жолдың ұзындығы туралы ақпарат жолдың өзімен бірге сақталады, сондықтан әр жазбаның ұзындығын анықтау қажет емес. Әрі қарай, айнымалы Нұсқаулық файлға нұсқаулық арқылы жазылады:

FilePut (fn, Тау)

Деректер сақталатын жазба нөмірі көрсетілмегеніне назар аударыңыз. Бұл жағдайда ағымдағы жазба өңделеді. Операция аяқталғаннан кейін келесі жазба ағымдағы болады. Сіз өзгерте маңызы бар өрістерді және сақтау файлында мынадай жазу көмегімен дәл осындай нұсқаулар. Барлық қажетті деректерді жазғаннан кейін файл нұсқаулықпен жабылады

FileClose(fn) .

Файлдағы деректерді оқу үшін оны деректерді жазу үшін ашқан FileOpen () функциясын қолдана отырып ашу керек:

fn = FreeFile()

FileOpen(fn, "c:\products. dat", OpenMode. Random)

Содан кейін, әдетте, жазбаларды оқу циклі орындалады.

Кодтың келесі үзіндісі FilePut() функциясын қолдана отырып, әртүрлі ұзындықтағы жазбаларды еркін қол жетімді файлға қалай жазуға болатындығын және FileGet () функциясын қолдана отырып қалай оқуға болатындығын көрсетеді. Ең алдымен, бірінші процедура жарияланғанға дейін келесі құрылымды хабарландыру түрінде қосу керек:

Structure Тауар

Dim Коды AsString

Dim Аты AsString

Dim Бағасы AsDecimal

End Structure

Содан кейін сіз батырманы Click ке қойып, оны оқиға өңдегішіне келесі нұсқауларды нұқыңыз:

Dim fn As Integer Dim Тов As Товар

Тау. Коды = "TV00180-A"

Тау. Аты = "SONY Trinitron TV"

Тау. Бағасы = 799. 99 fn = FreeFile()

FileOpen(fn, "c:\products. dat", OpenMode. Random) FilePut(fn, Тов)

Тау. Коды = "TV-RCA"

Тау. Аты = "This is an RCA Trinitron TV" Тау. Бағасы = 699. 99

FilePut(fn, Тау) Тау. Коды = "TV810X"

Тау. Аты = "Real cheap BIG Trinitron TV" Тау. Бағасы = 399. 99

FilePut(fn, Тов) FileClose(fn)

fn = FreeFile()

FileOpen(fn, "c:\products. dat", OpenMode. Random) FileGet(fn, Тау, 2)

FileClose(fn)

Console. WriteLine(Тау. Коды)

Console. WriteLine(Тау. Аты)

Console. WriteLine(Тау. бағасы)

Әр түрлі тауарлардың кодтары мен сипаттамалары әртүрлі ұзындықтағы жолдар болып табылады. Берілген кодтың бірінші бөлігі кездейсоқ қол жетімді файлға үш жазбаны жазып, оны жабады. Кодтың екінші бөлігі файлдан екінші жазбаны оқиды және оның өрістерін Output терезесінде көрсетеді. Сонымен, FilePut() және FileGet() функциялары өзгермелі ұзындығы бар жолдармен жазбалар жасауға мүмкіндік береді. FilePut() және FileGet() функциялары осындай жолдармен жұмыс істеу үшін жауапкершілікті алады, бұл сізге еркін қол жетімді файл деректеріне қол жеткізуге мүмкіндік береді және жазбаны негізгі ұзындық бірлігі ретінде пайдаланады.

Seek функциясы

Seek (file_number [, position] )

Seek () функциясы берілген файлдағы енгізу-шығару көрсеткішінің ағымдағы орнын қайтарады, бірақ position дәлелінсіз шақырылған жағдайда ғана. Еркін қатынау файлы үшін функция оқылған немесе жазба жасалған соңғы жазбаның нөмірін қайтарады. Егер екілік файлдар туралы айтатын болсақ, бұл соңғы оқылған немесе жазылған байттың нөмірі. Seek () функциясында position аргументін орнату арқылы ағымдағы енгізу/шығару орнын орнатуға болады. Мысалы, үшінші жазбаның басына еркін қол жетімді файлда өту үшін сіз келесі нұсқауларды орындауыңыз керек:

Seek (fNum, 3)

1. 3. FileStream, Binary-Reader және BinaryWriter класс обьектілері

Кездейсоқ қол жетімді файлдары бір жұмыс сеансы барысында, яғни файлды ашқаннан кейін бірнеше рет оқуға және деректерді бірнеше рет өзгертуге мүмкіндік береді. Мұндай жұмыс ағын ретінде екі бағытты ағын пайдаланылған жағдайда ғана мүмкін болады. Деректерге қайта жүгіну мүмкіндігі файлдағы позицияның арнайы көрсеткішінің болуымен қамтамасыз етіледі, оны файлдың басынан аяғына дейін және керісінше жылжытуға болады. Іс жүзінде деректерді оқу немесе жазу көрсеткіш тұрған жерден жүзеге асырылады. Оқылғаннан кейін немесе жазылғаннан кейін позиция көрсеткіші өңделген деректердің көлеміне ауысады. Бағдарламалаушы қол жетімді әдісті қолдана отырып, меңзерді басқара алады.

Төменде FileStream, Binary-Reader және BinaryWriter класс объектілерін қолдана отырып, еркін кіру файлымен жұмыс істеу мысалы келтірілген. Бұл класстарда объектілерді құруға арналған бірқатар дизайнерлер және осы объектілерге қызмет көрсетудің бірқатар әдістері бар. Бұл жағдайда FileStream класының объектісі негізгі объект болып табылады-ағын және оған файл қосылады. Binary-Reader және binarywriter кластарының объектілері көмекші болып табылады және сәйкесінше ағыннан (файлдан) деректерді қарапайым оқуды және деректерді ағынға (файлға) жазуды қамтамасыз етеді.

FileStream класс конструкторында келесі синтаксис бар:

FileStream (АФ, РО, РД, РСО)

Af-бұл анық жолмен немесе жол айнымалысымен берілген файлдың мекен-жайы;

RO-бұл FileMode кірістірілген тізімімен берілген файлды ашу режимі;

RD-бұл FileAccess кірістірілген тізімімен берілген файлға кіру режимі;

RSO-бұл FileShare кірістірілген тізімімен берілген файлды бөлісу режимі.

Файлға кіру режимдері Io аттар кеңістігінде анықталған FileAccess тізімінде болады. Осы тізімнің тұрақтыларының тізімі:

Read-файлды тек оқу үшін ашыңыз; Write - файлды тек жазу үшін ашыңыз; ReadWrite-файлды оқу және жазу үшін ашыңыз.

Ашу режимдері FileMode жүйесінің тізімінде анықталған. Осы тізімнің тұрақтыларының тізімі:

Open-бар файлды ашу. Егер көрсетілген аты бар файл болмаса, онда ерекшелік жасалады. Trancate - бар файлды ашып, оны тазалаңыз-нөлдік көлемге дейін кесіңіз. Файл болмаған кезде ерекшелік жасалады. Append-бар файлды ашу және файлдың соңына ағымдағы меңзерді орнату. Егер файл болмаса, жаңа файл жасаңыз. Create - жаңа файл жасау. Егер осы қалтада осындай атау бар файл болса, ол жойылады. CreateNew - жаңа файл жасау. Егер қалтада осы атаумен файл болса, онда ерекшелік жасалады. OpenOrCreate-бар файлды ашу. Егер жоқ болса, сол атаумен жаңа файл жасаңыз.

Ашу кезінде сіз бірнеше пайдаланушының файлды бөлісу тәртібін сипаттай аласыз. Режимдер тізімі FileShare тізімімен анықталады:

None-ашық файлды бөлісуге тыйым салынады - онымен тек бір пайдаланушыға жұмыс істеуге рұқсат етіледі. Басқа пайдаланушы ашуға тырысқанда (қайта ашу) қате туралы хабарлама пайда болады. Read-бірнеше пайдаланушыларға оқуға рұқсат етілген. Жазу-бірден бірнеше қолданушыға жазуға рұқсат етіледі. ReadWrite-оқуға және жазуға арналған көп ойыншы режимі.

BinaryReader және BinaryWriter класс конструкторлары қарапайым көрініске ие:

BinaryReader (нысан-ағын)

BinaryWriter (нысан-ағын)

Нысан ағыны-бұл әдетте FileStream класының айнымалы мәні.

II. ПРАКТИКАЛЫҚ БӨЛІМ

2. 1. C# тілінде енгізу/шығару класстарын қолдану

Аттар кеңістігі (namespace) System. IO онда файлдарды құру және жою, олардан оқу және оларға жазу, файлды жабу, файлдық жүйенің каталог жүйесін шарлау, файл туралы ақпаратқа қол жеткізу (құру уақыты, атрибуттар) және т. б. сияқты бірнеше файл операцияларын орындау үшін қолданылатын әртүрлі класстар бар.

FileStream класы. Бұл класс System. IO namespace файлдарды қолданғаннан кейін оларды оқуға, жазуға және жабуға көмектеседі. Бұл класс абстрактілі ағын класынан шыққан.

Келесі бағдарлама FileStream класын қолдануды көрсетемін:

using System;

using System. IO;

namespace FileIOApplication

{

class Program

{

static void Main(string[] args)

{

FileStream F = new FileStream("test. dat", FileMode. OpenOrCreate,

FileAccess. ReadWrite) ;

for (int i = 1; i < 21; i++)

F. WriteByte((byte) i) ;

F. Position = 0;

for (int i = 0; i < 21; i++)

Console. Write(F. ReadByte() + " ") ;

F. Close() ;

Console. ReadKey() ;

}

Бұл код құрастырылған және іске қосылған кезде біз келесі нәтижеге қол жеткіземіз:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 -1

StreamReader және StreamWriter класстары оқу және жазу үшін мәтіндік файлдың ақпаратына қол жеткізуге көмектеседі [2] . Олар файл ағынының байттарын оқуды және жазуды қолдайтын абстрактілі негізгі ағын класынан мұра етеді.

StreamReader. StreamReader класы сонымен қатар таңбаларды дәйекті оқу құралын ұсынатын дерексіз TextReader негізгі класынан мұра етеді.

Келесі мысалда mytext файлын оқу көрсетілген. TXT c дискісінің TEMP каталогында орналасқан:.

using System;

using System. IO;

namespace FileApplication

{

class Program

{

static void Main(string[] args)

{

try

{

// Файлдан оқу үшін StreamReader класының данасын жасау.

//Пайдалану операторы StreamReader қолданылатын кодты жақтайды.

using (StreamReader sr = new StreamReader("c:/temp/mytext. txt") )

{

string line;

// Жолды файлды оқу және сол жолдарды көрсету,

// файлдың соңына жеткенше.

while ((line = sr. ReadLine() ) != null)

Console. WriteLine(line) ;

}

catch (Exception e)

{

// Ерекшелікті өңдеу пайдаланушыға ақпарат береді,

// қай жерден қате кетті.

Console. WriteLine("The file could not be read:") ;

Console. WriteLine(e. Message) ;

}

Console. ReadKey() ;

}

Ескерту: файлға барар жолда оң жақ қиғаш сызық қолданылатынын ескеріңіз, ол оң жақ қиғаш сызық (//) қолданылған кезде таңбаны қорғау қажеттілігін болдырмайды.

StreamWriter. StreamWriter класы textwriter дерексіз класынан мұра алады, ол таңбалар тізбегін жазу әдісін ұсынады.

Келесі мысалда names. txt файлының жазбасы ағымдағы каталогқа көрсетілген.

using System;

using System. IO;

namespace FileApplication

{

class Program

{

static void Main(string[] args)

{

string[] names = new string[] {"Иван Петров", "Козьма Прутков"};

// Файл жазбасы:

using (StreamWriter sw = new StreamWriter("names. txt") )

{

foreach (string s in names)

sw. WriteLine(s) ;

}

// Файлдан әр жолды оқу және көрсету.

string line = "";

using (StreamReader sr = new StreamReader("names. txt") )

{

while ((line = sr. ReadLine() ) != null)

Console. WriteLine(line) ;

}

Console. ReadKey() ;

}

Бұл код құрастырылған және орындалған кезде, ол консольде келесі нәтижені көрсетеді:

Ин Петров

КзПрутков

2. 2. Кездейсоқ қол жетімді файлдар жобасы

Кездейсоқ қол жетімді файл үшін файлды ашуға, файл жасауға, оның мазмұнын мәтін өрісінде көрсетуге, сонымен қатар оған жаңа жазбалар қосуға мүмкіндік беретін жаңа жоба жасаңыз. Еркін кіру файлдары әдетте құрылымдалған ақпаратты сақтау үшін қолданылады. Барлық файл жазбалары бірдей құрылымға ие болуы керек. Біз файлды сату тізімін сақтау үшін қолданамыз. Әрбір тізімдеме жазбасында сатылған жолдар үшін мынадай жолдар болады:

Коды
Аты
Бағасы
Саны
Күні

Жаңа жобаны әзірлеуге кірісеміз.

1. Жаңа жоба жасаңыз оның атын деп сақтаңыз.

2. Пішінде мәтін өрісі мен үш түймені орналастырыңыз. Сипаттар мәндерін орнатыңыз

Text элементтерінің мәтіні:

Button1. Text

Файлды ашу

Button1. Text: Button2. Text

Файлды ашу: Файлды жасау

Button1. Text: Button3. Text

Файлды ашу: Жазбаны қосу

1-ші суреттегі интерфейсіне сәйкес қылып жасаңыз. Әзірге есептеу батырмасына назар аудармаңыз. Оны кейінірек қосасыз.

3. Form1 класының ішіне енгізіңіз, бірақ бірінші форма процедурасынан бұрын кодты енгізіңіз:

Structure Тізімдеме Dim Коды As String

Dim Аты As String Dim Бағасы As Decimal

Dim Саны As Integer Dim Күні As Date

End Structure

Dim ФайлАтыAs String, Жазба As Тізімдеме Dim k As Integer

Мұнда 1-7 жолдарында Тізімдеменің құрылымы жарияланады. Содан кейін 8 және 9-жолдарда форманың барлық процедураларында жұмыс істейтін айнымалылар, соның ішінде Тізімдеме түріндегі айнымалы Жазба жарияланады.

1-ші сурет. Жобаның интерфейсі

4. Button1_Click ішкі бағдарламасы бар оқуға қол жетімді файлды ашады және ондағы ақпаратты TextBox1 мәтін өрісінде көрсетеді. Жазбаны мәтін өрісінде көрсету кезінде ToString әдісін қолдана отырып, түрі жолдан өзгеше болатын жеке жазба компоненттерінің мәндер жолына түрлендіру жүзеге асырылады. Button1 түймесін екі рет нұқыңыз және Button1_Click ішкі бағдарламасының дене кодын енгізіңіз (жүйе жасаған бастапқы жол мен соңғы жол жоқ) :

Private Sub Button1_Click(ByVal sender As System. Object, _ ByVal e As System. EventArgs) Handles Button1. Click

TextBox1. Clear()

ИмяФайла = InputBox( _

"Файлдың толық аты жазыңыз. " & _

" Мысалы: d:\ЖұмысПапкасыныңАты\ФайлдыңАты") If ФайлдыңАты = "" Then

MsgBox("Файлға ат берілмеді. Қайталаңыз!")

5: Exit Sub

End If

k = FreeFile() Try

FileOpen(k, ФайлдыңАты, OpenMode. Random, _ OpenAccess. Read)

10: Catch

MsgBox( _