Reading headers in matrix data loading

...
FReadLine  refNum, sTemp
sWidth = sTemp[8,13]   //pick out numeric portion, ie, 2.000
sWidthUnit = sTemp[15,16]  //pick out units, ie, um
...

DisplayHelpTopic "Symbolic Paths"

Function ReadHeaderInfo(pathName, filePath, width, height)
    String pathName     // Name of symbolic path. Ignored if filePath is full path.
    String filePath         // File name, relative path or full path
    Variable& width         // Output: Width in meters
    Variable& height        // Output: Height in meters
   
    Variable refNum
    Open/R/P=$pathName refNum as filePath
    if (refNum == 0)            // File not opened - bad pathName or fileName
        return -1           // Failure
    endif
   
    Variable gotWidth=0, gotHeight=0
    Variable number
    String units
    Variable lineNumber = 0
    String line
    do
        FReadLine refNum, line
        if (strlen(line) == 0)
            Print "File ended without finding width and height"
            return -1   // Failure
        endif
       
        String temp = line[0,7]
        if (CmpStr(temp,"# Width:") == 0)
            sscanf line, "# Width: %g %s", number, units
            if (V_flag != 2)
                // Did not get two items
                Print "ReadHeaderInfo: sscanf failed for width"        
                return -1   // Failure
            else
                width = number
                strswitch(units)
                    case "µm":     // Micro
                        width *= 1E-6
                        break
                    case "nm":
                        width *= 1E-9
                        break
                    default:
                        Print "ReadHeaderInfo: Unknown units for width"
                        return -1   // Failure
                        break
                endswitch
                gotWidth = 1
            endif
        endif
       
        temp = line[0,8]
        if (CmpStr(temp,"# Height:") == 0)
            sscanf line, "# Height: %g %s", number, units
            if (V_flag != 2)
                // Did not get two items
                Print "ReadHeaderInfo: sscanf failed for height"           
                return -1   // Failure
            else
                height = number
                strswitch(units)
                    case "µm":         // Micro
                        height *= 1E-6
                        break
                    case "nm":
                        height *= 1E-9
                        break
                    default:
                        Print "ReadHeaderInfo: Unknown units for width"
                        return -1   // Failure
                endswitch
                gotHeight = 1
            endif
        endif
   
        if (gotWidth && gotHeight)
            break
        endif
       
        lineNumber += 1
        if (lineNumber > 100)
            Print "Searched 100 lines without finding the header width and height information."
            return -1
        endif
    while(1)
   
    return 0                // Success
End

Function Demo(pathName, filePath)
    String pathName     // Name of symbolic path. Ignored if filePath is full path.
    String filePath         // File name, relative path or full path
   
    Variable width, height
    Variable result
    result = ReadHeaderInfo("home", "Notebook0.txt", width, height)
    if (result == 0)
        Printf "Width=%g, height=%g\r", width, height
    else
        Print "Error in ReadHeaderInfo"
    endif
End