DOS/V Power Report 1996 February/VPR9602A.ISO/fwindows/exds100/spack/exceed3.frm

Text File | 1995-09-29 | 6KB | 178 lines

VERSION 2.00
Begin Form E2A
   BackColor       =   &H00C0C0C0&
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "ＭＳ ゴシック"
   FontSize        =   12.75
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   3510
   Icon            =   EXCEED3.FRX:0000
   Left            =   1350
   LinkTopic       =   "Form1"
   ScaleHeight     =   3060
   ScaleWidth      =   7530
   Top             =   1560
   Width           =   7650
   Begin CommandButton QQQ
      Caption         =   "Help"
      Height          =   375
      Index           =   1
      Left            =   3750
      TabIndex        =   5
      Top             =   2520
      Width           =   1545
   End
   Begin CommandButton CMD
      Caption         =   "実行"
      Height          =   495
      Left            =   2580
      TabIndex        =   4
      Top             =   2400
      Width           =   1095
   End
   Begin CommandButton QQQ
      Caption         =   "Quit"
      Height          =   375
      Index           =   0
      Left            =   5370
      TabIndex        =   2
      Top             =   2520
      Width           =   1545
   End
   Begin TextBox Text1
      BackColor       =   &H0000FFFF&
      Height          =   495
      Left            =   180
      TabIndex        =   1
      Text            =   "EBC1.TXT"
      Top             =   330
      Width           =   7065
   End
   Begin Label Label4
      BackStyle       =   0  '透明
      Caption         =   "返却値　0:ｴﾗｰ　n:変換結果ｻｲｽﾞ"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   12.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   345
      Left            =   810
      TabIndex        =   8
      Top             =   1830
      Width           =   3855
   End
   Begin Label Label2
      BackStyle       =   0  '透明
      Caption         =   "ASCII"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Index           =   2
      Left            =   210
      TabIndex        =   7
      Top             =   930
      Width           =   705
   End
   Begin Label Label2
      BackStyle       =   0  '透明
      Caption         =   "１行目にEBCDIC文字列を持ったﾌｧｲﾙ名（先頭行しか読み込みません)"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Index           =   0
      Left            =   210
      TabIndex        =   6
      Top             =   120
      Width           =   6015
   End
   Begin Label Label3
      BackColor       =   &H0000FF00&
      BorderStyle     =   1  '実線
      Height          =   465
      Left            =   210
      TabIndex        =   3
      Top             =   1770
      Width           =   495
   End
   Begin Label Label1
      BackColor       =   &H0000FF00&
      BorderStyle     =   1  '実線
      Height          =   555
      Left            =   180
      TabIndex        =   0
      Top             =   1140
      Width           =   7095
   End
End
Option Explicit

Dim entmode As Integer

Sub CMD_Click ()
Dim s1 As String, S2    As String * 256
Dim RT
Dim FP, FILENAmes

  FILENAmes = TEXT1.Text
  '
  FP = FreeFile
  Open FILENAmes For Input As #FP
  Line Input #FP, s1
  Close #FP
  '
  RT = EBC2ASC%(s1, S2)
  '
  Label1.Caption = S2
  LABEL3.Caption = Str$(RT)

End Sub

Sub Form_Load ()
Dim i As Integer
i = StrMain.CMD(0).Tag
Caption = StrMain.CMD(i).Caption + "  （" + StrMain.Label1(i).Caption + "）  " + "　動作試験"
entmode = 0
End Sub

Sub QQQ_Click (index As Integer)
Dim ccc As String
Dim mm  As String
  ccc = Chr$(13)
  Select Case index
  Case 0
    Unload Me
  Case 1
    mm = mm + "ＥＢＣ２ａｓｃ" + ccc + ccc
    mm = mm + "　＜概要＞ＥＢＣＤＩＣｺｰﾄﾞの文字列をＡＳＣＩＩの文字列に変換します。" + ccc + ccc
    mm = mm + "　＜引数＞" + ccc
    mm = mm + "　　　　　＜ＥＢＣＤＩＣ文字列＞　＜変換結果文字列領域＞" + ccc + ccc
    mm = mm + "　＜注意＞" + ccc
    mm = mm + "　　　　　変換結果文字列は２５６バイト以上の領域を必ず指定して下さい。" + ccc
    mm = mm + "　　　　　　DIM OutBuffer As String * 256" + ccc + ccc
    mm = mm + "　＜返却値＞　　0：エラー　n>0:正常" + ccc + ccc
    mm = mm + "　＜特記事項＞　文字列の末尾に改行がある場合は無条件に削除します。" + ccc
    mm = mm + "　　　　　　　　外字コード・EBCDIK等についてはサポートされていません。" + ccc
    mm = mm + "　＜お断り＞　本関数はテストデータがなかったので実はまともな試験は" + ccc
    mm = mm + "　　　　　　　１回もやっていません、EBCDICのテーブルとASCIIの相互変換" + ccc
    mm = mm + "　　　　　　　をやっているだけなので、たぶん問題ないと思いますが。　" + ccc
    mm = mm + "　　　　　　　EBCDICのデータをお持ちの方は、部分で結構ですのでデータを" + ccc
    mm = mm + "　　　　　　　是非お送り下さい。厚かましいお願いで申し訳ありませんがよ" + ccc
    mm = mm + "　　　　　　　ろしくお願いします。" + ccc + ccc
    mm = mm + "　　　　転送先　LDI04643　安藤まで"
    MsgBox mm
  End Select
End Sub