rendered paste body'LOADING THE VALUES, JERK
Dim mc As FileInfo = New FileInfo("mcdata")
Dim cb As FileInfo = New FileInfo("cbdata")
Dim mcFileText As String = mc.OpenText.ReadToEnd
Dim mcLines() As String = mcFileText.Split(ControlChars.Lf)
Dim cbFileText As String = cb.OpenText.ReadToEnd
Dim cbLines() As String = cbFileText.Split(ControlChars.Lf)
Dim mcline As String
Dim mclineNumber As Integer
mclineNumber = -1
For Each mcline In mcLines
mclineNumber = mclineNumber + 1
Dim mcLineParameters() As String = mcline.Split(":")
mcQuestionDescription(mclineNumber) = mcLineParameters(0)
mcQuestionText(mclineNumber) = mcLineParameters(1)
mcQuestionAnswer(mclineNumber) = mcLineParameters(2)
mcQuestionOptions(mclineNumber, 1) = mcLineParameters(3)
mcQuestionOptions(mclineNumber, 2) = mcLineParameters(4)
mcQuestionOptions(mclineNumber, 3) = mcLineParameters(5)
mcQuestionOptions(mclineNumber, 4) = mcLineParameters(6)
mcQuestionOptions(mclineNumber, 5) = mcLineParameters(7)
mcQuestionPreImage(mclineNumber) = mcLineParameters(8)
mcQuestionPostImage(mclineNumber) = mcLineParameters(9)
mcQuestionCategory(mclineNumber) = mcLineParameters(10)
Next
Dim cbline As String
Dim cblineNumber As Integer
cblineNumber = -1
For Each cbline In cbLines
cblineNumber = cblineNumber + 1
Dim cbLineParameters() As String = cbline.Split(":")
cbPatientHistory(cblineNumber)
cbPatientItems(cblineNumber)
cbQuestionDescription(cblineNumber, 1)
cbQuestionDescription(cblineNumber, 2)
cbQuestionDescription(cblineNumber, 3)
cbQuestionDescription(cblineNumber, 4)
cbQuestionDescription(cblineNumber, 5)
cbQuestionText(cblineNumber, 1)
cbQuestionText(cblineNumber, 2)
cbQuestionText(cblineNumber, 3)
cbQuestionText(cblineNumber, 4)
cbQuestionText(cblineNumber, 5)
cbQuestionOptions(cblineNumber, 1, 1)
cbQuestionOptions(cblineNumber, 1, 2)
cbQuestionOptions(cblineNumber, 1, 3)
cbQuestionOptions(cblineNumber, 1, 4)
cbQuestionOptions(cblineNumber, 1, 5)
cbQuestionOptions(cblineNumber, 2, 1)
cbQuestionOptions(cblineNumber, 2, 2)
cbQuestionOptions(cblineNumber, 2, 3)
cbQuestionOptions(cblineNumber, 2, 4)
cbQuestionOptions(cblineNumber, 2, 5)
cbQuestionOptions(cblineNumber, 3, 1)
cbQuestionOptions(cblineNumber, 3, 2)
cbQuestionOptions(cblineNumber, 3, 3)
cbQuestionOptions(cblineNumber, 3, 4)
cbQuestionOptions(cblineNumber, 3, 5)
cbQuestionOptions(cblineNumber, 4, 1)
cbQuestionOptions(cblineNumber, 4, 2)
cbQuestionOptions(cblineNumber, 4, 3)
cbQuestionOptions(cblineNumber, 4, 4)
cbQuestionOptions(cblineNumber, 4, 5)
cbQuestionOptions(cblineNumber, 5, 1)
cbQuestionOptions(cblineNumber, 5, 2)
cbQuestionOptions(cblineNumber, 5, 3)
cbQuestionOptions(cblineNumber, 5, 4)
cbQuestionOptions(cblineNumber, 5, 5)
cbQuestionOptions(cblineNumber, 1, 1)
cbQuestionOptions(cblineNumber, 1, 2)
cbQuestionOptions(cblineNumber, 1, 3)
cbQuestionOptions(cblineNumber, 1, 4)
cbQuestionOptions(cblineNumber, 1, 5)
cbQuestionOptions(cblineNumber, 2, 1)
cbQuestionOptions(cblineNumber, 2, 2)
cbQuestionOptions(cblineNumber, 2, 3)
cbQuestionOptions(cblineNumber, 2, 4)
cbQuestionOptions(cblineNumber, 2, 5)
cbQuestionOptions(cblineNumber, 3, 1)
cbQuestionOptions(cblineNumber, 3, 2)
cbQuestionOptions(cblineNumber, 3, 3)
cbQuestionOptions(cblineNumber, 3, 4)
cbQuestionOptions(cblineNumber, 3, 5)
cbQuestionOptions(cblineNumber, 4, 1)
cbQuestionOptions(cblineNumber, 4, 2)
cbQuestionOptions(cblineNumber, 4, 3)
cbQuestionOptions(cblineNumber, 4, 4)
cbQuestionOptions(cblineNumber, 4, 5)
cbQuestionOptions(cblineNumber, 5, 1)
cbQuestionOptions(cblineNumber, 5, 2)
cbQuestionOptions(cblineNumber, 5, 3)
cbQuestionOptions(cblineNumber, 5, 4)
cbQuestionOptions(cblineNumber, 5, 5)
cbQuestionAnswer(cblineNumber, 1, 1)
cbQuestionAnswer(cblineNumber, 1, 2)
cbQuestionAnswer(cblineNumber, 1, 3)
cbQuestionAnswer(cblineNumber, 1, 4)
cbQuestionAnswer(cblineNumber, 1, 5)
cbQuestionAnswer(cblineNumber, 2, 1)
cbQuestionAnswer(cblineNumber, 2, 2)
cbQuestionAnswer(cblineNumber, 2, 3)
cbQuestionAnswer(cblineNumber, 2, 4)
cbQuestionAnswer(cblineNumber, 2, 5)
cbQuestionAnswer(cblineNumber, 3, 1)
cbQuestionAnswer(cblineNumber, 3, 2)
cbQuestionAnswer(cblineNumber, 3, 3)
cbQuestionAnswer(cblineNumber, 3, 4)
cbQuestionAnswer(cblineNumber, 3, 5)
cbQuestionAnswer(cblineNumber, 4, 1)
cbQuestionAnswer(cblineNumber, 4, 2)
cbQuestionAnswer(cblineNumber, 4, 3)
cbQuestionAnswer(cblineNumber, 4, 4)
cbQuestionAnswer(cblineNumber, 4, 5)
cbQuestionAnswer(cblineNumber, 5, 1)
cbQuestionAnswer(cblineNumber, 5, 2)
cbQuestionAnswer(cblineNumber, 5, 3)
cbQuestionAnswer(cblineNumber, 5, 4)
cbQuestionAnswer(cblineNumber, 5, 5)
cbQuestionPreImage(cblineNumber, 1)
cbQuestionPreImage(cblineNumber, 2)
cbQuestionPreImage(cblineNumber, 3)
cbQuestionPreImage(cblineNumber, 4)
cbQuestionPreImage(cblineNumber, 5)
cbQuestionPostImage(cblineNumber, 1)
cbQuestionPostImage(cblineNumber, 2)
cbQuestionPostImage(cblineNumber, 3)
cbQuestionPostImage(cblineNumber, 4)
cbQuestionPostImage(cblineNumber, 5)
'mcQuestionDescription(mclineNumber) = cbLineParameters(0)
'mcQuestionText(mclineNumber) = cbLineParameters(1)
'mcQuestionAnswer(mclineNumber) = cbLineParameters(2)
'mcQuestionOptions(mclineNumber, 1) = cbLineParameters(3)
'mcQuestionOptions(mclineNumber, 2) = cbLineParameters(4)
'mcQuestionOptions(mclineNumber, 3) = cbLineParameters(5)
'mcQuestionOptions(mclineNumber, 4) = cbLineParameters(6)
'mcQuestionOptions(mclineNumber, 5) = cbLineParameters(7)
'mcQuestionPreImage(mclineNumber) = cbLineParameters(8)
'mcQuestionPostImage(mclineNumber) = cbLineParameters(9)
'mcQuestionCategory(mclineNumber) = cbLineParameters(10)
Next
'END LOADING THE VALUES.