home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / archive / exds100.lzh / SPACK.LZH / EXCEED0.FRM < prev    next >
Text File  |  1995-09-30  |  11KB  |  345 lines

  1. VERSION 2.00
  2. Begin Form StrMain 
  3.    BackColor       =   &H000000FF&
  4.    BorderStyle     =   3  '固定(2重線)
  5.    Caption         =   "文字列操作"
  6.    FontBold        =   0   'False
  7.    FontItalic      =   0   'False
  8.    FontName        =   "MS ゴシック"
  9.    FontSize        =   12
  10.    FontStrikethru  =   0   'False
  11.    FontUnderline   =   0   'False
  12.    Height          =   6240
  13.    Icon            =   EXCEED0.FRX:0000
  14.    Left            =   1035
  15.    LinkTopic       =   "Form2"
  16.    Picture         =   EXCEED0.FRX:0302
  17.    ScaleHeight     =   5790
  18.    ScaleWidth      =   8925
  19.    Top             =   1110
  20.    Width           =   9045
  21.    Begin CommandButton Command1 
  22.       Caption         =   "Quit"
  23.       FontBold        =   0   'False
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS ゴシック"
  26.       FontSize        =   12.75
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   375
  30.       Left            =   6780
  31.       TabIndex        =   17
  32.       Top             =   5160
  33.       Width           =   1485
  34.    End
  35.    Begin CommandButton CMD 
  36.       Caption         =   "標準偏差を求める"
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "MS ゴシック"
  40.       FontSize        =   12.75
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   435
  44.       Index           =   7
  45.       Left            =   2610
  46.       TabIndex        =   15
  47.       Top             =   4560
  48.       Width           =   5685
  49.    End
  50.    Begin CommandButton CMD 
  51.       Caption         =   "最大/最小/平均/総計/対総計比率の算出"
  52.       FontBold        =   -1  'True
  53.       FontItalic      =   0   'False
  54.       FontName        =   "MS ゴシック"
  55.       FontSize        =   12.75
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   435
  59.       Index           =   6
  60.       Left            =   2610
  61.       TabIndex        =   13
  62.       Top             =   4020
  63.       Width           =   5685
  64.    End
  65.    Begin CommandButton CMD 
  66.       Caption         =   "ファイルやディレクトリの存在チェック"
  67.       FontBold        =   -1  'True
  68.       FontItalic      =   0   'False
  69.       FontName        =   "MS ゴシック"
  70.       FontSize        =   12.75
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       Height          =   435
  74.       Index           =   5
  75.       Left            =   2610
  76.       TabIndex        =   11
  77.       Top             =   3480
  78.       Width           =   5685
  79.    End
  80.    Begin CommandButton CMD 
  81.       Caption         =   "文字列が数値文字列かを検査"
  82.       FontBold        =   -1  'True
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS ゴシック"
  85.       FontSize        =   12.75
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   435
  89.       Index           =   4
  90.       Left            =   2610
  91.       TabIndex        =   9
  92.       Top             =   2940
  93.       Width           =   5685
  94.    End
  95.    Begin CommandButton CMD 
  96.       Caption         =   "EBCDIC文字列をASCIIに変換"
  97.       FontBold        =   -1  'True
  98.       FontItalic      =   0   'False
  99.       FontName        =   "MS ゴシック"
  100.       FontSize        =   12.75
  101.       FontStrikethru  =   0   'False
  102.       FontUnderline   =   0   'False
  103.       Height          =   435
  104.       Index           =   3
  105.       Left            =   2610
  106.       TabIndex        =   7
  107.       Top             =   2400
  108.       Width           =   5685
  109.    End
  110.    Begin CommandButton CMD 
  111.       Caption         =   "EUC文字列をシフトJISに変換"
  112.       FontBold        =   -1  'True
  113.       FontItalic      =   0   'False
  114.       FontName        =   "MS ゴシック"
  115.       FontSize        =   12.75
  116.       FontStrikethru  =   0   'False
  117.       FontUnderline   =   0   'False
  118.       Height          =   435
  119.       Index           =   2
  120.       Left            =   2610
  121.       TabIndex        =   5
  122.       Top             =   1860
  123.       Width           =   5685
  124.    End
  125.    Begin CommandButton CMD 
  126.       Caption         =   "シフトJIS文字列をEUCに変換"
  127.       FontBold        =   -1  'True
  128.       FontItalic      =   0   'False
  129.       FontName        =   "MS ゴシック"
  130.       FontSize        =   12.75
  131.       FontStrikethru  =   0   'False
  132.       FontUnderline   =   0   'False
  133.       Height          =   435
  134.       Index           =   1
  135.       Left            =   2610
  136.       TabIndex        =   3
  137.       Top             =   1320
  138.       Width           =   5685
  139.    End
  140.    Begin CommandButton CMD 
  141.       Caption         =   "Extract/After/Before/EntryName"
  142.       FontBold        =   -1  'True
  143.       FontItalic      =   0   'False
  144.       FontName        =   "MS ゴシック"
  145.       FontSize        =   12.75
  146.       FontStrikethru  =   0   'False
  147.       FontUnderline   =   0   'False
  148.       Height          =   435
  149.       Index           =   0
  150.       Left            =   2610
  151.       TabIndex        =   0
  152.       Top             =   780
  153.       Width           =   5685
  154.    End
  155.    Begin Label Label1 
  156.       Alignment       =   2  '中央揃え
  157.       BackColor       =   &H00FFFF00&
  158.       BorderStyle     =   1  '実線
  159.       Caption         =   "StandardDev"
  160.       FontBold        =   0   'False
  161.       FontItalic      =   -1  'True
  162.       FontName        =   "MS ゴシック"
  163.       FontSize        =   15
  164.       FontStrikethru  =   0   'False
  165.       FontUnderline   =   0   'False
  166.       Height          =   405
  167.       Index           =   7
  168.       Left            =   660
  169.       TabIndex        =   16
  170.       Top             =   4560
  171.       Width           =   1905
  172.    End
  173.    Begin Label Label1 
  174.       Alignment       =   2  '中央揃え
  175.       BackColor       =   &H00FFFF00&
  176.       BorderStyle     =   1  '実線
  177.       Caption         =   "Statistic"
  178.       FontBold        =   0   'False
  179.       FontItalic      =   -1  'True
  180.       FontName        =   "MS ゴシック"
  181.       FontSize        =   15
  182.       FontStrikethru  =   0   'False
  183.       FontUnderline   =   0   'False
  184.       Height          =   405
  185.       Index           =   6
  186.       Left            =   660
  187.       TabIndex        =   14
  188.       Top             =   4020
  189.       Width           =   1905
  190.    End
  191.    Begin Label Label1 
  192.       Alignment       =   2  '中央揃え
  193.       BackColor       =   &H00FFFF00&
  194.       BorderStyle     =   1  '実線
  195.       Caption         =   "Exists"
  196.       FontBold        =   0   'False
  197.       FontItalic      =   -1  'True
  198.       FontName        =   "MS ゴシック"
  199.       FontSize        =   15
  200.       FontStrikethru  =   0   'False
  201.       FontUnderline   =   0   'False
  202.       Height          =   405
  203.       Index           =   5
  204.       Left            =   660
  205.       TabIndex        =   12
  206.       Top             =   3480
  207.       Width           =   1905
  208.    End
  209.    Begin Label Label1 
  210.       Alignment       =   2  '中央揃え
  211.       BackColor       =   &H00FFFF00&
  212.       BorderStyle     =   1  '実線
  213.       Caption         =   "Types"
  214.       FontBold        =   0   'False
  215.       FontItalic      =   -1  'True
  216.       FontName        =   "MS ゴシック"
  217.       FontSize        =   15
  218.       FontStrikethru  =   0   'False
  219.       FontUnderline   =   0   'False
  220.       Height          =   405
  221.       Index           =   4
  222.       Left            =   660
  223.       TabIndex        =   10
  224.       Top             =   2940
  225.       Width           =   1905
  226.    End
  227.    Begin Label Label1 
  228.       Alignment       =   2  '中央揃え
  229.       BackColor       =   &H00FFFF00&
  230.       BorderStyle     =   1  '実線
  231.       Caption         =   "EBC2asc"
  232.       FontBold        =   0   'False
  233.       FontItalic      =   -1  'True
  234.       FontName        =   "MS ゴシック"
  235.       FontSize        =   15
  236.       FontStrikethru  =   0   'False
  237.       FontUnderline   =   0   'False
  238.       Height          =   405
  239.       Index           =   3
  240.       Left            =   660
  241.       TabIndex        =   8
  242.       Top             =   2400
  243.       Width           =   1905
  244.    End
  245.    Begin Label Label1 
  246.       Alignment       =   2  '中央揃え
  247.       BackColor       =   &H00FFFF00&
  248.       BorderStyle     =   1  '実線
  249.       Caption         =   "Euc2sj"
  250.       FontBold        =   0   'False
  251.       FontItalic      =   -1  'True
  252.       FontName        =   "MS ゴシック"
  253.       FontSize        =   15
  254.       FontStrikethru  =   0   'False
  255.       FontUnderline   =   0   'False
  256.       Height          =   405
  257.       Index           =   2
  258.       Left            =   660
  259.       TabIndex        =   6
  260.       Top             =   1860
  261.       Width           =   1905
  262.    End
  263.    Begin Label Label1 
  264.       Alignment       =   2  '中央揃え
  265.       BackColor       =   &H00FFFF00&
  266.       BorderStyle     =   1  '実線
  267.       Caption         =   "Sj2euc"
  268.       FontBold        =   0   'False
  269.       FontItalic      =   -1  'True
  270.       FontName        =   "MS ゴシック"
  271.       FontSize        =   15
  272.       FontStrikethru  =   0   'False
  273.       FontUnderline   =   0   'False
  274.       Height          =   405
  275.       Index           =   1
  276.       Left            =   660
  277.       TabIndex        =   4
  278.       Top             =   1320
  279.       Width           =   1905
  280.    End
  281.    Begin Label Label2 
  282.       BackColor       =   &H0000FFFF&
  283.       BackStyle       =   0  '透明
  284.       Caption         =   "関数名      動作実験プログラム"
  285.       FontBold        =   -1  'True
  286.       FontItalic      =   0   'False
  287.       FontName        =   "MS ゴシック"
  288.       FontSize        =   10.5
  289.       FontStrikethru  =   0   'False
  290.       FontUnderline   =   0   'False
  291.       ForeColor       =   &H0000FFFF&
  292.       Height          =   255
  293.       Left            =   720
  294.       TabIndex        =   2
  295.       Top             =   510
  296.       Width           =   4215
  297.    End
  298.    Begin Label Label1 
  299.       Alignment       =   2  '中央揃え
  300.       BackColor       =   &H00FFFF00&
  301.       BorderStyle     =   1  '実線
  302.       Caption         =   "4関数"
  303.       FontBold        =   0   'False
  304.       FontItalic      =   -1  'True
  305.       FontName        =   "MS ゴシック"
  306.       FontSize        =   15
  307.       FontStrikethru  =   0   'False
  308.       FontUnderline   =   0   'False
  309.       Height          =   405
  310.       Index           =   0
  311.       Left            =   660
  312.       TabIndex        =   1
  313.       Top             =   780
  314.       Width           =   1905
  315.    End
  316. End
  317. Option Explicit
  318.  
  319. Sub CMD_Click (index As Integer)
  320.   CMD(0).Tag = index
  321.   Select Case index
  322.   Case 0    'Ver1.2の関数群
  323.     func4.Show
  324.   Case 1    'Sj2euc
  325.     s2e.Show
  326.   Case 2    'Euc2sj
  327.     e2s.Show
  328.   Case 3    'EBC2asc
  329.     e2a.Show
  330.   Case 4    'Types
  331.     Typ.Show
  332.   Case 5    'Exists
  333.     Exis.Show
  334.   Case 6    'Statistic
  335.     stat.Show
  336.   Case 7    'StandardDev
  337.     sDev.show
  338.   End Select
  339. End Sub
  340.  
  341. Sub Command1_Click ()
  342.   Unload Me
  343. End Sub
  344.  
  345.