Change Variable Name -sucro

[viesti Survo-keskustelupalstalla (2001-2013)]

Hei


Datoja yhdistellessä eri lähteistä tulee aika usein
tarve muuttaa datassa jonkun muuttujan nimeä. Sehän käy
tietysti FILE STATUS -> FILE UPDATE -kuvion kautta.
Koska mulla on tällainen tilanne hyvin usein, niin
tein laiskuuttani sitä varten oheisen sukron. Sen tehtävänä on
yksinkertaisesti vaihtaa yhden muuttujan nimi
toiseksi:

 /CVNAME datafile oldname newname

"Erikoisuutena" sukrossa on 'error handler':in käyttö,
millä saadaan aikaan se, että sukro on tunteeton
virheille.  Jos esimerkiksi parametreissa on jotakin
virheellistä, esimerkiksi annettu muuttujan nimi,
jota ei datatiedostossa edes ole, niin sukro ei
kaadu virheilmoitukseen, vaan jatkaa mitään muuttamatta eteenpäin.
Tästä ominaisuudesta on hyötyä, mikäli esim sukroa käytetään sukro-
sovelluksen sisällä.

Jos jollakulla on tällaiselle tarvetta, niin tästä voi "omalla vastuulla"
ottaa käyttöönsä.

:JVa


 TUTSAVE CVNAME
/ Sucro changes the name of one variable in data file
/ use: /CVNAME datafile var_oldname var_newname
/ JVa/03.04.03 added error handling:
/ if file missing or if var (oldname) missing/invalid,
/ then continues without changes
/
*{tempo -1}{init}
/ --------------------
/ error handler on/off
*{error handler cvname}
- if W1 '=' ERR then goto A
/ ---------------------
/
/  CVNAME Change Variable NAME
/
/ def Wpara=W1 Wvname=W2 Wvnamenew=W3 Wdata=W4
/
*{init}{Wdata=W1}{W1=CVNAME}
*{save stack CVNAM2}
*{call SUR-SAVE}
*{load stack CVNAM2}
*{jump 1,1,1}{erase}{erase}SCRATCH /
*{act}
*{line start}FILE STATUS {print Wdata}   /  VARS={print Wvname}
*{act}
*{search}FIELDS:{R}{R}
*{find string Wvname}{print Wvnamenew} {ins}      {}{ins}
*{jump 1,1,1}FILE UPDATE{}
*{act}
/
+ A:
*{W1=CVNAME}
*{call SUR-RESTORE}
*{load stack CVNAM2}
/
+ E:
*{error handler SURVOERR}
*{tempo +1}
*{end}
*

• Re: Change Variable Name -sucro (Seppo Mustonen 7.4.2003 18:51)

Luettelo keskustelunaiheista

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!