Hospital Number Validation

[David Harrison]

My brain’s not working – it’s an age thing!!

I want to validate hospital numbers as either 6 numerics or 6 numerics preceded by either A or V. There must be a neat way of doing this.

Thanks,

Dave

Topic

[Keith McLeod]

if [regexp — {[AV]{0,1}d{6}} [lindex $xlateInVals 0] {}] {

 do something

}

This might work for you….

[David Harrison]

Thanks,

It doesn’t but this does

Code:

set distno [lindex $xlateInVals 0]
if {([expr [string length $distno]] == 6 && [string is digit -strict $distno]) || ([regexp {^[A|V][0-9]} $distno] && [expr [string length $distno]] == 7 ) } {
 …
}

[Eric Fortenberry]

I think the only problem (for your situation) with Keith’s solution is that it is not anchored to the beginning and end of the line (by using “^” and “$” respectively).  Just for kicks, here is my try at a solution:

Code:

if {[regexp — {^[AV]?d{6}$} [lindex $xlateInVals 0] {}]} {
       # do something
}

Thanks,

Eric

[David Harrison]

Eric,

That works and it’s a tad more elegant than mine.

Thanks,

Dave

[Author]

Replies