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

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

VERSION 2.00
Begin Form S2E
   BackColor       =   &H00C0C0C0&
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "ＭＳ ゴシック"
   FontSize        =   12.75
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   3510
   Icon            =   EXCEED1.FRX:0000
   Left            =   930
   LinkTopic       =   "Form1"
   ScaleHeight     =   3060
   ScaleWidth      =   7530
   Top             =   1305
   Width           =   7650
   Begin TextBox Text1
      BackColor       =   &H0000FFFF&
      Height          =   495
      Index           =   1
      Left            =   180
      TabIndex        =   7
      Text            =   "EUC2.TXT"
      Top             =   1140
      Width           =   7065
   End
   Begin CommandButton QQQ
      Caption         =   "Help"
      Height          =   375
      Index           =   1
      Left            =   3720
      TabIndex        =   4
      Top             =   2550
      Width           =   1545
   End
   Begin CommandButton CMD
      Caption         =   "実行"
      Height          =   495
      Left            =   2490
      TabIndex        =   3
      Top             =   2430
      Width           =   1095
   End
   Begin CommandButton QQQ
      Caption         =   "Quit"
      Height          =   375
      Index           =   0
      Left            =   5400
      TabIndex        =   1
      Top             =   2550
      Width           =   1545
   End
   Begin TextBox Text1
      BackColor       =   &H0000FFFF&
      Height          =   495
      Index           =   0
      Left            =   180
      TabIndex        =   0
      Text            =   "ABCD1234あいうえおx　yzｱﾝﾄﾞｳ ﾏｻﾋﾛ安藤雅博09876543"
      Top             =   330
      Width           =   7065
   End
   Begin Label Label1
      BackStyle       =   0  '透明
      Caption         =   "返却値　0:ｴﾗｰ　n:変換結果ｻｲｽﾞ"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   12.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   345
      Left            =   840
      TabIndex        =   8
      Top             =   1830
      Width           =   3855
   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           =   2
      Left            =   210
      TabIndex        =   6
      Top             =   930
      Width           =   2205
   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           =   0
      Left            =   210
      TabIndex        =   5
      Top             =   120
      Width           =   6015
   End
   Begin Label Label3
      BackColor       =   &H0000FF00&
      BorderStyle     =   1  '実線
      Height          =   465
      Left            =   210
      TabIndex        =   2
      Top             =   1770
      Width           =   495
   End
End
Option Explicit

Dim entmode As Integer

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

  s1 = TEXT1(0).Text
  '
  RT = SJ2EUC%(s1, s2)
  '
  LABEL3.Caption = Str$(RT)
  '
  FILENAmes = TEXT1(1).Text
  '
  FP = FreeFile
  Open FILENAmes For Output As #FP
  Print #FP, s2
  Close #FP
  '

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