Програмування

Дата видачі завдання: 10.04.00.

Дата здачі готового завдання 5.06.00.

У виконання завдання щодо курсової роботі представляється дискета, яка містить розроблену програму (функції, процедури), набори вихідних даних, необхідні для перевірки роботи, і навіть складається звіт який має содержать:

1. Титульний лист 1 стр.

2. Завдання (цей аркуш) 1 стр.

3. Теоретичне запровадження (загальні вопросы,.

які стосуються Вашої роботі) 3−4 стр.

4. Опис розробленої программы.

області застосування, методи використання 1−2 стр.

5. Система позначень, опис переменных,.

аргументів функцій і процедур тощо. 1−2 стр.

6. Екранні копії етапів розробки з.

роз’ясненнями кожного изображения.

Опис робіт з налагодженні програми 2−3 стр.

7. Копії діалогів, підсумкові результати 2−3 стр.

8. Текст програми (програм) як.

текстового файла, опис їх подключения.

до системи VBA, MS Office чи VB6 2−4 стр.

9. Укладання та бібліографія, ссылки.

Internet (з описом вмісту, тема;

тической спрямованості) 2 стр.

______.

РАЗОМ 15−22 стр.

Завдання 2.

Тема: «Набір процедур VBA — Зчитування даних із гостьовій книжки FRONTPAGE 2000 в таблицю ACCESS 2000.

Ccылка — internet.

— Вихідні дані в файлі «Date2.doc» в каталозі «Соммоn» мережі.

«Univers-Moldova».

— Перевести російською мовою технічне опис процедур.

— Запровадити відрегулювати код функцій і процедур, які у примере.

— Створити необхідні процедури і файли даних (якщо це потрібно) для перевірки працездатності розробленого приложения.

Теоретичне введение.

Секрет, як можна стати професійним розробником програм на Visual Basic, у тому, щоб писати програми, потребують ми застосування найрізноманітніших можливостей Visual Basic. У тому числі: досконале знання і можливість практично застосовувати стандартні засоби управління панеллю інструментів, і компоненти ActiveX; вміння правильно встановлювати і маніпулювати властивостями, функціями й небуденними подіями об'єкта; здатність писати відвертий і чітку програмний код із можливістю використання деяких сегментів програми надалі; вміння створювати наочний і досить ефективний інтерфейс пользователя.

Робота над цієї курсової мені знадобилося вивчити додаток FrontPage, і вивчати деякі можливості Visual Basic при застосуванні Access.

Microsoft FrontPage 2000 охоплює всі потрібні кошти для ефективної розробки та експлуатації веб-вузлів. Користувачі можуть легко створювати якісно оформлені веб-сторінки, обираючи найзручніший спосіб розробки. FrontPage 2000 дозволяє надавати кінцевий та фаховий вид веб-узлам, й редагувати код HTML будьяким зі існуючих засобів і застосовувати новітні веб-технологии. З допомогою FrontPage 2000 можна легко виконувати відновлення веб-сторінок, і навіть користуватися гнучкими коштів управління вузлами Інтернету й интрасетей. FrontPage 2000 дозволяє створювати й підтримувати вузли, ознайомитися з їх роботою та виробляти періодичні відновлення. Робітники групи і команди фахівців може використати веб-узлы для співпраці, а компанії - здійснювати розгортання і адміністрування FrontPage 2000 на підприємства. FrontPage 2000 допомагає заощадити час користувачам пакета Microsoft Office. Цей продукт працює за принципом додатків Microsoft Office, що спрощують його освоєння.

Моє завдання зводилася до того, щоб у додатку FrontPage створити гостьову книжку. Потім у додатку Access створити однотабличную базі даних й у модулі Visual Basic набрати відрегулювати код програм, які зчитували дані з гостьовій книжки на базу данных.

Щоб набрати відрегулювати програму необхідно ознайомитися із елементами, складовими основу програмування на Visual Basic, тобто. з командами, операторами, функціями і ключовими словами.

Оператори і функции.

Оператор Sub оголошує ім'я, параметри і тіло процедуры.

Оператор End Sub закінчує процедуру.

Оператор Dim оголошує перемінні і пам’ять під них.

Оператор Set пов’язує посилання об'єкт з перемінної чи свойством.

