Здравствуйте.
Есть такой код:
Он генерирует код по маске,сверяет с базой,если там такой уже есть-генерирует новый,если такого ещё нету - записывает в базу.
Однако,вместо записи кода - записывает "1".
Из-за чего это может быть?
Заранее благодарен за ответы.
Есть такой код:
Код:
#include <Array.au3>
$BaseRead = FileOpen("base.txt", 0)
$BaseWrite = FileWrite("base.txt", 1)
$sMask="HS9Bx";x-цифра,n-буква
$buf=StringRegExp($sMask,"([a-z-]{1,1})",3)
$arr=StringSplit($sMask,$buf[0])
$sMask=$arr[1]
$sCode=""
$sCode&=$sMask
$Flag=1
$Letters=StringRegExp("ABCDEFGHKMNPRSTVWXZUY","([A-Z]{1,1})",3)
While 1
For $i=0 To UBound($buf)-1
If Not StringCompare($buf[$i],'x') Then
$sCode&=Random(2,9,1)
ElseIf Not StringCompare($buf[$i],'n') Then
$sCode&=$Letters[Random(0,UBound($Letters)-1,1)]
ElseIf Not StringCompare($buf[$i],'-') Then
$sCode&='-'
EndIf
Next
ConsoleWrite($sCode)
While 1
$line=FileReadLine($BaseRead)
If @error = -1 Then ExitLoop
If Not StringCompare($sCode,$line) Then
$Flag=0;неуникальный код
Else
$Flag=1;уникальный код
EndIf
WEnd
If $Flag=1 Then
FileWrite($BaseWrite,$sCode&@CRLF)
ExitLoop
EndIf
WEnd
FileClose($BaseRead)
FileClose($BaseWrite)
Он генерирует код по маске,сверяет с базой,если там такой уже есть-генерирует новый,если такого ещё нету - записывает в базу.
Однако,вместо записи кода - записывает "1".
Из-за чего это может быть?
Заранее благодарен за ответы.