home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / exds100 / spack / exceedv9.frm < prev    next >
Text File  |  1995-09-29  |  18KB  |  521 lines
  1. VERSION 2.00
  2. Begin Form Quot 
  3.    BackColor       =   &H00C0C0C0&
  4.    FontBold        =   0   'False
  5.    FontItalic      =   0   'False
  6.    FontName        =   "ＭＳ ゴシック"
  7.    FontSize        =   12.75
  8.    FontStrikethru  =   0   'False
  9.    FontUnderline   =   0   'False
  10.    Height          =   5805
  11.    Icon            =   EXCEEDV9.FRX:0000
  12.    Left            =   1350
  13.    LinkTopic       =   "Form2"
  14.    ScaleHeight     =   5355
  15.    ScaleWidth      =   7065
  16.    Top             =   105
  17.    Width           =   7185
  18.    Begin TextBox Text2 
  19.       BackColor       =   &H0000FFFF&
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "ＭＳ ゴシック"
  23.       FontSize        =   12.75
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   435
  27.       Index           =   1
  28.       Left            =   1920
  29.       TabIndex        =   21
  30.       Text            =   "##C#"
  31.       Top             =   1290
  32.       Width           =   3705
  33.    End
  34.    Begin CheckBox CHK 
  35.       BackColor       =   &H00C0C0C0&
  36.       Caption         =   "上書きﾓｰﾄﾞ"
  37.       FontBold        =   0   'False
  38.       FontItalic      =   0   'False
  39.       FontName        =   "ＭＳ ゴシック"
  40.       FontSize        =   12.75
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   435
  44.       Left            =   4050
  45.       TabIndex        =   20
  46.       Top             =   2580
  47.       Width           =   2205
  48.    End
  49.    Begin Frame Frame2 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "データ区切り"
  52.       FontBold        =   0   'False
  53.       FontItalic      =   0   'False
  54.       FontName        =   "ＭＳ ゴシック"
  55.       FontSize        =   12.75
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   1365
  59.       Left            =   450
  60.       TabIndex        =   16
  61.       Top             =   1920
  62.       Width           =   2985
  63.       Begin OptionButton OPT 
  64.          BackColor       =   &H00C0C0C0&
  65.          Caption         =   "カンマ"
  66.          FontBold        =   0   'False
  67.          FontItalic      =   0   'False
  68.          FontName        =   "ＭＳ ゴシック"
  69.          FontSize        =   12.75
  70.          FontStrikethru  =   0   'False
  71.          FontUnderline   =   0   'False
  72.          Height          =   375
  73.          Index           =   1
  74.          Left            =   1110
  75.          TabIndex        =   18
  76.          Top             =   480
  77.          Value           =   -1  'True
  78.          Width           =   1455
  79.       End
  80.       Begin OptionButton OPT 
  81.          BackColor       =   &H00C0C0C0&
  82.          Caption         =   "ブランク"
  83.          FontBold        =   0   'False
  84.          FontItalic      =   0   'False
  85.          FontName        =   "ＭＳ ゴシック"
  86.          FontSize        =   12.75
  87.          FontStrikethru  =   0   'False
  88.          FontUnderline   =   0   'False
  89.          Height          =   375
  90.          Index           =   2
  91.          Left            =   1110
  92.          TabIndex        =   17
  93.          Top             =   810
  94.          Width           =   1455
  95.       End
  96.       Begin Label Label2 
  97.          Alignment       =   1  '右揃え
  98.          BackStyle       =   0  '透明
  99.          Caption         =   "ﾃﾞﾘﾐﾀ"
  100.          FontBold        =   0   'False
  101.          FontItalic      =   0   'False
  102.          FontName        =   "ＭＳ ゴシック"
  103.          FontSize        =   12.75
  104.          FontStrikethru  =   0   'False
  105.          FontUnderline   =   0   'False
  106.          Height          =   375
  107.          Index           =   4
  108.          Left            =   120
  109.          TabIndex        =   19
  110.          Top             =   570
  111.          Width           =   825
  112.       End
  113.    End
  114.    Begin Frame Frame1 
  115.       BackColor       =   &H00C0C0C0&
  116.       Caption         =   "ｸｫﾃｰｼｮﾝ"
  117.       FontBold        =   0   'False
  118.       FontItalic      =   0   'False
  119.       FontName        =   "ＭＳ ゴシック"
  120.       FontSize        =   12.75
  121.       FontStrikethru  =   0   'False
  122.       FontUnderline   =   0   'False
  123.       Height          =   795
  124.       Left            =   450
  125.       TabIndex        =   13
  126.       Top             =   3390
  127.       Width           =   2955
  128.       Begin OptionButton Option1 
  129.          BackColor       =   &H00C0C0C0&
  130.          Caption         =   """  """
  131.          FontBold        =   0   'False
  132.          FontItalic      =   0   'False
  133.          FontName        =   "ＭＳ ゴシック"
  134.          FontSize        =   12.75
  135.          FontStrikethru  =   0   'False
  136.          FontUnderline   =   0   'False
  137.          Height          =   285
  138.          Index           =   1
  139.          Left            =   1680
  140.          TabIndex        =   15
  141.          Top             =   360
  142.          Width           =   1005
  143.       End
  144.       Begin OptionButton Option1 
  145.          BackColor       =   &H00C0C0C0&
  146.          Caption         =   "'　'"
  147.          FontBold        =   0   'False
  148.          FontItalic      =   0   'False
  149.          FontName        =   "ＭＳ ゴシック"
  150.          FontSize        =   12.75
  151.          FontStrikethru  =   0   'False
  152.          FontUnderline   =   0   'False
  153.          Height          =   285
  154.          Index           =   0
  155.          Left            =   240
  156.          TabIndex        =   14
  157.          Top             =   360
  158.          Value           =   -1  'True
  159.          Width           =   1275
  160.       End
  161.    End
  162.    Begin CommandButton command1 
  163.       Caption         =   "解説"
  164.       FontBold        =   -1  'True
  165.       FontItalic      =   0   'False
  166.       FontName        =   "ＭＳ ゴシック"
  167.       FontSize        =   12.75
  168.       FontStrikethru  =   0   'False
  169.       FontUnderline   =   0   'False
  170.       Height          =   525
  171.       Index           =   6
  172.       Left            =   3570
  173.       TabIndex        =   12
  174.       Top             =   4590
  175.       Width           =   1035
  176.    End
  177.    Begin CommandButton command1 
  178.       Caption         =   "制限"
  179.       FontBold        =   -1  'True
  180.       FontItalic      =   0   'False
  181.       FontName        =   "ＭＳ ゴシック"
  182.       FontSize        =   12.75
  183.       FontStrikethru  =   0   'False
  184.       FontUnderline   =   0   'False
  185.       Height          =   525
  186.       Index           =   5
  187.       Left            =   2580
  188.       TabIndex        =   10
  189.       Top             =   4590
  190.       Width           =   1005
  191.    End
  192.    Begin CommandButton command1 
  193.       Caption         =   "閲覧"
  194.       FontBold        =   0   'False
  195.       FontItalic      =   0   'False
  196.       FontName        =   "ＭＳ ゴシック"
  197.       FontSize        =   12.75
  198.       FontStrikethru  =   0   'False
  199.       FontUnderline   =   0   'False
  200.       Height          =   465
  201.       Index           =   4
  202.       Left            =   5700
  203.       TabIndex        =   9
  204.       Top             =   720
  205.       Width           =   855
  206.    End
  207.    Begin CommandButton command1 
  208.       Caption         =   "閲覧"
  209.       FontBold        =   0   'False
  210.       FontItalic      =   0   'False
  211.       FontName        =   "ＭＳ ゴシック"
  212.       FontSize        =   12.75
  213.       FontStrikethru  =   0   'False
  214.       FontUnderline   =   0   'False
  215.       Height          =   465
  216.       Index           =   2
  217.       Left            =   5700
  218.       TabIndex        =   8
  219.       Top             =   150
  220.       Width           =   855
  221.    End
  222.    Begin TextBox Text2 
  223.       BackColor       =   &H0000FFFF&
  224.       FontBold        =   0   'False
  225.       FontItalic      =   0   'False
  226.       FontName        =   "ＭＳ ゴシック"
  227.       FontSize        =   12.75
  228.       FontStrikethru  =   0   'False
  229.       FontUnderline   =   0   'False
  230.       Height          =   435
  231.       Index           =   2
  232.       Left            =   1920
  233.       TabIndex        =   5
  234.       Text            =   "out.txt"
  235.       Top             =   720
  236.       Width           =   3705
  237.    End
  238.    Begin TextBox Text2 
  239.       BackColor       =   &H0000FFFF&
  240.       FontBold        =   0   'False
  241.       FontItalic      =   0   'False
  242.       FontName        =   "ＭＳ ゴシック"
  243.       FontSize        =   12.75
  244.       FontStrikethru  =   0   'False
  245.       FontUnderline   =   0   'False
  246.       Height          =   435
  247.       Index           =   0
  248.       Left            =   1920
  249.       TabIndex        =   3
  250.       Text            =   "data13.txt"
  251.       Top             =   150
  252.       Width           =   3705
  253.    End
  254.    Begin CommandButton command1 
  255.       Caption         =   "終了"
  256.       FontBold        =   -1  'True
  257.       FontItalic      =   0   'False
  258.       FontName        =   "ＭＳ ゴシック"
  259.       FontSize        =   12.75
  260.       FontStrikethru  =   0   'False
  261.       FontUnderline   =   0   'False
  262.       Height          =   525
  263.       Index           =   1
  264.       Left            =   5610
  265.       TabIndex        =   2
  266.       Top             =   4590
  267.       Width           =   975
  268.    End
  269.    Begin CommandButton command1 
  270.       Caption         =   "実行"
  271.       FontBold        =   -1  'True
  272.       FontItalic      =   0   'False
  273.       FontName        =   "ＭＳ ゴシック"
  274.       FontSize        =   12.75
  275.       FontStrikethru  =   0   'False
  276.       FontUnderline   =   0   'False
  277.       Height          =   525
  278.       Index           =   0
  279.       Left            =   4590
  280.       TabIndex        =   0
  281.       Top             =   4590
  282.       Width           =   1035
  283.    End
  284.    Begin Label Label2 
  285.       Alignment       =   1  '右揃え
  286.       BackStyle       =   0  '透明
  287.       Caption         =   "0:エラー n:書込ﾚｺｰﾄﾞ数"
  288.       FontBold        =   0   'False
  289.       FontItalic      =   0   'False
  290.       FontName        =   "ＭＳ ゴシック"
  291.       FontSize        =   12.75
  292.       FontStrikethru  =   0   'False
  293.       FontUnderline   =   0   'False
  294.       Height          =   375
  295.       Index           =   3
  296.       Left            =   3600
  297.       TabIndex        =   23
  298.       Top             =   3690
  299.       Width           =   3225
  300.    End
  301.    Begin Label Label2 
  302.       Alignment       =   1  '右揃え
  303.       BackStyle       =   0  '透明
  304.       Caption         =   "列変換指定"
  305.       FontBold        =   0   'False
  306.       FontItalic      =   0   'False
  307.       FontName        =   "ＭＳ ゴシック"
  308.       FontSize        =   12.75
  309.       FontStrikethru  =   0   'False
  310.       FontUnderline   =   0   'False
  311.       Height          =   375
  312.       Index           =   1
  313.       Left            =   300
  314.       TabIndex        =   22
  315.       Top             =   1320
  316.       Width           =   1575
  317.    End
  318.    Begin Label Label4 
  319.       BackStyle       =   0  '透明
  320.       BorderStyle     =   1  '実線
  321.       Caption         =   "黄色のエリアにはﾌｧｲﾙ名などをもれなく設定して下さい"
  322.       FontBold        =   0   'False
  323.       FontItalic      =   0   'False
  324.       FontName        =   "ＭＳ ゴシック"
  325.       FontSize        =   10.5
  326.       FontStrikethru  =   0   'False
  327.       FontUnderline   =   0   'False
  328.       ForeColor       =   &H000000FF&
  329.       Height          =   735
  330.       Left            =   450
  331.       TabIndex        =   11
  332.       Top             =   4350
  333.       Width           =   1995
  334.    End
  335.    Begin Label Label3 
  336.       Alignment       =   1  '右揃え
  337.       BackStyle       =   0  '透明
  338.       Caption         =   "返却値"
  339.       FontBold        =   0   'False
  340.       FontItalic      =   0   'False
  341.       FontName        =   "ＭＳ ゴシック"
  342.       FontSize        =   12.75
  343.       FontStrikethru  =   0   'False
  344.       FontUnderline   =   0   'False
  345.       ForeColor       =   &H00FF0000&
  346.       Height          =   345
  347.       Left            =   3990
  348.       TabIndex        =   7
  349.       Top             =   3240
  350.       Width           =   855
  351.    End
  352.    Begin Label Label2 
  353.       Alignment       =   1  '右揃え
  354.       BackStyle       =   0  '透明
  355.       Caption         =   "出力ファイル"
  356.       FontBold        =   0   'False
  357.       FontItalic      =   0   'False
  358.       FontName        =   "ＭＳ ゴシック"
  359.       FontSize        =   12.75
  360.       FontStrikethru  =   0   'False
  361.       FontUnderline   =   0   'False
  362.       Height          =   375
  363.       Index           =   2
  364.       Left            =   300
  365.       TabIndex        =   6
  366.       Top             =   750
  367.       Width           =   1575
  368.    End
  369.    Begin Label Label2 
  370.       Alignment       =   1  '右揃え
  371.       BackStyle       =   0  '透明
  372.       Caption         =   "ファイル１"
  373.       FontBold        =   0   'False
  374.       FontItalic      =   0   'False
  375.       FontName        =   "ＭＳ ゴシック"
  376.       FontSize        =   12.75
  377.       FontStrikethru  =   0   'False
  378.       FontUnderline   =   0   'False
  379.       Height          =   375
  380.       Index           =   0
  381.       Left            =   240
  382.       TabIndex        =   4
  383.       Top             =   240
  384.       Width           =   1635
  385.    End
  386.    Begin Label Label1 
  387.       BackColor       =   &H0000FF00&
  388.       BorderStyle     =   1  '実線
  389.       FontBold        =   0   'False
  390.       FontItalic      =   0   'False
  391.       FontName        =   "ＭＳ ゴシック"
  392.       FontSize        =   12.75
  393.       FontStrikethru  =   0   'False
  394.       FontUnderline   =   0   'False
  395.       Height          =   495
  396.       Left            =   4890
  397.       TabIndex        =   1
  398.       Top             =   3150
  399.       Width           =   705
  400.    End
  401. End
  402. Option Explicit
  403.  
  404. Dim delm As Integer
  405.  
  406. Sub Command1_Click (INDEX As Integer)
  407. Dim ret
  408. Dim sFile As String
  409. Dim eFile As String
  410. Dim dam   As String
  411. Dim expr  As String
  412. Dim opts  As Integer
  413. Dim rew   As Integer
  414. Dim t
  415. Dim ccc As String
  416.  
  417.   ccc = Chr$(13)
  418.   sFile = text2(0).Text
  419.   eFile = text2(2).Text
  420.   expr = text2(1).Text
  421.   If opt(1).Value Then
  422.     delm = 1
  423.   Else
  424.     delm = 2
  425.   End If
  426.   If option1(0).Value Then
  427.     opts = 1
  428.   Else
  429.     opts = 2
  430.   End If
  431.   If chk.Value = 1 Then
  432.     rew = 1
  433.   Else
  434.     rew = 0
  435.     chk.Value = 0
  436.   End If
  437.   Select Case INDEX
  438.   Case 0                                '実行
  439.     If Len(Trim$(expr)) <= 0 Then
  440.       MsgBox "列変換が指定されていません.", 48, "設定エラー"
  441.       Exit Sub
  442.     End If
  443.     If Len(Trim$(sFile)) > 0 Then
  444.       If Len(Trim$(eFile)) > 0 Then
  445.         screen.MousePointer = 11
  446.         ret = QuoteFiles&(sFile, eFile, expr, delm, opts, rew)
  447.         label1.Caption = Str$(ret)
  448.         screen.MousePointer = 1
  449.         Exit Sub
  450.       End If
  451.     End If
  452.     MsgBox "ファイル名が指定されていません.", 48, "設定エラー"
  453.     Exit Sub
  454.   Case 1                                '終了
  455.     Unload Me
  456.   Case 2                                '閲覧
  457.     t = Shell("notepad.exe " + sFile, 1)
  458.   Case 4                                '閲覧
  459.     t = Shell("notepad.exe " + eFile, 1)
  460.   Case 6                                '解説
  461.     dam = ""
  462.     dam = dam + "＜機能概要＞  ＱｕｏｔｅＦｉｌｅｓ" + ccc + ccc
  463.     dam = dam + "　ｶﾝﾏまたはﾌﾞﾗﾝｸで区切られたﾃｷｽﾄﾌｧｲﾙを対象として" + ccc
  464.     dam = dam + "　任意の指定列のデータにクォートを振り付けます。" + ccc
  465.     dam = dam + "   （例）" + ccc
  466.     dam = dam + "　　　111,222,333,444" + ccc
  467.     dam = dam + "　　　111,222,333,444" + ccc
  468.     dam = dam + "　　　111,222,333,444" + ccc
  469.     dam = dam + "　　　                   ##C#     <- ３列目を指定する" + ccc
  470.     dam = dam + "　　　　↓　　　　　　　　　　　　このような文字列を第３引数に設定します" + ccc
  471.     dam = dam + "　　　111,222,'333',444" + ccc
  472.     dam = dam + "　　　111,222,'333',444" + ccc
  473.     dam = dam + "　　　111,222,'333',444" + ccc
  474.     dam = dam + "" + ccc
  475.     dam = dam + "＜ＶＢでの呼び出し方法＞" + ccc + ccc
  476.     dam = dam + "　①定義方法はＶＢプログラムソースのEXCEEDF.BASを参照して下さい。" + ccc
  477.     dam = dam + "　②引数について" + ccc
  478.     dam = dam + "    QuoteFiles%( P1 , P2 , P3 , P4 , P5 , P6 , P7 )" + ccc
  479.     dam = dam + "　　　P1:対象ファイル名称" + ccc
  480.     dam = dam + "　　　P2:出力ファイル名称（上書きﾓｰﾄﾞで指定する場合でもﾀﾞﾐｰﾌｧｲﾙを指定して下さい）" + ccc
  481.     dam = dam + "　　　P3:変換する列の指定" + ccc
  482.     dam = dam + "　　　　　# を指定すると該当する列の変換はしない。" + ccc
  483.     dam = dam + "　　　　　C を指定すると該当する列を変換します。" + ccc + ccc
  484.     dam = dam + "　　　　　指定は必ず列数分指定されていなければなりません。" + ccc
  485.     dam = dam + "　　　P4:入力データのﾃﾞﾘﾐﾀ指定　1,ｶﾝﾏ　2,ﾌﾞﾗﾝｸ" + ccc
  486.     dam = dam + "　　　P5:クォートの種類　1,シングル　2,ダブル" + ccc
  487.     dam = dam + "　　　P6:対象ファイルを書き換えるかの指定　1:上書き　0,しない" + ccc + ccc
  488.     dam = dam + "＜返却値＞ 0:エラー n:正常" + ccc + ccc
  489.     dam = dam + ccc
  490.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  491.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  492.     MsgBox dam, 64, version
  493.   Case 5                                '制限
  494.     dam = ""
  495.     dam = dam + "＜制限事項＞" + ccc + ccc
  496.     dam = dam + "　（１）ファイル１はレコード以上のﾃﾞｰﾀを持つこと" + ccc
  497.     dam = dam + "　（２）結果のレコード長が最大256を越えないこと" + ccc
  498.     dam = dam + "　（３）入力、結果のレコード数が32767を越えないこと" + ccc
  499.     dam = dam + "　（４）ファイル１はテキスト形式であり１ﾚｺｰﾄﾞの区切りが改行であること" + ccc
  500.     dam = dam + "　（５）ファイル１,出力ファイル名は異なっていること" + ccc + ccc
  501.     dam = dam + "以上の点を制限として考えておりますが、何か問題がありましたらメールにてご連絡下さい" + ccc
  502.     dam = dam + ccc
  503.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  504.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  505.     MsgBox dam, 64, version
  506.   End Select
  507. End Sub
  508.  
  509. Sub Form_Load ()
  510. delm = 0
  511. top = 200
  512. left = 200
  513. End Sub
  514.  
  515. Sub OPT_Click (INDEX As Integer)
  516.   If opt(INDEX).Value Then
  517.     delm = INDEX
  518.   End If
  519. End Sub
  520.  
  521.