home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / archive / exds100.lzh / SPACK.LZH / EXCEEDV8.FRM < prev    next >
Text File  |  1995-09-30  |  11KB  |  330 lines
  1. VERSION 2.00
  2. Begin Form Sele 
  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          =   3495
  12.    Icon            =   EXCEEDV8.FRX:0000
  13.    Left            =   1140
  14.    LinkTopic       =   "Form2"
  15.    ScaleHeight     =   3045
  16.    ScaleWidth      =   7005
  17.    Top             =   1320
  18.    Width           =   7125
  19.    Begin CommandButton command1 
  20.       Caption         =   "解説"
  21.       FontBold        =   -1  'True
  22.       FontItalic      =   0   'False
  23.       FontName        =   "ＭＳ ゴシック"
  24.       FontSize        =   12.75
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   525
  28.       Index           =   6
  29.       Left            =   3420
  30.       TabIndex        =   11
  31.       Top             =   2220
  32.       Width           =   1035
  33.    End
  34.    Begin CommandButton command1 
  35.       Caption         =   "制限"
  36.       FontBold        =   -1  'True
  37.       FontItalic      =   0   'False
  38.       FontName        =   "ＭＳ ゴシック"
  39.       FontSize        =   12.75
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       Height          =   525
  43.       Index           =   5
  44.       Left            =   2430
  45.       TabIndex        =   9
  46.       Top             =   2220
  47.       Width           =   1005
  48.    End
  49.    Begin CommandButton command1 
  50.       Caption         =   "閲覧"
  51.       FontBold        =   0   'False
  52.       FontItalic      =   0   'False
  53.       FontName        =   "ＭＳ ゴシック"
  54.       FontSize        =   12.75
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       Height          =   465
  58.       Index           =   2
  59.       Left            =   5700
  60.       TabIndex        =   8
  61.       Top             =   150
  62.       Width           =   855
  63.    End
  64.    Begin TextBox Text2 
  65.       BackColor       =   &H0000FFFF&
  66.       FontBold        =   0   'False
  67.       FontItalic      =   0   'False
  68.       FontName        =   "ＭＳ ゴシック"
  69.       FontSize        =   12.75
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   435
  73.       Index           =   1
  74.       Left            =   1920
  75.       TabIndex        =   5
  76.       Text            =   "1"
  77.       Top             =   720
  78.       Width           =   645
  79.    End
  80.    Begin TextBox Text2 
  81.       BackColor       =   &H0000FFFF&
  82.       FontBold        =   0   'False
  83.       FontItalic      =   0   'False
  84.       FontName        =   "ＭＳ ゴシック"
  85.       FontSize        =   12.75
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   435
  89.       Index           =   0
  90.       Left            =   1920
  91.       TabIndex        =   3
  92.       Text            =   "data12.txt"
  93.       Top             =   180
  94.       Width           =   3705
  95.    End
  96.    Begin CommandButton command1 
  97.       Caption         =   "終了"
  98.       FontBold        =   -1  'True
  99.       FontItalic      =   0   'False
  100.       FontName        =   "ＭＳ ゴシック"
  101.       FontSize        =   12.75
  102.       FontStrikethru  =   0   'False
  103.       FontUnderline   =   0   'False
  104.       Height          =   525
  105.       Index           =   1
  106.       Left            =   5460
  107.       TabIndex        =   2
  108.       Top             =   2220
  109.       Width           =   975
  110.    End
  111.    Begin CommandButton command1 
  112.       Caption         =   "実行"
  113.       FontBold        =   -1  'True
  114.       FontItalic      =   0   'False
  115.       FontName        =   "ＭＳ ゴシック"
  116.       FontSize        =   12.75
  117.       FontStrikethru  =   0   'False
  118.       FontUnderline   =   0   'False
  119.       Height          =   525
  120.       Index           =   0
  121.       Left            =   4440
  122.       TabIndex        =   0
  123.       Top             =   2220
  124.       Width           =   1035
  125.    End
  126.    Begin Label Label2 
  127.       Alignment       =   1  '右揃え
  128.       BackStyle       =   0  '透明
  129.       Caption         =   "読込内容"
  130.       FontBold        =   0   'False
  131.       FontItalic      =   0   'False
  132.       FontName        =   "ＭＳ ゴシック"
  133.       FontSize        =   12.75
  134.       FontStrikethru  =   0   'False
  135.       FontUnderline   =   0   'False
  136.       Height          =   375
  137.       Index           =   2
  138.       Left            =   60
  139.       TabIndex        =   13
  140.       Top             =   1350
  141.       Width           =   1815
  142.    End
  143.    Begin Label Label5 
  144.       BackColor       =   &H0000FF00&
  145.       BorderStyle     =   1  '実線
  146.       FontBold        =   0   'False
  147.       FontItalic      =   0   'False
  148.       FontName        =   "ＭＳ ゴシック"
  149.       FontSize        =   12.75
  150.       FontStrikethru  =   0   'False
  151.       FontUnderline   =   0   'False
  152.       Height          =   495
  153.       Left            =   1920
  154.       TabIndex        =   12
  155.       Top             =   1290
  156.       Width           =   4635
  157.    End
  158.    Begin Label Label4 
  159.       BackStyle       =   0  '透明
  160.       BorderStyle     =   1  '実線
  161.       Caption         =   "黄色のエリアにはﾌｧｲﾙ名などをもれなく設定して下さい"
  162.       FontBold        =   0   'False
  163.       FontItalic      =   0   'False
  164.       FontName        =   "ＭＳ ゴシック"
  165.       FontSize        =   10.5
  166.       FontStrikethru  =   0   'False
  167.       FontUnderline   =   0   'False
  168.       ForeColor       =   &H000000FF&
  169.       Height          =   735
  170.       Left            =   330
  171.       TabIndex        =   10
  172.       Top             =   1980
  173.       Width           =   1995
  174.    End
  175.    Begin Label Label3 
  176.       Alignment       =   1  '右揃え
  177.       BackStyle       =   0  '透明
  178.       Caption         =   "返却値"
  179.       FontBold        =   0   'False
  180.       FontItalic      =   0   'False
  181.       FontName        =   "ＭＳ ゴシック"
  182.       FontSize        =   12.75
  183.       FontStrikethru  =   0   'False
  184.       FontUnderline   =   0   'False
  185.       ForeColor       =   &H00FF0000&
  186.       Height          =   345
  187.       Left            =   3960
  188.       TabIndex        =   7
  189.       Top             =   810
  190.       Width           =   855
  191.    End
  192.    Begin Label Label2 
  193.       Alignment       =   1  '右揃え
  194.       BackStyle       =   0  '透明
  195.       Caption         =   "読込ﾚｺｰﾄﾞ番号"
  196.       FontBold        =   0   'False
  197.       FontItalic      =   0   'False
  198.       FontName        =   "ＭＳ ゴシック"
  199.       FontSize        =   12.75
  200.       FontStrikethru  =   0   'False
  201.       FontUnderline   =   0   'False
  202.       Height          =   375
  203.       Index           =   1
  204.       Left            =   60
  205.       TabIndex        =   6
  206.       Top             =   780
  207.       Width           =   1815
  208.    End
  209.    Begin Label Label2 
  210.       Alignment       =   1  '右揃え
  211.       BackStyle       =   0  '透明
  212.       Caption         =   "ファイル１"
  213.       FontBold        =   0   'False
  214.       FontItalic      =   0   'False
  215.       FontName        =   "ＭＳ ゴシック"
  216.       FontSize        =   12.75
  217.       FontStrikethru  =   0   'False
  218.       FontUnderline   =   0   'False
  219.       Height          =   375
  220.       Index           =   0
  221.       Left            =   240
  222.       TabIndex        =   4
  223.       Top             =   240
  224.       Width           =   1635
  225.    End
  226.    Begin Label Label1 
  227.       BackColor       =   &H0000FF00&
  228.       BorderStyle     =   1  '実線
  229.       FontBold        =   0   'False
  230.       FontItalic      =   0   'False
  231.       FontName        =   "ＭＳ ゴシック"
  232.       FontSize        =   12.75
  233.       FontStrikethru  =   0   'False
  234.       FontUnderline   =   0   'False
  235.       Height          =   495
  236.       Left            =   4890
  237.       TabIndex        =   1
  238.       Top             =   720
  239.       Width           =   705
  240.    End
  241. End
  242. Option Explicit
  243.  
  244. Dim DELM As Integer
  245.  
  246. Sub Command1_Click (INDEX As Integer)
  247. Dim ret
  248. Dim rdat  As String * 1024  '受け取りバッファには１０２４以上の領域を設定して下さい
  249. Dim sFile As String
  250. Dim oRec  As Integer
  251. Dim dam   As String
  252. Dim t
  253. Dim ccc As String
  254.  
  255.   ccc = Chr$(13)
  256.   sFile = text2(0).Text
  257.   dam = text2(1).Text
  258.  
  259.   Select Case INDEX
  260.   Case 0                                '実行
  261.     label5.Caption = ""
  262.     If Len(Trim$(dam)) <= 0 Then
  263.       MsgBox "レコード番号が指定されていません.", 48, "設定エラー"
  264.       Exit Sub
  265.     End If
  266.     oRec = Val(Trim$(dam))
  267.     If Len(Trim$(sFile)) > 0 Then
  268.       screen.MousePointer = 11
  269.       ret = SelectFiles%(sFile, oRec, rdat)
  270.       If ret > 0 Then
  271.         label5.Caption = rdat
  272.       End If
  273.       Label1.Caption = Str$(ret)
  274.       screen.MousePointer = 1
  275.       Exit Sub
  276.     End If
  277.     MsgBox "ファイル名が指定されていません.", 48, "設定エラー"
  278.     Exit Sub
  279.   Case 1                                '終了
  280.     Unload Me
  281.   Case 2                                '閲覧
  282.     t = Shell("notepad.exe " + sFile, 1)
  283.   Case 6                                '解説
  284.     dam = ""
  285.     dam = dam + "＜機能概要＞  ＳｅｌｅｃｔＦｉｌｅｓ" + ccc + ccc
  286.     dam = dam + "　可変長レコードのテキストファイルから指定のレコードを取り出します。" + ccc
  287.     dam = dam + "　大きなファイルになるとパフォーマンスが悪くなりますが、ちょっとした読込には" + ccc
  288.     dam = dam + "　便利な関数です。" + ccc
  289.     dam = dam + "　読込バッファは必ず1024以上を固定でとって下さい。" + ccc
  290.     dam = dam + "　　　（例）Dim　buffer　As　String　*　1024" + ccc + ccc
  291.     dam = dam + "＜ＶＢでの呼び出し方法＞" + ccc + ccc
  292.     dam = dam + "　①定義方法はＶＢプログラムソースのEXCEEDF.BASを参照して下さい。" + ccc
  293.     dam = dam + "　②引数について" + ccc
  294.     dam = dam + "    SelectFiles%( P1 , P2 , P3 )" + ccc
  295.     dam = dam + "　　　P1:読込ファイル名称" + ccc
  296.     dam = dam + "　　　P2:読込レコード番号（1ｵﾘｼﾞﾝ）" + ccc
  297.     dam = dam + "　　　P3:読込領域" + ccc
  298.     dam = dam + "　③返却値" + ccc
  299.     dam = dam + "　　　ret<=0　：読み込めなっかたかエラーの場合" + ccc
  300.     dam = dam + "　　　ret> 0　：正常の場合はレコードサイズ" + ccc
  301.     dam = dam + ccc
  302.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  303.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  304.     MsgBox dam, 64, version
  305.   Case 5                                '制限
  306.     dam = ""
  307.     dam = dam + "＜制限事項＞" + ccc + ccc
  308.     dam = dam + "　（１）ファイル１は１レコード以上のﾃﾞｰﾀを持つこと" + ccc
  309.     dam = dam + "　（２）ファイル１のレコード長が最大1024を越えないこと" + ccc
  310.     dam = dam + "　（３）レコード数が32767を越えないこと" + ccc
  311.     dam = dam + "　（４）ファイル１ファイル２は何れもテキスト形式であり１ﾚｺｰﾄﾞの区切りが改行であること" + ccc
  312.     dam = dam + "以上の点を制限として考えておりますが、何か問題がありましたらメールにてご連絡下さい" + ccc
  313.     dam = dam + ccc
  314.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  315.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  316.     MsgBox dam, 64, version
  317.   End Select
  318. End Sub
  319.  
  320. Sub Form_Load ()
  321. Dim i
  322.   i = Filemain.CMD(0).Tag
  323.   Caption = Filemain.CMD(i).Caption + " (" + Filemain.Label1(i).Caption + ")"
  324.   DELM = 0
  325.   
  326. top = 200
  327. left = 200
  328. End Sub
  329.  
  330.