<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
<font face="Courier New, Courier, monospace">Preface: I always thought
using *clerk as import tool was evil<br>
Recently: Because of working with SQL so much recently I've changed<br>
<br>
Senario: Import data from spreadsheet. Two columns, part number and
price<br>
<br>
</font><tt>@keyR::mesgbox "Replace with data from
/tmp/2009changes.csv?","Press y or n","yn":<br>
:@bk ne "y":end:<br>
loopU::import word upd=/tmp/2009changes.csv:<br>
:not upd:end:<br>
::pn(10,,g)=upd(1):<br>
::lookup - k=pn i=b -nx:<br>
:1 ne pn:show "@No match for "<pn; goto loopU:<br>
udprice::6=upd(2):<br>
::write:<br>
::getnext -:<br>
:1 ne pn:goto loopU:<br>
::goto udprice:<br>
</tt><font face="Courier New, Courier, monospace"><br>
I know this is not production level code, but since I've never<br>
until this morning used "getnext -", I thought I'd pass it on for<br>
someone else who might could use this snippet as an example.<br>
</font><font face="Courier New, Courier, monospace"><br>
</font>
</body>
</html>