В данном разделе будут рассмотрены этапы работы со Scorm пакетом.

На начальном этапе мы находим на локальном диске Scorm пакет, распаковываем его из архива во временное хранилище и вызываем диалог для выбора файла imsmanifest. xml.

string path = System. Environment. CurrentDirectory;

this. openFileDialog1. FileName = "*. xml";

if (this. openFileDialog1. ShowDialog () == DialogResult. OK)

Если файл imsmanifest. xml загружен - начинаем анализ его структуры на корректность, находим путь к файлу runtime. xml

{

XmlTextReader reader = null;

System. Collections. ArrayList simList = new System. Collections. ArrayList ();

try

{

reader = new XmlTextReader (openFileDialog1. FileName);

reader. WhitespaceHandling = WhitespaceHandling. None; // пропускаем пустые узлы

while (reader. Read ())

if (reader. NodeType == XmlNodeType. Element)

if (reader. Name == "resource")

{

for (int i = 0; i < reader. AttributeCount; i++)

{

if (reader. GetAttribute (i) == "sco")

{

while (reader. Read () && reader. Name == "file")

if (reader. GetAttribute (0). IndexOf ("runtime. xml")! = - 1)

{

string name = openFileDialog1. FileName. Replace ("imsmanifest. xml","") + "\\" + reader. GetAttribute (0). Replace ("/", "\\");

listBox1. Items. Add (name);

}

}

}

}

}

Если путь к файлу runtime. xml найден, начинаем его анализ, в который будет входить создание двух массивов для вопросов и ответов, пропуск пустых узлов, поиск структуры тестов на соответствие и запись их в массив.

System. Collections. ArrayList questionsList = new System. Collections. ArrayList ();

System. Collections. ArrayList answersList = new System. Collections. ArrayList ();

try

{

reader = new XmlTextReader (listBox1. Items [0]. ToString ());

reader. WhitespaceHandling = WhitespaceHandling. None;

while (reader. Read ())

if (reader. NodeType == XmlNodeType. Element)

if (reader. Name == "q_question")

{

while (reader. Read ())

{

if (reader. Name == "q_variants")

{

while (reader. Read ())

{

if (reader. Name == "item")

{

while (reader. Read ())

{

if (reader. Name == "q_target")

{

questionsList. Add (stripTags (reader. ReadString (). ToString ()));

}

else if (reader. Name == "q_bullet")

{

answersList. Add (stripTags (reader. ReadString (). ToString ()));

}

}

}

}

}

}

}

}

На следующем этапе анализа Scorm пакета оператор может внести свои корректировки в опросы и ответы. Для этого на форме есть два поля ввода, куда выводится текущий вопрос и текущий ответ и две кнопки сохранить, для вопроса и ответа.

private void button1_Click_1 (object sender, EventArgs e)

{

FileStream _fs = new FileStream (filename, FileMode. Open);

StreamReader _reader = new StreamReader (_fs);

string str = "";

str = _reader. ReadToEnd ();

_reader. Close ();

_fs. Close ();

FileStream fs = new FileStream (filename, FileMode. Create);

StreamWriter _writer = new StreamWriter (fs);

_writer. Write (str. Replace (listBox1. SelectedItem. ToString (),textBox1. Text));

_writer. Close ();

fs. Close ();

listBox1. Items [listBox1. SelectedIndex] = textBox1. Text;

}

private void listBox1_Click (object sender, EventArgs e)

{

textBox1. Text = listBox1. SelectedItem. ToString ();

button1. Enabled = true;

}

private void listBox2_Click (object sender, EventArgs e)

{

textBox2. Text = listBox2. SelectedItem. ToString ();

button2. Enabled = true;

}

private void button2_Click (object sender, EventArgs e)

{

FileStream _fs = new FileStream (filename, FileMode. Open);

StreamReader _reader = new StreamReader (_fs);

string str = "";

str = _reader. ReadToEnd ();

_reader. Close ();

_fs. Close ();

FileStream fs = new FileStream (filename, FileMode. Create);

StreamWriter _writer = new StreamWriter (fs);

_writer. Write (str. Replace (listBox2. SelectedItem. ToString (), textBox2. Text));

_writer. Close ();

fs. Close ();

listBox2. Items [listBox2. SelectedIndex] = textBox2. Text;

}

После окончания корректировки оператор может просмотреть тесты, нажав два раза на любом вопросе или ответе.

private void listBox1_DoubleClick (object sender, EventArgs e)

{

System. Diagnostics. Process. Start (filename. Replace ("runtime. xml","start.html"));

}

private void listBox2_DoubleClick (object sender, EventArgs e)

{

System. Diagnostics. Process. Start (filename. Replace ("runtime. xml", "start.html"));

}

5. Тестирование программного средства