Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Тексты программ в виде текстового файла и описание их подключения к системе 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

Рекомендуем скачать другие рефераты по теме: реферат металлы, решебник 6 класс виленкин.

Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата