Global $filePath, $numPup, $fileHwnd, $frDowns, $enDowns, $fileCont, $fileSep, $I, $sepSize, $II, $rndS, $spHwnd, $chgPnts, $nTxt, $filePath2, $fHwnd

$numPup = InputBox("برنامج النقاط 2", "ما هو عدد التلاميذ") * 3

Global $pnts[$numPup]

$enDowns = @UserProfileDir & "\Downloads"
$frDowns = @UserProfileDir & "\Téléchargement"

If (FileExists($enDowns)) Then
$filePath = FileOpenDialog("إختر ملف الرقمنة", $enDowns, "ملف نقاط (*.men)", 1)
Elseif (FileExists($frDowns)) Then
$filePath = FileOpenDialog("إختر ملف الرقمنة", $frDowns, "ملف نقاط (*.men)", 1)
Else
$filePath = FileOpenDialog("إختر ملف الرقمنة", @DesktopDir, "ملف نقاط (*.men)", 1)
Endif

$spHwnd = SplashTextOn("برنامج النقاط 2", "يرجى الإنتظار قليلًا من فضلك")
$rndS = Random(800, 3200)
Sleep($rndS)

$fileHwnd = FileOpen($filePath ,0)
$fileCont = FileRead($fileHwnd)
$fileSep = StringSplit($fileCont, '"edit_num(this.id)">', 1)

FileClose($fileHwnd)

$sepSize = UBOUND($fileSep)
$I = 2
$II = 1
$III = 0

; While ($I < $sepSize)
; MsgBx($fileSep[$i])
; $I += 1
; Wend

$I = 2

While ($I < $numPup)
Local $endStr
$endStr = Number($fileSep[$I])
; $endStr = ""
; If StringIsInt(StringMid($fileSep[$I], 0, 1)) or StringMid($fileSep[$I], 0, 1) == "." or StringMid($fileSep[$I], 0, 1) == "." Then
; $endStr = $endStr & StringMid($fileSep[$I], 0, 1)
; Endif

; If StringIsInt(StringMid($fileSep[$I], 1, 2)) or StringMid($fileSep[$I], 1, 2) == "." or StringMid($fileSep[$I], 1, 2) == "." Then
; $endStr = $endStr & StringMid($fileSep[$I], 1, 2)
; Endif

; If StringIsInt(StringMid($fileSep[$I], 2, 3)) or StringMid($fileSep[$I], 2, 3) == "." or StringMid($fileSep[$I], 2, 3) == "." Then
; $endStr = $endStr & StringMid($fileSep[$I], 2, 3)
; Endif

If $II = 1 Or $II = 2 Then
$pnts[$III] = $endStr
$II += 1
Else
$pnts[$III] = $endStr * 3
$II = 1
Endif

$III += 1
$I += 1
Wend

$I = 0
$II = 1

SplashOff()

While ($I < $numPup)
Local $ResBx, $cPnt
$ResBx = MsgBox(3, Int($I / 3) + 1, $pnts[$I])
If $ResBx = 2 Then
Exit
Elseif $ResBx = 7 Then
If $II = 1 Or $II = 2 Then
$cPnt = InputBox("برنامج النقاط", "أدخل النقطة الصحيحة", 0, " M")
$II += 1
Else
$cPnt = InputBox("برنامج النقاط", "أدخل النقطة الصحيحة", 0, " M") / 3
$II = 1
Endif
$pnts[$I] = $cPnt
$chgPnts = true
Endif
$I += 1
Wend

$I = 1

If $chgPnts == True Then
While ($I < $sepSize)
$nTxt &= $fileSep[$I]

If $I <> $sepSize - 1 Then
$nTxt &= '"edit_num(this.id)">'
Endif

$I += 1
Wend

If (FileExists($enDowns)) Then
$filePath2 = FileSaveDialog("حفظ الملف", $enDowns, "ملف نقاط (*.men)", 16)
Elseif (FileExists($frDowns)) Then
$filePath2 = FileSaveDialog("حفظ الملف", $frDowns, "ملف نقاط (*.men)", 16)
Else
$filePath2 = FileSaveDialog("حفظ الملف", @DesktopDir, "ملف نقاط (*.men)", 16)
Endif

$fHwnd = FileOpen($filePath2, 10)
FileWrite($fHwnd, $nTxt)
Endif

Func MsgBx($texty)
MsgBox(0, "برنامج النقاط 2", $texty)
EndFunc