home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / fwindows / archive / exds100.lzh / SPACK.LZH / EXCEEDV5.FRM < prev    next >
Text File  |  1995-09-30  |  12KB  |  365 lines
  1. VERSION 2.00
  2. Begin Form Unix 
  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          =   3510
  12.    Icon            =   EXCEEDV5.FRX:0000
  13.    Left            =   5610
  14.    LinkTopic       =   "Form2"
  15.    ScaleHeight     =   3060
  16.    ScaleWidth      =   6975
  17.    Top             =   1785
  18.    Width           =   7095
  19.    Begin OptionButton OPT 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "UNIX -> DOS"
  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           =   0
  30.       Left            =   1890
  31.       TabIndex        =   14
  32.       Top             =   1230
  33.       Value           =   -1  'True
  34.       Width           =   1935
  35.    End
  36.    Begin OptionButton OPT 
  37.       BackColor       =   &H00C0C0C0&
  38.       Caption         =   "DOS -> UNIX"
  39.       FontBold        =   0   'False
  40.       FontItalic      =   0   'False
  41.       FontName        =   "ＭＳ ゴシック"
  42.       FontSize        =   12.75
  43.       FontStrikethru  =   0   'False
  44.       FontUnderline   =   0   'False
  45.       Height          =   315
  46.       Index           =   1
  47.       Left            =   1890
  48.       TabIndex        =   13
  49.       Top             =   1620
  50.       Width           =   2085
  51.    End
  52.    Begin CommandButton command1 
  53.       Caption         =   "解説"
  54.       FontBold        =   -1  'True
  55.       FontItalic      =   0   'False
  56.       FontName        =   "ＭＳ ゴシック"
  57.       FontSize        =   12.75
  58.       FontStrikethru  =   0   'False
  59.       FontUnderline   =   0   'False
  60.       Height          =   525
  61.       Index           =   6
  62.       Left            =   3270
  63.       TabIndex        =   12
  64.       Top             =   2310
  65.       Width           =   1035
  66.    End
  67.    Begin CommandButton command1 
  68.       Caption         =   "制限"
  69.       FontBold        =   -1  'True
  70.       FontItalic      =   0   'False
  71.       FontName        =   "ＭＳ ゴシック"
  72.       FontSize        =   12.75
  73.       FontStrikethru  =   0   'False
  74.       FontUnderline   =   0   'False
  75.       Height          =   525
  76.       Index           =   5
  77.       Left            =   2280
  78.       TabIndex        =   10
  79.       Top             =   2310
  80.       Width           =   1005
  81.    End
  82.    Begin CommandButton command1 
  83.       Caption         =   "閲覧"
  84.       FontBold        =   0   'False
  85.       FontItalic      =   0   'False
  86.       FontName        =   "ＭＳ ゴシック"
  87.       FontSize        =   12.75
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       Height          =   465
  91.       Index           =   4
  92.       Left            =   5700
  93.       TabIndex        =   9
  94.       Top             =   690
  95.       Width           =   855
  96.    End
  97.    Begin CommandButton command1 
  98.       Caption         =   "閲覧"
  99.       FontBold        =   0   'False
  100.       FontItalic      =   0   'False
  101.       FontName        =   "ＭＳ ゴシック"
  102.       FontSize        =   12.75
  103.       FontStrikethru  =   0   'False
  104.       FontUnderline   =   0   'False
  105.       Height          =   465
  106.       Index           =   2
  107.       Left            =   5700
  108.       TabIndex        =   8
  109.       Top             =   150
  110.       Width           =   855
  111.    End
  112.    Begin TextBox Text2 
  113.       BackColor       =   &H0000FFFF&
  114.       FontBold        =   0   'False
  115.       FontItalic      =   0   'False
  116.       FontName        =   "ＭＳ ゴシック"
  117.       FontSize        =   12.75
  118.       FontStrikethru  =   0   'False
  119.       FontUnderline   =   0   'False
  120.       Height          =   435
  121.       Index           =   2
  122.       Left            =   1920
  123.       TabIndex        =   5
  124.       Text            =   "out.txt"
  125.       Top             =   690
  126.       Width           =   3705
  127.    End
  128.    Begin TextBox Text2 
  129.       BackColor       =   &H0000FFFF&
  130.       FontBold        =   0   'False
  131.       FontItalic      =   0   'False
  132.       FontName        =   "ＭＳ ゴシック"
  133.       FontSize        =   12.75
  134.       FontStrikethru  =   0   'False
  135.       FontUnderline   =   0   'False
  136.       Height          =   435
  137.       Index           =   0
  138.       Left            =   1920
  139.       TabIndex        =   3
  140.       Text            =   "data9.txt"
  141.       Top             =   180
  142.       Width           =   3705
  143.    End
  144.    Begin CommandButton command1 
  145.       Caption         =   "終了"
  146.       FontBold        =   -1  'True
  147.       FontItalic      =   0   'False
  148.       FontName        =   "ＭＳ ゴシック"
  149.       FontSize        =   12.75
  150.       FontStrikethru  =   0   'False
  151.       FontUnderline   =   0   'False
  152.       Height          =   525
  153.       Index           =   1
  154.       Left            =   5310
  155.       TabIndex        =   2
  156.       Top             =   2310
  157.       Width           =   975
  158.    End
  159.    Begin CommandButton command1 
  160.       Caption         =   "実行"
  161.       FontBold        =   -1  'True
  162.       FontItalic      =   0   'False
  163.       FontName        =   "ＭＳ ゴシック"
  164.       FontSize        =   12.75
  165.       FontStrikethru  =   0   'False
  166.       FontUnderline   =   0   'False
  167.       Height          =   525
  168.       Index           =   0
  169.       Left            =   4290
  170.       TabIndex        =   0
  171.       Top             =   2310
  172.       Width           =   1035
  173.    End
  174.    Begin Label Label2 
  175.       Alignment       =   1  '右揃え
  176.       BackStyle       =   0  '透明
  177.       Caption         =   "ｵﾌﾟｼｮﾝ"
  178.       FontBold        =   0   'False
  179.       FontItalic      =   0   'False
  180.       FontName        =   "ＭＳ ゴシック"
  181.       FontSize        =   12.75
  182.       FontStrikethru  =   0   'False
  183.       FontUnderline   =   0   'False
  184.       Height          =   375
  185.       Index           =   4
  186.       Left            =   600
  187.       TabIndex        =   15
  188.       Top             =   1410
  189.       Width           =   1125
  190.    End
  191.    Begin Label Label4 
  192.       BackStyle       =   0  '透明
  193.       BorderStyle     =   1  '実線
  194.       Caption         =   "黄色のエリアにはﾌｧｲﾙ名などをもれなく設定して下さい"
  195.       FontBold        =   0   'False
  196.       FontItalic      =   0   'False
  197.       FontName        =   "ＭＳ ゴシック"
  198.       FontSize        =   10.5
  199.       FontStrikethru  =   0   'False
  200.       FontUnderline   =   0   'False
  201.       ForeColor       =   &H000000FF&
  202.       Height          =   735
  203.       Left            =   150
  204.       TabIndex        =   11
  205.       Top             =   2070
  206.       Width           =   1995
  207.    End
  208.    Begin Label Label3 
  209.       Alignment       =   1  '右揃え
  210.       BackStyle       =   0  '透明
  211.       Caption         =   "返却値"
  212.       FontBold        =   0   'False
  213.       FontItalic      =   0   'False
  214.       FontName        =   "ＭＳ ゴシック"
  215.       FontSize        =   12.75
  216.       FontStrikethru  =   0   'False
  217.       FontUnderline   =   0   'False
  218.       ForeColor       =   &H00FF0000&
  219.       Height          =   345
  220.       Left            =   4020
  221.       TabIndex        =   7
  222.       Top             =   1350
  223.       Width           =   855
  224.    End
  225.    Begin Label Label2 
  226.       Alignment       =   1  '右揃え
  227.       BackStyle       =   0  '透明
  228.       Caption         =   "出力ファイル"
  229.       FontBold        =   0   'False
  230.       FontItalic      =   0   'False
  231.       FontName        =   "ＭＳ ゴシック"
  232.       FontSize        =   12.75
  233.       FontStrikethru  =   0   'False
  234.       FontUnderline   =   0   'False
  235.       Height          =   375
  236.       Index           =   2
  237.       Left            =   300
  238.       TabIndex        =   6
  239.       Top             =   720
  240.       Width           =   1575
  241.    End
  242.    Begin Label Label2 
  243.       Alignment       =   1  '右揃え
  244.       BackStyle       =   0  '透明
  245.       Caption         =   "ファイル１"
  246.       FontBold        =   0   'False
  247.       FontItalic      =   0   'False
  248.       FontName        =   "ＭＳ ゴシック"
  249.       FontSize        =   12.75
  250.       FontStrikethru  =   0   'False
  251.       FontUnderline   =   0   'False
  252.       Height          =   375
  253.       Index           =   0
  254.       Left            =   240
  255.       TabIndex        =   4
  256.       Top             =   240
  257.       Width           =   1635
  258.    End
  259.    Begin Label Label1 
  260.       BackColor       =   &H0000FF00&
  261.       BorderStyle     =   1  '実線
  262.       FontBold        =   0   'False
  263.       FontItalic      =   0   'False
  264.       FontName        =   "ＭＳ ゴシック"
  265.       FontSize        =   12.75
  266.       FontStrikethru  =   0   'False
  267.       FontUnderline   =   0   'False
  268.       Height          =   495
  269.       Left            =   4920
  270.       TabIndex        =   1
  271.       Top             =   1260
  272.       Width           =   705
  273.    End
  274. End
  275. Option Explicit
  276.  
  277. Dim DELM As Integer
  278.  
  279. Sub Command1_Click (INDEX As Integer)
  280. Dim ret
  281. Dim sFile As String
  282. Dim fFile As String
  283. Dim dam   As String
  284. Dim t
  285. Dim ccc As String
  286.  
  287.   ccc = Chr$(13)
  288.   sFile = text2(0).Text
  289.   fFile = text2(2).Text
  290.  
  291.   Select Case INDEX
  292.   Case 0                                '実行
  293.     If Len(Trim$(sFile)) > 0 Then
  294.       If Len(Trim$(fFile)) > 0 Then
  295.         screen.MousePointer = 11
  296.         If OPT(0).Value Then
  297.           ret = UnixDos%(sFile, fFile, 1)
  298.         Else
  299.           ret = UnixDos%(sFile, fFile, 0)
  300.         End If
  301.         Label1.Caption = Str$(ret)
  302.         screen.MousePointer = 1
  303.         Exit Sub
  304.       End If
  305.     End If
  306.     MsgBox "ファイル名が指定されていません.", 48, "設定エラー"
  307.     Exit Sub
  308.   Case 1                                '終了
  309.     Unload Me
  310.   Case 2                                '閲覧
  311.     t = Shell("notepad.exe " + sFile, 1)
  312.   Case 4                                '閲覧
  313.     t = Shell("notepad.exe " + fFile, 1)
  314.   Case 6                                '解説
  315.     dam = ""
  316.     dam = dam + "＜機能概要＞  ＵｎｉｘＤｏｓ" + ccc + ccc
  317.     dam = dam + "　ファイル単位で、ＵＮＩＸ<->ＤＯＳの変換を行います" + ccc
  318.     dam = dam + "　" + ccc
  319.     dam = dam + "＜ＶＢでの呼び出し方法＞" + ccc + ccc
  320.     dam = dam + "　①定義方法はＶＢプログラムソースのEXCEEDF.BASを参照して下さい。" + ccc
  321.     dam = dam + "　②引数について" + ccc
  322.     dam = dam + "    UnixDos%( P1 , P2 , P3  )" + ccc
  323.     dam = dam + "　　　P1:変換元ファイル名称" + ccc
  324.     dam = dam + "　　　P2:変換後ファイル名称" + ccc
  325.     dam = dam + "　　　P3:変換オプション" + ccc
  326.     dam = dam + "　　　　　1 を変換元ファイルをＵＮＩＸ形式としてＤＯＳファイルを生成します。" + ccc
  327.     dam = dam + "　　　　　0 を変換元ファイルをＤＯＳ形式としてＵＮＩＸファイルを生成します。" + ccc + ccc
  328.     dam = dam + "＜返却値＞ 0:エラー n:正常" + ccc + ccc
  329.     dam = dam + ccc
  330.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  331.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  332.     MsgBox dam, 64, version
  333.   Case 5                                '制限
  334.     dam = ""
  335.     dam = dam + "＜制限事項＞" + ccc + ccc
  336.     dam = dam + "　（１）変換元ファイルには少なくとも１レコード以上のﾃﾞｰﾀがあること。" + ccc
  337.     dam = dam + "　（２）テキストファイルを入力形式とします。" + ccc
  338.     dam = dam + "　（３）レコード長は1024を越えないこと" + ccc
  339.     dam = dam + "　（４）ファイル１、出力ファイル名は異なっていること" + ccc + ccc
  340.     dam = dam + "以上の点を制限として考えておりますが、何か問題がありましたらメールにてご連絡下さい" + ccc
  341.     dam = dam + ccc
  342.     dam = dam + "　メールはLDI04643へどうぞ" + ccc
  343.     dam = dam + "　　　　　　　　　　　　　　　　　　　　　(C)　EXCEED　CORP.　1995　"
  344.     MsgBox dam, 64, version
  345.   End Select
  346. End Sub
  347.  
  348. Sub Form_Load ()
  349. Dim i
  350.   i = FileMain.CMD(0).Tag
  351.   Caption = FileMain.CMD(i).Caption + " (" + FileMain.Label1(i).Caption + ")"
  352.   DELM = 0
  353. top = 200
  354. left = 200
  355. End Sub
  356.  
  357. Sub OPT_Click (INDEX As Integer)
  358.   If OPT(1).Value Then
  359.     command1(4).Enabled = False
  360.   Else
  361.     command1(4).Enabled = True
  362.   End If
  363. End Sub
  364.  
  365.