Цикл Do Until … Loop повторює блок команд, поки умова стане верным.

Цикл If … Then … Else виконує команду (інструкцію) чи блок команд залежно від значення выражения.

Оператор On … GoTo передає одну з кількох певних рядків, залежно від значення выражения.

Функція InStr повертає позицію першої знайденою підстроювання в строке.

Функція Ucase повертає рядок, перетворену у верхній регистр.

Оператор Mid заміщає певна кількість символів в рядку на символи з іншої рядки.

Функція Mid повертає певна кількість символів з певній позиції строки.

Функція Lcase повертає рядок в нижньому регистре.

Функція Left повертає певна кількість символів початку строки.

Оператор With виконує послідовність команд конкретної об'єкта чи перемінної спеціалізованого типа.

Функція Resume продовжує виконання програми після завершення процедури оброблювача ошибок.

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

Оператор Function оголошує ім'я, і код підпрограми, возвращающей значення (функции).

Переменные.

Отже, змінна є тимчасове сховище для даних у програмі. Хто навчався інформатики у шкільництві, напевно, пам’ятає, що «перемінні - це такі шухлядки які містять інформація… ». У тексті програми ми можемо використати хоч греблю гати змінних. Особлива користь від нього — те, що ми привласнюємо за потрібне даним короткий і легко пам’ятний ідентифікатор. Ярличок, як кажуть. Якщо ми дамо перемінної UserName значення «Іванов Петро Іванович », то подальшому використовувати вісім символів легше, ніж вісімнадцять !!! Змінні можуть утримувати будь-яку інформацію.

Щоб грамотно використовувати зміну, потрібно її спочатку оголосити, зарезервувати під неї пам’ять. І тому використовуються такі ключове слово: Dim, Private, Public, Static, Global.

Змінні можна оголошувати лише на рівні модуля на рівні процедури. Під рівнем модуля мається на увазі частина форми General і стандартний модуль, а під рівнем процедури мається на увазі Sub, Function тощо.

Пояснення використання Static. Описує перемінні лише з рівні процедури. Змінна, описана лише на рівні процедури, «живе «лише доти цієї процедури протягом роботи докладання.

Пояснення використання Dim. Описує перемінні на рівні модуля і лише на рівні процедури. Змінна, описана лише на рівні процедури, живе тільки не більше цієї процедури і перестає працювати після закінчення процедури. Її ми найчастіше й застосовуємо як лічильник, т.к. і потрібен чи всього у цій процедурі. Змінна, описана лише на рівні модуля, проста до всіх процедур даного модуля. Тобто. якщо потрібна змінна, яку бачать всі функції і складні процедури, тo її треба оголосити щодо слова Dim лише на рівні модуля.

Пояснення використання Public. Описує перемінні лише на рівні модуля. Отже змінна стаёт глобальної, але рівні форми і доступна решті модулями.

Звісно, під час переходу до іншої форму змінна буде порожній, невідомої для другий форми! Щоб уникнути цього необхідно оголосити зміну в стандартному модулі щодо слова Public чи Global. Тоді змінна буде доступна й кожної формі.

Пояснення використання Private. Описує перемінні на рівні модуля і лише на рівні процедури. Змінна, описана лише на рівні процедури, живе тільки не більше цієї процедури. Змінна, описана лише на рівні модуля, доступне тільки модулю, у якому вона оголошено.

Оголошення всіх змінних вважається хорошою звичкою. На допомогу забудькуватим і незабывчивым є інструкція Option Explicit. Поміщати цю інструкцію потрібно лише на рівні модуля і потім перевіряє кожну зміну оголошено вона чи ні? Якщо ні - вискакує помилка. Розмір що відводиться пам’яті під зміну залежить від виду цієї перемінної. Основні види змінних зазначені у Таблиці 1 .

Таблица1 Основні види змінних.

Тип данных.

Размер

Діапазон значений.

Integer (Целое).

2 байта.

від -32 768 до 32 767.

Long Integer (Довгий целое).

4 байта.

від -2 147 483 648 до 2 147 483 647.

Single — precision Floating point (Одинарної точності з плаваючою десяткової точкой).

4 байтa.

від -3.40 2823E38 до 3.40 2823E38.

Double — precision Floating point (Подвійний точності з плаваючою десяткової точкой).

8 байт.

