Welcome to my first web page

  Please enter your private information:

Затем я создал однотабличную базу данных и подключил несколько библиотек, необходимых для работы проекта.(См. Рис.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:

22222222

X_Country:

Moldova

X_Email:

sergheev@mail.md

                                                                                                                   Рис.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, "&nbsp;") = 0 Then
  intFirst = InStr(1, strTemp, ">") + 1
  intLen = InStr(InStr(1, strTemp, ">"),  strTemp, "<") - intFirst
  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, "&nbsp;") = 0 Then
  intFirst = InStr(1, strTemp, ">") + 1
  intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
  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, "&nbsp;") = 0 Then
  intFirst = InStr(1, strTemp, ">") + 1
  intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
  strCname = CleanText(Mid(strTemp,  intFirst, intLen))
Else
  strCname = ""
End If

’Извлечь строки с первым и вторым адресами

txtobj1.SkipLine
strTemp = txtobj1.ReadLine
If InStr(1, strTemp, "&nbsp;") = 0 Then
  intFirst = InStr(1, strTemp, ">") + 1
  intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
  strSt1 = CleanText(Mid(strTemp, intFirst,  intLen))
Else
  strSt1 = ""
End If
txtobj1.SkipLine
strTemp = txtobj1.ReadLine
If InStr(1, strTemp, "&nbsp;") = 0 Then
  intFirst = InStr(1, strTemp, ">") + 1
  intLen = InStr(InStr(1, strTemp, ">"),  strTemp, "<") - intFirst
  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, "<") - intFirst
strCity = Mid(strTemp, intFirst, intLen)
If strCity = "&nbsp;" Then strCity = ""
txtobj1.SkipLine
strTemp = txtobj1.ReadLine
intFirst = InStr(1, strTemp, ">") + 1
intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
strRegion = Left(Mid(strTemp, intFirst, intLen), 20)
If strRegion = "&nbsp;" Then strRegion = ""
txtobj1.SkipLine
strTemp = txtobj1.ReadLine
intFirst = InStr(1, strTemp, ">") + 1
intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
strPostalCode = Mid(strTemp, intFirst, intLen)
If strPostalCode = "&nbsp;" Then strPostalCode = ""
txtobj1.SkipLine
strTemp = txtobj1.ReadLine
intFirst = InStr(1, strTemp, ">") + 1
intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
strCountry = Mid(strTemp, intFirst, intLen)
If strCountry = "&nbsp;" Then strCountry = ""

’Извлечь  Email address ; Использовать как строкe в VBA proc, но это добавляется к ‘таблице как гиперсвязь

txtobj1.SkipLine
txtobj1.SkipLine
txtobj1.SkipLine
strTemp = txtobj1.ReadLine
intFirst = InStr(1, strTemp, ">") + 1
intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
strEmailAddr = Mid(strTemp, intFirst, intLen)
If strEmailAddr = "&nbsp;" 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 = -2147217887 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 типа &amp; with & и &quot; with "

CleanText = Replace(strText, "&amp;", "&")
CleanText = Replace(CleanText, "&quot;", """")

End Function

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

Заключение и библиография

В результате этой работы я ознакомился с приложением MSFrontPage  и узнал о новых возможностях MSOffice2000. Также я узнал много нового о приложении Access.

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

В работе над этим проектом использовались материалы сайтов:

1. www.vbrussian.com - сайт на русском языке. Включает в себя большое количество статей, примеров, кодов, ActiveX для специалистов и начинающих в области программирования на VBA.

2. www.microsoft.com - сайт на русском языке. Рассказывает  о новых достижениях корпорации Microsoft: новая операционная система Windows2000, пакет приложений MSOffice2000  и многое другое.

3. www.devx.com - сайт на английском языке. Он является путеводителем для программистов, использующих различные языки программирования.

4. www.VBPJ.com -  сайт на английском языке. Это журнал в котором печатаются статьи с новыми разработками в области программирования на VBA.

Также в работе над проектом использовались книги:

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

2. “Информационные технологии” Ю. Шафрин (Лаборатория базовых знаний, Москва 1999г.)

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