Реферат: Считывание данных из гостевой книги
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, " ") = 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, " ") = 0 Then
intFirst = InStr(1, strTemp, ">") + 1
intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst
strCname = CleanText(Mid(strTemp, intFirst, intLen))
Else
strCname = ""
End If