від -1.7 976 931 348 6232D308 до 1.7 976 931 348 6232D308.

Currency (Грошові единицы).

8 байт.

від -922 337 203 685 477.5808 до 922 337 203 685 477.5807.

String (Строка).

1 байт на символ.

від 0 до 65 535 символов.

Boolean (Логический).

2 байт.

True (Істина) чи False (Ложь).

Date (Дата).

8 байт.

від January (Январь)1, 100, до December (Грудень) 31, 9999.

Variant (Вариант).

16 байт (для чисел); 22 байт на символ (для строк).

всім типів данных.

Опис розробленої програми, області застосування, методи використання.

Набір процедур, включених у цю курсову, був спеціально створено для сайту THE TECH REPUBLIC (internet.

Цей набір процедур розроблений для зчитування даних із Гостьовій книжки, створеної додатку FrontPage, в однотабличную базі даних, створену при застосуванні Access.

Працюючи з Гостьовій книгою зручне використовувати цей набір процедур.

Зараз дуже широко використовується Інтернет. Існує дуже багато сайтів, у яких часто-густо можна зустріти сторінку з Гостьовій книгою. Там можна лише просто зареєструватися, заповнивши необхідні форми, а й залишити свій коментарі з тому чи того питання, передплатити різноманітні електронні журнали та газети й багато другое.

Аналізований набір процедур працює із простий Гостьовій книгою. Побачити цю сторінку — і зареєструватися ви можете за адресою;

http:// univers/college/students/emel/main.htm.

Ця Гостьова книгу було створена додатку FrontPage. Це — нове додаток розширеного пакета Microsoft Office2000. Зараз у цьому додатку створювати веб-узлы було ще простіше. Додатка пакета Office 2000 і FrontPage 2000 використовують загальні панелі інструментів, теми, меню, і навіть деякі інструментальні кошти, такі як фонова перевірка орфографії і «Формат на зразок «(Format Painter). FrontPage 2000 також спрощує використання форм і баз даних на веб-узлах.

FrontPage 2000 забезпечує розробників веб-вузлів простими й потужними інструментальними засобами. FrontPage не змінює імпортований код HTML і дає користувачам можливість самостійно налаштовувати його форматування. Працюючи як редагування HTML, користувачі можуть прискорити процес створення сторінок, використовуючи кнопки і елементи меню.

FrontPage 2000 полегшує спільну роботу. Користувачі додатків пакета Microsoft Office можуть зберігати документи безпосередньо на веб-узлах, створених із допомогою FrontPage, а система резервування документів і майже звіти у проекті допомагають здійснювати спільну роботу над веб-страницами.

FrontPage 2000 простий в обслуговуванні і експлуатації. У ньому використовується той самий програма установки, що у додатках Microsoft Office. Ця програма дає змогу виробляти установку на вимогу, запускати докладання з серверу та відновлювати програмне обеспечение.

Гостьові книжки використовують у різноманітних цілях, приміром щоб одержати статистичних даних або створення бази даних користувачів цього сайту. До сформування такої нормативно-правової бази даних, і створили даний набір процедур, який зчитує дані Гостьовій книжки, збережені в локальному файлі, і записує в базі даних.

Надалі, використовуючи цей набір процедур, можна буде потрапити постійно оновлювати дані у цій базі данных.

Використовуючи надалі можливості бази даних докладання Access, можна різні запити, й звіти, приміром звіт про кількість користувачів сайту за певний місяць, звіт у регіонах про місце проживання користувачів сайту тощо.

Система позначень, опис змінних, аргументів функцій і процедур і т.д.

Для VBA існують домовленості про найменуванні Реддика (RVBA), які дають вказівки з привласнення імен об'єктах у мові Microsoft Visual Basic for Applications (VBA). Наявність угод необхідне будь-якого програмного проекту. З використанням угод ім'я об'єкта несе у собі інформацію про її призначення. Запропоновані угоди стандартизируют позначення у сфері программирования.

Мова VBA розроблений для взаємодії з базовим додатком, приміром, із MS Access, Visual Basic, MS Excel, MS Project. Угоди RVBA пишуться для всіх розробкам мовою VBA, незалежно від базового приложения.

Угоди RVBA засновані на Угорської нотації. Мета цієї нотації - лаконічне і запропонував ефективне надання інформації об'єкт у його имени.

Єдиною обов’язкової частиною імені об'єкта є ознака — короткий набір символів, зазвичай мнемонічний, що вказує тип об'єкта. Ознака має складатися з малих літер літер і звичайно вибирається з стандартного списку ознак, вказаної у Таблиці 2.

Таблица2 Ознаки для змінних VBA.

Признак.

Типи объекта.

Byt.

Byte.

F.

Boolean.

Int.

Integer.

Sng.

Single.

Dbl.

Double.

Cur.

Currency.

Dtm.

Date.

Obj.

Object.

Str.

String.

Stf.

String (фиксированной длины).

Var.

Variant.

Lng.

Long.

У цьому наборі процедур використовується Угорська нотація. Усі перемінні і об'єкти мають у своєму своєму імені ознака, що відповідає типу цих змінних і объектов.

Набір аналізованих процедур і двох частин: процедури LookForNameStart і складні процедури ProcessContact. Перед написанням коду процедур, оператор Dim оголошує перемінні txtobj1 як об'єкт, має доступом до файловій системі компьютера (Scripting) і считывающий текст файла потоком (FileStream); strTemp як строковую зміну і rst1 як вмонтований объект (Recordset) ADO бази даних (див. Рис7) і під ці перемінні частина пам’яті. Оголошення змінних до написання самого коду процедур потрібно, щоб ці перемінні були доступні більш як однієї процедуре.

Оператор Sub оголошує тіло й ім'я процедури LookForNameStart.

Оператор Dim резервує частина пам’яті під зміну fs, що матиме доступом до системному файлу.

Оператор Set пов’язує посилання новий об'єкт, має доступом до системному файлу з перемінної fs. Також цей оператор пов’язує посилання новий об'єкт fs, у якому відкривається файл Myformrstl. htm (См. Рис.12) для читання (з допомогою оператора Open) з диска F: на локальному комп’ютері з объектомt xtobj1. Він також пов’язує rst1 з новими вбудованим об'єктом ADO бази даних. Потім у об'єкті rst1 відкривається таблиця «tblContacts» нинішнього року проекті CurrentProject.Connection.

Цикл Do Until … Loop виконується до того часу поки що не знайдено рядок, що є прямо перед рядком «X_FirstName». І тому використовується ще одне цикл If… Then … Else … End If, який перевіряє чи є читаемая рядок txtobj1. ReadLine файла Myformrstl. htm рядком «X_FirstName «. Це здійснюється за допомогою функції InStr, яка повертає позицію шуканої рядки «X_FirstName». І якщо вона є такою, то виконується друга процедура ProcessContact нашого проекту, а якщо ні - то триває цикл Do … Loop.

Задля чистоти ресурсів використовується метод Close для об'єктів txtobj1и rst1 і оператор Set, який називає порожні об'єкти txtobj1 і rst1.

Для заповнення таблиці «tblContacts» базі даних було створено процедура ProcessContact.

Оператор On … GoTo у разі помилки змушує перестрибувати програму на рядок MyErrorTrap.

Оператор Dim оголошує перемінні strFname, strLname, strCName, strSt1, strSt2, strCity, strRegion, strPostalCode, strCountry, strEmailAddr як строковые перемінні; intFirst і intLen як числові перемінні і cmd1 як вмонтований об'єкт ADO бази лазневих.

З допомогою циклу If… Then … Else … End If у цій процедурі перевіряються рядки з введёнными даними з Гостьовій книжки, які збережені в файлі Myformrstl.htm. Цикл If… Then … Else … End If з допомогою функції InStr перевіряє його присутність серед рядку спеціального знака «» і якщо його відставці немає, то присваевает перемінної intFirst номер позиції символу + 1, від якого здійснюватиметься запис. Потім перемінної intLen присваевается значення довжини записи, тобто. скільки символів прописано — 1. Змінним strFName і strLName присвоюються значення з допомогою функцій Ucase, Lcase і Mid символу з великої літери під номером, присвоєний перемінної intFirst рядки strTemp і символів, з номерами, такими за intFirst з тієї ж рядки, довжиною intLen — 1. Якщо умова не виконується то рядок залишається порожній.

За таким самим принципу змінним strCName, strSt1 і strSt2 присвоюються значення, та заодно замість функцій Ucase, Lcase исползуется функція CleanText, створена у тому пpоекте. Вона прибирає все зайві символи з строки.

У присвоєння змінним strCity, strRegion, strPostalCode, strCountry, strEmailAddr використовуються практично самі способи, але замість циклу If… Then … Else … End If застосовується упрощённый цикл, який записується до однієї рядок If… Then. І він перевіряв лише наявність спецсимволов у черговий рядку, і якщо вони ести то Ці перемінні залишаються пустыми. Также тут використовується лише функція Mid і функції Left для strRegion, яка повертає певна кількість символів початку строки.

Метод SkipLine об'єкта txtobj1 пропускає строку.

Для налагодження програми використовується об'єкт Debug зі властивістю Print.

Результати роботи процедур з’являються у вікні отладки.

Далі все лічені дані будуть пооследовательно вписано в таблицю tblContacts нашої бази данных.

Процедура перевіряє порожні чи ні перемінні strFName, strLName і strEmailAddr якщо ні, вона використовує оператор With для об'єкта rst1 заповнення полів таблиці, перевіряючи наявність запис у кожної строковой перемінної нашої процедуры.

Мітка MyExit з нашого процедурі означає, що тільки після виконання циклу процедура закінчує работу.

Кожна стандартна помилка має власний номер. При помилці - 214 721 887 об'єкт cmd1 називає новий вмонтований об'єкт ADO бази даних, і з допомогою оператора With пов’язують із поточним проектом, змінює деякі властивості цього об'єкта, виконує їх і поза оператором With слід функція відновлення Resume, т. е. запускається від початку Sub LookForNameStart. Якщо ж номер помилки інший, то вікні налагодження з’являється номер і опис цієї помилки і яскрава програма повертається до мітці MyExit.

Функція CleanText прибирає спеціальні символи з допомогою функції Replace.

Екранні копії етапів розробки з роз’ясненнями кожного изображения.

На виконання цього проекту потрібно було встановити додаток MSFrontPage, що у пакеті MSOffice2000. Його настановний пакет перебуває в комп’ютері User7 нашої локальної мережі. Після запуску установочного файла ми вибираємо «add or remove Features"(См. Мал.1).

Рис. 1.

Потім ми вибрали FrontPage у списку і наказала на установление.(См. Рис.2 і Рис.3).

З допомогою FrontPage Wizard я створив Гостьову книжку (см. Рис.4), яку згодом встановили на сервері нашої локальної мережі. Отримавши файл з цими, отриманими цю Гостьову книжку, я розпочав виконання другій частині проекту: створення однотабличной бази даних, і написання коду процедур.

Частиною будь-якого проекту VBA є набір посилань на бібліотеку типів всіх компонентів IDE, що застосовуються у проекті. Прості проекти містять небагато ссылок, которые застосовуються VBA, інтерфейсом автоматизації і базовим додатком. Посиланнями можна управляти інтерактивно посредствам діалогового вікна ССылки (См. Рис.5) чи програмным шляхом, посредствам Rferences класу VBProject.

Рис. 2.

Рис. 3.

Guest Book.

Welcome to my first web page.

Top of Form.

Please enter your private information:

First Name.

Last Name.

Organization.

Street Address.

Address (cont.).

City.

State/Province.

Zip/Postal Code.

Country.

E-mail.

Bottom of Form.

Author information goes here.

Copyright © 2000 Sergheev Alexander. All rights reserved.

Revised:

Рис. 4.

Потім я створив однотабличную базі даних і підключив кілька бібліотек, необхідні роботи проекта.(См. Див. Мал.5 і Рис.6).

Наступний етап розробки — написання кода (См. Рис.7) Потім налагодження процедур.

Оскільки у творців цього набору процедур, очевидно, була на кілька інша Гостьова книга, то мені довелося внести певні зміни код процедур: поміняти адресу файла, від якого зчитуються дані, змінити ім'я першого рядка чудово цього файла та скасувати кілька команд — «пропустити строку"(См. Див. Мал.7 — 11).

Як зазначено малюнку 8 програма не працювала, т.к. не знаходив необхідний файл. У цьому з’являється діалогове вікно вказавши номер помилки і її описом (См. Рис.9).

Рис. 5.

Рис. 6.

Рис. 7.

Рис. 8.

Рис. 9.

Рис. 10.

Рис. 11.

X_FirstName:

Sasha.

X_LastName:

Sergheev.

X_Organization:

College.

X_WorkAddress:

A Russso 1.

X_Address2:

A Russo 1.

X_City:

Chishinev.

X_State:

Moldova.

X_ZipCode:

X_Country:

Moldova.

X_Email:

[email protected].

Рис. 12.

Тексти програм, у вигляді текстового файла і опис їх підключення до системи MSOffice.

" Оголосіть перемінні глобально, те щоб вони були доступні більш ніж однієї ‘процедуре;

" Txtobj1 і об'єкти fs вимагають посилання бібліотеку Microsoft Scripting RunTime.

Dim txtobj1 As Scripting.TextStream.

Dim strTemp As String.

Dim rst1 As ADODB.Recordset.

Sub LookForNameStart ().

Dim fs As Scripting.FileSystemObject.

" Формуйте заслання до системи файла, і використовуйте це, щоб «відкрити текстовий ‘об'єкт, основанный.

" на локальному файлі, який містить регістр Гостьовій книги.

Set fs = New Scripting.FileSystemObject.

Set txtobj1 = fs. OpenTextFile («F:formrslt.htm », ForReading).

" Відкрийте recordset на tblContacts таблице.

Set rst1 = New ADODB.Recordset.

rst1.Open «tblContacts », CurrentProject. Connection, adOpenKeyset,_ adLockOptimistic.

" Пройти цикл через текстовий об'єкт перебування лінії саме ‘перед ‘FirstName полем.

Do Until txtobj1.AtEndOfStream.

strTemp = txtobj1.ReadLine.

If InStr (1, strTemp, «X_FirstName ») 0 Then.

ProcessContact.

End If.

Loop.

‘Очистити ресурсы.

rst1.Close.

Set rst1 = Nothing.

txtobj1.Close.

Set txtobj1 = Nothing.

Set fs = Nothing.

End Sub.

Sub ProcessContact ().

On Error GoTo MyErrorTrap.

Dim strFname As String.

Dim strLname As String.

Dim strCname As String.

Dim strSt1 As String.

Dim strSt2 As String.

Dim strCity As String.

Dim strRegion As String.

Dim strPostalCode As String.

Dim strCountry As String.

Dim strEmailAddr As String.

Dim intFirst As Integer.

Dim intLen As Integer.

Dim cmd1 As ADODB.Command.

'Вилучити First Name у властивому регистре.

strTemp = txtobj1.ReadLine.

If InStr (1, strTemp, «») = 0 Then.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strFname = UCase (Mid (strTemp, intFirst, 1)) &_.

LCase (Mid (strTemp, intFirst + 1, intLen — 1)).

Else.

strFname = ««.

End If.

'Вилучити Last Name у властивому регистре.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

If InStr (1, strTemp, «») = 0 Then.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strLname = UCase (Mid (strTemp, intFirst, 1)) & _.

LCase (Mid (strTemp, intFirst + 1, intLen — 1)).

Else.

strLname = ««.

End If.

'Вилучити Organization Name у кожному регистре.

txtobj1.SkipLine.

'txtobj1.SkipLine.

'txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

If InStr (1, strTemp, «») = 0 Then.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strCname = CleanText (Mid (strTemp, intFirst, intLen)).

Else.

strCname = ««.

End If.

'Вилучити рядки з цим і другим адресами.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

If InStr (1, strTemp, «») = 0 Then.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strSt1 = CleanText (Mid (strTemp, intFirst, intLen)).

Else.

strSt1 = ««.

End If.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

If InStr (1, strTemp, «») = 0 Then.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strSt2 = CleanText (Mid (strTemp, intFirst, intLen)).

Else.

strSt2 = ««.

End If.

'Вилучити City, Region, Postal Code, and Country.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strCity = Mid (strTemp, intFirst, intLen).

If strCity = «» Then strCity = ««.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strRegion = Left (Mid (strTemp, intFirst, intLen), 20).

If strRegion = «» Then strRegion = ««.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strPostalCode = Mid (strTemp, intFirst, intLen).

If strPostalCode = «» Then strPostalCode = ««.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strCountry = Mid (strTemp, intFirst, intLen).

If strCountry = «» Then strCountry = ««.

'Вилучити E-mail address; Використовувати як строкe в VBA proc, але ці додається до ‘таблиці як гиперсвязь.

txtobj1.SkipLine.

txtobj1.SkipLine.

txtobj1.SkipLine.

strTemp = txtobj1.ReadLine.

intFirst = InStr (1, strTemp, «> «) + 1.

intLen = InStr (InStr (1, strTemp, «> «), strTemp, «.

strEmailAddr = Mid (strTemp, intFirst, intLen).

If strEmailAddr = «» Then strEmailAddr = ««.

" Використовуйте цей набір друку для налагодження целей.

" Debug.Print.

" Debug. Print strFname & «» & strLname.

" Debug. Print strCname.

" Debug. Print strSt1.

" Debug. Print strSt2.

" Debug. Print strCity & «, «; strRegion & «» & strPostalCode.

" Debug. Print strCountry.

" Debug. Print strEmailAddr.

" Додайте запис, якщо це має припустимий первинний ключклавишу.

If strFname _.

" «And strLname «» And strEmailAddr «» Then.

With rst1.

.AddNew.

If strFname _.

" «Then .Fields («FirstName ») = strFname.

If strLname «» Then. Fields («LastName ») = strLname.

If strCname «» Then. Fields («CompanyName ») = strCname.

If strSt1 «» Then. Fields («Address ») = strSt1.

If strSt2 «» Then. Fields («Address1 ») = strSt2.

If strCity «» Then. Fields («City ») = strCity.

If strRegion «» Then. Fields («StateOrProvince ») = strRegion.

If strPostalCode «» Then. Fields («PostalCode ») = strPostalCode.

If strCountry «» Then. Fields («Country ») = strCountry.

If strEmailAddr «» Then. Fields («EMailName ») = strEmailAddr.

.Update.

End With.

End If.

MyExit:

Exit Sub.

MyErrorTrap:

If Err. Number = -2 147 217 887 Then.

" Перехоплювач дублює ключову помилку і наявність заміняє запись.

Set cmd1 = New ADODB.Command.

With cmd1.

.ActiveConnection = CurrentProject.Connection.

.CommandText = «DELETE * «& «FROM tblContacts «& _.

" WHERE tblContacts. EMailName «& «= «» & strEmailAddr & «» «.

.CommandType = adCmdText.

.Execute.

End With.

Resume.

Else.

Debug.Print Err. Number; Err.Description.

Resume MyExit.

End If.

End Sub.

Function CleanText (strText As String).

" Замініть спеціальні символи HTML типу & with & і «with «.

CleanText = Replace (strText, «& «, «& «).

CleanText = Replace (CleanText, «» «, «» «»).

End Function.

Як описувалося вище цей набір процедур використовують у додатку Access, для зчитування даних із файла з розширенням html. У цьому вся файлі зберігаються даних про користувачів Гостьовій книги.

Укладання та библиография.

У результаті роботи я ознайомився із фотографією MSFrontPage й довідався про можливості MSOffice2000. Також з’ясували багато нового додаток Access.

У процесі вироблення проекту я чимало часу приділяв роботі у Internet.

Дуже багато сайтів для таких людей, які цікавляться програмуванням на VBA.

Діяльність з цього проектом використовувалися матеріали сайтов:

1. internet — сайт російською. Включає у собі дуже багато статей, прикладів, кодів, ActiveX спеціалістів і початківців у сфері програмування на VBA.

2. internet — сайт російською. Розповідає то досягненнях корпорації Microsoft: нова операційна система Windows2000, пакет додатків MSOffice2000 і що другое.

3. internet — сайт англійською. Він є путівником для програмістів, використовують різні мови программирования.

4. internet — сайт англійською. Це часопис на якому друкуються статті з новими розробками у сфері програмування на VBA.

Також у роботі над проектом використовувалися книги:

1. «Програмування в Microsoft Office» К. Гетц, М. Джильберт,(BHV, Київ 1999 г.).

2. «Інформаційні технології» Ю. Шафрин (Лабораторія базових знань, Москва 1999 г.).

3. «використання Visual Basic 6» Б. Сайлер Д. Спотс (Видавничий будинок «Вільямс», Москва — Санкт-Петербург — Київ 1999 г.).