DOS/V Power Report 1996 February/VPR9602A.ISO/fwindows/archive/exds100.lzh/SPACK.LZH/EXCEED2.FRM

Text File | 1995-09-30 | 5KB | 174 lines

VERSION 2.00
Begin Form E2S
   BackColor       =   &H00C0C0C0&
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "ＭＳ ゴシック"
   FontSize        =   12.75
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   3510
   Icon            =   EXCEED2.FRX:0000
   Left            =   2490
   LinkTopic       =   "Form1"
   ScaleHeight     =   3060
   ScaleWidth      =   7530
   Top             =   3090
   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            =   "EUC1.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         =   "Sjis"
      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           =   525
   End
   Begin Label Label2
      BackStyle       =   0  '透明
      Caption         =   "１行目にEUC文字列を持ったﾌｧｲﾙ名（先頭行しか読み込みません)"
      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 = EUC2SJ%(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 + "　　　　　　　　外字コード等についてはサポートされていません。" + ccc
    MM = MM + "　　　　　　　　" + ccc
    MM = MM + "　　　　　　　　" + ccc
    MM = MM + "　　　　　　　　"
    MsgBox MM
  End Select
End Sub