I need a digits creating and detecting script.

[benm1 0]

Hi there.

I just found this place. It seems like the place I can get some help on a script I am seeking.

I look for a script that will create a 16 digit code when a button is pushed and save it.

Subsequently, when the code is re-entered in the script it first signals that the code is there or that it is not, and, if the code is present and the go button is pushed the code is processed as used and from then on is absolute: so if re-entered the script gives a negative response.

Is there such a script on the market or how easy is it to code such a script?

And what kind of script coding is this?

Thanks for your help.

Ben

[Richard Robertson 186]

So you want it to always give a new code, or tell you if a code has been used? Am I understanding that correctly?

[water 2,117]

I'm not sure you can find such a script in the market.

I would split your task into chunks: Create the code, save it to a file, read the file and check if the code has already been used.

Define how the code should look like: Numbers, lower case, upper case characters etc. Try to write such a function.

If you have problems, post and we will try to help.

[Nessie 30]

Here is an example of a text generator, it will save every generated code in file:

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>

$Code_Path = @ScriptDir & "\Codes.txt"
$File_Open = FileOpen($Code_Path, 0)

$Form1 = GUICreate("Code Generator", 242, 96, 192, 124)
$Label1 = GUICtrlCreateLabel("Your code:", 8, 8, 56, 17)
$Code_Input = GUICtrlCreateInput("", 8, 32, 225, 21)
$Generate = GUICtrlCreateButton("Generate", 80, 64, 75, 25)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            FileClose($File_Open)
            Exit
        Case $Generate
            _Generate()

    EndSwitch
WEnd

Func _Generate()
    $sText = _RandomText(16)

    $File_Read = FileRead($File_Open)

    For $i = 0 To _FileCountLines($Code_Path)
        If FileReadLine($File_Read, $i) = $sText Then
            _Generate()
        EndIf
    Next

    GUICtrlSetData($Code_Input, $sText)
    FileWrite($Code_Path, $sText & @CRLF)
EndFunc   ;==>_Generate

Func _RandomText($i_Length)
    If Not StringIsDigit($i_Length) Or $i_Length = 0 Then Return SetError(1, 0, "")

    Local $sData = '', $sRandom = ''
    For $i = 1 To $i_Length
        $sRandom = Random(97, 122, 1)
        $sData &= Chr($sRandom)
    Next
    Return $sData
EndFunc   ;==>_RandomText

Hi!

[guinness 1,495]

Why not use _FileReadToArray instead of _FileCountLines?

[Nessie 30]

Why not use _FileReadToArray instead of _FileCountLines?

He can also use _FileReadToArray:

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>

$Code_Path = @ScriptDir & "\Codes.txt"
$File_Open = FileOpen($Code_Path, 1)


$Form1 = GUICreate("Code Generator", 242, 96, 192, 124)
$Label1 = GUICtrlCreateLabel("Your code:", 8, 8, 56, 17)
$Code_Input = GUICtrlCreateInput("", 8, 32, 225, 21)
$Generate = GUICtrlCreateButton("Generate", 80, 64, 75, 25)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            FileClose($File_Open)
            Exit
        Case $Generate
            _Generate()

    EndSwitch
WEnd

Func _Generate()
    Local $aRecords

    $sText = _RandomText(16)

    If _FileReadToArray($Code_Path, $aRecords) Then
        For $i = 1 To $aRecords[0]
            If $aRecords[$i] = $sText Then
                _Generate()
            EndIf
        Next
    EndIf

    GUICtrlSetData($Code_Input, $sText)
    FileWrite($File_Open, $sText & @CRLF)
EndFunc   ;==>_Generate

Func _RandomText($i_Length)
    If Not StringIsDigit($i_Length) Or $i_Length = 0 Then Return SetError(1, 0, "")

    Local $sData = '', $sRandom = ''
    For $i = 1 To $i_Length
        $sRandom = Random(97, 122, 1)
        $sData &= Chr($sRandom)
    Next
    Return $sData
EndFunc   ;==>_RandomText

Hi!

Edited March 19, 2013 by Nessie

[guinness 1,495]

As discussed by myself and jchd, there really is little need for _FileCountLines to be used.