PureBasic Forums - English

Code: Select all

#REGEX_NAME="([A-Z]+[A-Z_]*[\d]*){1,250}"
Procedure createRegEx(value.s)
	Protected result=CreateRegularExpression(#PB_Any,value,#PB_RegularExpression_NoCase)		
	If Not IsRegularExpression(result)
		DebuggerError(RegularExpressionError())
	EndIf
	ProcedureReturn result
EndProcedure
		
Global regexCreateSchema=createRegEx("^create schema (?<schema>"+#REGEX_NAME+");?$")		
Global regexCreateTable=createRegEx("^create table ((?<table>"+#REGEX_NAME+")\.)?(?<schema>"+#REGEX_NAME+");?$")		

Code: Select all

#REGEX_NAME="([A-Z]+[A-Z_]*[\d]*){1,250}"
Procedure createRegEx(value.s)
	Protected result=CreateRegularExpression(#PB_Any,value)		
	If Not IsRegularExpression(result)
		DebuggerError(RegularExpressionError())
	EndIf
	ProcedureReturn result
EndProcedure

;Global regexCreateTable=createRegEx("^(?i)create table ((?<table>"+#REGEX_NAME+")\.)?(?<schema>"+#REGEX_NAME+");?$") ; Same Error
Global regexCreateTable2=createRegEx("^(?i)create table(?-i) ((?<table>"+#REGEX_NAME+")\.)?(?<schema>"+#REGEX_NAME+");?$") ; no error

Code: Select all

#REGEX_NAME="([A-Z]+[\w]*[\d]*){1,250}"
#REGEX_NAME2="([A-Z]+[A-Z_0-9]*[\d]*){1,250}"
#REGEX_NAME3="([A-Z]+[A-Z_]*[\d]*){1,250}"


Debug CreateRegularExpression(#PB_Any,"^create table ((?<table>"+#REGEX_NAME+")\.)?(?<schema>"+#REGEX_NAME+");?$",#PB_RegularExpression_NoCase) ; OK
Debug CreateRegularExpression(#PB_Any,"^create table ((?<table>"+#REGEX_NAME2+")\.)?(?<schema>"+#REGEX_NAME2+");?$",#PB_RegularExpression_NoCase) ; NOK
Debug CreateRegularExpression(#PB_Any,"^create table ((?<table>"+#REGEX_NAME3+")\.)?(?<schema>"+#REGEX_NAME3+");?$",#PB_RegularExpression_NoCase) ; NOK