home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / ArgentCompta / Bankperfect / bp.exe / Scripts / Replace / search_replace.py < prev   
Text File  |  2005-10-14  |  2KB  |  51 lines
  1. import BP
  2.  
  3. def Replace(S):
  4.   s, r = ESrc.Text, ERep.Text.replace(";", " ")
  5.   if s != r and s != "":
  6.     i = BP.AccountCurrent()
  7.     who = BP.Operationthirdparty[i]
  8.     inf = BP.OperationDetails[i]
  9.     ok = 0
  10.     for i in BP.VisibleLines():
  11.       if who[i].find(s) > -1:
  12.         who[i] = who[i].replace(s, r)
  13.         ok += 1
  14.       if inf[i].find(s) > -1:
  15.         inf[i] = inf[i].replace(s, r)
  16.         ok += 1
  17.  
  18.     BP.AccountRefreshScreen()
  19.     if ok == 0: s = "Aucune occurence n'a ΘtΘ trouvΘe"
  20.     elif ok == 1: s = "Un remplacement a ΘtΘ effectuΘ"
  21.     else: s = "%d remplacements ont ΘtΘ effectuΘs" %ok
  22.     BP.MsgBox(s, 64)
  23.     f.Close()
  24.  
  25. def Check(S):
  26.   BOK.Enabled = ESrc.Text != "" and ERep.Text != ESrc.Text
  27.  
  28.  
  29. f = CreateComponent("TForm", None)
  30. f.Font.Name = "Tahoma"
  31. f.SetProps(Position="poMainFormCenter", Width=450, Height=300, Caption="Remplacer", BorderStyle="bsSingle", BorderIcons=["biSystemMenu"])
  32. l1 = CreateComponent("TLabel", f)
  33. l1.SetProps(Parent=f, Left=30, Top=30, Width=305, Caption="Dans le texte des champs ½ tiers ╗ et ½ dΘtails ╗ :")
  34. l1.Font.Style = ["fsBold"]
  35. l2 = CreateComponent("TLabel", f)
  36. l2.SetProps(Parent=f, Left=30, Top=50, Width=293, Caption="La recherche est sensible α la casse (majuscules, minuscules)")
  37. l3 = CreateComponent("TLabel", f)
  38. l3.SetProps(Parent=f, Left=30, Top=65, Width=274, Caption="et porte uniquement sur les lignes visibles (non filtrΘes).")
  39. l4 = CreateComponent("TLabel", f)
  40. l4.SetProps(Parent=f, Left=30, Top=115, Width=62, Caption="Rechercher :")
  41. l5 = CreateComponent("TLabel", f)
  42. l5.SetProps(Parent=f, Left=30, Top=155, Width=76, Caption="Remplacer par :")
  43. ESrc = CreateComponent("TEdit", f)
  44. ESrc.SetProps(Parent=f, Left=170, Top=110, Width=240, OnChange=Check)
  45. ERep = CreateComponent("TEdit", f)
  46. ERep.SetProps(Parent=f, Left=170, Top=150, Width=240, OnChange=Check)
  47. BOK = CreateComponent("TButton", f)
  48. BOK.SetProps(Parent=f, Left=120, Top=210, Width=100, Height=25, Caption="OK", Default=1, Enabled=0, OnClick=Replace)
  49. BCl = CreateComponent("TButton", f)
  50. BCl.SetProps(Parent=f, Left=230, Top=210, Width=100, Height=25, Caption="Annuler", Cancel=1, ModalResult=2)
  51. f.ShowModal()