Re: Valuuttakurssit

[vastaus aiempaan viestiin]

Kirjoittaja: Juha Valtonen
Sähköposti:    juha.valtonen'at'sonera.com
Päiväys: 6.5.2002 9:21

>Oletko mahdollisesti tehnyt sukron, joka helpottaa ko. päivitystä
>tai mahdollisesti "skriptin", joka hoitaa suoraan koko homman
>vaikkapa päivittäin?

Viritelmäni on (ainakin toistaiseksi) melko manuaalinen. Kentässä
on tosin valmiina kaikki käskyt, eli jonkinasteinen sukrottaminen
kävisi helpostikin. Kun en nyt kuitenkaan ihan päivittäin tarvitse
uusia kursseja, niin tämäkin menettely on minulle "riittävän tehokas".

Manuaalisuuden tärkein vaihe on kuitenkin
valuuttakurssisivun avaaminen ja kopioiminen leikepöydälle
(kentässä valmiina käsky
>START IEXPLORE http://www.bof.fi/env/fin/new/fixlist.stm).


Sitten uudella PASTE-toiminnolla kurssit leikepöydältä
kenttään kohtaan, mikä on määritetty valmiiksi DATAksi.

Sitten kentässä on valmiit FILE COPY-komennot, jolla data
viedää tiedostoon (kursseissa on yksi maan nimi, Korean
tasavalta, joka pitää ensin REPLACE-komennolla muuttaa muotoon
Korean_tasavalta). Tiedostossa sitten lasketaan kurssien käänteisluvut
ja tehdään tarvittavat "X" "C" yms. merkit.

Sen jälkeen sopivalla FORMATilla data takaisin kenttään, minkä
jälkeen se onkin valmis UPDATE-komentoa varten

Aikaa valuuttakurssien päivittämiseen menee noin yksi minuutti.
Jos tätä haluaisi automatisoida edelleen, niin hankalin kohta siinä
on ilman muuta survon ulkopuolinen osa, eli valuuttakurssitaulun
hakeminen Suomen Pankin sivuilta.

:JVa

ps. Voisiko PASTE-komentoon ajatella parametreiksi survotyyppisiä
rivimäärittelyjä, jolloin leikepöydän sisällön saisi pastettua
haluamaansa paikkaan muuallekin kuin seuraavalle riville.
Ja sitten PASTE TO file, jolloin sen saisi vielä tekstitiedostoksikin.


ohessa vielä käyttämäni komennot valuuttakurssien haussa:


*>START IEXPLORE http://www.bof.fi/env/fin/new/fixlist.stm 
*
*DATA CURRJ D+1,E-1,D-1
*COUNTRY  CURR CUR CEUR
DPASTE
*USA dollari USD 0.9083
.......................

*
*Replace "Korean tasavalta"  "Korean_tasavalta"  C  /  LINES=D,CUR-1
*
*FILE CREATE TEMP
*FILE COPY CURRJ TEMP
*
* Copy of data matrix CURRJ
*FIELDS: (active)
*   1 SA_  16 COUNTRY
*   2 SA_   8 CURR
*   3 SA_   3 CUR
*   4 NA_   8 CEUR     (#######.#####)
*   5 SA_   3 XC
*   6 NA_   8 EUR      (##.#######)
*   7 SA_   1 P
*   8 SA_  15 DATE
*END
*
*
*VAR STR(XC,1,1)="X" TO TEMP
*VAR STR(XC,3,1)="C" TO TEMP
*
*VAR EUR=1/CEUR TO TEMP
*
*VAR STR(P,1,1)="|" TO TEMP
*
*VAR STR(DATE)="JVa/06.05.02" TO TEMP
*
*................................................................................
*
*FILE LOAD -TEMP F+1 /    FORMAT=CUR
*
*UPDATE F+1,END,4,JMEASURE.EDT
*
*
*FORMAT CUR
*[CUR]             [XC][EUR]      [EUR]        [P] [COUNTRY]             [DATE]
*END
*
F

Vastaukset:
[ei vastauksia]

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!

Etusivu  |  Keskustelu
Copyright © Survo Systems 2001-2013. All rights reserved.
Updated 2013-06-15.