Vb6 файлдық жүйе мәзірінің операциялық кодының мысалдары. Мәтіндік файлды оқу және жазу

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

Бұл мақала мәтіндік файлдармен жұмыс істеуге бағытталған Visual Basic.

Файл дескрипторы

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

Visual Basic-те функция бар тегін файл, ол файлмен жұмыс істеу үшін пайдалануға болатын бос арнаның нөмірін қайтарады. Егер бос арналар болмаса, қате пайда болады.

Тегін файл[(Ауқым саны) ]

Ауқым саны- бос арналар ауқымын анықтауға мүмкіндік беретін қосымша параметр, егер Ауқым саны= 0 (әдепкі), содан кейін арна нөмірі 1 - 255 ауқымынан, ал 1 болса, 256 - 511 ауқымынан қайтарылады.

MyFile = FreeFile " MyFile айнымалысы тағайындалды тегін арнаенді оны файлдармен жұмыс істеу үшін пайдалануға болады

Мәтіндік файлдармен жұмыс

Көбінесе мәтіндік файлдармен кездесу қажет. Мәтіндік файлдар ASCII (American Standard Code for Information Interchange) таңбалар жиынынан тұрады.

Деректерді жазуды/оқуды бастамас бұрын файлды ашу керек, бұл оператордың көмегімен жасалады ашық(Файл атауы) # үшінфайл_нөмірі, мұнда:

Енгізу- файлды оқу үшін ашу, егер файл жоқ болса, онда қате пайда болады;

Шығару- жазу үшін, егер файл жоқ болса, ол жасалады, ал файл бар болса, қайта жазылады;

Қосымша- қосу үшін, егер файл жоқ болса, ол жасалады, ал егер файл бар болса, онда деректер файлдың соңына қосылады.

