home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / exds100 / spack / exceedf0.frm < prev    next >
Text File  |  1995-09-29  |  13KB  |  415 lines
  1. VERSION 2.00
  2. Begin Form FileMain 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   3  '固定(2重線)
  5.    Caption         =   "ファイル操作　"
  6.    FontBold        =   0   'False
  7.    FontItalic      =   0   'False
  8.    FontName        =   "ＭＳ ゴシック"
  9.    FontSize        =   12
  10.    FontStrikethru  =   0   'False
  11.    FontUnderline   =   0   'False
  12.    Height          =   7530
  13.    Icon            =   EXCEEDF0.FRX:0000
  14.    Left            =   1020
  15.    LinkTopic       =   "Form2"
  16.    Picture         =   EXCEEDF0.FRX:0302
  17.    ScaleHeight     =   7080
  18.    ScaleWidth      =   9030
  19.    Top             =   1125
  20.    Width           =   9150
  21.    Begin CommandButton CMD 
  22.       Caption         =   "ﾃｷｽﾄﾌｧｲﾙの任意列にｸｫｰﾃｼｮﾝを付与"
  23.       FontBold        =   -1  'True
  24.       FontItalic      =   0   'False
  25.       FontName        =   "ＭＳ ゴシック"
  26.       FontSize        =   12.75
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   435
  30.       Index           =   9
  31.       Left            =   2610
  32.       TabIndex        =   20
  33.       Top             =   5640
  34.       Width           =   5685
  35.    End
  36.    Begin CommandButton CMD 
  37.       Caption         =   "可変長ﾃｷｽﾄﾌｧｲﾙから指定ﾚｺｰﾄﾞの読込"
  38.       FontBold        =   -1  'True
  39.       FontItalic      =   0   'False
  40.       FontName        =   "ＭＳ ゴシック"
  41.       FontSize        =   12.75
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       Height          =   435
  45.       Index           =   8
  46.       Left            =   2610
  47.       TabIndex        =   18
  48.       Top             =   5100
  49.       Width           =   5685
  50.    End
  51.    Begin CommandButton Command1 
  52.       Caption         =   "Quit"
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "ＭＳ ゴシック"
  56.       FontSize        =   12.75
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   375
  60.       Left            =   6780
  61.       TabIndex        =   17
  62.       Top             =   6240
  63.       Width           =   1485
  64.    End
  65.    Begin CommandButton CMD 
  66.       Caption         =   "ﾃｷｽﾄﾌｧｲﾙ内の指定文字列の置換等"
  67.       FontBold        =   -1  'True
  68.       FontItalic      =   0   'False
  69.       FontName        =   "ＭＳ ゴシック"
  70.       FontSize        =   12.75
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       Height          =   435
  74.       Index           =   7
  75.       Left            =   2610
  76.       TabIndex        =   15
  77.       Top             =   4560
  78.       Width           =   5685
  79.    End
  80.    Begin CommandButton CMD 
  81.       Caption         =   "ﾃｷｽﾄﾌｧｲﾙをBOX範囲でｸﾘｯﾌﾟ"
  82.       FontBold        =   -1  'True
  83.       FontItalic      =   0   'False
  84.       FontName        =   "ＭＳ ゴシック"
  85.       FontSize        =   12.75
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   435
  89.       Index           =   6
  90.       Left            =   2610
  91.       TabIndex        =   13
  92.       Top             =   4020
  93.       Width           =   5685
  94.    End
  95.    Begin CommandButton CMD 
  96.       Caption         =   "EUCを含んだunixﾌｧｲﾙ<->dosﾌｧｲﾙ変換"
  97.       FontBold        =   -1  'True
  98.       FontItalic      =   0   'False
  99.       FontName        =   "ＭＳ ゴシック"
  100.       FontSize        =   12.75
  101.       FontStrikethru  =   0   'False
  102.       FontUnderline   =   0   'False
  103.       Height          =   435
  104.       Index           =   5
  105.       Left            =   2610
  106.       TabIndex        =   11
  107.       Top             =   3480
  108.       Width           =   5685
  109.    End
  110.    Begin CommandButton CMD 
  111.       Caption         =   "ﾃｷｽﾄﾌｧｲﾙから列のﾃﾞｰﾀをｸﾘｯﾌﾟ"
  112.       FontBold        =   -1  'True
  113.       FontItalic      =   0   'False
  114.       FontName        =   "ＭＳ ゴシック"
  115.       FontSize        =   12.75
  116.       FontStrikethru  =   0   'False
  117.       FontUnderline   =   0   'False
  118.       Height          =   435
  119.       Index           =   4
  120.       Left            =   2610
  121.       TabIndex        =   9
  122.       Top             =   2940
  123.       Width           =   5685
  124.    End
  125.    Begin CommandButton CMD 
  126.       Caption         =   "ﾃｷｽﾄﾌｧｲﾙから指定列ﾃﾞｰﾀを削除"
  127.       FontBold        =   -1  'True
  128.       FontItalic      =   0   'False
  129.       FontName        =   "ＭＳ ゴシック"
  130.       FontSize        =   12.75
  131.       FontStrikethru  =   0   'False
  132.       FontUnderline   =   0   'False
  133.       Height          =   435
  134.       Index           =   3
  135.       Left            =   2610
  136.       TabIndex        =   7
  137.       Top             =   2400
  138.       Width           =   5685
  139.    End
  140.    Begin CommandButton CMD 
  141.       Caption         =   "可変長ﾃｷｽﾄﾌｧｲﾙの指定ﾚｺｰﾄﾞ削除"
  142.       FontBold        =   -1  'True
  143.       FontItalic      =   0   'False
  144.       FontName        =   "ＭＳ ゴシック"
  145.       FontSize        =   12.75
  146.       FontStrikethru  =   0   'False
  147.       FontUnderline   =   0   'False
  148.       Height          =   435
  149.       Index           =   2
  150.       Left            =   2610
  151.       TabIndex        =   5
  152.       Top             =   1860
  153.       Width           =   5685
  154.    End
  155.    Begin CommandButton CMD 
  156.       Caption         =   "ファイル名の変更（上書き）"
  157.       FontBold        =   -1  'True
  158.       FontItalic      =   0   'False
  159.       FontName        =   "ＭＳ ゴシック"
  160.       FontSize        =   12.75
  161.       FontStrikethru  =   0   'False
  162.       FontUnderline   =   0   'False
  163.       Height          =   435
  164.       Index           =   1
  165.       Left            =   2610
  166.       TabIndex        =   3
  167.       Top             =   1320
  168.       Width           =   5685
  169.    End
  170.    Begin CommandButton CMD 
  171.       Caption         =   "ファイルの縦方向の結合"
  172.       FontBold        =   -1  'True
  173.       FontItalic      =   0   'False
  174.       FontName        =   "ＭＳ ゴシック"
  175.       FontSize        =   12.75
  176.       FontStrikethru  =   0   'False
  177.       FontUnderline   =   0   'False
  178.       Height          =   435
  179.       Index           =   0
  180.       Left            =   2610
  181.       TabIndex        =   0
  182.       Top             =   780
  183.       Width           =   5685
  184.    End
  185.    Begin Label Label1 
  186.       Alignment       =   2  '中央揃え
  187.       BackColor       =   &H00FFFF00&
  188.       BorderStyle     =   1  '実線
  189.       Caption         =   "QuoteFiles"
  190.       FontBold        =   0   'False
  191.       FontItalic      =   -1  'True
  192.       FontName        =   "ＭＳ ゴシック"
  193.       FontSize        =   15
  194.       FontStrikethru  =   0   'False
  195.       FontUnderline   =   0   'False
  196.       Height          =   405
  197.       Index           =   9
  198.       Left            =   660
  199.       TabIndex        =   21
  200.       Top             =   5640
  201.       Width           =   1905
  202.    End
  203.    Begin Label Label1 
  204.       Alignment       =   2  '中央揃え
  205.       BackColor       =   &H00FFFF00&
  206.       BorderStyle     =   1  '実線
  207.       Caption         =   "SelectFiles"
  208.       FontBold        =   0   'False
  209.       FontItalic      =   -1  'True
  210.       FontName        =   "ＭＳ ゴシック"
  211.       FontSize        =   15
  212.       FontStrikethru  =   0   'False
  213.       FontUnderline   =   0   'False
  214.       Height          =   405
  215.       Index           =   8
  216.       Left            =   660
  217.       TabIndex        =   19
  218.       Top             =   5100
  219.       Width           =   1905
  220.    End
  221.    Begin Label Label1 
  222.       Alignment       =   2  '中央揃え
  223.       BackColor       =   &H00FFFF00&
  224.       BorderStyle     =   1  '実線
  225.       Caption         =   "EditFiles"
  226.       FontBold        =   0   'False
  227.       FontItalic      =   -1  'True
  228.       FontName        =   "ＭＳ ゴシック"
  229.       FontSize        =   15
  230.       FontStrikethru  =   0   'False
  231.       FontUnderline   =   0   'False
  232.       Height          =   405
  233.       Index           =   7
  234.       Left            =   660
  235.       TabIndex        =   16
  236.       Top             =   4560
  237.       Width           =   1905
  238.    End
  239.    Begin Label Label1 
  240.       Alignment       =   2  '中央揃え
  241.       BackColor       =   &H00FFFF00&
  242.       BorderStyle     =   1  '実線
  243.       Caption         =   "ScopeFiles"
  244.       FontBold        =   0   'False
  245.       FontItalic      =   -1  'True
  246.       FontName        =   "ＭＳ ゴシック"
  247.       FontSize        =   15
  248.       FontStrikethru  =   0   'False
  249.       FontUnderline   =   0   'False
  250.       Height          =   405
  251.       Index           =   6
  252.       Left            =   660
  253.       TabIndex        =   14
  254.       Top             =   4020
  255.       Width           =   1905
  256.    End
  257.    Begin Label Label1 
  258.       Alignment       =   2  '中央揃え
  259.       BackColor       =   &H00FFFF00&
  260.       BorderStyle     =   1  '実線
  261.       Caption         =   "Unixdos"
  262.       FontBold        =   0   'False
  263.       FontItalic      =   -1  'True
  264.       FontName        =   "ＭＳ ゴシック"
  265.       FontSize        =   15
  266.       FontStrikethru  =   0   'False
  267.       FontUnderline   =   0   'False
  268.       Height          =   405
  269.       Index           =   5
  270.       Left            =   660
  271.       TabIndex        =   12
  272.       Top             =   3480
  273.       Width           =   1905
  274.    End
  275.    Begin Label Label1 
  276.       Alignment       =   2  '中央揃え
  277.       BackColor       =   &H00FFFF00&
  278.       BorderStyle     =   1  '実線
  279.       Caption         =   "Dextracts"
  280.       FontBold        =   0   'False
  281.       FontItalic      =   -1  'True
  282.       FontName        =   "ＭＳ ゴシック"
  283.       FontSize        =   15
  284.       FontStrikethru  =   0   'False
  285.       FontUnderline   =   0   'False
  286.       Height          =   405
  287.       Index           =   4
  288.       Left            =   660
  289.       TabIndex        =   10
  290.       Top             =   2940
  291.       Width           =   1905
  292.    End
  293.    Begin Label Label1 
  294.       Alignment       =   2  '中央揃え
  295.       BackColor       =   &H00FFFF00&
  296.       BorderStyle     =   1  '実線
  297.       Caption         =   "CutColFiles"
  298.       FontBold        =   0   'False
  299.       FontItalic      =   -1  'True
  300.       FontName        =   "ＭＳ ゴシック"
  301.       FontSize        =   15
  302.       FontStrikethru  =   0   'False
  303.       FontUnderline   =   0   'False
  304.       Height          =   405
  305.       Index           =   3
  306.       Left            =   660
  307.       TabIndex        =   8
  308.       Top             =   2400
  309.       Width           =   1905
  310.    End
  311.    Begin Label Label1 
  312.       Alignment       =   2  '中央揃え
  313.       BackColor       =   &H00FFFF00&
  314.       BorderStyle     =   1  '実線
  315.       Caption         =   "Purge"
  316.       FontBold        =   0   'False
  317.       FontItalic      =   -1  'True
  318.       FontName        =   "ＭＳ ゴシック"
  319.       FontSize        =   15
  320.       FontStrikethru  =   0   'False
  321.       FontUnderline   =   0   'False
  322.       Height          =   405
  323.       Index           =   2
  324.       Left            =   660
  325.       TabIndex        =   6
  326.       Top             =   1860
  327.       Width           =   1905
  328.    End
  329.    Begin Label Label1 
  330.       Alignment       =   2  '中央揃え
  331.       BackColor       =   &H00FFFF00&
  332.       BorderStyle     =   1  '実線
  333.       Caption         =   "RenameFiles"
  334.       FontBold        =   0   'False
  335.       FontItalic      =   -1  'True
  336.       FontName        =   "ＭＳ ゴシック"
  337.       FontSize        =   15
  338.       FontStrikethru  =   0   'False
  339.       FontUnderline   =   0   'False
  340.       Height          =   405
  341.       Index           =   1
  342.       Left            =   660
  343.       TabIndex        =   4
  344.       Top             =   1320
  345.       Width           =   1905
  346.    End
  347.    Begin Label Label2 
  348.       BackColor       =   &H0000FFFF&
  349.       BackStyle       =   0  '透明
  350.       Caption         =   "関数名　　　　　　動作実験プログラム"
  351.       FontBold        =   -1  'True
  352.       FontItalic      =   0   'False
  353.       FontName        =   "ＭＳ ゴシック"
  354.       FontSize        =   10.5
  355.       FontStrikethru  =   0   'False
  356.       FontUnderline   =   0   'False
  357.       ForeColor       =   &H0000FFFF&
  358.       Height          =   255
  359.       Left            =   720
  360.       TabIndex        =   2
  361.       Top             =   510
  362.       Width           =   4215
  363.    End
  364.    Begin Label Label1 
  365.       Alignment       =   2  '中央揃え
  366.       BackColor       =   &H00FFFF00&
  367.       BorderStyle     =   1  '実線
  368.       Caption         =   "AddFiles"
  369.       FontBold        =   0   'False
  370.       FontItalic      =   -1  'True
  371.       FontName        =   "ＭＳ ゴシック"
  372.       FontSize        =   15
  373.       FontStrikethru  =   0   'False
  374.       FontUnderline   =   0   'False
  375.       Height          =   405
  376.       Index           =   0
  377.       Left            =   660
  378.       TabIndex        =   1
  379.       Top             =   780
  380.       Width           =   1905
  381.    End
  382. End
  383. Option Explicit
  384.  
  385. Sub CMD_Click (index As Integer)
  386.   CMD(0).Tag = index
  387.   Select Case index
  388.   Case 0    'AddFiles
  389.     addf.Show
  390.   Case 1    'RenameFiles
  391.     Rnam.Show
  392.   Case 2    'InsertFiles
  393.     Purg.Show
  394.   Case 3    'CutColFiles
  395.     cutc.Show
  396.   Case 4    'Dextracts
  397.     dext.Show
  398.   Case 5    'Unixdos
  399.     unix.Show
  400.   Case 6    'ScopeFiles
  401.     scop.Show
  402.   Case 7    'EditFiles
  403.     edits.Show
  404.   Case 8    'SelectFiles
  405.     Sele.Show
  406.   Case 9    'QuoteFiles
  407.     Quot.Show
  408.   End Select
  409. End Sub
  410.  
  411. Sub Command1_Click ()
  412.   Unload Me
  413. End Sub
  414.  
  415.