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



 

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, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "") + 1

intLen = InStr(InStr(1, strTemp, ">"), strTemp, "

Скачали данный реферат: Filat, Petrov, Jakov, Сиянский, Evstafij, Будимир, Мартьянов.
Последние просмотренные рефераты на тему: население реферат, реферат на тему государство, ответы по контрольной, скачать реферат бесплатно без регистрации.

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

Поделитесь этой записью или добавьте в закладки