home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / ArgentCompta / Bankperfect / bp.exe / Scripts / Currencies / currencies.py < prev   
Text File  |  2007-04-19  |  6KB  |  56 lines
  1. #Version 1.2
  2. import BP
  3.  
  4. currencies = "Euro (EUR)\nDollar US (USD)\nAfghani afghan (AFA)\nBaht tha∩landais (THB)\nBirr Θthiopien (ETB)\nBolivar vΘnΘzuΘlien (VEB)\nBoliviano bolivien (BOB)\nCedi ghanΘen (GHC)\nColon costaricain (CRC)\nColon salvadorien (SVC)\nCordoba nicaragayen (NIO)\nCouronne danoise (DKK)\nCouronne estonienne (EEK)\nCouronne islandaise (ISK)\nCouronne norvΘgienne (NOK)\nCouronne slovaque (SKK)\nCouronne suΘdoise (SEK)\nCouronne tchΦque (CZK)\nDalasi gambien (GMD)\nDinar algΘrien (DZD)\nDinar de Bahre∩n (BHD)\nDinar jordanien (JOD)\nDinar kowe∩tien (KWD)\nDinar serbe (CSD)\nDinar soudanais (SDD)\nDinar tunisien (TND)\nDirham - Θmirats arabes unis (AED)\nDirham marocain (MAD)\nDobra santomΘen (STD)\nDollar australien (AUD)\nDollar bahamΘen (BSD)\nDollar canadien (CAD)\nDollar de Belize (BZD)\nDollar de Brunei (BND)\nDollar de Guyana (GYD)\nDollar de la Barbade (BBD)\nDollar des Bermudes (BMD)\nDollar des Cara∩bes Orientales (XCD)\nDollar des ╬les Ca∩man (KYD)\nDollar des ╬les Salomon (SBD)\nDollar de Singapour (SGD)\nDollar de TrinitΘ-et-Tobago (TTD)\nDollar fidjien (FJD)\nDollar hong-kongais (HKD)\nDollar jama∩cain (JMD)\nDollar nΘo-zΘlandais (NZD)\nDollar ta∩wainais (TWD)\nDollar zimbabwΘen (ZWD)\nDong vietnamien (VND)\nDrachme grecque (GRD)\nEscudo capverdien (CVE)\nEscudo portugais (PTE)\nFlorin d'Aruba (AWG)\nFlorin nΘerlandais (NLG)\nForint hongrois (HUF)\nFranc belge (BEF)\nFranc CFA (BCEAO) (XOF)\nFranc CFA (BEAC) (XAF)\nFranc CFP (XPF)\nFranc comorien (KMF)\nFranc djiboutien (DJF)\nFranc franτais (FRF)\nFranc guinΘen (GNF)\nFranc malgache (MGF)\nFranc suisse (CHF)\nGourde ha∩tienne (HTG)\nGuinΘe du Surinam (SRG)\nGrivna ukrainienne (UAH)\nGulden - Antilles nΘerlandaises (ANG)\nKina - Papouasie-Nlle GuinΘe (PGK)\nKip laotien (LAK)\nKuna croate (HRK)\nKwacha malawite (MWK)\nKwacha zambien (ZMK)\nKyat de Myanmar (MMK)\nLats letton (LVL)\nLek albanais (ALL)\nLempira hondurien (HNL)\nLeone (SLL)\nLeu roumain (ROL)\nLev bulgare (BGN)\nLilangeni swazilandais (SZL)\nLitas lituanienne (LTL)\nLivre Θgyptienne (EGP)\nLire italienne (ITL)\nLivre chypriote (CYP)\nLivre de Gibraltar (GIP)\nLivre de Saint-HΘlΦne (SHP)\nLivre irlandaise (IEP)\nLivre libanaise (LBP)\nLivre maltaise (MTL)\nLivre sterling (GBP)\nLivre syrienne (SYP)\nLire turque (TRY)\nLire turque (ancienne) (TRL)\nLoti lesothan (LSL)\nMark allemand (DEM)\nMark finlandais (FIM)\nMetical mozambicain (MZM)\nNaira nigΘrian (NGN)\nNgultrum bhoutanais (BTN)\nOuguiya mauritanien (MRO)\nOnce d'or (XAU)\nPa'anga tongais (TOP)\nPeseta espagnole (ESP)\nPeso argentin (ARS)\nPeso chilien (CLP)\nPeso colombien (COP)\nPeso cubain (CUP)\nPeso dominicain (DOP)\nPeso mexicain (MXN)\nPeso philippin (PHP)\nPula botswanais (BWP)\nQuetzal guatΘmaltΦque (GTQ)\nRand sud-africain (ZAR)\nReal brΘsilien (BRL)\nRiel cambodgien (KHR)\nRinggit malaisien (MYR)\nRiyal d'Oman (OMR)\nRiyal du Qatar (QAR)\nRiyal saoudien (SAR)\nRouble russe (RUB)\nRoupie indienne (INR)\nRoupie indonΘsienne (IDR)\nRoupie maldive (MVR)\nRoupie mauricienne (MUR)\nRoupie nΘpalaise (NPR)\nRoupie pakistanaise (PKR)\nRoupie seychelloise (SCR)\nRoupie sri-lankaise (LKR)\nShekel (ILS)\nSchilling autrichien (ATS)\nShilling kenyan (KES)\nShilling tanzanien (TZS)\nShilling ugandais (UGX)\nSol pΘruvien (PEN)\nTaka bangladais (BDT)\nTala samoan (WST)\nTugrik mongol (MNT)\nVatu (VUV)\nWon sud-corΘen (KRW)\nYen (JPY)\nYuan renmimbi chinois (CNY)\nZloty polonais (PLN)"
  5.  
  6. def Calc(S):
  7.   BOK.Enabled = 0
  8.   symbols = [c[-4:-1] for c in currencies.split("\n")]
  9.   c1 = symbols[Cur1.ItemIndex]
  10.   c2 = symbols[Cur2.ItemIndex]
  11.   v1 = EVal.Text.replace(",", ".")
  12.   Ext = 1
  13.  
  14.   try:
  15.     s = BP.GetURL("file:http://fr.finance.yahoo.com/convertisseur/convert?amt=1&from=%s&to=%s" %(c1, c2))
  16.     s = s.split('<td class="yfnc_tabledata1">')[4]
  17.     s = s[:s.find("<")]
  18.     v2 = float(v1) * float(s.replace(",", "."))
  19.     v2 = ("%.4f" %v2).replace(".", ",")
  20.     L1.Caption = "%s %s = %s %s   (taux de change : %s)" %(v1, c1, v2, c2, s)
  21.     Ext = 0
  22.   except:
  23.     pass
  24.   if Ext: BP.ShellExecute("open", "http://fr.finance.yahoo.com/convertisseur/convert?amt=%s&from=%s&to=%s" %(EVal.Text.replace(".", ","), c1, c2), "", 1)
  25.   BOK.Enabled = 1
  26.  
  27. def Check(S):
  28.   BOK.Enabled = Cur1.ItemIndex != Cur2.ItemIndex
  29.  
  30.  
  31.  
  32. f = CreateComponent("TForm", None)
  33. f.SetProps(Position="poMainFormCenter", Width=510, Height=200, Caption="Conversion de devises en ligne", BorderStyle="bsSingle", BorderIcons=["biSystemMenu"])
  34. f.Font.Name = "Tahoma"
  35. L0 = CreateComponent("TLabel", f)
  36. L0.SetProps(Parent=f, Left=20, Top=20, Width=238, Caption="Saisissez le montant et les symboles des devises :")
  37. L0.Font.Style = ["fsBold"]
  38. EVal = CreateComponent("TEdit", f)
  39. EVal.SetProps(Parent=f, Left=20, Top=40, Width=40, Text="1")
  40. Cur1 = CreateComponent("TComboBox", f)
  41. Cur1.SetProps(Parent=f, Left=70, Top=40, Width=200, Style="csDropDownList", OnChange=Check)
  42. Cur1.Items.Text = currencies
  43. Cur1.ItemIndex = 0
  44. Cur2 = CreateComponent("TComboBox", f)
  45. Cur2.SetProps(Parent=f, Left=290, Top=40, Width=200, Style="csDropDownList", OnChange=Check)
  46. Cur2.Items.Text = currencies
  47. Cur2.ItemIndex = 1
  48. L1 = CreateComponent("TLabel", f)
  49. L1.SetProps(Parent=f, Left=20, Top=85, Width=238)
  50. L1.Font.Style = ["fsBold"]
  51. L1.Font.Color = 0x00CC0000
  52. BCnl = CreateComponent("TButton", f)
  53. BCnl.SetProps(Parent=f, Left=150, Top=120, Width=100, Height=25, Caption="Fermer", Cancel=1, ModalResult=2)
  54. BOK = CreateComponent("TButton", f)
  55. BOK.SetProps(Parent=f, Left=260, Top=120, Width=100, Height=25, Caption="Calculer", Default=1, OnClick=Calc)
  56. f.ShowModal()