'
'----------------------------
'--- creation information ---
'----------------------------
'
'Name: wardimp.ave
'Version: 1.0
'Date: 03/03/97
'Author: Ferdi Hellweger
'        Center for Research in Water Resources
'        The University of Texas at Austin
'        ferdi@crwr.utexas.edu
'        www.ce.utexas.edu/stu/ferdi/
'
'---------------------------
'--- purpose/description ---
'---------------------------
'
'This is an import utility for CCBNEP data compiled by George Ward.  Sample
'points are written to a table.
'
'
'----------------------
'--- get input file ---
'----------------------
'
infilenamestring = msgbox.input("Input file name", "WARDIMP", "c:\warddata\wqsalsur.sgh")
infilename = filename.make(infilenamestring)
infile = linefile.make(infilename, #FILE_PERM_READ)
'
'---------------------------
'--- set up output table ---
'---------------------------
'
outfilenamestring = msgbox.input("Output file name", "WARDIMP", "z:\ferdi\research\ccbnep\warddata\wqsalsur")
outfilename = filename.make(outfilenamestring)
outvtab = vtab.makenew(outfilename, dBASE)
outfields = list.make
outsegidf = field.make("segid", #FIELD_CHAR, 4, 0)
outdatef = field.make("date", #FIELD_DECIMAL, 6, 0)
outlatf = field.make("lat", #FIELD_DECIMAL, 16, 4)
outlongf = field.make("long", #FIELD_DECIMAL, 16, 4)
outdepf = field.make("dep", #FIELD_DECIMAL, 16, 4)
outmsmtf = field.make("msmt", #FIELD_DECIMAL, 16, 4)
outuncrtyf = field.make("uncrty", #FIELD_DECIMAL, 16, 4)
outprjf = field.make("prj", #FIELD_DECIMAL, 16, 4)
outfields = outfields.add(outsegidf)
outfields = outfields.add(outdatef)
outfields = outfields.add(outlatf)
outfields = outfields.add(outlongf)
outfields = outfields.add(outdepf)
outfields = outfields.add(outmsmtf)
outfields = outfields.add(outuncrtyf)
outfields = outfields.add(outprjf)
outvtab.addfields(outfields)
outvtab.seteditable(true)
'
'--------------------
'--- process data ---
'--------------------
'
while (true)
    inline = infile.readelt
    if (inline = nil) then
        break
    end
    if (inline.left(1) = "-") then
        insegid = inline.basictrim("-1", " ")
        insegid = insegid.trim
    else
        indate = inline.extract(0).trim.asnumber
        inlat = inline.extract(1).trim.asnumber
        inlong = inline.extract(2).trim.asnumber
        indep = inline.extract(3).trim.asnumber
        inmsmt = inline.extract(4).trim.asnumber
        inuncrty = inline.extract(5).trim.asnumber
        inprj = inline.extract(6).trim.asnumber
        outrec = outvtab.addrecord
        outvtab.setvalue(outsegidf, outrec, insegid)
        outvtab.setvalue(outdatef, outrec, indate)
        outvtab.setvalue(outlatf, outrec, inlat)
        outvtab.setvalue(outlongf, outrec, inlong)
        outvtab.setvalue(outdepf, outrec, indep)
        outvtab.setvalue(outmsmtf, outrec, inmsmt)
        outvtab.setvalue(outuncrtyf, outrec, inuncrty)
        outvtab.setvalue(outprjf, outrec, inprj)
        av.showmsg("WARDIMP: Records processed = " + outrec.asstring)
    end
end
'
'----------------
'--- close up ---
'----------------
'
outtable = table.make(outvtab)
outvtab.seteditable(false)
msgbox.info("Data imported", "WARDIMP")
'
'-----------
'--- end ---
'-----------
'