Index problems

[Bob Stockler]

On Wed, Aug 11, 2004 at 04:05:11PM -0400, Bob Stockler wrote:
[snip]
| The problem at hand could be addressed by:
| 
|     if ( $0 ~ /[^\001 -~]/ ) print "Non ASCII character in record #", RN
| or:
|     if ( $0 ~ /[^\001 -~]/ ) {
|       for ( Field = 1; Field <= NF; Field++ ) {
|         if ( $Field ~ /[^\001 -~]/ )
|           printf "Non ASCII char in field %d, record %d\n", Field, RN
|       }
|     }

I got mixed up (thinking of reading processing tables).   There
shouldn't be any ^A's in key files, so that should have been:

    if ( $0 ~ /[^ -~]/ ) print "Non ASCII character in record #", RN
or:
    if ( $0 ~ /[^ -~]/ ) {
      for ( Field = 1; Field <= NF; Field++ ) {
        if ( $Field ~ /[^ -~]/ )
          printf "Non ASCII char in field %d, record %d\n", Field, RN
      }
    }

Bob

-- 
Bob Stockler - bob at trebor.iglou.com
Author: MENU EDIT II - The BEST Creator/Editor/Manager for filePro User Menus.
Fully functional (time-limited) demos available by email request (specify OS).