Мәтіндік файлдарды оқу екі жолмен орындалуы мүмкін: таңба бойынша таңба оқу, функцияны пайдалану енгізу(Оқылған_таңбалар_саны, #файл_нөмірі) және сызық бойынша, бұл үшін функция пайдаланылады Жолды енгізу#файл_нөмірі, Қайда_оқу керек.

DimMyFile

Dim S String «Оқылған деректерді сақтауға арналған айнымалы

MyFile = FreeFile

#МеніңФайл ретінде енгізу үшін ашыңыз("C:\TEST.txt").

Жолды енгізу #МеніңФайлым, S «TEST.TXT файлының бірінші жолын S айнымалысына оқыңыз

DimMyFile «Тегін файл үшін айнымалыны жариялаңыз

Күңгірт i бүтін сан ретінде «Цикл үшін айнымалы

Dim tS String ретінде «Жолдарды оқуға арналған айнымалы

Dim S String «Соңғы деректерді сақтауға арналған айнымалы

MyFile = FreeFile «Файлдармен жұмыс істеу үшін тегін арнаны тағайындаңыз

«Оқу үшін TEST.TXT файлын ашыңыз

i = 1-ден 5-ке дейін

Жолды енгізу #МеніңФайлым, tS «TEST.TXT файлын жол бойынша оқыңыз

Егер i => 5 болса, S = tS «Егер бесінші жол болса, оны S айнымалысында сақтаңыз

Келесі i

Close #MyFile "Файлды жабыңыз

Dim MyFile «Тегін файл үшін айнымалыны жариялау

Dim S As String «Оқылған деректерді сақтауға арналған айнымалы

MyFile = FreeFile «Файлдармен жұмыс істеу үшін тегін арнаны тағайындаңыз

#МеніңФайл ретінде енгізу үшін ашыңыз("C:\TEST.txt"). «Оқу үшін TEST.TXT файлын ашыңыз

S = Input$(LOG(1), 1) «Бүкіл файлды S айнымалысына оқыңыз

Close #MyFile "Файлды жабыңыз

Файлға жазу үшін операторлар бар. # басып шығаруфайл_нөмірі, ДеректерЖәне # жазуфайл_нөмірі, Деректер. Бұл операторлардың бір-бірінен айырмашылығы сол Жазыңыздеректерді тырнақшаға жазады, және басып шығарутырнақшасыз.

Төменде C:\ дискісінде келесі код жасалады. жаңа файл TEST.TXT және оған екі жолды жазыңыз, біріншісі тырнақшасыз, екіншісі тырнақшасыз:

DimMyFile «Тегін файл үшін айнымалыны жариялаңыз

MyFile = FreeFile «Файлдармен жұмыс істеу үшін тегін арнаны тағайындаңыз

#МеніңФайл ретінде шығару үшін ашыңыз("C:\TEST.txt"). «Жазу үшін TEST.TXT файлын ашыңыз

Print #MyFile, "Бұл жол Print операторы арқылы жазылған, ол тырнақшасыз..."

#MyFile деп жазыңыз, "Бұл жол Write операторы арқылы жазылған, ол тырнақшаға алынған..."

Close #MyFile "Файлды жабыңыз

Бұл шын мәнінде бәрі. Сіз түсінген боларсыз, файлды жабу үшін пайдаланылатын оператор Жабық#файл_нөмірі, бола тұра, # файл_нөмірікөрсету талап етілмейді.

Мақала аздап өңделмеген, бірақ ол жаңадан келген бағдарламашыларға пайдалы болады. Келесі жолы мен екілік файлдармен жұмыс істеу туралы айтатын боламын.

8. АҚПАРАТТЫ САҚТАУ ЖӘНЕ ОҚУ

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

8.1. Файлдарды «Ашу »

Файл дегеніміз – кез келген сыртқы жадының аталған аймағы. Деректер компьютер жадында, ал файлдар қатты дискіде «өмір сүреді». Бағдарлама файлдармен тікелей жұмыс істемейді, бірақ операциялық жүйені делдал ретінде пайдаланады.

Файл атауларының екі түрі бар: толық - файл атауынан басқа, файлдың сыртқы медиадағы орны да көрсетіледі (мысалы, “C:\Program Files\Microsoft Visual Studio\VB98\VB 6.EXE" ) және қысқа - тек файл атауы (VB 6.EXE ). Егер файлдың орны көрсетілмесе, ол ағымдағы қалтада ізделеді, әдепкі бойынша - қолданбаңыз орналасқан қалта. Тікелей файл атауы екі бөліктен тұрады: нақты бірегей файл атауы және оның кеңейтімі. Атаудың өзі файлды анықтайды, ал кеңейтім әдетте файл пішімін немесе оның қандай бағдарламамен жасалғанын көрсетеді.

Файлмен жұмысты бастамас бұрын операциялық жүйеден сұрау керек көрсеткіш (дескриптор) файл. Оны алу үшін «Тегін файлды» пайдаланыңыз. Содан кейін «Ашу» операторын пайдаланып, бұл көрсеткіш қажетті файлмен байланыстырылады. Осыдан кейін ғана бағдарлама онымен жұмыс істей алады. Файлды ашу синтаксисі келесідей:

‘ тегін файл көрсеткішін алыңыз және оны айнымалыға тағайындаңыз

FileHandle% = FreeFile

' файлды ашыңыз

FilePath_ ашу

[#]FileHandle% ретінде

...(файлмен жұмыс)

[#]FileHandle қолданбасын жабу

· FileHandle % — файл көрсеткішін сақтайтын айнымалы;

· FreeFile — файл көрсеткішін қайтаратын функцияның аты;

· Open – оператор атауы;

· FilePath – файлдың толық аты;

· For - файлға қол жеткізу режимінің сипаттамасынан кейінгі кілт сөз;

· Режим – файлға қол жеткізу режимі (15 кестені қараңыз);

15-кесте

Файлға қол жеткізу режимдері

· Access – қол жеткізу түрінің сипаттамасынан кейін қосымша кілт сөз;

· AccessType – қол жеткізу түрінің сипаттамасы:

· Оқу - оқу;

· Жазу – жазу;

· Оқу Жазу – оқу және жазу.

· LockType — бағдарламаңыз онымен жұмыс істеп тұрған кезде бұл файлды басқа бағдарламалар пайдалана алатынын анықтайтын қосымша параметр. Әдетте ол желімен байланысты (16 кестені қараңыз).

16-кесте

LockType параметрі үшін мүмкін мәндер

· As - файл көрсеткішінен кейін кілт сөз.

· # — өзінен кейінгі мән файл көрсеткіші екенін көрсететін таңба.

· Len - қосымша кілт сөз, одан кейін жазба ұзындығын көрсететін параметр болуы керек.

· CharInBuffer % - кездейсоқ қатынас режимінде ашылған файл үшін жазба ұзындығы (Random ).

· Жабу – көрсетілген дескриптормен байланыстырылған файлды жабатын оператор.

Файлмен жұмысты аяқтағаннан кейін оны жабу маңызды. «Жабу» операторы файл көрсеткішін және онымен байланысты жад аймағын босатады.

Файлмен жұмыс істегенде, дәлірек айтқанда, одан оқу кезінде файлдың соңын анықтау өте маңызды. Оны EOF (Файлдың соңы) функциясы арқылы анықтауға болады:

EOF(FileHandle)

· EOF – функция атауы;

· FileHandle — соңы анықталатын файл дескрипторы.

Функция файлдың соңына жеткен болса, True (шын) мәнін қайтарады, әйтпесе ол False (False) мәнін қайтарады.

8.2. Мәтіндік файлды оқу және жазу

Мәтіндік файл «Енгізу», «Шығару» немесе «Қосымша» кіру режимінде ашылады (15 кестені қараңыз). Бұл режимнің ерекшелігі - ол тек арнайы басып шығарылатын таңбалармен жұмыс істейді. Қызметтік белгілермен жұмыс істеу пайдасыз.

Ақпаратты жазу үшін «Басып шығару» және «Жазу» екі операторы қолданылады, олардың синтаксисі келесідей:

Басып шығару #FileHandle%, VarBuffer[;]

#FileHandle%, VarBuffer[;] жазу

· Print /Write – оператор түйінді сөздері.

· #FileHandle % - ақпарат орналастырылатын файл көрсеткіші.

· VarBuffer - файлға жазылатын мән.

· ; – мәтіндік файлға жазу кезінде қолданылатын қосымша параметр келесі мәннің сол жолға, ал егер ол жоқ болса, келесіге жазылатынын білдіреді.

Файлдан ақпаратты оқу үшін «Input» және «Line Input» операторлары қолданылады. Синтаксис бір-біріне ұқсас:

Жолды енгізу #FileHandle%, VarBuffer

#FileHandle%, VarBuffer енгізіңіз

· Line Input / Input – оператор түйінді сөздері.

· #FileHandle % - ақпарат оқылатын файл көрсеткіші.

· VarBuffer - ақпарат оқылатын айнымалы.

Line Input және Input операторларының айырмашылығы біріншісі тек мәтіндік файлдарға арналған, ал екіншісі кез келгеніне арналған. Мәтіндік файлдар жағдайында «Енгізу» бірінші бөлгішке дейін бір жолдағы деректерді оқиды (мәтіндік деректер үшін бөлгіш «,» (үтір), ал сандық деректер үшін - " " (бос орын) және "," ) және «Желі енгізу» кез келген бөлгіштерді елемей, бүкіл жолды бірден оқиды.

8.3. Екілік файлдармен жұмыс

Файлдар ашылады екілік пішім«Ашық» операторы « Екілік» режимінде. Бұл режимнің айрықша ерекшелігі - файлмен жұмыс тек белгілі бір байттарға бағытталған. Visual Basic файлдың қажетті орнына тікелей хабарласа алатындықтан, бұл режим − деп те аталады тікелей қол жеткізу режимі. Бұл режимнің тағы бір ерекшелігі - файлдың әртүрлі бөліктеріне ақпаратты қайта ашпай бір уақытта жазу және оқу мүмкіндігі. Екілік режимде ашылған файлға жазу келесі синтаксис арқылы жүзеге асырылады:

#FileHandle%, , NameVar қойыңыз

· Put – ақпаратты жазу операторының аты.

· RecNumber – ақпарат жазылатын файлдың байт нөмірі (қосымша параметр).

· NameVar - мазмұны файлға жазылатын айнымалы.

Екілік режимде файлдан ақпаратты оқу келесі оператор арқылы орындалады:

#FileHandle%, , NameVar алыңыз

· Get – ақпаратты жазу операторының аты.

· FileHandle % - файл көрсеткіші.

· RecNumber – ақпарат оқылатын файлдың байт нөмірі (міндетті емес).

· NameVar – оқылатын ақпарат орналастырылатын айнымалының аты.

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

«RecNumber» параметрі болмаған жағдайда, ақпарат олар бұрын жұмыс істегеннен кейін файлдың келесі байтында жазылады немесе оқылады.

8.4. Графикалық манипуляция

Графикалық кескіндерді файлдарда сақтауға және олардан алуға болады. Растрлық немесе белгіше файлынан суретті шығарып алу және оны "PictureBox" және "Image" басқару элементтерінің "Сурет" қасиетіне тағайындау үшін келесі синтаксиспен "LoadPicture ()" функциясын пайдаланыңыз:

ImageCtrl.Picture = LoadPicture(FilePath)

· ImageCtrl — сурет терезесін басқару, кескінді басқару немесе пішін атауы;

· LoadPicture - функция атауы;

· FilePath — файлдың толық аты.

SavePicture ImageCtrl .Сурет, FilePath

· SavePicture – оператор аты;

· ImageCtrl — сурет терезесін басқару, кескінді басқару немесе пішін атауы;

· Сурет – кескінге жауапты объект қасиетінің атауы;

· FilePath – файлдың толық атауы, оның дискідегі орнын көрсетеді.

8.5. Реестрдегі деректермен жұмыс істеу

Таңба пішімі ақпаратының шағын бөліктерін сақтау үшін Windows тізілімін пайдалануға болады. Visual Basic бағдарламасына кіру үшін пайдалануға болатын төрт процедура бар. Оларды пайдалану өте оңай, бірақ бір маңызды кемшілігі бар: деректерге тек белгілі бір тізілім кілтінен қол жеткізуге болады: «MyComputer \HKEY _CURRENT _USER \Software \VB және VBA Program Settings». Басқа тізілім кілттеріне қол жеткізу үшін арнайы функцияларды пайдалану керек « Win 32 API».

Visual Basic үшін арнайы Windows тізбе кілтінен параметр мәнін алу үшін келесі функцияны пайдаланыңыз:

MyString = GetSetting(VBKeyName, Бөлім, Кілт [,Әдепкі])

· MyString – функция қайтаратын мәнді сақтауға арналған жол;

· GetSetting – функцияның аты.

· VBKeyName - ішкі VB /VBA ішкі кілтінің аты болып табылатын жол мәні.

· Кілт – бөлімдегі параметрдің атын көрсететін жол мәні.

· Әдепкі - қате болған жағдайда (параметр жоқ) мәні қайтарылатын қосымша аргумент.

Windows тізілімінде мәнді сақтау үшін келесі мәлімдемені пайдаланыңыз:

SaveSetting VBKeyName, Бөлім, Кілт, MyString

· SaveSetting — оператордың аты.

· MyString - табылған мән орналастырылатын жол айнымалысы.

Белгілі бір ішкі кілттен барлық параметр мәндерін қамтитын тізілімнен массив алу үшін келесі функцияны пайдаланыңыз:

MyVariant = SetAllSettings(VBKeyName, Бөлім)

· MyVariant – функция қайтаратын «Variant» түріндегі мәндер жиымы.

· SetAllSettings — функцияның аты.

· Бөлім - белгілі бір қолданбаның бөлімін немесе ішкі бөлімін көрсететін жол мәні.

Толық параметр бөлімін жою үшін келесі синтаксисі бар операторды пайдаланыңыз:

DeleteSetting VBKeyName, Бөлім, Кілт

· DeleteSetting — оператордың аты.

Өзін-өзі тексеруге арналған қауіпсіздік сұрақтары

1. Кейбір ақпаратты қалай ұзақ мерзімді сақтауға болады?
2. Файл дегеніміз не?
3. Сіз қандай файл атауларын білесіз?
4. «Ашық» операторының синтаксисін көрсетіңіз. Оның параметрлерінің мақсатын түсіндіріңіз.
5. Бір файлға бір уақытта бірнеше қолданбалардың бірлескен қол жеткізуін қалай ұйымдастыруға болады?
6. Файлдағы ақпараттың таусылғанын қалай анықтауға болады?
7. Неліктен файлмен жұмыс істегеннен кейін оны жабу ұсынылады?
8. Мәтіндік және екілік файл режимдерінің айырмашылығы неде деп ойлайсыз?
9. Мәтіндік файл режимінде мәліметтер қалай оқылады және жазылады?
10. Екілік файл режимінде мәліметтер қалай оқылады және жазылады?
11. Файлдармен жұмыс істегенде «Басып шығару» және «Жазу» операторларының айырмашылығы неде?
12. Файлдармен жұмыс істегенде «Input» және «Line Input» операторларының айырмашылығы неде?
13. Графикалық мәліметтермен қалай жұмыс істеуге болады?
14. Windows реестрімен жұмыс істеудің негізгі принциптері қандай?

Жұмыс мақсаты: Файлдармен жұмыс істеу үшін VB 6 тіл операторларын үйрену және пайдалану әртүрлі түрлері: ретті (мәтіндік) файлдар, кездейсоқ қатынау файлдары, екілік файлдар. Құралды зерттеу және пайдалану ЖалпыДиалогфайлдарды ашу және сақтау, қаріптер мен түстерді таңдау және нысанды пайдалану үшін алмасу буферіқарапайым мәтіндік редакторды құру мысалын қолдана отырып, мәтін фрагменттерін сақтауға арналған.

Тест сұрақтары:

1. Мәтіндік файлды ашудың қандай тәсілдері бар? Мәтінді және кез келген басқа ашық файлды қалай жабуға болады?

2. Жазылатын мәтіндік файлға мәліметтер қалай жазылады? Write және Print операторларының айырмашылығы неде?

3. Оқу үшін ашылған мәтіндік файлдан мәліметтер қалай оқылады? Input және Line Input операторларының айырмашылығы неде? Файлдан берілген символдар санын қандай функция арқылы оқуға болады? Файлдың барлық символдарын қалай оқуға болады?

4. Таңдамалы деректер түрі дегеніміз не және бұл түсінік кездейсоқ қол жеткізу файлдарымен жұмыс істегенде қалай қолданылады ( раф)?

5. Файлдан қандай операторлармен рафжазбалар оқылады және файлға енгізіледі рафжаңа жазбалар жазылады ма?

6. Индекс қандай мақсатта анықталады және файлмен жұмыс істегенде қолданылады раф?

7. Екілік файлдарды қолданудың қандай мүмкіндіктері бар? Олар қалай ашылады? Екілік файлдан оқу және екілік файлға жазу қалай орындалады?

8. Басқаруды қалай қолдануға болады ЖалпыДиалогмәтіндік файлдың мазмұнын мәтіндік өріске жүктеу керек пе? Мәтіндік файлда өңделген мәтінді сақтау үшін бірдей басқару элементін қалай пайдалануға болады?

9. Басқару элементін қалай қолдануға болады ЖалпыДиалогфайл мазмұнын жүктеп алу үшін rtfалаңда Баймәтін ұясы? Өңделген мәтінді файлға сақтау үшін бірдей басқару элементін пайдалану жолы rtf?

10. Басқару элементін қалай қолдануға болады ЖалпыДиалогқаріп параметрлерінің мәндерін өзгерту және терезедегі мәтін түсін өзгерту мәтін ұясы(немесе терезедегі таңдалған мәтін бөлігі Баймәтін ұясы)?

7.1-мысал. Мәтіндік файлға жазуды (және мәтіндік файлдан оқуды) көрсететін қосымшаны қарастырайық «қызметкер туралы ақпарат» - жолдар, олардың әрқайсысында сәйкестендіру нөмірі, толық аты-жөні, қызметкердің туған күні және туған жері бар. Жолдар 4 Combo Box басқару элементімен экранда имитацияланатын кестені құрайды (7.1-сурет), олар Style қасиеті 1 - SimpleCombo мәніне орнатылған Comb(i) нысандарының массивін құрайды.

Жойылатын жолды бөлектеңіз», vbExclamation

Тарақ(j).RemoveElement i

'Кірістіру жаңа жазбаүстелге:

Жеке қосалқы mnuInsert_Click()

i% = Тарақ(0).ТізімИндекс

Егер мен< 0 Then

MsgBox «Оның алдында кірістірілетін жолды таңдаңыз», vbExclamation

Comb(0).AddItem InputBox("Нөмірді енгізіңіз"), i

Тарақ(1).AddItem InputBox("Атын енгізіңіз"), i

Comb(2).AddItem InputBox("Туған күнін енгізіңіз."), i

Тарақ(3).AddItem InputBox("Туған жерді енгізіңіз."), i

«Кестедегі жазбаны өзгерту:

Жеке қосалқы mnuUpdate_Click()

i% = Тарақ(0).ТізімИндекс

Егер мен< 0 Then

MsgBox "Өзгертілетін жолды таңдау", vbExclamation

Тарақ(0).Тізім(i) = InputBox("Нөмірді енгізіңіз", Тарақ(0).Тізім(i))

Тарақ(1).Тізім(i) = InputBox("Атын енгізіңіз", Тарақ(1).Тізім(i))

Comb(2).List(i) = InputBox("Туған күнін енгізіңіз", Comb(2).List(i))

Comb(3).List(i) = InputBox("Туған жерді енгізіңіз", Comb(3).List(i))

' Бүкіл кестені тазалау:

Жеке қосалқы mnuClear_Click()

‘ Мәтіндік файлдағы мәліметтермен кестені толтыру:

Жеке қосалқы mnuLoad_Click()

№1 енгізу үшін "person.txt" файлын ашыңыз

№1 енгізу, numb, fio, bdate, block

Тарақ(0).Елементті қосу

Тарақ(1).Element fio қосу

Тарақ(2).Елементті қосу күні

Comb(3).AddItem блогы

‘ Мәтіндік файлға кесте мәліметтерін жазу:

Жеке қосалқы mnuSave_Click()

N% = Тарақ(0).ТізімСаны

№1 шығару үшін "person.txt" файлын ашыңыз

i = 0 үшін N - 1

numb = Val(Тарақ(0).Тізім(i))

fio = Тарақ(1).Тізім(i)

bdate = CDate(Comb(2).List(i))

блок = Тарақ(3).Тізім(i)

#1, numb, fio, bdate, bloc деп жазыңыз

‘ Қолданбаны өшіру:

Жеке қосалқы mnuExit_Click()

7.2-мысал . Басқару элементтерін пайдалануды көрсететін қолданбаны қарастырыңыз ЖалпыДиалогфайлды ашуға және сақтауға, қаріп пен түсті таңдауға және мәтінді өңдеуге арналған.

Файлды пішімдеу жазумәтіндік өріске (7.2-суреттің сол жақ өрісі) және пішім файлына жүктеледі RTF- алаңда Баймәтін ұясы(7.2-суреттегі оң жақ жиек).

объект

Сынып

объект

Меншік

объект

Меншік құны

«Жалпы панельдер

диалог»

Ашу/Басқаша сақтау қойындысы

Қаріп қойындысы

Түс қойындысы

Кесте мәзір командаларының қасиеттерін көрсетпейді Қаріп, түсіЖәне Өңдеу. Төменде тек мәзір пәрмендері үшін процедура коды берілген файл (ашық, СақтауЖәне Сақтауретінде). Менюдің басқа командалары үшін кодты құрастыру – осы жұмыстың 2-ші тапсырмасының тақырыбы.

Жеке қосалқы mnuOpen_Click()

CommonDialog1.ShowOpen

F$ = CommonDialog1.FileName

Оң болса(F, 3) = "rtf" Содан кейін

RichTextBox1.LoadFile F

ElseIf Right(F, 3) = "txt" Содан кейін

№1 енгізу үшін F ашыңыз

S$ = Кіріс(N, 1)

Жеке қосалқы mnuSave_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

Жеке қосалқы mnuSaveAs_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

RichTextBox1.SaveFile F, rtfRTF

Бұл жұмыс барысында студент 2 тапсырманы орындауы керек.

1-жаттығу. Тапсырманы орындау барысында студенттер VB 6-да қол жетімді кездейсоқ файлдармен жұмыс істеу мүмкіндіктерін игереді ( RAF-кездейсоққол жеткізуфайл).

Берілген дерекқор кестесі үшін пайдаланушы анықтайтын деректер түрі жарияланады, осы түрдегі айнымалы мән жарияланады (оқулық , 108 - 112 беттер), пайдаланушы анықтайтын түрдің айнымалы мәнін пайдаланатын процедуралар құрастырылады және жөндеуден өтеді.

Атап айтқанда, мәзір командаларының процедуралары жүзеге асырылады. Файлға жазыңызRAFЖәне Файлдан оқуRAF. 7.1 мысалындағыдай, деректерді өңдеу үшін нысандар жиымы пайдаланылады. Комбоқорапжәне мәзір Өңдеубес ішкі мәзір командасымен: жазба қосу, Жазбаны жою, Жазбаны енгізу, Жазбаны өңдеу, Кестені тазалау.

1 нұсқа.

«Автосервис» деректер қорының «Автомобиль» кестесіне (7.1-кесте) пайдаланушы деректер түрін жариялаңыз.

7.1-кестенің төменгі жолында өрістердің түрлері көрсетілген.

2-нұсқа.

Car Service дерекқорының Ақаулар кестесі (7.2-кесте) үшін реттелетін деректер түрін жариялаңыз.

7.2 кестенің төменгі жолында өрістердің түрлері көрсетілген.

Үлгі ретінде 7.1 қолданбасын пайдаланып, ұсынылған кесте үшін деректерді енгізуді және өңдеуді, бұл деректерді кездейсоқ қатынас файлына жазуды және кездейсоқ қол жеткізу файлынан деректерді оқуды ұйымдастырыңыз. 7.1-мысалдағыдай, бұл әрекеттер суретте көрсетілген мәзір командаларының жұмысы ретінде орындалады. 7.1.

2-тапсырма. Әрекеттің бөлігі ретінде студенттер қолданбаны қарапайым мәтіндік редактор ретінде қарастыруға мүмкіндік беретін 2-қосымшаға жаңа мүмкіндіктерді қосады.

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

Ескерту:Объектіні орнату кезінде ЖалпыДиалог(Пайдаланушы) сипатын пайдаланып қаріп таңдау үшін Flags сипатының мәнін 1, 2 немесе 3 мәніне орнатуды ұмытпаңыз (нұсқаулықты қараңыз, 183-б.).

2-нұсқа. Басқаруды пайдалану ЖалпыДиалогмәзір командаларын орындау Өңдеу(ішкі мәзір Көшіру, КесуЖәне қою), мақсаты кім көшірунемесе жоютаңдалған мәтін фрагментінің алмасу буферіне, сонымен қатар кірістіруаралық сақтағыш мазмұны мәтінінің таңдалған орнына.

Ескерту:Алмасу буферіне (нысан алмасу буфері) SetText және GetText әдістерін қолдануға болады:

алмасу буфері. SetText RichTextBox1.SelText

RichTextBox1.SelText = алмасу буфері. gettext