Программирование мобильных устройств на платформе .NET Compact Framework
Шрифт:
'ПРИМЕЧАНИЕ. Мы используем блокирование потока для уверенности в том,
'что эти значения не считываются во время выполнения операции
'их записи. Поскольку доступ к m_comparisonsSoFar
'и m_CurrentNumberBeingExamined могут осуществлять
'одновременно несколько нитей, любая выполняемая над ними
'операция записи/считывания должна синхронизироваться с "блокировкой",
'что будет гарантировать "атомарность" этих операций
SyncLock (Me)
m_CurrentNumberBeingExamined = potentialPrime
m_comparisonsSoFar = m_comparisonsSoFar + 1
End SyncLock
End While
'Число является простым
Return True
End Function
End Class
Примеры к главе 10 (производительность и XML)
Листинг 10.1. Использование XML DOM для сохранения данных в файле и их загрузки
Option Strict On
Option Compare Binary
Imports System
'---------------------------------------------
'Демонстрирует сохранение и загрузку файлов с
'использованием объектной модели документа XML
'---------------------------------------------
Public Class SaveAndLoadXML_UseDOM
'XML-дескрипторы, которые мы будем использовать в нашем документе
Const XML_ROOT_TAG As String = "AllMyData"
Const XML_USERINFO_TAG As String = "UserInfo"
Const XML_USERID_TAG As String = "UserID"
Const XML_NAMEINFO_TAG As String = "Name"
Const XML_FIRSTNAME _TAG As String = "FirstName"
Const XML_LASTNAME_TAG As String = "LastName"
'--------------------------------------------------------------
'Загружает пользовательское состояние
' [in] fileName: Имя файла, используемого для сохранения данных
' [out] userId: Загруженный идентификатор пользователя
' [out] firstName: Загруженное имя пользователя
' [out] lastName: Загруженная фамилия пользователя
'--------------------------------------------------------------
Public Shared Sub XML_LoadUserInfo(ByVal fileName As String, _
ByRef userId As Integer, ByRef firstName As String, _
ByRef lastName As String)
'Начинаем с нулевых значений
userId = 0
firstName = ""
lastName = ""
'Предполагаем, что данные еще не загружены
Dim gotUserInfoData As Boolean = False
Dim xmlDocument As System.Xml.XmlDocument = _
New System.Xml.XmlDocument
xmlDocument.Load(fileName)
'Получить корневой узел
Dim rootElement As System.Xml.XmlElement
rootElement = _
CType(xmlDocument.ChildNodes(0), System.Xml.XmlElement)
'Убедиться в том, что корневой узел согласуется с ожидаемым текстом,
'ибо противное означает, что мы имеем дело с каким-то другим XML-файлом
If (rootElement.Name <> XML_ROOT_TAG) Then
Throw New Exception("Тип корневого узла не совпадает с ожидаемым!")
End If
'-----------------------------------------------------------
'Простой конечный автомат для итеративного обхода всех узлов
'-----------------------------------------------------------
Dim childOf_RootNode As System.Xml.XmlElement
For Each childOf_RootNode In _
rootElement.ChildNodes
'Если это узел UserInfo, то мы хотим просмотреть его содержимое
If (childOf_RootNode.Name = XML_USERINFO_TAG) Then
gotUserInfoData = True
'Пользовательские данные найдены
'--------------------------------
'Загрузить каждый из подэлементов
'--------------------------------
Dim child_UserDataNode As System.Xml.XmlElement
For Each child_UserDataNode In _
childOf_RootNode.ChildNodes
'Идентификатор пользователя (UserID)
If (child_UserDataNode.Name = XML_USERID_TAG) Then
userId = CInt(child_UserDataNode.InnerText)
'ФИО пользователя (UserName)
ElseIf (child_UserDataNode.Name = XML_NAMEINFO_TAG) Then
Dim child_Name As System.Xml.XmlElement
Поделиться:
Популярные книги
Возлюби болезнь свою
Научно-образовательная:
психология
7.71
рейтинг книги
Тринадцатый XI
11. Видящий смерть
Фантастика:
попаданцы
аниме
фэнтези
фантастика: прочее
5.00
рейтинг книги
Хроники Тириса. Книга 1
1. Хроники Тириса
Фантастика:
боевая фантастика
космическая фантастика
фантастика: прочее
6.00
рейтинг книги
Дважды одаренный. Том IV
4. Дважды одаренный
Фантастика:
городское фэнтези
альтернативная история
аниме
7.00
рейтинг книги
Я уже барон
2. Дорогой барон!
Фантастика:
боевая фантастика
попаданцы
аниме
5.00
рейтинг книги
Эволюционер из трущоб. Том 9
9. Эволюционер из трущоб
Фантастика:
попаданцы
аниме
фэнтези
фантастика: прочее
5.00
рейтинг книги
Паладин из прошлого тысячелетия
1. Соприкосновение миров
Фантастика:
боевая фантастика
попаданцы
6.25
рейтинг книги
Свет горизонта
1. Свет горизонта
Фантастика:
фэнтези
6.00
рейтинг книги
Дважды одаренный. Том VI
6. Дважды одаренный
Фантастика:
аниме
альтернативная история
фэнтези
фантастика: прочее
5.00
рейтинг книги
Память льда
3. «Малазанская империя»
Фантастика:
фэнтези
6.00
рейтинг книги
Первый удар (сборник)
Фантастика:
научная фантастика
5.71
рейтинг книги
Артефактор. Возвращение блудного императора
2. Артефактор
Фантастика:
фэнтези
боевая фантастика
4.33
рейтинг книги
Воин
2. Совсем не герой
Фантастика:
фэнтези
попаданцы
9.25
рейтинг книги
Сирота
1. Светлая Тьма
Фантастика:
юмористическое фэнтези
городское фэнтези
аниме
5.00