home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / exds100 / spack / exceedvf.frm < prev    next >
Text File  |  1995-09-29  |  17KB  |  486 lines
  1. VERSION 2.00
  2. Begin Form AddF 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "ファイル列で結合 動作試験 Ver 1.00 "
  5.    FontBold        =   0   'False
  6.    FontItalic      =   0   'False
  7.    FontName        =   "ＭＳ ゴシック"
  8.    FontSize        =   12.75
  9.    FontStrikethru  =   0   'False
  10.    FontUnderline   =   0   'False
  11.    Height          =   5715
  12.    Icon            =   EXCEEDVF.FRX:0000
  13.    Left            =   1095
  14.    LinkTopic       =   "Form2"
  15.    ScaleHeight     =   5265
  16.    ScaleWidth      =   7020
  17.    Top             =   1530
  18.    Width           =   7140
  19.    Begin OptionButton OPT 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "タブ"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "ＭＳ ゴシック"
  25.       FontSize        =   12.75
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   375
  29.       Index           =   3
  30.       Left            =   1920
  31.       TabIndex        =   22
  32.       Top             =   3330
  33.       Width           =   1455
  34.    End
  35.    Begin OptionButton OPT 
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "ブランク"
  38.       FontBold        =   0   'False
  39.       FontItalic      =   0   'False
  40.       FontName        =   "ＭＳ ゴシック"
  41.       FontSize        =   12.75
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       Height          =   375
  45.       Index           =   2
  46.       Left            =   1920
  47.       TabIndex        =   21
  48.       Top             =   3000
  49.       Width           =   1455
  50.    End
  51.    Begin OptionButton OPT 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "カンマ"
  54.       FontBold        =   0   'False
  55.       FontItalic      =   0   'False
  56.       FontName        =   "ＭＳ ゴシック"
  57.       FontSize        =   12.75
  58.       FontStrikethru  =   0   'False
  59.       FontUnderline   =   0   'False
  60.       Height          =   375
  61.       Index           =   1
  62.       Left            =   1920
  63.       TabIndex        =   20
  64.       Top             =   2670
  65.       Width           =   1455
  66.    End
  67.    Begin OptionButton OPT 
  68.       BackColor       =   &H00C0C0C0&
  69.       Caption         =   "なし"
  70.       FontBold        =   0   'False
  71.       FontItalic      =   0   'False
  72.       FontName        =   "ＭＳ ゴシック"
  73.       FontSize        =   12.75
  74.       FontStrikethru  =   0   'False
  75.       FontUnderline   =   0   'False
  76.       Height          =   375
  77.       Index           =   0
  78.       Left            =   1920
  79.       TabIndex        =   19
  80.       Top             =   2340
  81.       Value           =   -1  'True
  82.       Width           =   1455
  83.    End
  84.    Begin CommandButton command1 
  85.       Caption         =   "解説"
  86.       FontBold        =   -1  'True
  87.       FontItalic      =   0   'False
  88.       FontName        =   "ＭＳ ゴシック"
  89.       FontSize        =   12.75
  90.       FontStrikethru  =   0   'False
  91.       FontUnderline   =   0   'False
  92.       Height          =   525
  93.       Index           =   6
  94.       Left            =   3360
  95.       TabIndex        =   17
  96.       Top             =   4380
  97.       Width           =   1035
  98.    End
  99.    Begin TextBox Text2 
  100.       BackColor       =   &H0000FFFF&
  101.       FontBold        =   0   'False
  102.       FontItalic      =   0   'False
  103.       FontName        =   "ＭＳ ゴシック"
  104.       FontSize        =   12.75
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       Height          =   435
  108.       Index           =   3
  109.       Left            =   1920
  110.       TabIndex        =   14
  111.       Text            =   "0"
  112.       Top             =   1800
  113.       Width           =   855
  114.    End
  115.    Begin CommandButton command1 
  116.       Caption         =   "制限"
  117.       FontBold        =   -1  'True
  118.       FontItalic      =   0   'False
  119.       FontName        =   "ＭＳ ゴシック"
  120.       FontSize        =   12.75
  121.       FontStrikethru  =   0   'False
  122.       FontUnderline   =   0   'False
  123.       Height          =   525
  124.       Index           =   5
  125.       Left            =   2370
  126.       TabIndex        =   13
  127.       Top             =   4380
  128.       Width           =   1005
  129.    End
  130.    Begin CommandButton command1 
  131.       Caption         =   "閲覧"
  132.       FontBold        =   0   'False
  133.       FontItalic      =   0   'False
  134.       FontName        =   "ＭＳ ゴシック"
  135.       FontSize        =   12.75
  136.       FontStrikethru  =   0   'False
  137.       FontUnderline   =   0   'False
  138.       Height          =   465
  139.       Index           =   4
  140.       Left            =   5700
  141.       TabIndex        =   12
  142.       Top             =   1260
  143.       Width           =   855
  144.    End
  145.    Begin CommandButton command1 
  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          =   465
  154.       Index           =   3
  155.       Left            =   5700
  156.       TabIndex        =   11
  157.       Top             =   690
  158.       Width           =   855
  159.    End
  160.    Begin CommandButton command1 
  161.       Caption         =   "閲覧"
  162.       FontBold        =   0   'False
  163.       FontItalic      =   0   'False
  164.       FontName        =   "ＭＳ ゴシック"
  165.       FontSize        =   12.75
  166.       FontStrikethru  =   0   'False
  167.       FontUnderline   =   0   'False
  168.       Height          =   465
  169.       Index           =   2
  170.       Left            =   5700
  171.       TabIndex        =   10
  172.       Top             =   150
  173.       Width           =   855
  174.    End
  175.    Begin TextBox Text2 
  176.       BackColor       =   &H0000FFFF&
  177.       FontBold        =   0   'False
  178.       FontItalic      =   0   'False
  179.       FontName        =   "ＭＳ ゴシック"
  180.       FontSize        =   12.75
  181.       FontStrikethru  =   0   'False
  182.       FontUnderline   =   0   'False
  183.       Height          =   435
  184.       Index           =   2
  185.       Left            =   1920
  186.       TabIndex        =   7
  187.       Text            =   "out.txt"
  188.       Top             =   1260
  189.       Width           =   3705
  190.    End
  191.    Begin TextBox Text2 
  192.       BackColor       =   &H0000FFFF&
  193.       FontBold        =   0   'False
  194.       FontItalic      =   0   'False
  195.       FontName        =   "ＭＳ ゴシック"
  196.       FontSize        =   12.75
  197.       FontStrikethru  =   0   'False
  198.       FontUnderline   =   0   'False
  199.       Height          =   435
  200.       Index           =   1
  201.       Left            =   1920
  202.       TabIndex        =   5
  203.       Text            =   "data2.txt"
  204.       Top             =   720
  205.       Width           =   3705
  206.    End
  207.    Begin TextBox Text2 
  208.       BackColor       =   &H0000FFFF&
  209.       FontBold        =   0   'False
  210.       FontItalic      =   0   'False
  211.       FontName        =   "ＭＳ ゴシック"
  212.       FontSize        =   12.75
  213.       FontStrikethru  =   0   'False
  214.       FontUnderline   =   0   'False
  215.       Height          =   435
  216.       Index           =   0
  217.       Left            =   1920
  218.       TabIndex        =   3
  219.       Text            =   "data1.txt"
  220.       Top             =   180
  221.       Width           =   3705
  222.    End
  223.    Begin CommandButton command1 
  224.       Caption         =   "終了"
  225.       FontBold        =   -1  'True
  226.       FontItalic      =   0   'False
  227.       FontName        =   "ＭＳ ゴシック"
  228.       FontSize        =   12.75
  229.       FontStrikethru  =   0   'False
  230.       FontUnderline   =   0   'False
  231.       Height          =   525
  232.       Index           =   1
  233.       Left            =   5400
  234.       TabIndex        =   2
  235.       Top             =   4380
  236.       Width           =   975
  237.    End
  238.    Begin CommandButton command1 
  239.       Caption         =   "実行"
  240.       FontBold        =   -1  'True
  241.       FontItalic      =   0   'False
  242.       FontName        =   "ＭＳ ゴシック"
  243.       FontSize        =   12.75
  244.       FontStrikethru  =   0   'False
  245.       FontUnderline   =   0   'False
  246.       Height          =   525
  247.       Index           =   0
  248.       Left            =   4380
  249.       TabIndex        =   0
  250.       Top             =   4380
  251.       Width           =   1035
  252.    End
  253.    Begin Label Label2 
  254.       Alignment       =   1  '右揃え
  255.       BackStyle       =   0  '透明
  256.       Caption         =   "ﾃﾞﾘﾐﾀ"
  257.       FontBold        =   0   'False
  258.       FontItalic      =   0   'False
  259.       FontName        =   "ＭＳ ゴシック"
  260.       FontSize        =   12.75
  261.       FontStrikethru  =   0   'False
  262.       FontUnderline   =   0   'False
  263.       Height          =   375
  264.       Index           =   4
  265.       Left            =   930
  266.       TabIndex        =   18
  267.       Top             =   2760
  268.       Width           =   825
  269.    End
  270.    Begin Label Label4 
  271.       BackStyle       =   0  '透明
  272.       BorderStyle     =   1  '実線
  273.       Caption         =   "黄色のエリアにはﾌｧｲﾙ名などをもれなく設定して下さい"
  274.       FontBold        =   0   'False
  275.       FontItalic      =   0   'False
  276.       FontName        =   "ＭＳ ゴシック"
  277.       FontSize        =   10.5
  278.       FontStrikethru  =   0   'False
  279.       FontUnderline   =   0   'False
  280.       ForeColor       =   &H000000FF&
  281.       Height          =   735
  282.       Left            =   240
  283.       TabIndex        =   16
  284.       Top             =   4140
  285.       Width           =   1995
  286.    End
  287.    Begin Label Label2 
  288.       Alignment       =   1  '右揃え
  289.       BackStyle       =   0  '透明
  290.       Caption         =   "OFFSET値"
  291.       FontBold        =   0   'False
  292.       FontItalic      =   0   'False
  293.       FontName        =   "ＭＳ ゴシック"
  294.       FontSize        =   12.75
  295.       FontStrikethru  =   0   'False
  296.       FontUnderline   =   0   'False
  297.       Height          =   375
  298.       Index           =   3
  299.       Left            =   270
  300.       TabIndex        =   15
  301.       Top             =   1860
  302.       Width           =   1575
  303.    End
  304.    Begin Label Label3 
  305.       Alignment       =   1  '右揃え
  306.       BackStyle       =   0  '透明
  307.       Caption         =   "返却値"
  308.       FontBold        =   0   'False
  309.       FontItalic      =   0   'False
  310.       FontName        =   "ＭＳ ゴシック"
  311.       FontSize        =   12.75
  312.       FontStrikethru  =   0   'False
  313.       FontUnderline   =   0   'False
  314.       ForeColor       =   &H00FF0000&
  315.       Height          =   345
  316.       Left            =   4050
  317.       TabIndex        =   9
  318.       Top             =   2250
  319.       Width           =   855
  320.    End
  321.    Begin Label Label2 
  322.       Alignment       =   1  '右揃え
  323.       BackStyle       =   0  '透明
  324.       Caption         =   "出力ファイル"
  325.       FontBold        =   0   'False
  326.       FontItalic      =   0   'False
  327.       FontName        =   "ＭＳ ゴシック"
  328.       FontSize        =   12.75
  329.       FontStrikethru  =   0   'False
  330.       FontUnderline   =   0   'False
  331.       Height          =   375
  332.       Index           =   2
  333.       Left            =   300
  334.       TabIndex        =   8
  335.       Top             =   1290
  336.       Width           =   1575
  337.    End
  338.    Begin Label Label2 
  339.       Alignment       =   1  '右揃え
  340.       BackStyle       =   0  '透明
  341.       Caption         =   "ファイル２"
  342.       FontBold        =   0   'False
  343.       FontItalic      =   0   'False
  344.       FontName        =   "ＭＳ ゴシック"
  345.       FontSize        =   12.75
  346.       FontStrikethru  =   0   'False
  347.       FontUnderline   =   0   'False
  348.       Height          =   375
  349.       Index           =   1
  350.       Left            =   300
  351.       TabIndex        =   6
  352.       Top             =   780
  353.       Width           =   1575
  354.    End
  355.    Begin Label Label2 
  356.       Alignment       =   1  '右揃え
  357.       BackStyle       =   0  '透明
  358.       Caption         =   "ファイル１"
  359.       FontBold        =   0   'False
  360.       FontItalic      =   0   'False
  361.       FontName        =   "ＭＳ ゴシック"
  362.       FontSize        =   12.75
  363.       FontStrikethru  =   0   'False
  364.       FontUnderline   =   0   'False
  365.       Height          =   375
  366.       Index           =   0
  367.       Left            =   240
  368.       TabIndex        =   4
  369.       Top             =   240
  370.       Width           =   1635
  371.    End
  372.    Begin Label Label1 
  373.       BackColor       =   &H0000FF00&
  374.       BorderStyle     =   1  '実線
  375.       FontBold        =   0   'False
  376.       FontItalic      =   0   'False
  377.       FontName        =   "ＭＳ ゴシック"
  378.       FontSize        =   12.75
  379.       FontStrikethru  =   0   'False
  380.       FontUnderline   =   0   'False
  381.       Height          =   495
  382.       Left            =   4950
  383.       TabIndex        =   1
  384.       Top             =   2160
  385.       Width           =   705
  386.    End
  387. End
  388. Option Explicit
  389.  
  390. Dim DELM As Integer
  391.  
  392. Sub Command1_Click (INDEX As Integer)
  393. Dim ret
  394. Dim sFile As String
  395. Dim eFile As String
  396. Dim fFile As String
  397. Dim oSet  As Integer
  398. Dim dam   As String
  399. Dim t
  400. Dim ccc As String
  401.  
  402.   ccc = Chr$(13)
  403.   sFile = text2(0).Text
  404.   eFile = text2(1).Text
  405.   fFile = text2(2).Text
  406.   dam = text2(3).Text
  407.  
  408.   Select Case INDEX
  409.   Case 0                                '実行
  410.     If Len(Trim$(dam)) <= 0 Then
  411.       MsgBox "ＯＦＦＳＥＴが指定されていません.", 48, "設定エラー"
  412.       Exit Sub
  413.     End If
  414.     oSet = Val(Trim$(dam))
  415.     If Len(Trim$(sFile)) > 0 Then
  416.       If Len(Trim$(eFile)) > 0 Then
  417.         If Len(Trim$(fFile)) > 0 Then
  418.           screen.MousePointer = 11
  419.           ret = addfiles(sFile, eFile, fFile, oSet, DELM)
  420.           label1.Caption = Str$(ret)
  421.           screen.MousePointer = 1
  422.           Exit Sub
  423.         End If
  424.       End If
  425.     End If
  426.     MsgBox "ファイル名が指定されていません.", 48, "設定エラー"
  427.     Exit Sub
  428.   Case 1                                '終了
  429.     Unload Me
  430.   Case 2                                '閲覧
  431.     t = Shell("notepad.exe " + sFile, 1)
  432.   Case 3                                '閲覧
  433.     t = Shell("notepad.exe " + eFile, 1)
  434.   Case 4                                '閲覧
  435.     t = Shell("notepad.exe " + fFile, 1)
  436.   Case 6                                '解説
  437.     dam = ""
  438.     dam = dam + "＜機能概要＞" + ccc
  439.     dam = dam + "　ファイルの結合といえば一般的にはファイルの最終部分からﾚｺｰﾄﾞとして" + ccc
  440.     dam = dam + "アペンドしていくことが一般的ですが本関数は、レコード毎の末尾に結合" + ccc
  441.     dam = dam + "するという、ちょっと変わった機能を持っています。　さらには、ファイル" + ccc
  442.     dam = dam + "１に対してその先頭レコードを０番とすると、手前か、後から等と追加して" + ccc
  443.     dam = dam + "いく位置を任意に指定できることが特色となっています。" + ccc + ccc
  444.     dam = dam + "＜ＶＢでの呼び出し方法＞" + ccc
  445.     dam = dam + "　①定義方法はＶＢプログラムソースのEXCEEDF.BASを参照して下さい。" + ccc
  446.     dam = dam + "　②引数について" + ccc
  447.     dam = dam + "    addfiles%( P1 , P2 , P3 , P4 )" + ccc
  448.     dam = dam + "　　　P1:結合の基準となるファイル名称" + ccc
  449.     dam = dam + "　　　P2:結合するファイル名称" + ccc
  450.     dam = dam + "　　　P3:結合結果のファイル名称（新規に作成されます。）" + ccc
  451.     dam = dam + "　　　P4:どこから書き込み始めるかをレコード番号値で指定します。" + ccc
  452.     dam = dam + "　　　　　0を指定するとＰ１の先頭レコードから結合します。" + ccc
  453.     dam = dam + "　　　　　ｰnを指定するとＰ１の先頭を0として-nレコードから結合します。" + ccc
  454.     dam = dam + "　　　　　nを指定するとＰ１の先頭レコードを0としてnレコード目から結合します。" + ccc
  455.     dam = dam + "　　　P5:1,ｶﾝﾏ　2,ﾌﾞﾗﾝｸ　3,タブ　0,区切りなしを指定します。" + ccc
  456.     dam = dam + ccc
  457.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  458.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  459.     MsgBox dam, 64, "ファイルの列結合　Ver　1.00"
  460.   Case 5                                '制限
  461.     dam = ""
  462.     dam = dam + "＜制限事項＞" + ccc
  463.     dam = dam + "　（１）ファイル１ファイル２ともに１レコード以上のﾃﾞｰﾀを持つこと" + ccc
  464.     dam = dam + "　（２）ファイル１とファイル２の結合結果のレコード長が最大1024を越えないこと" + ccc
  465.     dam = dam + "　（３）結合結果のレコード数が32767を越えないこと" + ccc
  466.     dam = dam + "　（４）ファイル１ファイル２は何れもテキスト形式であり１ﾚｺｰﾄﾞの区切りが改行であること" + ccc
  467.     dam = dam + "　（５）ファイル１名ファイル２名及び出力ファイル名は異なっていること" + ccc + ccc
  468.     dam = dam + "以上の点を制限として考えておりますが、何か問題がありましたらメールにてご連絡下さい" + ccc
  469.     dam = dam + ccc
  470.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  471.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  472.     MsgBox dam, 64, "ファイルの列結合　Ver　1.00"
  473.   End Select
  474. End Sub
  475.  
  476. Sub Form_Load ()
  477. DELM = 0
  478. End Sub
  479.  
  480. Sub OPT_Click (INDEX As Integer)
  481.   If OPT(INDEX).Value Then
  482.     DELM = INDEX
  483.   End If
  484. End Sub
  485.  
  486.