#include <XSkin.au3>
#include <Crypt.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <ColorConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch2015.au3>
#include <AutoItConstants.au3>
#include <WinAPI.au3>
#Include <ScreenCapture.au3>
#Include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <Date.au3>
#include <WinHttp.au3>
#include <String.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Conversion", 284, 192, 192, 124)
$Group1 = GUICtrlCreateGroup("", 16, 8, 257, 169)
Global $Input1 = GUICtrlCreateInput("Enter the file name in the same path here", 40, 48, 201, 21)
$Button1 = GUICtrlCreateButton("Start conversion", 48, 96, 185, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1
			   verification()
	EndSwitch
WEnd


Global $file = FileOpen("test.txt", 0)
Global $file1 = FileOpen("After_conversion.txt", 1)

Func verification()
   FileDelete("After_conversion.txt")
   Local $database = GUICtrlRead($Input1)
   Global $file = FileOpen($database&".txt", 0)
   Global $file1 = FileOpen("After_conversion.txt", 1)
   If $file = -1 Then
		 MsgBox(0, "ERROR", "Cannot open file")
   EndIf
   While 1
	  $line = FileReadLine($file)
	  $String = $line
	  $Start = ''
	  $End = ' -'
	  $aRet = _StringBetween($String, $Start, $End)
	  FileWriteLine($file1, $aRet[0])
	  $String = $line
	  $Start = ' -'
	  $End = ''
	  $aRet = _StringBetween($String, $Start, $End)
	  $dNumber1 = Number($aRet[0])
	  FileWriteLine($file1, $dNumber1)
	  If $line = 0 Then
		 FileClose($file)
		 FileClose($file1)
		 Exit
	  EndIf
   WEnd
EndFunc