OpenEuphoria

Constant cleaner

• Posted by don cole <doncole at pacbell.net> Feb 26, 2007
• 519 views

Hello everyone,

I have written a new to me program  called Constant Cleaner. IIf anybody is
interested I will post it in the archives.

  If your code looks like this,

global constant aMovCombo = createEx (Combo ,"", Window1, 28, 305, 262 , 240,
 0, 0 )--combo
global constant ararcombo = createEx (Combo ,"", Window1, 28, 415, 262, 60, 0,
 0 )--combo
global constant aparcombo = createEx (Combo ,"", Window1, 28, 440, 262 , 60, 0,
 0 )--combo
global constant a001combo = createEx (Combo ,"", Window1, 28, 465, 262 , 60, 0,
 0 )--combo
global constant amisccombo = createEx (Combo ,"", Window1, 28, 490, 262 , 60,
 0, 0 )--combo
 
 constant ajpg      = createEx (EditText ,"", Window1, 150, 70, 48, 18, 0, 0 )
 constant ajpe      = createEx (EditText ,"", Window1, 150, 86, 48, 18, 0, 0 )
 constant agif      = createEx (EditText ,"", Window1, 150, 102, 48,18, 0, 0 )
 constant abmp      = createEx (EditText ,"", Window1, 150, 118, 48, 18, 0, 0 )
 constant bjpg      = createEx (EditText ,"", Window1, 200, 70, 48, 18, 0, 0 )
 constant bjpe      = createEx (EditText ,"", Window1, 200, 86, 48, 18, 0, 0 )
 constant bgif      = createEx (EditText ,"", Window1, 200, 102, 48, 18, 0, 0 )
 constant bbmp      = createEx (EditText ,"", Window1, 200, 118, 48, 18, 0, 0 )
constant LText_jpg      = createEx (CText, "jpg     ", Window1, 100, 71, 48,
 20, 0, 0 )
constant LText_jpe      = createEx (CText, "jpe     ", Window1, 100, 88, 48,
 20, 0, 0 )
constant LText_gif      = createEx (CText, "gif     ", Window1, 100, 105, 48,
 20, 0, 0 )
constant LText_bmp      = createEx (CText, "bmp     ", Window1, 100, 122, 48,
 20, 0, 0 )
constant LText_jpg_rt      = createEx (CText, "", Window1, 250, 71, 48, 20, 0,
 0 )
constant LText_jpe_rt      = createEx (CText, "", Window1, 250, 88, 48, 20, 0,
 0 )
constant LText_gif_rt      = createEx (CText, "", Window1, 250, 105, 48, 20, 0,
 0 )
constant LText_bmp_rt      = createEx (CText, "", Window1, 250, 122, 48, 20, 0,
 0 )
 
--and you would like it to look like this.

global constant aMovCombo = createEx (Combo ,"", Window1, 28, 305, 262 , 240, 0,
0 ),--combo
ararcombo = createEx (Combo ,"", Window1, 28, 415, 262, 60, 0, 0
                ),--combo
aparcombo = createEx (Combo ,"", Window1, 28, 440, 262 , 60, 0,
                0 ),--combo
a001combo = createEx (Combo ,"", Window1, 28, 465, 262 , 60, 0,
                0 ),--combo
amisccombo = createEx (Combo ,"", Window1, 28, 490, 262 , 60, 0,
                0 )--combo

constant ajpg      = createEx (EditText ,"", Window1, 150, 70, 48, 18, 0, 0 ),
          ajpe      = createEx (EditText ,"", Window1, 150, 86, 48, 18, 0, 0 ),
          agif      = createEx (EditText ,"", Window1, 150, 102, 48,18, 0, 0 ),
          abmp      = createEx (EditText ,"", Window1, 150, 118, 48, 18, 0, 0 ),
          bjpg      = createEx (EditText ,"", Window1, 200, 70, 48, 18, 0, 0 ),
          bjpe      = createEx (EditText ,"", Window1, 200, 86, 48, 18, 0, 0 ),
          bgif      = createEx (EditText ,"", Window1, 200, 102, 48, 18, 0, 0 ),
          bbmp      = createEx (EditText ,"", Window1, 200, 118, 48, 18, 0, 0 ),
LText_jpg      = createEx (CText, "jpg     ", Window1, 100, 71, 48,
          20, 0, 0 ),
LText_jpe      = createEx (CText, "jpe     ", Window1, 100, 88, 48,
          20, 0, 0 ),
LText_gif      = createEx (CText, "gif     ", Window1, 100, 105, 48,
          20, 0, 0 ),
LText_bmp      = createEx (CText, "bmp     ", Window1, 100, 122, 48,
          20, 0, 0 ),
LText_jpg_rt      = createEx (CText, "", Window1, 250, 71, 48, 20, 0,
          0 ),
LText_jpe_rt      = createEx (CText, "", Window1, 250, 88, 48, 20, 0,
          0 ),
LText_gif_rt      = createEx (CText, "", Window1, 250, 105, 48, 20, 0,
          0 ),
LText_bmp_rt      = createEx (CText, "", Window1, 250, 122, 48, 20, 0,
          0 )

Tested works. I would like to know if there are any problems.


Don Cole