Листинг 3

?Проверить, включены ли необходимые для анализа поля: date,time,cs-method,cs-uri-stem,cs-username,c-ip,cs-status и запомнить позиции этих полей в строке
str = Trim(Replace(str, «#Fields:», «»))
?Получить массив полей из строки журнального файла
strArray = split(str, « «)
m = 0 ?счетчик номера поля
For Each fieldStr In strArray
If m = 0 And fieldStr <> «date» Then
?Завершить обработку файла — неверный формат, на первом месте должно быть поле 
?date
	Exit Do
ElseIf m = 1 And fieldStr <> «time» Then
?Завершить обработку файла — неверный формат, на втором месте должно быть поле 
?time
	Exit Do
ElseIf fieldStr = «cs-method» Then
?Запомнить позицию поля cs-method в строке 
fieldCsMethod = m
ElseIf fieldStr = «cs-uri-stem» Then
?Запомнить позицию поля cs-uri-stem в строке 
	fieldCsUriStem = m
ElseIf fieldStr = «cs-username» Then
?Запомнить позицию поля cs-username в строке 
	fieldCsUserName = m
ElseIf fieldStr = «c-ip» Then
?Запомнить позицию поля c-ip в строке 
fieldCIP = m
ElseIf fieldStr = «sc-status» Then
?Запомнить позицию поля sc-status в строке 
fieldCsStatus = m 
End If	
m = m + 1
Next