home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 February
/
VPR9602A.ISO
/
fwindows
/
exds100
/
spack
/
exceed1.frm
< prev
next >
Wrap
Text File
|
1995-09-29
|
5KB
|
179 lines
VERSION 2.00
Begin Form S2E
BackColor = &H00C0C0C0&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS ゴシック"
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 = "MS ゴシック"
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 = "MS ゴシック"
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 = "MS ゴシック"
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 + "Sj2euc" + ccc + ccc
MM = MM + " <概要>シフトJISコードの文字列をEUCコードの文字列に変換します。" + ccc + ccc
MM = MM + " <引数>" + ccc
MM = MM + " <SJIS文字列> <変換結果文字列領域>" + ccc + ccc
MM = MM + " <注意>" + ccc
MM = MM + " 変換結果文字列は256バイト以上の領域を必ず指定して下さい。" + 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