#include <WinAPIFiles.au3>
#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <GuiComboBox.au3>

	Read ()
	Parsed()
	App()
	Func Read ()

	Global $rArray = FileReadToArray(@ScriptDir & "\Ptest.txt")
	Global $rBody
	Global $test
	Global $bCount = 0
	Global $tCount = 0
	Global $Title = ""
	Global $j = 0
	Global $k = 0
	Global $i = 0
	Global $cA
	Global $Body = ""
	Global $bState = 0
	Global $Chap
	Global $cList
	Global $cU

	If @error Then
			MsgBox($MB_SYSTEMMODAL, "", "There was an error reading the file. @error: " & @error)
		Else
			For $i = 0 To UBound($rArray) - 1

			If StringIsSpace($rArray[$i]) Then
					$i = $i + "1"
				EndIf

				If $rArray[$i] = "##" Then
					$tCount = $tCount + 1
				ElseIf $rArray[$i] = "#" Then
					$bCount = $bCount + 1
				EndIf

				If $rArray[$i] = "###" Then
					$i = $i + 1
					$cA = $cA + 1
					$cList = $cList & $rArray[$i] & "|"

					$Chap = $rArray[$i]

				EndIf

				If $bCount = 1 Then
					$i = $i + 1
					$j = $i + 1
					$bCount = $bCount + 2
					$bState = 1
				ElseIf $bCount = 4 Then
					$k = $i - 1
					$bCount = $bCount + 1
				EndIf

				If $bCount = 5 Then
					$bCount = 0
				EndIf

				If $bState = 1 Then
					$Body = $Body & @CRLF & $rArray[$i]
				EndIf

				If $tCount = 1 Then
					$i = $i + 1
					$Title = $rArray[$i] & "    Free Islamic Education"
				EndIf

				If $tCount = 3 Then
					$tCount = 1
				EndIf
		Next


		EndIf
	EndFunc

	Func Parsed()
					MsgBox($MB_SYSTEMMODAL, "", "cA: " & $cA & @CRLF & "Chapter: " & $Chap & @CRLF & "Title: " & $Title & @CRLF & $Body & @CRLF & "Title Count: "& $tCount & @CRLF & "Body Count: " & $bCount & @CRLF & "Body Array: J " & $j & " K " & $k)

	EndFunc
Func App ()
			Opt("GUIOnEventMode", 1)
			Local $idEdit
			Local $1But
			local $2But
			Global $hwnd = GUICreate($Title, 800, 500)

			GUISetState(@SW_SHOW)


			GUICtrlCreateTab(10, 10, 790, 500)
			GUICtrlCreateTabItem("Select Test")
			$test = GUICtrlCreateCombo("", 20, 50, 150, 120)
			GUICtrlSetData(-1, $cList & "Select Chapter", "Select Chapter")
			$1But = GUICtrlCreateButton("Take Test", 180, 50, 80, 20)
			$2But = GUICtrlCreateButton("Exit", 180, 70, 80, 20)

			GUICtrlSetOnEvent($1But, "But1")
			GUICtrlSetOnEvent($2But, "But2")
			GUISetOnEvent($GUI_EVENT_CLOSE,"But2",$hwnd)


			GUICtrlCreateTabItem("Study")
			$idEdit = GUICtrlCreateEdit("", 12, 30, 790, 468)
			_GUICtrlEdit_SetText($idEdit, $Body)
			_GUICtrlEdit_SetReadOnly($idEdit, True)




			Do
			Until GUIGetMsg() = $GUI_EVENT_CLOSE
			GUIDelete()


EndFunc
			Func But1 ()

			Global $stext
			Global $dtext
			Global $sLength
			Global $tLength
			Global $sTrim

			$dtext =_GUICtrlComboBox_GetCurSel($test)
			 _GUICtrlComboBox_GetLBText($test,$dtext,$stext)
			$sLength = StringLen($stext)
			$tLength = $sLength - 1
			$sTrim = StringTrimLeft($stext,$tLength)

			If $sTrim = "r" Then
				$sTrim = "No Selection Made"
			EndIf


			MsgBox($MB_SYSTEMMODAL, "Trimmed String ", "Trimmed: " & $sTrim & @CRLF & "String Length: " & $sLength)


			EndFunc


Func But2 ()
	GUIDelete($hwnd)
	Exit
	EndFunc